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liO*, 


00130 
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FSPS 
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00150 


HIGH 


DC 
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00160 


LAODR 


DC 


s.o,. 






-0000 


00170 


IBMMOD 


OSC 


Ifl.t 


00180 


OLDOA 


1 

DSC 


I5t0» 



DDA FOR LOADER CALLS. 



DISK SCRATCH AREA OEFINER. 

SPSt FORTRAN, AND DUP CNTL CARD SOURCE. 

LADDR INITIALIZATION INDICATOR. 

LOADER ENTRY CODE AND INPUT DEVICE. 

LOAD SUP IND. AND MONITOR CNTL CARD SOUR. 

HIGHEST ADDRESS LOADED PLUS ONE. 

LOADER INPUT BUFFER VECTOR. 

DRIVE CODE FOR SYSTEM MODULE. 

TRANSMIT HEADLESS DOA-S HERE FOR OVRLAY. 



00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 



00000000000000* 
•••••• OVERLAY READ ROUTINE 

HALT 
OVRLAY 



BNI 



H 
34 
36 
BI 
B 



XX,XX,02t 
IBMMOD, 701 *« 
IBMMOD, 702,0 
HALT,1900,, 
IBMM0D^13*,6, 



RESET AND START UPON OVERLAY ERROR. 
SEEK AND READ OVERLAYING PROGRAM. 



HALT IF IND. 1900. 

BRANCH TO ITS FIRST LOCATION. 



OORG •-9 
DSA 20 



00270 

00280 *•••♦• 
00290 • 
00300 • 
00310 

00320 •••••• 

00330 REPOS 
00340 

00350 

00360 



MAIN lORT ROUTINE. 

ENTRIES ARE lORBC, lOPT, IOSK» AND IQGT. 

FILE DESCRIPTOR AND RETURN ADDRESS VECTOR IS lOXX. 

DRIVE REPOSITION TABLE 
DORG BNI 4^20 
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-0 
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•••••• 

tORBC 
I OPT 



lOSK 
lOGT 



ERRET 
INOS 



00370 

00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00561 

00562 



00570 •••••• 

00580 ERROR 

00590 

00600 

00610 

00620 

00640 

00650 

00660 

00670 

00680 • 

00690 lOCAL 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 »••»•• 
00780 MONCAL 
00790 



DC 
-0 



ENTRY SECTION 



TDM 


DI0P^47,1,11, 


PUT ENTRY MITH READ BACK CHECK. 


TFM 


DFILE«11,TT1»12,8 


, PUT ENTRY. 


B 


I0GT^12 




DORG 


•-1 




SF 


•fXX,, 


SEEK ONLY ENTRY. 


TFM 


DFILE^ll.TTl,, 


GET ENTRY. 


TFM 


BKPT,X01,, 


TURN OFF ANY I/O INDICATORS. 


Bt 


ERROR, 1900,11 




B 


BKPT,,16, 


WHITHER WANDEREST THOU, HAYFARER. 


DORG 


•-4 




DC 


2,06,, 


ERROR INDICATOR TABLE. 


-6 
DC 


2,07 




-7 






DC 


2,16 




J6 






DC 


2,17 




47 






DC 


2,36 




L6 






DC 


2,37 




L7 






DC 


2,38 




L8 






DSC 
t 


1,» 




DSC 


1,0 




0 

DSA 


CHECK-12 




ERROR INDICATOR SCANNER ROUTINE. 


TF 


•♦21,INDS,7, 


INITIALIZE FOR CURRENT INDICATOR. 


BNI 


• 4-24, XX,, 


TEST IF INDICATOR ON. 


SF 


ERR0R^11,,6, 


YES -SET FLAG INDICATOR. 


AM 


ERR0R^11,2,10, 


ADVANCE ADDRESSING. 


BD 


ERROR, ERROR^ll, 11 


, TEST IF FINISHED 


TR 


OLDDA,ECALL,, 


YES -SET UP CALL TO THE ERROR ROUTINE. 


B 


OVRLAY,,, 




OORG 


716 




CALL LINK AND CALL 


LOAD ENTRY 


SIMULATES AN lOGT ENTRY FOR SPS -CALL- PSUEDO-OP. 


TFM 


DFILE*11,TT1,, 


SET READ INDICATOR. 


TR 


CNTW0,I0XX,11, 


MOVE FILE DESCRIPTOR. 


TFM 


BKPT,X01^48,, 


PUNCH THE TIME CLOCK. 


AM 


I0XX,9,, 


COMPUTE RETURN ADDRESS. 


BNF 


ERRET-l2,CNTW0+7 




AM 


I0XX,4 




B 


ERRET-L2,,, 


EXECUTE ANY INDICATOR CHECK. 


DORG 


• -3 




MONITOR CALLER C THROUGH MONITOR RETURN ROUTINE.) 


TR 


OLODA.MOOA 




BSIA 


OVRLAY,,, 


TURN INDIRECT ON 



00519 




2 




00520 


15 


02067 


OOOOJ 


00532 


16 


01945 


0J768 


00544 


49 


00578 


00000 


00554 








00554 


32 


00554 


00000 


00566 


16 


01945 


-1756 


00578 


16 


00467 


-1850 


00590 


46 


00630 


0190- 


00602 


4R 


0046P 


00000 


00609 








00610 




2 




00612 




2 




00614 




2 




00616 




2 




00618 




2 




00620 




2 




00622 




2 




00623 




1 




00624 




1 




00629 




5 


X 1 


00629 




-1256 




00630 


26 


00651 


-r06lO 


00642 


47 


00666 


00000 


00654 


32 


0064J 


00000 


00666 


11 


00641 


000-2 


00678 


43 


00630 


0064J 


00690 


31 


00441 


01793 


00702 


49 


00468 


00000 


00716 








00716 


16 


01945 


-1756 


00728 


31 


02170 


0056N 


00740 


16 


00467 


-1898 


00752 


11 


00565 


-0009 


00764 


44 


00590 


02177 


00776 


11 


00565 


-0004 


00788 


49 


00590 


00000 


00796 








00796 


31 


00441 


01779 


00808 


60 


00468 


00009 



2 
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00810 ♦•»»»• DISK FILE I/O PREPARATION SECTION 



00820 


DIO 


TO 


OIOP-*-ltDFILE-»ll 1 11 


ffSET LOM ORDER DIGIT OF OP CODE* 


00820 


25 


02021 


0194N 


00830 




TO 


•-*-35* CNTWDt t 


DECODE SCRATCH AND HIGH UPDATE 


00832 


25 


00867 


02170 


00840 




CF 


• -*-23tDI0P^102t t 


INDICATbR. 


00844 


33 


00867 


02122 


00850 




TD 


DI0P-«-7tERRET-2 




00896 


25 


02027 


00600 


00860 




BNF 


DIOltCNTW0-f2tt 


TEST IF DIM NUMBER SUPPLIED* 


00868 


44 


00972 


02172 


01030 


CHKl 


TR 


MAPENTf CNTN046t lit 


MOVE DDA TO WORKING SLOT* 


00880 


31 


02144 


02170 


01040 




60 


DI0YtDI0P'«-7t f 


TEST FOR SECTOR SCRATCH RELOCATION* 


00892 


43 


00926 


02027 


01050 




A 


MAPENT4-3t SRELOC 1 1 


YES -COMPUTE ABSOLUTE SECTOR ADDRESS* 


00904 


21 


02147 


00425 


01060 




TO 


MAPENTt SRELOC-S » » 


GET ITS LOGICAL DRIVE CODE* 


00916 


25 


02144 


00422 


01070 


DIOY 


BNF 


DIOZ-IZ* lOSKtt 


TEST IF SEEK ONLY DESIRED* 


00928 


44 


01116 


00554 


01080 




CF 


|OSK»t« 


YES "CLEAR THE INDICATOR* 


00940 


33 


00554 


00000 


01090 




TFM 


$K04t lOXXfTllfl 


PERFORM THE SEEK AND EXIT* 


00952 


16 


02143 


-056N 


01 100 




B 


SEEK 




00964 


49 


01 500 


00000 


01 1 10 




DORG 


**-3 




00972 








00870 


DIOl 


TR 


MAPENTtMAPSCTf t 


YES -COMPUTE SECTOR TO READ* 


00972 


31 


02144 


01835 


00860 




A 


MAPENT'*-6tCNTWD't-6 




00984 


21 


02150 


02176 


00890 




A 


M AP E N T-*- 6 1 CNT M04'6 




00996 


21 


02 150 


02176 


00900 




TFM 


SK04f DIOX» t 


SEEK THE MAP ENTRY* 


01008 


16 


02 143 


-1028 


00910 






SEEK 




01020 


49 


01500 


00000 


00920 




DORG 


• -3 




01028 








00930 


01 OX 


TO 


0I0P'*>94t MAPENT-*-6« « 


READ SLOT FOR DIM ENTRY (0»20f 40t60»80)* 


01028 


25 


021 14 


02150 


00940 




TOM 


MAPENT-*-6t0t lit 


RESTORE SECTOR COUNT (*001) 


01040 


15 


02150 


0000- 


00950 




TFM 


BKPTt X03fl t 


PUNCH THE TIME CLOCK* 


01052 


16 


00467 


-1084 


00960 




36 


MAPENTt702ff » 


READ THE DESIRED HAP ENTRY* 


01064 


36 


02144 


00702 


00970 




B 


ERRET-12i t ff 


EXECUTE ERROR TEST* 


01076 


49 


00590 


00000 


00980 




DORG 


•-4 




0 1 08 3 








00990 


X03 


TR 


MAPENT»DI0P'«-95^ 11, 


MOVE DIM ENTRY TO WORKING SLOT* 


01084 


31 


02144 


02 UN 


01000 




BNR 


0I0Y»MAPENT» t 


TEST IF VALID DIM ENTRY* 


01096 


45 


00928 


02144 


01010 




B 


ERROR -*-60t • t 


NO -GO TO THE ERROR ROUTINE* 


01108 


49 


00690 


00000 


01020 




DORG 


•-3 




01116 








01 120 




BNF 


GTESTtOFILEt t 


BRANCH IF GET ENTRY* 


01116 ' 


44 


01 160 


01934 


01 130 


DIOZ 


TO 


OIOP-(-llflCNTMO«-tff t 


SET MODE DIGIT* 


01128 


25 


02031 


02171 


01 140 




TFM 


SK04»DI0Ptf 


PERFORM THE SEEK* 


01140 


16 


02143 


-2020 


01 150 




B 


SEEK 




01152 


49 


01500 


00000 


01 160 




DORG 


•-3 




01160 








01 170 


GTE ST 


CM 


MAPENT4^13t99999»« 


TEST IF RELOCATABLE LOADER REQUIRED* 


01160 


14 


02157 


R9999 


01180 




BI 


•♦24,1200 




01172 


46 


01 196 


01200 


01 190 




BNF 


DI02tMAPENT^13tt 


NO -TEST IF SPS SUPERVISOR REQUIRED* 


01184 


44 


01128 


02157 


01200 




TR 


0L0DA,RCALL«, 


YES -READ AND EXECUTE CALLER* 


01196 


31 


00441 


01807 


01210 




B 


OVRLAY 




01208 


49 


00468 


00000 


01220 




OORG 


•-3 




01216 








01230 




POST DISK I/O HOUSEKEEPING SECTION 










01240 


X04 


CF 


DI0P^98t*f 


CLEAR POSSIBLE USERS ERROR TRAP IND* 


01216 


33 


02118 


00000 


01250 




BNF 


CHK2*0FILE,, 


BRANCH IF GET ENTRY. 


01228 


44 


01344 


01934 


01260 




TDM 


DI0P*47,0., 


KILL POSSIBLE RBC INDICATOR. 


01240 


15 


02067 


00000 


01270 




BNF 


I0XXtCNTWDt6, 


EXIT IF NO REPOSITIONING REQUIRED* 


01252 


44 


0056N 


02170 


01280 




AM 


DRIVE,REPOS-OLOCY,, COMPUTE A SECTOR ADDRESS FROM THE 


01264 


11 


02169 


-161R 


01290 




TDM 


MAPENT^l,0»llt 


REPOSITION CONSTANT* . 


01276 


15 


02145 


0000- 


01300 




TF 


MAPENT4^3«DRIVEtll 




01288 


26 


02147 


0216R 


01310 




CF 


MAPENT^2 




01300 


33 


02146 


00000 


01320 




A 


MAPENT*3,DRIVE,ll 




01312 


21 


02147 


0216R 


01330 




TD 


MAPENTtTEMP-5tt 


RESTORE THE LOGICAL DRIVE CODE DIGIT 


01324 


25 


02144 


02014 


01340 




B 


DI0V*24 




01336 


49 


00952 


00000 


01350 




OORG 


•-3 




01344 








01360 


CHK2 


BNF 


CHK3tDI0P<f7,» 


TEST IF HIGH INDICATOR TO BE UPDATED. 


01344 


44 


01380 


02027 



3 
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01370 




TF 


HIGH»MAPENT«13», 


YES. 


01356 


26 


00434 


02157 


01380 




A 


HI6H-2tMAPENTf8 




01368 


21 


00432 


02152 


01390 


CHK3 


BNF 


CHK4,SPSMLPtt 


TEST IF SPS MAIN LINE PROGRAM* 


01380 


44 


01412 


00468 


01400 




TR 


OLODA,SUPRET,, 


YES -GET ROUTINE TO HANDLE* 


01392 


31 


00441 


01821 


01410 




B 


OVRLAY 




01404 


♦9 


00468 


00000 


01420 




DORG 


•-3 




01412 








01430 


CHK4 


BNF 


X04^24,CNTW0«1»» 


TEST IF EXECUTION DESIRED. 


01412 


44 


01240 


02171 


01440 




TF 


HALT^6,I0XX,« 


YES -SET UP THE EXIT* 


01424 


26 


00462 


00565 


01450 




TFM 


I0XX*MAPENTtl8t711 




01436 


16 


00565 


-216K 


01460 




BNR 


X04«24«MAPENT^14 




01446 


45 


01240 


02158 


01470 




TFM 


I0XX,MAPENT«13t711 




01460 


16 


00565 


-215P 


01480 




B 


X04*24 




01472 


49 


01240 


00000 


01490 




OORG 


•-3 




01480 








01500 




1 SEEK ROUTINE 


SEEKS WHEN NECESSARY, COMPUTES PHYSICAL 










01510 




DRIVE CODE CORRESPONDING TO USER SUPPLIED DRIVE COOEt AND 










01520 


* 


UPDATES CURRENT I/O 


CYLINDER POSITION INDICATOR* 










01530 


SKOl 


TD 


TEMP-5,MAPENT,, 


INSERT SUPPLIED DRIVE CODE* 


01480 


25 


02014 


02144 


01540 




B 


SK02 




01492 


49 


01608 


00000 


01550 




DORG 


•-3 




01500 








01560 


SEEK 


TFM 


TEMP-5t0tl0t 


COMPUTE CYLINDER FOR THIS CALL* 


01500 


16 


02014 


000-0 


01570 




TF 


TEMP,MAPENT*5 




01512 


26 


02019 


02149 


01580 




CF 


TEMP-4 




01524 


33 


02015 


00000 


01590 




A 


TEMP, TEMP 




01536 


21 


02019 


02019 


01600 




A 


TEMPtTEMP 




01548 


21 


02019 


02019 


01610 




A 


TEMP»MAP,ENT*5 




01560 


21 


02019 


02149 


01620 




BO 


SKOl.MAPENT., 


TEST FOR SPECIFIED DRIVE CODE* 


01572 


43 


01480 


02144 


01630 




A 


TEMP-5»TEMP-5f , 


NO -MUST BE COMPUTED* 


01584 


21 


02014 


02014 


01640 




AM 


TEMP-5,1,10 




01596 


11 


02014 


000-1 


01650 


SK02 


TFM 


DRIVE, EQUtVf, 


COMPUTE LOCATION OF PHYSICAL DRIVE CODE* 


01608 


16 


02169 


-2123 


01660 




A 


DRIVE, TEMP-5 




01620 


21 


02169 


02014 


01670 




TD 


MAPENT,ORIVE«ll, 


REPLACE LOGICAL DRIVE CODE BY PHYSICAL* 


01632 


25 


02144 


0216R 


01680 




BO 


•02, MAPENTt, 


ERROR IF NO PHYSICAL DRIVE CODE* 


01644 


43 


01676 


02144 


01690 




TFM 


BKPT,SK02 




01656 


16 


00467 


-1608 


01700 




B 


ERR0R^60,,, 


TELL THE OPERATOR A THING OR TWO* 


01668 


49 


00690 


00000 


01710 




DORG 


•-3 




01676 








01720 




AM 


DRIVE,OLDCY-EQUIV,,GET OLD CYLINDER POSITION* 


01676 


11 


02169 


-0008 


01730 




SF 


TEMP-4,,, 


COMPARE WITH DESIRED CYLINDER* 


01688 


32 


02015 


00000 


01740 




C 


TEMP-3,0RIVE,11 




01700 


24 


02016 


0216R 


01750 


SK03 


BI 


SK04, 1200,6, 


TEST IF THE SEEK IS NECESSARY* 


01712 


46 


0214L 


01200 


01760 




34 


MAPENT,701,, 


YES -PERFORM THE SEEK. 


01724 


34 


02144 


00701 


01770 




TF 


DRIVE rTEMP-3,6, 


UPDATE OLD CYLINDER POSITION. 


01736 


26 


0216R 


02016 


01780 




B 


SK04, ,6, 


RETURN TO CALLER. 


01748 


49 


0214L 


00000 


01790 




OORG 


•-4 




01755 








01800 




> CONSTANTS AND DOA-S 












01810 


TTl 


DC 


2,16,, 


TABLE OF NON-DISK I/O MODE AND DEVICE 


01756 




2 




01820 




J6 

DC 


2,36,, 


SPECIFIERS. 


01758 




2 




01830 




L6 
DC 


2,56 




01760 




2 




01840 




N6 
DC 
J7 


2,17 




01762 




2 




01850 




DC 
L7 


2.37 




01764 




2 




01860 




DC 


2,57 




01766 




2 





4 
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01870 




DC 


2f 18 






J8 




01880 




DC 


2t28 






K8 




01890 




DC 


2,48 






M8 




01900 




DC 


2,19 






J9 




01910 




OC 


2,29 






K9 




01920 




DC 


2,49 






M9 




01930 


MODA 


DS 


0,»*l 


01940 




DSA 


DSA19 


01950 




OC 


3,3 






-03 




01960 




OC 


6,0* 






-0000« 


01970 


ECALL 


DS 


©.•♦I 


01980 




OS A 


OSAIO 


01990 




OC 


3,12 






-12 




02000 




DSA 


ERROR 


02010 




DSC 
t 


US 


02020 


RCALL 


DS 


0,»4l 


02030 




DSA 


0SA15 


02040 




DSC 


1,0 






0 




02050 




DC 


2f3 






-3 




02060 




OC 


6,0* 






-0000* 


02070 


SUPRET 


OS 




02080 




DSA 


0SA17 


02090 




DC 


3,2 






-02 




02100 




DC 


6,0* 






-0000* 


02110 


MAPSCT 


DSC 


If 1 






1 




02120 




DSA 


4800 


02130 




DSC 


3,1 






001 
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01768 2 

01770 2 

01772 2 

01774 2 

01776 2 

01778 2 

01779 0 
01783 5 X 1 

01783 J9795 

01786 3 

01792 6 

01793 0 
01797 5 X I 

01797 J9749 

01800 3 

01805 5 X 1 

01809 -0630 

01806 1 

01807 0 
01811 5 X 1 

01811 J9783 

01812 1 

01814 2 

01820 6 

01821 0 
01825 5 X 1 

01825 J9770 

01828 3 

01834 6 

01835 1 
01840 5X1 

01840 -4800 

01841 3 
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K 6,0* 

-0000* 

CONTINUATION OF ENTRY SECTION 



02160 


XOl 


TFL 


•+35,I0XX,11, 


MOVE FILE DESCRIPTOR TO CNTWO. 


01850 


06 


01885 


0056N 


02161 




MA 


•♦23,IQXX,11, 


COMPLETE MOVE 


01862 


70 


01885 


0056N 


02170 




TR 


CNTWO.XX 




01874 


31 


02170 


00000 


02180 




AM 


I0XX,1,, 


COMPUTE RETURN ADDRESS. 


01886 


11 


00565 


-0001 


02181 




MF 


DFILE, DFILE4-8,, 


MF MOVE FLAG AND CLEAR 


01898 


71 


01934 


01942 


02190 




BNG 


0tO,CNTWD4>7tt 


BRANCH IF DISK I/O. BNG 


01910 


55 


00820 


02177 


02200 




A 


0FILE4^11,CNTWD«6, 


• NO -BUILD NON-DISK I/O INSTRUCTION. 


01922 


21 


01945 


02176 


02210 


DFILE 


TF 


I0P*10,XX 




01934 


26 


01968 


00000 


02220 




TD 


I0P*l,I0P+10 




01946 


25 


01959 


01968 


02230 




I/O SECTION 












02240 


lOP 


30 


CNTW0^4,XX,06, 


CONSTRUCTED NON-DISK I/O INSTRUCTION. 


01958 


LO 


0217H 


00000 


02250 




BI 


0I0P4-60,1900,, 


TEST FOR ANY I/O ERROR. 


01970 


46 


02080 


01900 


02260 




TFM 


BKPT,X03,, 


PUNCH THE TIME CLOCK. 


01982 


16 


00467 


-1084 


02270 




BNR 


IOXX,CNTW0^4f0611 


, NO -TEST FOR AN INITIAL RECORD MARK. 


01994 


M5 


0056N 


0217M 


02280 




B 


ERROR 4^60,,, 


YES -EXECUTE CONTROL CARD TRAP ROUTINE. 


02006 


49 


00690 


00000 


02290 




OORG 


•-4 




02013 








02540 


TEMP 


OC 


7,0,. 


SCRATCH FIELD FOR SEEK ROUTINE. 


02019 




7 








-000000 












02300 


DIOP 


30 


MAPENT, 700, 010, 


CONSTRUCTED DISK I/O INSTRUCTION. 


02020 


LO 


02144 


007-0 


02310 




BNF 


• ■••36, ♦♦35,, 


IF INDICATED, 00 AN RBC. 


02032 


44 


02068 


02067 


02320 




S 


•♦23,DI0P*11 




02044 


22 


02067 


02031 


02330 




36 


MAPENT, 700, 10 




02056 


36 


02144 


007-0 


02340 




BNI 


X04,1900,, 


PROCEED IF NO ERROR. 


02068 


47 


01216 


01900 


02350 




TFM 


BKPT,X04,, 


ERROR -PUNCH THE TIME CLOCK. 


02080 


16 


00467 


-1216 


02360 




BNF 


ERROR, •♦26,, 


BRANCH TO ERROR SCANNER OR USERS 


02092 


44 


00630 


02118 


02370 




CF 


•♦14, XX,, 


ERROR ROUTINE. 


02104 


33 


02118 


00000 


02380 




B 


XX 




02116 


49 


00000 


00000 


02390 




OORG 


•-4 




02123 








02400 




DRIVE EQUIVALENCE AND POSITION TABLES 










02410 


EQUIV 


DS 


0,»^1 




02123 




0 




02420 




DC 


2,1 




02124 




2 




02430 




-1 

OC 


2,0 




02126 




2 




02440 




-0 
DC 


2,0 




02128 




2 




02450 




-0 
DC 


2,0 




02130 




2 




02460 


OLDCY 


-0 
DS 


0,»^1 




02131 




0 




02470 




DC 


2,0 




02132 




2 




02480 




-0 
DC 


2,0 




02134 




2 




02490 




-0 
DC 


2,0 




02136 




2 




02500 




-0 
DC 


2,0 




02138 




2 




02510 




SYMBOL DEFINITIONS 


AND WORKING STORAGE 










02530 


SK04 


DC 


5,0,, 


SEEK ROUTINE RETURN ADDRESS VECTOR. 


02143 




5 








-0000 












02520 


MAPENT 


DSC 


21,0,, 


STORAGE FOR WORKING DOA. 


02144 




21 








000000000000000000000 












02550 


DRIVE 


OC 


5,0,, 


VECTOR TO MODULE TABLES. 


02169 




5 





6 
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02560 


CNTWO 


DSC 


13, O,, 


STORAGE FOR CALLING SEQUENCE RECORD. - 


02170 


13 






0000000000000 








02570 


XX 


OS 


OtOf , 


INDICATES USED FIELD OR UNOEFINEO SYMBOL 


00000 


0 


02580 


lOXX 


OS 


Of IGSK-Mlf ff 


CALL AND RETURN VECTOR. 


00565 


0 


02590 


BKPT 


OS 


OtHALT-fllft 


INDIRECT RETURN BRANCH ADDRESS 


00467 


0 


02600 


SYSORG 


OS 


0ff2402tt 


OBJECT PROGRAM STANDARD ORIGIN. 


02402 


0 


02610 


SYSCAL 


OS 


0»0VRLAY-«-7t t 


SYSTEM PROGRAM COMMUNICATION DIGIT. 


00475 


0 


02620 


NONEX 


DS 


0,HALT+1 1 1 


NON-EXECUTE IND, SET BY SPSf ETC. 


00457 


0 


02630 


SPSMLP 


OS 


OiOVRLAY, , 


SPS SUPERVISOR FLAG WHEN MLP LOAD REQUEST 


00468 


0 


02640 


RMl 


OS 


0 f 2210t t 


INDIRECT VECTORS TO SET RECORD MARKS 


02210 


0 


02650 


RM2 


DS 


0 f 2 2 1 5 1 • 


FOR THE SPS SUP. AFTER MLP LOAD. 


02215 


0 


02660 


SUPENT 


DS 


0,2934, , 


ENTRY TO THE SPS SUPERVISOR. 


02934 


0 


02670 


COMM 


DS 


Of SYSORG+400, 1 


LOCATION OF COMM SECTOR IN MONITOR. 


02802 


0 


02680 


MCOMM 


OS 


0 ,C0HM-t-50, , 


MONITOR INDS. IN THIS SECTOR 


02852 


0 


02690 


MCCBUF 


DS 


0, 13000, , 


MONITOR CNTL CARD READ BUFFER. 


13000 


0 


02700 


MCYL 


DS 


0,98, , 


MONITOR CYLINDER 


00098 


0 


02710 


DSAOO 


DS 


o . ?fin»Mr VI . . 

\/,tw^ni# "II,, , 


FIRST SECTOR IN MONITOR CYLINDER 


19600 


0 


02720 


DSAOl 


DS 


0, DSAOO 4-35,, 


LOADER RETURN ANALYZER STAGE 2 


19635 


0 


02730 


0SA02 


DS 


0,OSA01-f 1 , , 


ARITHMETIC TABLES. 


19636 


0 


02740 


0SA04 


DS 


0,0SA02*3, , 


COMMON AND OVERLAY READ ROUTINE 


19639 


0 


02750 


DSA06 


DS 


0 tOSA04-*-l , , 


MAIN lORT 


19640 


0 


02760 


DSA07 


OS 


0,DSA06«' 16, , 


RELOCATABLE LOADER CORE SAVE AREA 


19656 


0 


02770 


DSA08 


OS 


0,DSA07+3 , , 


MONITOR 


19659 


0 


02780 


0SA09 


DS 


0,DSA08-*-85, , 


NAMED LOAD ROUTINE STAGE 2 


19744 


0 


02790 


OSAIO 


OS 


0,DSA09-»-5, , 


ERROR ROUTINE STAGE 0 


19749 


0 


02800 


OSALl 


OS 


0,DSA10-(-12f t 


ERROR ROUTINE STAGE 1 


19761 


0 


02850 


0SA16 


OS 


0,0SAll4-6f t 


LOADER CALLER STAGE 2 


19767 


0 


02860 


DSA17 


OS 


0,DSA16'f 3, , 


SPS SUPERVISOR RETURN ANALYZER 


19770 


0 


02820 


DSA13 


DS 


0,DSA17-*-2t f 


ERROR ROUTINE STAGE 3 


19772 


0 


02830 


0SA14 


DS 


Of DSA13'f5 f f 


ERROR ROUTINE STAGE 4 


19777 


0 


02840 


0SA15 


OS 


Of DSA144-6, f 


SPS SUP AND LOADER CALLER STAGE 1 


19783 


0 


02810 


DSA12 


OS 


0,DSA15-*'3f f 


ERROR ROUTINE STAGE 2 


19786 


0 


02870 


DSA18 


DS 


0fDSA12>6,, 


LOADER RETURN ANALYZER STAGE 1 


19792 


0 


02880 


DSA19 


DS 


0,DSA184-3,, 


MONITOR AND OUP SUP. LOADER SUBR. 


19795 


0 


02890 


0SA20 


DS 


0,DSAl943f , 


NAMED LOAD ROUTINE STAGE 1 


19798 


0 


02900 


0SA21 


OS 


0,DSA01~5,f 


ERROR ROUTINE STAGE 0 PLUS 


19630 


0 


02910 


DSA39 


DS 


0,DSA08^4f t 


SYSTEM COMMUNICATION SECTOR. 


19663 


0 


02920 


0SA40 


OS 


0fDSA084-84f f 


SYSTEM ODA SECTOR. 


19743 


0 


02930 


DSA50 


DS 


0,17024f, 


SPS SUPERVISOR 


17024 


0 


02940 


DSA51 


OS 


OfOSAOOf , 


RELOCATABLE LOADER 


19600 


0 


02950 




00 RG 


19982, 


CONTROL TO WRITE ON DISK. 


19982 




02960 




DSC 


Itl 




19982 


1 


02970 




1 

DSA 


DSA 04 




19987 


5 



02980 
02990 



DC 3,20 
-20 

DC 6,402* 
-0402« 



03000 • 

03010 ••••»• lORT SUBROUTINES WHICH NORMALLY RESIDE ON DISK FOLLOW 
03020 •••••• 

03030 •••••• OVERLAY ERROR ROUTINE STAGE 0 

03040 ••• SAVE ERROR COUNT ROUTINE 
03050 D0R6 ERROR 



19987 
19990 



J9639 
3 
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03060 
03070 
03080 
03090 
03100 
03120 
03130 
03140 
03160 
03170 
03180 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 

03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 

03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 

03520 



BNF 
AM 
AM 
AM 

BD 



NOERRf INDSf7, TEST IND TABLE 

COUNT, 01 f 10,, UP THE ERROR COUNT 

TEST^^ll, 02,10,, MODIFY ERROR TEST 

TEST4^18,02f 10,, MODIFY ERROR COUNT LOCATION 

TEST,TEST+ll,ll, TEST LAST INDICATOR 
»• WRITE ERROR COUNT TO DISK 

TO IBMWRTflBMMOD,., SET CORRECT MODULE 
• NO ERROR COUNT TO DISK IF FULL TRACK 

BNF WRTCT^12,0LDDA4l4,f WRITE ERROR COUNT NO FLAG 
B GDGO 
DORG •-3 
WRTCT 34 IBMWRT,701,,, 
38 IBMWRT,702,tt 
BI BIGTRB,1900 
B GDGO 
DORG •-3 
BIGTRB RCTY 

WATY MESl,,, 
. H 



SEEK THE ERROR COUNT 
WRITE THE ERROR COUNT 



DISK WRITE ERROR MESSAGE 



B WRTCT 
DORG •-4 

DAC 27, BAD DISK WRITE. RESET START* 
BAD DISK WRITE. RESET START* 

MESSAGE IF ENTERING lORT ERROR 



CM 
BE 
CM 
BE 
TR 
B 

DORG 
DAC 



BKPT,X01,, 

MESSG 

BKPT,X0U36 
MESSG 

0L00A,jaFF,, 
OV RLAY+12,,f 
•-4 



TEST IF CALLED AT ENTRY 



NO-CALL I ORT ERROR 
ELIMINATE SEEK 



BI 
B 

DORG 
IBMWRT DC 
J 

DSA 



ll.ENT ERROR 
ENF ERROR • 
RCTY 

WATY MES2,,, 
WNTY INDS-l,,, 
RCTY 

•♦12,700 
EEXIT*12 
• -3 
l.l 



10 IN MESSAGE 
10 INDICATORS 



DSA10*5 



03530 
03540 



03550 JOFF 
03560 



DC 3,1 
-01 

DSA ERR0R*500 



DS 0,»*1 

DSA DSA21 



DC 3,5 

-0 5 



00630 


44 


00654 


-0610 


00642 


11 


01131 


000-1 


00654 


11 


00641 


000-2 


00666 


11 


00648 


000-2 


00676 


43 


00630 


0064J 


00690 


25 


01022 


00440 


00702 


44 


00734 


00455 


00714 


49 


00864 


00000 


00722 








00722 


34 


01022 


00701 


00734 


38 


01022 


00702 


00746 


46 


00766 


01900 


00758 


49 


00864 


00000 


00766 








00766 


34 


00000 


00102 


00778 


39 


00811 


00100 


00790 


48 


00000 


00000 


00602 


49 


00722 


00000 


00809 








00811 




27 


X 2 


00864 


14 


00467 


-1850 


00876 


46 


00954 


01200 


00888 


14 


00467 


-1886 


00900 


46 


00954 


01200 


00912 


31 


00441 


01036 


00924 


49 


00480 


00000 


00931 








00933 




11 


X 2 


00954 


34 


00000 


00102 


00966 


39 


00933 


00100 


00978 


38 


00609 


00100 


00990 


34 


00000 


00102 


01002 


46 


01014 


00700 


01014 


49 


01648 


00000 


01022 








01022 




I 




01027 




5 


X 1 


01027 




J9754 




01030 




3 




01035 




5 


X 1 


01035 




-1130 




01036 




0 




01040 




5 


X 1 


01040 




J9630 




01043 




3 





8 
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PAGE 



03580 




DSA 


ERROR 




03590 




OSC 






03610 




ROUTINE TO TYPE 


OUT 


03620 




DORG 


ERROR '*-500 






COUNT 


OC 


2 tOOf 1 1 


06 












036^0 




DC 


2«00ff 1 1 


07 






~0 






03650 




DC 


2 tOOi » t 


16 






—0 






03660 




DC 


2«00« t • 


17 






-0 






03670 




OC 


2 00 


36 






—0 






03680 




DC 


2t00t t f 


37 












03690 




DC 


3 00* 


38 






—0 * 






03700 




DORG 


ERROR-f 524 




03710 




RC TY 






03720 




WN T Y 


46 1 1 1 




03730 




TR 


46» 120t ♦ 




03740 




38 


32t 702* t 




03750 










03760 




DORG 


• -9 » 




03770 




DC 


2 » 0 








-0 






03780 




DC 


2t0 








-0 






03790 




DC 


2«0 








-0 






03800 




DC 


2tO 








-0 






03810 




OC 


2f0 








-0 






03820 




DC 


2»0 








-0 






03830 




DC 


3,0« 








-0* 






03840 




^ THIS ROUTINE REMAIN 


03850 




DORG 


ERR0R^600 




03860 


BBUFF 


00 






03870 




DSC 


8f0» 








0000000* 




03880 


SIQXX 


DSC 


6,0* 








00000* 




03890 




TF 


•♦24, SETX, »• 




03900 


CHECK 


TF 


•♦33, XX, 7 




03910 




CF 


•-1,,6 




03920 




BNI 


•♦36, XX 




03930 




SF 


CHECK^11,IN0S 


t67 


03940 


SETX 


SF 


CHECK^12,t» 




03950 




AN 


CHECK^11,2,10 





CALL IN BY ENTERING 

340003200701 
360003200702 

4900070011975400100046 

NOW MASN-T THAT NICE 



ROUTINE TO DETERMINE ERROR INDS. 



SIX DIGIT SUPER INtTI ALI ZATION 



01048 
01049 



01130 
01131 

01133 

01135 

01137 

01139 

01141 

01144 

01154 
01154 34 
01166 36 
01178 31 
01190 36 
01202 48 
01204 
01205 

01207 



-0630 
1 



00000 00102 

00046 OOlOO 

00046 00120 

00032 00702 

00000 00000 

2 

2 



01209 




2 




01211 




2 




0L213 




2 




01215 




2 




01218 




3 




01230 








01230 


00 


00000 


00000 


0L242 




8 




01250 




6 




01256 


26 


01280 


01316 


0L268 


26 


01301 


-0000 


01280 


33 


0127R 


00000 


01292 


47 


01328 


00000 


01304 


32 


0127R 


-0610 


01316 


32 


01280 


00000 


01328 


11 


01279 


000-2 
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03960 


CHEKl 


CM 


CHECK+ll,INDS>i; 


03970 




BNI 


CHECK, 1300 


03980 




BNF 


0TEST,CHECK^12,, 


03990 


CHEK2 


BD 


RETRY,STEPS,f 


04000 


HOLLER 


RCTY 


ff , , 


04010 




WATY 


EMSGl 


04020 




SPTY 




04030 


HOI 


WNTY 


SIOXX 


04040 




SPTY 




04050 




NOP 


H04 


04060 


H03 


WNTY 


INOS-1 


04070 




SPTY 




04080 


H04 


H 


ERROR^B 


04090 




TFM 


Bl-5,B1,711, 


04100 




RNTY 


BBUFF,, , 


04110 




SPTY 




04120 




BI 


•-24,400,, 


04130 




SF 


BBUFF,, , 


04140 




S 


B1-5,BBUFF+1 


04150 




B 


81, ,6,, 


04160 




DORG 


•-4 


04170 


Bl 


DSA 


EEXIT 


04180 




OS A 


RETRY 


04190 




OS A 


APHASE 


04200 




DSA 


AJOB 


04210 




DSA 


RETN 


04220 


AJOB 


TDM 


•♦23,0, • 


04230 


APHASE 


TDM 


SYSCAL,4 


04240 




TFM 


BKPT,MONCAL 


04250 


EEXIT 


NOP 


MAPENT,SAVODA,, 


04260 




TR 


OLDDAfERRB,, 


04270 




TFM 


0LDCY^1,MCYL,10, 


04280 




B 


0VRLAY^12 


04290 




DORG 


•-3 


04300 


RETN 


RNTY 


BBUFF,,, 


04310 




SPTY 




04320 




BI 


•-24,400, , 


04330 




SF 


BBUFF,, , 


04340 




TF 


BKPT,BBUFF+4 


04350 




TDM 


0IOP^47,O 


04360 




CF 


lOSK 


04370 




CF 


OIOP+98 


04380 




B 


EEXIT 


04390 




DORG 


• -3 


04400 


EMSGl 


OAC 


9,DSK ERR •, 






OSK ERR • 



ON DISK ERROR, DISTINGUISH IF OVERFLOW. 
IF NOT, GO INTO RETRY LOOP. 
TYPE ERROR MESSAGE. 



INITIALIZE INDIRECT BRANCH. 
READ THE OPERATORS ENTRY. 



IF SSW4, ALLOW REENTRY. 
COMPUTE BRANCH ADDRESS. 



PERFORM INDIRECT BRANCH. 



SET MONITOR RETURN INDICATOR. 



RESTORE WORKING OOA IF DISK I/O ERROR. 
RESTORE MAIN ROUTINE AND RETURN. 
RESTORE MONITOR MODULE CYLINDER INO. 



READ OPERATORS ENTRY. 



ALLOW REENTRY IF SSW4. 
INITIALIZE FOR RETURN. 



01340 


14 


01279 


0-622 


01352 


47 


01268 


01300 


01364 


44 


00766 


01280 


01376 


43 


01042 


01200 


01388 


34 


00000 


00102 


01400 


39 


01785 


00100 


01412 


34 


00000 


00101 


01424 


38 


01250 


OOlOO 


01436 


34 


00000 


00101 


01448 


41 


01484 


00000 


01460 


38 


00609 


OOlOO 


01472 


34 


00000 


OOlOl 


01484 


48 


00638 


00000 


01496 


16 


01574 


-157R 


01508 


36 


01230 


OOlOO 


01520 


34 


00000 


OOlOl 


01532 


46 


01508 


00400 


01544 


32 


01230 


00000 


01556 


22 


01574 


01231 


01568 


49 


0157R 


00000 


01575 








01579 




5 


X 1 


01579 




-1636 




01584 




5 


X 1 


01584 




-1042 




01589 




5 


X 1 


01589 




-1612 




01594 




5 


X 1 


01594 




-1600 




01599 




5 


X 1 


01599 




-1680 




01600 


15 


01623 


00000 


01612 


15 


00475 


00004 


01624 


16 


00467 


-0796 


01636 


41 


02144 


01175 


01648 


31 


00441 


01815 


01660 


16 


02132 


000R8 


01672 


49 


00480 


00000 


01680 








01680 


36 


01230 


00100 


01692 


34 


00000 


OOlOl 


01704 


46 


01680 


00400 


01716 


32 


01230 


00000 


01728 


26 


00467 


01234 


01740 


15 


02067 


00000 


01752 


33 


00554 


OOOOO 


01 764 


33 


02118 


00000 


01776 


49 


01636 


OOOOO 


01784 








01785 




9 


X 2 



10 
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04A 10 


SIOP 


36 


MAPPMT 7n9 n 




01802 


L6 


02144 


00702 


04420 




DSC 
« 


l» • t 




01814 




1 




04430 


ERRB 


OS 


0,«+l 




01815 




0 




04440 




DSA 


DSA06*1 




01819 




5 


X I 












01819 




J9641 










3 * 13 




01822 




3 








-13 














04460 




OS A 


ERRET 




01827 




5 


X 1 












01827 




-0602 




04470 




DSC 
t 


1 t 




01828 




1 




04480 




00 RG 


19982* 


CONTROL TO URITE ON DISK. 


19982 








04490 




DSC 
1 


1.1 




19982 




1 




04500 




DSA 


OSAIO 




19987 




5 


X 1 












19987 




J9749 




04510 




DC 


3,12 




19990 




3 




04520 




-12 
DSA 


ERROR 




19995 




5 


X 1 












19995 




-0630 








DSC 


!»• 




19996 




1 








OVERLAY ERROR ROUTINE STAGE 0 PLUS 


■ 












DORG 


ERROR 




00630 










tOOiO 


TF 


SI0XX4^4»I0XX»f 


MOVE RETURN ADDRESS FOR TYPE-OUT. 


00630 


26 


01254 


00565 






CM 


BKPT,X03, , 


THREE POSSIBILITIES FOR THIS. 


00642 


14 


00467 


— 1084 


04580 




BNF 


E0070.CNTHD*5», 


BRANCH IF DISK I/O. 


00654 


44 


00838 


021 75 


04590 




BNI 


E0040,1200 




00666 


47 


00736 


01200 


04600 




BNR 


E0050,CNTWD+4,ll, 


TEST IF CNTL CARD TRAP. 


00678 


45 


00806 


0217M 






TFM 


BKPT,I0XXt711, 


YES -SET PROPER RETURN POINT. 




16 


00467 


— 056N 


04620 




TR 


0L00A,«4-19m 


LOAD AND EXECUTE ERROR ROUTINE 


00702 


31 


00441 


00721 


04630 




B 


0VRLAY+12,DSA14.» 


STAGE 4. 


00714 


49 


00480 


19777 


04640 




DC 


3,6 




00728 




3 








-06 


















DSA 


ERROR 




00733 




5 


X 1 
















—0630 




04660 




DSC 


lt« 




00734 




1 




04670 


E0040 


CM 


BKPT»X04,, 


TEST IF ERROR AT NON-DISK I/O TIME. 


00736 


14 


00467 


-1216 


04680 




BNI 


£0050,1200 




00748 


47 


00806 


01200 






TFM 


BKPT,I0P^24 




00760 


16 


00467 


— 1982 


04700 




TR 


0LD0A,«+19,, 


LOAD AND EXECUTE ERROR ROUTINE 


00772 


31 


0044 1 


00791 


04710 




B 


0VRLAY*12,DSA12,, 


STAGE 2. 


00784 


49 


00480 


19786 


04720 




DC 


3,6 




00798 




3 








-06 














04730 




DSA 


ERROR 




00803 




5 


X 1 












00803 




-0630 




04740 




DSC 


1,« 




00804 




1 
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04750 


E0050 


RCTY 


ft. 


IMPOSSIBLE ERROR -MACHINE FAILURE OR 


00806 


34 


00000 


00102 


04760 




WATY 


EMS621,,, 


INCORRECT lORT CALLING SEQUENCE. 


00818 


39 


01083 


00100 


04770 




B 


APHASE,*, 


TERMINATE THE CURRENT PHASE. 


00830 


49 


01612 


00000 


04780 




DORG 


• -3 




00838 








04790 


E0070 


BI 


E0100,1200,, 


TEST IF AT MAP SECTOR READ TIME. 


00838 


46 


01050 


01200 


04800 




CM 


BKPT,X04,* 


NO -TEST IF AT DISK I/O TIME. 


00850 


14 


00467 


-1216 


04810 




BNI 


E0090,1200 




00862 


47 


00956 


01200 


04820 




TFM 


H04«6,ERROR^20,, 


YES -INITIALIZE FOR DISK ERROR. 


00874 


16 


01490 


-0650 


04830 




TO 


DI0P+12,SI0P*12 




00886 


25 


02032 


01814 


04840 




TR 


SIOPfDIOP 




00898 


31 


01802 


02020 


04850 




TDM 


DIOP+12,4 




00910 


15 


02032 


00004 


04860 


E0080 


TR 


0LD0A,*«19,, 


LOAD AND EXECUTE ERROR ROUTINE 


00922 


31 


00441 


00941 


04870 




B 


0VRLAY-fl2*DSAll,, 


STAGE 1. 


00934 


49 


00480 


19761 


04880 




DC 


3,6 




00948 




3 








-06 














04890 




DSA 


ERROR 




00953 




5 


X 1 












00953 




-0630 




04900 




DSC 
• 


lt» 




00954 




1 




04910 


E0090 


CM 


BKPT,AB01,, 


TEST IF ILLEGAL NAME LOAD REQUEST. 


00956 


14 


00467 


J0926 


04920 




BI 


E0095,1200 




00968 


46 


01016 


01200 


04930 




CM 


BKPT,SK02,, 


NO -TEST IF ILLEGAL DRIVE CODE. 


00980 


14 


00467 


-1608 


04940 




BNI 


E0050,1200 




00992 


47 


00806 


01200 


04950 




TFM 


H044-6,RDVCD,, 


YES -SET UP FOR ERROR PROCEDURE. 


01004 


16 


01490 


-1002 


04960 


E0095 


TR 


0LDDA,»4-19,, 


LOAD AND EXECUTE ERROR ROUTINE 


01016 


31 


00441 


01035 


04970 




B 


OVRLAY^12*DSA13,, 


STAGE 3. 


01028 


49 


00480 


19772 


04980 




DC 


3.5 




01042 




3 








-05 














04990 




DSA 


ERROR 




01047 




5 


X 1 












01047 




-0630 




05000 




DSC 
t 






01048 




1 




05010 


EOlOO 


BNR 


E0080,MAPENT,, 


TEST IF EMPTY MAP ENTRY CALL. 


01050 


45 


00922 


02144 


05020 




TFM 


H04-t-6,MERR,, 


YES -SET UP CALL TO THE ERROR ROUTINE. 


01062 


16 


01490 


-0878 


05030 




B 


E0095 




01074 


49 


01016 


00000 


05040 




DORG 


• -3 




01082 








05050 


EMS621 


DAC 


8, IMP ERR*, 




01083 




8 


X 2 






IMP ERR« 












05060 




DORG 


19982, 


CONTROL TO WRITE ON DISK. 


19982 








05070 




DSC 


Itl 




19982 




1 




05080 




1 

DSA 


DSA2I 




19987 




5 


X 1 












19987 




J9630 




05090 




DC 


3,5 




19990 




3 








-05 














05100 




DSA 


ERROR 




19995 




5 


X 1 












19995 




-0630 




05110 




DSC 






19996 




1 




05120 




OVERLAY ERROR ROUTINE STAGE 1 










05130 




DORG 


ERROR 




00630 








05140 




B 


H04*6,,6 


BRANCH AS PRESET. 


00630 


49 


0149- 


00000 



12 
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05150 




D0R6 


•—3 




OII4iA 








05160 




TDM 


NI0P*lJt9» t 


OtSABLC ANY IUmI CHECK* 


00A36 


15 


01079 


00009 


05170 




TDM 


EEXtTtlff t 


INITIALIZE EMOlk RETURM* 


00690 


15 


01636 


00003 


05180 




TFM 


EEXIT'»42tOVRLAY 




00662 


16 


01678 


—0468 


05190 




TR 


NIOPtSIOPtt 


MOVE THE I/O INSTRUCTION* 


00674 


31 


01066 


01802 


05200 




TDM 


N10P«12»4t« 


CLEAR THE RECORD MARK* 


006B6 


15 


01078 


00004 


05210 




TR 


SAVDDAtMAPENTft 


SAVE THE MORRtNG ODA* 


00696 


31 


01175 


02144 


05220 


HTEST 


BMP 


• «-20tlN0Sf 7* 


DETERMINE IP NON'-CYLINDER OVERFLOW ERROR* 


OOTID 


44 


00730 


-0610 


05230 




B 


RETRYttt 


NO* 


00722 


49 


01042 


00000 


05240 




00 RG 


•-3 




00730 








05250 




AM 


HTEST«^11»2 




00730 


11 


00721 


-0002 


05260 




CM 


MTEST*llf IN0S«12 




00742 


14 


00721 


-0622 


05270 




BN I 


WTESTtl300 




00754 


47 


00710 


01300 


05280 


OTEST 


BN I 


•♦24t 3800 




00766 


47 


00790 


03800 


05290 




SF 


INDS«'12 




00778 


32 


00622 


00000 


05300 




BNF 


EEXIT»tN0S-*-12 




00790 


44 


01636 


00622 


05310 


CYLOVF 


TFM 


NEXTt200t f 


YES -COMPUTE ADDRESS OF TOP OF NEXT CYL. 


00802 


16 


00969 


-0200 


05320 




TO 


• •♦■23»MAPENT-«-3 




00814 


25 


00837 


02147 


05330 




BD 


•♦24t TEETH 




00826 


43 


00850 


01211 


05340 




TFM 


NEXTtlOO 




00838 


16 


00969 


-0100 


05341 




TFM 


NEWDDA«13tO 




00850 


16 


01173 


-0000 


05350 




A 


NEXT-2#MAPENT*3 




00862 


21 


00967 


02147 


05360 




TF 


NE WOO A'*- 5 • NE XT * • 




00874 


26 


01 165 


00969 


05370 




S 


NEXTtMAPENT*5i • 


COMPUTE NUMBER OF SECTORS PROCESSED* 


00886 


22 


00969 


02149 


05380 




TF 


NEWODA'*- 1 1 «NEXT 


00898 


26 


01171 


00969 


05390 




S 


NEXTfMAPENT't'St » 


COMPUTE NUMBER OF SECTORS YET TO PROCESS* 


00910 


22 


00969 


02152 


05400 




BNF 


RETRYtNEXT* t 


MUST RETRY IF 0 OR LESS* 


00922 


44 


01042 


00969 


05410 




CM 


DRtVEt99f610tt 


TEST IF DRIVE OVERFLOW* 


00934 


14 


0216R 


000R9 


05420 




BI 


DOVFL t 1200 




00946 


46 


01134 


01200 


05430 




CF 


NEXT,,, 


NO -SET NEW SECTOR COUNT* 


00958 


33 


00969 


00000 


05440 


NEXT 


OS 


o.« 




00969 




0 




05450 




SF 


NEXT-2 




00970 


32 


00967 


00000 


05460 




TF 


NEW0DA4-a,NEXT 




00982 


26 


01 168 


00969 


05470 




SF 


NEW0DA49,«, 


COMPUTE NEW CORE ADDRESS. 


00994 


32 


01169 


00000 


05480 




A 


NEW0DA4-13,MAPENT<i^l3 


01006 


21 


01173 


02157 


05490 




AM 


0RIVE,1,610, 


UPDATE CYLINDER POSITION INDICATOR* 


01018 


1 1 


0216R 


000- 1 


05500 




TR 


MAPENT4l,NEMDDA^l, 


,MOVE NEW DDA TO WORKING SLOT. 


01030 


31 


02145 


01161 


05510 


RETRY 


TO 


CHEK2^11,CHEK2411, 


11, REDUCE RETRY COUNT* 


01042 


25 


01387 


0138P 


05520 




34 


MAPENT,701,, 


RESEEK. 


01054 


34 


02144 


00701 


05530 


NlOP 


30 




I/O INSTRUCTION GETS MOVED HERE* 


0 1066 


30 


00000 


00000 


05540 




BNF 


ii36,0I0P>47,, 


TEST IF ALSO REAO BACK CHECK* 


01078 


44 


01114 


02067 


05550 




TO 


•♦23,0I0P447,, 


YES -GET MODE DIGIT* 


01090 


25 


01113 


02067 


05560 




36 


MAPENT»700 




01102 


36 


02144 


00700 


05570 




BN I 


EEXIT,1900,, 


SEE IF ANY TROUBLE THIS TIME* 


01114 


47 


01636 


01900 


05580 




B 


INGUT,,6, 




01126 


49 


0062R 


00000 


05590 




00 RG 


•-3 




01134 








05600 


DOVFL 


TF 


EMSGl«12,EttS62«4,, 


INITIALIZE FOR DRIVE OVERFLOW TYPE-OUT* 


01134 


26 


01797 


01159 


05610 




B 


HOLLER 




01146 


49 


013B8 


00000 


05620 




OORG 


•-3 




01154 








05630 


EMS62 


OAC 
OFL 


3, OFL, 




01155 




3 


X 2 


05640 


NEWODA 


DSC 


15, 0« 




01160 




15 








00000000000000* 












05650 


SAVDOA 


DSC 


20,0 




01175 




20 








00 00 0000000000000000 












05660 


STEPS 


DSC 


10,1234567890,1200 


,UP, UP, UP AND —WHOOPS. 


01200 




10 





1620-1311 SUPERVISOR AND lORT It PAGE 14 



05670 


TEETH 


OAC 


5, 1211 




01211 




5 


X 2 






♦♦♦♦♦ 












05680 




OORG 


19982,, 


CONTROL TO WRITE ON DISK 


19982 








05690 




OSC 
1 


1,1 




19982 




1 




05700 




OS A 


DSAll 




19987 




5 


X 1 












19987 




J9761 




05710 




DC 


3,6 




19990 




3 








-06 














05720 




DSA 


ERROR 




19995 




5 


X 1 












19995 




-0630 




05730 




DSC 
i 


lt» 




19996 




1 




05740 




> OVERLAY ERROR ROUTINE STAGE 2 










05750 




OORG 


ERROR 




00630 








05760 




TFM 


CHEK2-6,EEXIT*12,, 


INITIALIZE ERROR CHECK EXIT. 


00630 


16 


01370 


-1648 


05770 




TOM 


CHEK24>1,1 




00642 


15 


01377 


00001 


05780 




TFM 


BU5,I0PA,, 


SET RETRY ADDRESS. 


00654 


16 


01584 


-1010 


05790 




TO 


IOP-»^12,SIOP^12,, 


MOVE THE I/O INSTRUCTION. 


00666 


25 


01970 


01814 


05800 




TR 


SlOPflOP 




00678 


31 


01802 


01958 


05810 




TR 


IOPA,IOP 




00690 


31 


01010 


01958 


05820 




TOM 


I0P4^12,4,, 


CLEAR THE RECORD MARKS. 


00702 


15 


01970 


00004 


05830 




TOM 


I0PA412,4 




00714 


15 


01022 


00004 


05840 




SF 


IOP+9,,, 


INITIALIZE FOR DEVICE COMPARISON 


00726 


32 


01967 


00000 


05850 




TDM 


I0P410,0 




00738 


15 


01968 


00000 


05860 


2011 


CM 


IOP>10,10,10, 


DETERMINE IF A TYPE ERROR 


00750 


14 


01968 


OOOJO 


05870 




BNI 


ZOl, 1200 




00762 


47 


00842 


01200 


05880 




CM 


IOP«1,36,10, 


YES -DETERMINE IF A REAO. 


00774 


14 


01959 


O00L6 


05890 




Bl 


• 4^36,1200 




00786 


46 


00822 


01200 


05900 




CM 


IOP+1,37,10 




00798 


14 


01959 


000L7 


05910 




BNI 


EEXIT«I2,1200,, 


EXIT IF A WRITE. 


00810 


47 


01648 


01200 


05920 




TF 


EMSGl44,EMS674-4«, 


SET UP ERROR MESSAGE. 


00822 


26 


01789 


01083 


05930 




B 


HOLLER 




00834 


49 


01388 


00000 


05940 




OORG 


•-3 




00842 








05950 


ZOl 


CM 


IOP^10,20,10, 


TEST IF P/T PUNCH ERROR 


00842 


14 


01968 


OOOKO 


05960 




BNI 


202,1200 




00854 


47 


00886 


01200 


05970 




TF 


EMSGl>4,EMSG6-i-4,, 


YES -SET UP ERROR MESSAGE. 


00866 


26 


01789 


01077 


05980 




B 


HOLLER 




00878 


49 


01388 


00000 


05990 




OORG 


•-3 




00886 








06000 


Z02 


CM 


I0P>10,30,10, 


TEST IF P/T READER ERROR 


00886 


14 


01968 


OOOLO 


06010 




BNI 


203,1200 




00898 


47 


00930 


01200 


06020 




TF 


EMSG1^4,ENSG5«4,, 


YES -SET UP ERROR MESSAGE. 


00910 


26 


01789 


01071 


06030 




B 


HOLLER 




00922 


49 


01388 


00000 


06040 




OORG 


»-3 




00930 








06050 


Z03 


CM 


IOP-M0,40,10, 


TEST IF CARD PUNCH ERROR 


00930 


14 


01968 


OOOMO 


06060 




BNI 


204,1200 




00942 


47 


00986 


01200 


06070 




TF 


EMSG1^4,EMSG4M,« 


YES -SET UP ERROR MESSAGE. 


00954 


26 


01789 


01065 


06080 




BNF 


HOLLER, I NDS*2,, 


TEST IF WRITE CHECK. 


00966 


44 


01388 


00612 


06090 




B 


lOPA,,, 


YES -GIVE FREE RETRY. 


00978 


49 


01010 


00000 


06100 




OORG 


•-3 




00986 








06110 


Z04 


TF 


EMSGl+4,EMSG3+4,, 


SET UP ERROR MESSAGE. 


00986 


26 


01789 


01059 


06120 




BNF 


HOLLER, INOS,, 


TEST IF REAO CHECK. 


00998 


44 


01388 


00610 


06130 


lOPA 


30 




NON-DISK I/O INSTRUCTION. 


01010 


30 


00000 


00000 


06140 




BNI 


EEXIT«-12,1900,, 


EXIT IF NO ERROR. 


01022 


47 


01648 


01900 



14 
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PAGE 



06150 




TFM 


CHEKl^llf INOS^Stf 


06160 




B 


CHECK-12 


06170 




DORG 


•-3 


06180 


EMSG3 


DAG 


3»CDR, 






CDR 




06190 


EMSG4 


DAC 


3.CDP, 






COP 




06200 


EMSG5 


DAC 


3, PTR, 






PTR 




06210 


EMSG6 


DAC 


3, PTP, 






PTP 




06220 


EMSG7 


DAC 


3, TYP, 






TYP 




06230 




DORG 


19982. 


06240 




DSC 


1,1 


06250 




1 

DSA 


0SA12 


06260 




DC 


3,6 






-06 




062 70 




DSA 


ERROR 


06280 




DSC 


I » • 


06290 


•«•••• 


ERROR ROUTINE STA( 


06300 


« 


PROCESSES INVALID 1 


06310 




DORG 


ERROR 


06320 




B 


H044-6,,6f 


06330 




DORG 


•-3 


06340 




TFM 


BliRNAM,, 


06350 




TF 


EMS61+4,EMSGll*4 


06360 




TDM 


H03+l,9 


06370 




TFM 


H03<i-6,AA02A«6 


06380 




TD 


AA02A«18,SIOP*12 


06390 




TFM 


BUS, ROIM 


06400 




B 


HOLLER 


06410 




DORG 


•-3 


06420 


RNAM 


RATY 


BBUFF^l,,, 


06430 




SPTY 




06440 




BI 


•-24,400tt 


06450 




SF 


BBUFF 


06460 




TF 


AA02A^16tBBUFF>l 


064 70 




B 


EEXIT412 


06480 




DORG 


•-3 


06490 


ROIM 


RNTY 


BBUFF,, • 


06500 




SPTY 




06S10 




Bt 


•-24,400 


06520 




SF 


BBUFF 


06530 


ROINl 


NOP 


RMAP4-20,,, 


06540 




TF 


AA04^7,BBUFF»3 


06550 




TFM 


BKPT,AB064>24,, 


06560 




B 


EEXIT»12 


06570 




DORG 


•-3 


06580 


MERR 


TF 


RMAP-2,CNTMD^6 



010)4 16 01351 -0618 
01046 49 01256 00000 
010S4 



CONTROL TO MRITE ON DISK. 



EXECUTE INDIRECT BRANCH. 
INITIALIZE FOR ILLEGAL NAME CALL. 



READ THE TYPED NAME. 
ALLOW RE-ENTRY IF $SM4. 



READ THE TYPED DIM NUMBER. 



NOP/BRANCH SWITCH. 
SET RETURN POINT. 



OlOSS 

01061 

01067 

01073 

01079 

19982 
19982 



3 X 

3 X 

3 X 

3 X 

3 X 

1 



19987 




5 


X 1 


19987 




J9786 




19990 




3 




19995 




5 


X 1 


19995 




-0630 




19996 




1 




00630 








00630 


49 


0149- 


00000 


00638 








00638 


16 


01579 


-0718 


00650 


26 


01789 


01089 


00662 


13 


01461 


00009 


00674 


16 


01466 


-0235 


00686 


25 


00247 


01814 


00698 


16 


01584 


-0786 


00710 


49 


01388 


00000 


00718 








00718 


37 


01231 


00100 


00730 


34 


00000 


OOlOl 


00742 


46 


00718 


00400 


00754 


32 


01230 


00000 


00766 


26 


00245 


01241 


00778 


49 


01648 


00000 


00786 








00786 


36 


01230 


OOlOO 


00798 


34 


00000 


OOlOl 


00810 


46 


00786 


00400 


00822 


32 


01230 


00000 


00834 


41 


00982 


00000 


00846 


26 


00291 


01233 


00858 


16 


00467 


J1178 


00870 


49 


01648 


00000 


00878 








00878 


26 


00960 


02176 



IS 
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06590 




TFM 


81, RMAP 






00890 


16 


01579 


-0962 


06600 




TFM 


B1+5,RMAP 






00902 


16 


01584 


-0962 


06610 




TF 


EMSGI+4,EMSG10*4 






00914 


26 


01789 


01083 


06620 




TFM 


BKPT,DIQ4-60 






00926 


16 


00467 


-0880 


06630 




TFM 


H03*6,RMAP-5 






00938 


16 


01466 


-0957 


06640 




B 


HOLLER 






00950 


49 


01388 


00000 


06650 




DORG 


•«4 






00957 








06660 




DC 


5,0» 






0096 L 




5 








-000* 














06670 


RMAP 


TDM 


R0IM1*1,9 






00962 


15 


00835 


00009 


06680 




B 


RDIM 






00974 


49 


00786 


00000 


06690 




DORG 


• -3 






00982 








06700 




TF 


CNTWD+6,BBUFF+3 






00982 


26 


02176 


01233 


06710 




B 


EEXIT^12,,, 


GO TRY AGAIN WITH NEW MAP NUMBER. 




00994 


49 


01648 


00000 


06720 




DORG 


•-3 






01002 








06730 


RDVCO 


TFM 


B1,R0IM,, 


INITIALIZE FOR ILLEGAL DRIVE CODE 


ERROR. 


01002 


16 


01579 


-0786 


06740 




TF 


EMS61«4,EMSG20^4 






01014 


26 


01789 


01095 


06750 




TDM 


H03-ll,9 






01026 


15 


01449 


00009 


06760 




TF 


R0IMU6,0CDE-fl8 






01038 


26 


00840 


01076 


06770 




B 


RNAM-20 






01050 


49 


00698 


00000 


06780 




DORG 


•-3 






01058 








06790 


OCDE 


TD 


TEMP-5, BBUFF, 0 






01058 


K5 


02014 


01230 


06800 




B 


EEXIT+12 






01070 


49 


01648 


00000 


06810 




DORG 


•-3 






01078 








06820 


EMSGIO 


DAC 


3, MAP, 






01079 




3 


X 2 






MAP 
















06830 


EMSGll 


DAC 


3, NAM, 






010B5 




3 


X 2 






NAM 
















06840 


EMSG20 


DAC 


3, MOD, 






01091 




3 


X 2 






MOD 
















06850 




DORG 


19982, 


CONTROL TO WRITE ON DISK. 




19982 








06860 




DSC 


1*1 






19982 




1 




06870 




1 

DSA 


DSA13 






19987 




5 


X 1 














19987 




J 977 2 




06880 




DC 


3,5 






19990 




3 








-05 
















06890 




DSA 


ERROR 






19995 




5 


X 1 














19995 




-0630 




06900 




DSC 


l.« 






19996 




1 




06910 




ERROR ROUTINE STAGE 


4 












06920 


• 


MONITOR CONTROL CARD 


TRAP PROCESSOR 












06930 




DORG 


ERROR 






00630 








06940 




TD 


Y00*8,FSPS 






00630 


25 


00686 


00429 


06950 




TD 


Y00*ll,I0P+9 






00642 


25 


00689 


01967 


06960 




CF 


YOO* 8 






00654 


33 


00686 


00000 


06970 




CF 


YOO^ll 






00666 


33 


00689 


00000 


06980 


YOO 


CM 


• •i-8,XX,7lO 






00678 


14 


00686 


-00-0 


06990 




BNE 


EEX 17*12 






00690 


47 


01648 


01200 


07000 




MA 


JA,CNTW0+4 






00702 


70 


00984 


02174 


07010 




TFM 


JR,02,10 






00714 


16 


01141 


000-2 


07020 




CM 


IOP+1,37,10 






00726 


14 


01959 


000L7 


07030 




BE 


• ♦48 




16 


00738 


46 


00786 


01200 
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07040 




TFM 


jR.oni .9 

<irf\ ff W JL f w 


00750 


16 


01 141 


00—01 


07050 




CM 




00762 




01959 


00OL6 


07060 




BNE 


EEXIT'*-12 




47 






07070 






JAt JR 


007S6 


21 


00984 


01 141 


070B0 




MA 


rMTun-4'4. lA 


00798 


TO 


02174 








BNR 


CCAI 1 ▼A&tvi^in Ut ^ t X a 






01648 


0217M 






TOM 




nna99 ' 


15 




0000 J 


n7i 1 n 




AM 


JAt 158 


00834 




00984 


—0158 










00846 


To 






nTi an 
HTi In 




SM 






12 


nnottA 


ni 1 






TD 


r MTun^^ . vn7A 1 1 a 


nna7n 




n^i 7M 


ni if 1 


n7i «n 








nnAA9 


21 






07160 




MA 


UNI NUvn t JA 


00894 




02174 


00984 


071 70 




BNR 


JTEST tCNTWD*4t 1 1 


00906 


45 


01010 


0217M 


07 160 






JA( JR 




21 


00984 










u n I mu^^ t wH 


00930 






00984 


07200 




BNR 


JTESTtCNTW0«4«ll 


00942 


45 


01010 


02 17M 




vni A 


TDM 


SYSCALtO 




J' 




nnnnn 


0 7220 




TOM 


OVRLAV4^10tO 


00966 


15 


004 78 


OUUUU 


07230 


YIOB 


RCTY 




00978 


34 


UUUOO 


00102 


07240 


JA 


DC 


5,0. •-5 


00984 












-0000 










07250 




WATY 


EMS613 


00990 


39 


0121 1 


00100 


07260 




87 


APHASE4-12 


0 1002 


49 


01624 




072 70 


J TEST 


BMF 


YtOB.JR-l 


01010 


44 


00978 


01140 


07275 




SM 


CNTHD^4,1«10 


0 1022 


12 


02174 


000—1 


07280 




CF 


0VRLAV4-10 






00476 


nnnnn 






TR 


ERR0RtCNTM044«ll 




31 


00630 


0217M 


07300 




TFM 


MCCBUF+1«00»210 


01058 


16 






07310 




AM 


•-6«2ao 


01070 


11 


01064 


000-2 


07320 




CM 


•-18*MCCBUF«161 


01082 


14 


01064 


J3161 


07330 




BNH 


♦-36 


01094 


47 


01056 


01100 


07340 




TR 


MCCBUF44, ERROR 


01106 


31 


13004 


00630 




V07 


TFM 


MCCBUF4-3,OO00f8 




16 




0-000 


07360 




DC 
1 


1»».» 


0 1 129 




I 








DC 
• 


I, •,—2 


01127 








07380 


Y07A 


SF 


MCCBUF,XX«2 


0 1 130 


32 


J3000 


nnnnn 


07390 


JR 


DC 


5,0,* 


0 1 14 L 




3 








-0000 










07400 




AM 


Y07A46,1«10 


0 1 142 




01 136 


000— I 


07410 




CF 


Y07A4-6,»6 


01 154 


33 


01 130 


00000 


07420 




AM 


Y07A«6ffltlO 


0 1 166 




01 136 


000-1 


07430 




CM 


Y07A^6»NCCBUF«160 


0 1 178 


14 


01 136 


J 31 60 


07440 




BNH 


Y07A 


01190 


47 


01130 


01100 


07450 




87 


YIOB 


01202 


49 


00978 




07460 


EMSG13 


DAC 


8»TRP ERR* 


01211 




8 


X 2 






TRP 


ERR* 














00 RG 


19982. • CONTROL TO WRITE ON DISK. 














DSC 


!•! 


19982 








07490 




1 

OS A 


DSA14 


19987 




5 


X 1 


















07500 




OC 


3,6 


19990 




3 








-06 
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0751 0 




DSA 


ERROR 


19995 




3 


X 1 










19995 




— 0630 




_____ 




DSC 


l»* 


19996 








07530 




SPS SUPERVISOR ANO RELOCATABLE LOADER CALLER STAGE 1 










07540 




DORG 


0 


nnnnn 








07550 




TFM 


0LDCY4^1,MCYL,10, RESTORE MONITOR MODULE CYLINDER IND. 


nnnnn 


16 


02132 


000R6 


07560 




BNF 


LCA01,0LD0A4-6«, DETERMINE IF NON-TRA DISK LOAD. 


00012 


44 


00072 


00447 


07570 




TDM 


LDINPT,0,11, YES -SET INDICATOR. 




15 


00426 








TR 


DIMENT.MAPENT,, MOVE WORKING DDA TO COMMON SLOT. 




f 1 




02144 


n-T^on 




BNF 


• ♦24,CNTWD4^7,, NO -TEST IF SPECIFIED LOAD ADDRESS. 


00048 






02 177 


n-T^i n 




TF 


HIGH,CNTWD4-11,, YES -MOVE IT INTO THE HIGH INDICATOR. 


00060 


f 2 




nni^R 






BNF 


LCA06A,LDINPT,, BRANCH IF TRA CALL. 














80 


LCA04,LDINPT,, TEST IF CALL FOR DISK LOAD. 


nnnfl4 


43 


00120 


00428 


07630 




BNF 


LCA06,MAPENT*13,, TEST IF CALL FOR SPS SUPERVISOR. 


00096 


44 


00180 


02 157 


07640 




SF 


FSPS,,, YES -SET FLAG. 


00108 


32 


00429 


nnnnn 


07650 


LCA04 


BNF 


LCA06,FSPS,, TEST IF CALL FOR SPS SUPERVISOR. 






00 180 


00429 


07660 


LCA02 


TFM 


I0XX,«>23,, READ SPS SUPERVISOR INTO CORE. 


00132 


16 


00565 


-0155 


07670 




B 


I0GT,LCA08,7 


00 144 


49 


00566 


-0237 


07680 




TFM 


I0XX,«^23,, RESTORE NPY TABLE ANO EXECUTE SUP. 


00156 


16 


00565 


-0179 


07690 




B 


I0GT,LCA09,7 


00168 


49 


00566 


-0245 




LCA06 


BNF 


• ♦24,0IMENT4-14,, TEST FOR SPECIFIED ENTRY ADDRESS. 










07710 




TF 


DIMENT>13,DIMENT>18,,YES -LETS PLAY BALL. 


00192 


26 


00415 


00420 


07720 


LCA06A 


TR 


0LD0A,LCA07t, LOAD AND EXECUTE STAGE 2 OF CALLER. 


00204 


31 


00441 


00223 






B 


OVRLAY+12 




49 


00480 


nnnnn 


07740 




DORG 


• -4 


00223 








07750 


LCA07 


OS 


0,»*1 


00223 








07760 




DSA 


DSA16 


00227 




5 


X 1 










00227 




J9767 




07770 




DC 


3,3 


00230 




3 








-03 












07780 




DSA 


0 


00235 




5 


X 1 








? 


00235 




-0000 




07790 




DSC 
• 


l,« 


00236 




1 




07800 


LCA08 


DSC 


2,22 


00237 




2 




07810 




22 
DSA 


LCA03 


00243 




5 


X 1 










00243 




-0273 




07820 




OSC 
t 


1,» 


00244 




1 




07830 


LCA09 


DSC 


2,-22 


00245 




2 




07840 




2K 
DSA 


LCA02A 


00251 




5 


X 1 










00251 




-0253 




07850 




DSC 


1,« 


00252 




1 




07860 


LCA02A 


DSC 


1.1 


00253 








07870 




1 

DSA 


0SA02 


00258 




5 


X 1 



18 
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07880 
07890 



DC 3,2 

-02 

OSA 100 



00258 
00261 



J9636 
3 



07900 
07910 

07920 LCA03 
07930 



DSA SUPENT 



DSC 1,1 

I 

DSA DSA50 



00266 
00271 



00271 
00272 



00273 
00278 



-0100 

5 X 



-2934 
1 



1 

5 X 





















07940 




DC 


3,50 




0028 1 












-50 














07950 




OSA 


SYSORG-2 




00286 






X 1 












00286 




-2400 




07960 




OSC 
• 


1.' 




00287 








07970 




00 RG 


19982, 


CONTROL TO WRITE ON DISK* 


19982 








07980 




OSC 


Ifl 




1 9982 




I 




07990 




1 

OSA 


OSA 15 




19987 




5 


X 1 












19987 




J9783 




08000 




DC 


3,3 




19990 




3 








-03 














08010 




DC 


6,0* 




19996 












-OOOO* 












08020 




RELOCATABLE LOADER 


CALLER STAGE 2 










08030 




00 RG 


0 




00000 








08040 




BNF 


LCB02,L0INPT,, 


BRANCH IF TRA CALL. 


00000 


44 


00200 


00428 


08050 




TF 


CNTW04>6,HALT-i-6,, 


SAVE POSSIBLE RETURN ADDRESS. 


00012 


26 


02176 


00462 


08060 




BO 


LCBOl, LDINPT,, 


BRANCH IF NON-OISK LOAD. 


00024 


43 


00092 


00428 


08070 




TOM 


SK034-1,9,, 


DISK -COMPUTE PHYSICAL DRIVE CODE. 


00036 


15 


01713 


00009 


08080 




TFM 


SK04,«-t-20 




00048 


16 


02143 


-0068 


08090 




B 


SEEK 




00060 


49 


01500 


00000 


08100 




OORG 


•-3 




00068 








08110 




TO 


DIMENT,MAPENT,, 


GIVE DRIVE CODE TO LOADER 


00068 


25 


00402 


02144 


08120 




TF 


CNTWD«6f lOXX,, 


SAVE POSSIBLE RETURN ADDRESS. 


00080 


26 


02176 


00565 


08130 


LCBOl 


TO 


0RIVE-5,TEMP-5,, 


MOVE THE DERIVED DRIVE CODE. 


00092 


25 


02164 


02014 


08140 




TR 


CNTH0*13,0RlVE-5 


,, SAVE CALLING PARAMETERS. 


00104 


31 


02183 


02164 


08150 




BNF 


•♦24,SPSMLP4l,, 


WATCH OUT FOR THOSE NON-OISK MAIN-LINE 


00116 


44 


00140 


00469 


08160 




SF 


FSPS,,, 


LOADS FOR THE SPS SUPERVISOR. 


00128 


32 


00429 


ooooa 


08170 




BNF 


•♦36,SPSMLP,, 


TEST IF SPS MAIN LINE PROGRAM. 


00140 


44 


00176 


00468 


08180 




CF 


SPSMLP,,, 


YES -INDICATE RELOCATABLE. 


00152 


33 


00466 


00000 


08190 




SF 


SPSMLP-M 




00164 


32 


00469 


00000 


08200 




BNF 


•♦24,CINIT,, 


TEST IF TO INITIALIZE LOADER FIELD. 


00176 


44 


00200 


00427 


08210 




TFM 


LA00R,0,, 


YES. 


00188 


16 


00439 


-0000 


08220 


LCB02 


TFM 


I0XX,*423,, 


WRITE UPPER SAVE AREA ON DISK. 


00200 


16 


00565 


-0223 


08230 




B 


I0RBC,LCB08,7 




00212 


49 


00520 


-0255 


08240 




TF 


HALT48,CNTWD4^18, 


U.INITIALIZE CYLINDER POSITION FOR LOADER. 


00224 


26 


00464 


02180 
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08250 




TR 


0L00A,LCB10tt 


READ AND EXECUTE 


THE 


LOADER. 


00236 


31 


00441 


00278 


08260 




B 


0VRLAY412 










00248 


49 


00480 


00000 


08270 




OORG 


•-4 










00255 








08280 


LCB08 


OSC 


2,22 










00255 




2 








22 




















08290 




DSA 


LCB09 










00261 




5 


X I 


















00261 




-0263 




08300 




OSC 
* 


If* 










00262 




1 




08310 


LC609 


DSC 


Itl 










00263 




I 




08320 




1 

OSA 


0SA07 










00268 




5 


X 1 


















00268 




J9656 




08330 




DC 


3,2 










00271 




3 








-02 


















X 1 


08340 




OSA 


ERRET4^1500 










00276 




5 


















00276 




-2102 




08350 




DSC 
f 


1,« 










00277 




1 




08360 


LCBIO 


OS 


0,»*l 










00278 




0 




08370 




OSA 


0SA51 










00282 




5 


X I 


















00282 




J9600 




08380 




DC 


3,9 










00285 




3 








-09 




















08390 




DC 


6,502* 










00291 




6 








-0502* 


















08400 




OORG 


19982, 


CONTROL TO 


WRITE 


ON 


DISK. 


19982 








08410 




DSC 


Ifl 










19962 




1 




08420 




1 

OSA 


0SA16 










19987 




5 


X I 


















19987 




J9767 




08430 




DC 


3,3 










19990 




3 








-03 




















08440 




DC 


6,0« 










19996 




6 





08450 »•• 

08460 

08470 

08480 

08490 

08490 

08500 

08510 

08520 

08530 

08540 

08550 

08560 

08570 

08580 

08590 



-0000* 

RELOCATABLE LOADER RETURN ANALYZER STAGE 1 

OORG 0 

TR 0L00A,LRA05,, RESTORE lORT AND THE UPPER SAVE AREA 

B 0VRLAY^12,,t VIA THE OVERLAY READ ROUTINE. 

-3 

BNI+18,IBMM0D*13, 711, RESTORE OVRLAY ROUTINE EXIT. 
0L0DA,LRA06,, INITIALIZE FOR STAGE 2. 

CNTW0^18,HALTf8,6, RESTORE LOAD MODULE CYLINDER IND. 
HALT+11,DIMENT*18,711,SET STAGE 2 RETURN ADDRESS. 
LRA02, LDINPT,, BRANCH IF TCO EXIT FROM LOADER. 

0RIVE-5,CNTW0*13,, RESTORE CALLING PARAMETERS. 



OORG 
TFM 
TR 
TF 
TFM 
BNF 
TR 
TF 
TO 
TR 
TFM 
BNF 



I0XX,CNTW0+6 

TEMP-5,DRIVE-5 

MAPENT,D1MENT 

HALT*ll,CHK4,, 

•♦24,0VRLAY*2l,, 



SET STAGE 2 INDIRECT RETURN ADDRESS. 
CHECK FOR NON-EXECUTE OF NON-DISK LOAD. 



00000 
00000 
00012 
00020 
00020 
00032 
00044 
00056 
00068 
00080 
00092 
00104 
00116 
00128 
00140 



31 00441 
49 00480 



16 00510 
31 00441 
0218Q 
00467 
00176 
02164 
00565 
02014 
02144 
16 00467 
44 00164 



00269 
00000 

-045L 
00283 
00464 
-042- 
00428 
02183 
02176 
02164 
00402 
-1412 
00469 



2 U 
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08600 




CF 




VP<k '•CLFAR TM^ FVIsrilTinM IMDtCATrHI. 


00192 


33 


02171 


nnnnn 


086 10 




CF 












nnnnn 


08620 


LRA02 


TFM 




ncaiur\i: nwniiun nijuuvc «#«i.snucn iivu* 


00176 


16 


02132 


nnno A 


08630 




TFM 


HALT4-6»8 












08640 




BNF 


0VRLAY4'12tFSPSt t 




00200 


44 


00480 


00429 


08650 




BNF 


UVRLAT*lZt5r5nLP*l 


9 9 YES -TEST IF MAIN LINE PROGRAM LOAD* 


00212 


44 


00480 


00469 


08660 




TFM 






nnf a!k 


at 




—042— 


08670 




TR 


0LDDAt»^19«9 










00255 


W oo ou 




B 


0VRLAY>1290SA17*» 




00248 


49 


00480 


19770 


08690 




DC 


3.2 




00262 




3 








-02 














08700 




DC 


690* 




00268 












-0000« 












08710 


LRA05 


OS 


09*^1 




00269 




0 




08720 




DSA 


DSA06 




00273 




5 


X 1 












00273 




J9640 




08730 




DC 
-18 


3.18 




00276 




3 




08740 




DSA 


502 




00281 




5 


X 1 












00281 




-0502 




08750 




DSC 
* 


I 9 • 




00282 








08760 


LRA06 


OS 


09»*l 




00283 




0 




08770 




DSA 


OSAOl 




00287 




5 


X 1 




















08780 




DC 


3,4 




00290 




3 








-04 


















DSA 


0 




00295 






X I 












00295 




-0000 




08800 




DSC 
t 


If* 




00296 




I 




08810 




00 RG 


19982 9 




19982 








08820 




DSC 


I9I 




19982 




*• 








1 

DSA 


DSA18 


























J9792 








DC 


393 




1 ooon 












-03 














08850 




DC 


690* 




1 QQQA 












-0000* 












OoSoU 




SPS SUPERVISOR RETURN ANALYZER STAGE 1 














00 RG 


0 




nnnnn 












CF 


FSPS999 


CLEAR THE SPS SUPERVISOR FLAG. 


nnnnn 






nnnnn 


08890 




BD 


SRA02,LDINPT99 


BRANCH IF NON-DISK LOAD. 






OOOoO 




08900 




BNF 


SRAO29SPSMLP99 


TEST IF RELOCATABLE. 


00024 


44 


nnn#>n 


00466 


08910 




CF 


SPSMLP999 


NO -TURN OFF THE INDICATOR. 


00036 


33 


00468 


OOOOO 


08920 




TFM 


HALT*ll,CHK4+l2,, 


SET STAGE 2 INDIRECT ADDRESSES. 


00048 


16 


00467 


-1424 


08930 


SRA02 


CF 


SPSMLP+lf 99 


TURN OF MAIN-LINE PROGRAM INDICATOR. 


00060 


33 


00469 


OOOOO 


089A0 


SRAOl 


TFM 


HALT«6|8 




00072 


16 


00462 


-0008 


08950 




TFM 


0LDCY4l9NCYL9l09 


RESTORE MONITOR MODULE CYLINDER IND. 


00084 


16 


02132 


000R8 


08960 




TFM 


6TEST^5490VRLAY,, 


RESTORE BRANCH ADDRESS IN IQRT. 


00096 


16 


01214 


-0468 
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08970 
08980 
08990 
09000 
09010 

09020 SRA03 
09030 



09040 
09050 



09060 
09070 



09090 

09100 

09110 
09120 
09130 
09140 
09150 
09160 
09170 
09180 
09190 
09200 
09210 
09220 
09230 
09240 

09250 

09260 
09270 



09300 

09310 
09320 
09330 
09340 
09350 
09360 



TO RMI9 INDS4^1396, 

TD RM29lNDS^l3969 

TR OLODA9SRAO399 

B 0VRLAY^12 

DORG •-3 

OS O.i^l 

OSA OSAOl 



SET TWO RECORD MARKS IN THE SPS 

SUBROUTINE MORK AREA. 
READ AND EXECUTE STAGE 2. 



3,4 



,0* 



CONTROL TO WRITE ON DISK. 



DC 
-04 

DC 69 
-0000* 
OORG 199829 
DSC I9I 
1 

DSA 0SA17 



DC 3»2 
-02 

DC 690* 

-0000* 

SPS SUPERVISOR AND 

OORG 0 

B HALT«69 969 

DORG 8 

SF CINIT999 
BNF •♦2O9FSPS99 

B I0XX9969 

OORG »-3 

80 •♦20,SYSCAL,9 
B HALT4^1l9969 
OORG #-3 

TR 0LDDA,«-i>199 9 

B 0VRLAY4-1290SA19 

OC 393 

-03 

OC 690* 
-0000* 
DORG 199829 
DSC 1.1 
1 

OSA DSAOl 



DC 3,1 
-01 

DC 6,0« 
-0000« 

lORT LOAD PROCESSOR FOR NAMED PROGRAMS SECTION 1 

OORG 0 

A •♦23,HALT+6,, MOVE NAME AND POSSIBLE LOAD ADDRESS. 

A •♦35,1,711 
A •♦47, •♦23 
TO •♦47,26,7 



LOADER RETURN ANALYZER STAGE 2 

INDIRECT EXECUTE BRANCH. 

RESTORE LOADER INITIALIZATION IND. 
TEST IF CALLED BY SPS SUPERVISOR. 
YES -RETURN TO IT. 

TEST IF CALLED BY A SYSTEM PROGRAM. 
NO -RETURN THROUGH PRESET BRANCH. 

EXECUTE SYSTEM RETURN ANALYZER. 



CONTROL TO WRITE ON DISK. 



00108 


25 


0221- 


00623 


00120 


25 


0221N 


00623 


00132 


31 


00441 


00152 


00144 


49 


00480 


OOOOO 


00152 








00152 




0 




00156 




5 


X I 


00156 




J 963 5 




00159 




3 




00165 




6 




19982 








19982 




1 




19987 




5 




19987 




J9770 




19990 




3 




19996 




6 




OOOOO 








OOOOO 


49 


0046K 


OOOOO 


00008 








00008 


32 


00427 


OOOOO 


00020 


44 


00040 


00429 


00032 


49 


0056N 


OOOOO 


00040 








00040 


43 


00060 


00475 


00052 


49 


0046P 


OOOOO 


00060 








00060 


31 


00441 


00079 


00072 


49 


00480 


19795 


00086 




3 




00092 




6 




19982 








19982 




1 




19987 




5 


X I 


19987 




J9635 




19990 




3 




19996 




6 




OOOOO 








OOOOO 


21 


00023 


00462 


00012 


21 


00047 


-OOOJ 


00024 


21 


00071 


00047 


00036 


25 


00083 


-0026 



22 
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09370 


TO 


•-ltAA04-l,6 








00048 


25 


0004P 


09360 


TR 


AA02A,18,711 








00060 


31 


00229 


09390 


TDM 


•-25»XX,6 








00072 


15 


0004P 


09400 


TF 


AA02A^23tHALU6t» 


SAVE 


lORT 


CAUtNG PARAMETERS. 


00084 


26 


00252 


09410 


TR 


AA02A-«-24»CNTW0 








00096 


31 


00253 


09420 


TFM 


tOXXt«>23tt 


SAVE CORE 


TO aE OVERLAtO. 


00108 


16 


00565 


09430 AA02 


B 


I0RBCfAA03«7 








00120 


49 


00520 


09440 


TFM 


IOXXt*'*-i23t f 


READ 


AND 


cXcCUTC ScuTIUpI Z* 






00565 


09450 


B 


I06Tt*-*-12t7 








00144 


49 


00566 


09460 


DSC 


2.-22 








00156 




2 




2K 
















09470 


OS A 


• ♦7 








00162 




5 














00162 




-0164 


09480 


DSC 
t 


It* 








00163 






09490 


DSC 


l.L 








00164 




1 


09500 


1 

OS A 


DSA09 








00169 




5 














00169 




J9744 


09510 


DC 


3,5 








00172 




3 




-05 
















09520 


OS A 


ABOO 








00177 




5 














00177 




J0902 


09530 


DSC 


l.« 








00178 




1 



09540 D0R6 229 

09550 AA02A DSC 32.0 

00000000000000000000000000000000 
09560 AA03 DSC 2.02 



09570 

09580 
09590 
09600 

09610 
09620 

09630 

09640 AA04 



09660 
09670 



02 

DSA •♦7 



DSC 1 , 1 
1 



DC 3.10 
-10 

DSA SYS0R6^8500 



DSC 1,« 
I 

DSC 8,3200000* 
3200000* 
DSC 5,0* 
0000* 

D0R6 19982, 
DSC 1,1 
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00229 
00229 



00261 
00267 



00267 
00268 



00269 
00274 



00274 
00277 



00282 
00283 



00284 
00292 



19982 
19982 



00283 
-001 Q 
00000 
00462 
02170 
-0131 
-0261 
-0155 
-0156 



32 
2 

5 X 

-0269 
1 

1 

5 X 

-1400 
3 



J0902 
1 



23 
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09680 




DSA 


DSA20 




19987 




5 


X 1 












19987 




J9798 




09690 




DC 


3,2 




19990 




3 








-02 














09700 




DC 


6,0* 




19996 




6 








-0000* 












09710 




MONITOR CALLER SUBROUTINE -ALSO PROCESS ES RETURNS TO THE 










09720 


• 


OUP SUPERVISOR FROM 


ITS CALLS TO THE RELOCATABLE LOADER. 










09730 




DORG 


0 




00000 








09740 




TFM 


0LDCy-M,MCYL,10, 


SET CYLINDER POSITION. 


00000 


16 


02132 


0OOR8 


09750 




B 


NCA03 




00012 


49 


00100 


00000 


09760 




DORG 


20 




00020 








09770 




TFM 


HALT4-6,MB000,, 


SET ENTRY TO THE MONITOR. 


00020 


16 


00462 


-2902 


09780 




TFM 


BNI«L8,IBMM0D4>13, 


711«REST0RE OVRLAY ROUTINE EXIT. 


00032 


16 


00510 


-046L 


09790 




8 


MCAOl 




00044 


49 


00208 


00000 


09800 




DORG 


»-3 




00052 








09810 


MCAOO 


BNF 


MCA06,HALTtt 


TEST IF MONITOR ALREADY IN CORE. 


00052 


44 


00250 


00456 


09820 




B 


MBOOO,,, 


YES -BRANCH DIRECTLY TO IT. 


00064 


49 


02902 


00000 


09830 




DORG 


•-4 




00071 








09840 


MCA04 


DSC 


2,2 




00071 




2 




09850 




02 
DSA 


MCAOOA 




00077 




5 


X 1 












00077 




-0079 




09860 




DSC 
( 


1,* 




00078 




I 




09870 


MCAOOA 


DSC 


1,0,, 


00 A TO SAVE CORE ON 8-TH CYLINDER 


00079 




1 




09880 




0 
DC 


5,1400,, 


OF DISK SCRATCH AREA 


00084 




5 








-1400 












09890 




DC 


3,177 




00087 




3 








J77 














09900 




DSA 


SYSORG-100 




00092 




5 


X I 












00092 




-2302 




09910 




DSC 


1,» 




00093 








09920 




DORG 


100 




00100 








09930 


MCA03 


BNR 


•♦24, SYSCAL,, 


REPLACE ANY SYSCAL R.M. BY 0. 


00100 


45 


00124 


00475 


09940 




TDM 


SYSCAL,0 




00112 


15 


00475 


00000 


09950 




BNF 


MCAOO, SYSCAL,, 


TEST IF OUP CALL. 


00124 


44 


00052 


00475 


09960 




TDM 


SYSCAL,5,, 


YES -SET SYSCAL RETURN CODE. 


00136 


15 


00475 


00005 


09970 




TFM 


I0XX,*i>23,, 


SAVE CORE FOR THE OUP SUPERVISOR. 


00148 


16 


00565 


-0171 


09980 




B 


I0RBC,MCA04,7 




00160 


49 


00520 


-0071 


09990 




TFM 


lOXX,»+23,, 


LOAD THE OUP SUPERVISOR. 


00172 


16 


00565 


-0195 


09991 




B 


I0GT,MCA05,7 




00184 


49 


00566 


-0241 


10000 




TFM 


HALT*6,CHK4*12,, 


SET UP EXIT AFTER RESTORATION OF TABLES. 


00196 


16 


00462 


-1424 


10010 


MCAOl 


TR 


0L00A,**19,, 


RESTORE ARITH TABLES AND EXECUTE 


00208 


31 


00441 


00227 


10020 




B 


0VRLAY,DSA01,, 


MONITOR OR OUP SUPERVISOR. 


00220 


49 


00468 


19635 


10030 




DC 


3,4 




00234 




3 








-04 














10040 




DC 


6,0* 




00240 




6 








-0000* 












10050 


MCA05 


DSC 


3,220 




00241 




3 
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10060 


OC 


5,139S 




00248 




5 






-1 39* 












10070 HCA06 


TR 


0LDDA>*>19»» 


READ IN THE MONITOR PLUS THE lORT VIA 


00250 


31 


00441 


00269 


10080 


B 


0VRLAY^12,0SA06ttt 


THE OVRLAY READ ROUTINE. 


00262 


49 


00480 


19640 


10090 


DC 


3fl09 




00276 




3 






J09 














10100 


OC 


6»502* 




00282 




ff 






-0502» 












10110 


DORG 


I9982*t 


CONTROL TO WRITE ON DISK. 


19982 








10120 


OSC 


1*1 




19982 




1 




10130 


1 

OS A 


DSA19 




19987 




5 


X I 










19987 




J9795 




10140 


OC 


3,3 




19990 




3 






-03 














10150 


OC 


6t0* 




19996 




6 






-0000* 






























MONITOR -MAIN ROUTINE 




























COMMUNICATION SECTOR 


ASSEMBLED PARAMETERS 










10200 


DC 


19«0*,C0MM-(>18» 


HEADLESS OOA-S FROM SPS AND FORTRAN. 


02820 




19 






-00000000000000000* 












10210 


DC 


2f8»C0MM4-41, 


STANDARD SPS MANTISSA LENGTH. 


02843 




2 




10220 


-8 

OC 


2,2fC0MM4-43« 


STANDARD SPS SUBROUTINE SET. 


02845 




2 




10230 


-2 
DSC 


l,0fC0MM-(-44, 


STANDARD SPS NOISE DIGIT. 


02846 




1 




10240 


0 

DC 


2»8,C0MM^46f 


STANDARD FORTRAN MANTISSA LENGTH. 


02848 




2 




10250 


-8 

OC 


2,4,C0MM^48» 


STANDARD FORTRAN FXD. PT. WORD LENGTH. 


02850 




2 




10260 


-4 
DSC 


ltltC0MM4-49, 


NUMBER OF MODULES IN 1620 SYSTEM. 


02851 




1 




10270 


1 

DSC 


4,0tMC0NM, 


MONITOR STATUS INDICATORS. 


02852 




4 






0000 














10280 


DC 


2ffl,MC0NN^5 




02857 




2 




10290 


-1 
DC 


2,0tMC0NM47 




02859 




2 




10300 


-0 
DC 


2«0,MC0MM49 




02861 




2 




10310 


-0 
DC 


2.0»MC0MM«11 




02863 




2 






-0 














10320 


DSC 


lf0,MC0NM4l2, 


LE BOEUF SUR LE TOIT. 


02864 




1 




10322 


0 

DSC 


l,5,C0MM^73t, 


PRINCIPAL INPUT DEVICE CARD 


02875 




1 





10321 •• THE PRINCIPAL INPUT DEVICE NUMBER WILL BE 5 FOR CARD SYSTEM 

10322 AND 3 FOR PAPER TAPE ON SYSTEM DELIVERY. 
10321 OC ltltC0MN«76« OBJECT SYSTEM SIZE 

J 

10330 DC 5.0*COMM^88t LOWEST ADDRESS LOADED BY LOADER. 

-0000 



02878 
02690 
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25 



10331 

10340 

10350 

10360 

10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 



DSC l»ltC0MM«^83t 
1 

DC 5,0fC0MM^93t 
-0000 

OC 5,0«C0MM4^98, 
-0000 

DSC 1,SC0MM«99 



FORTRAN SUBROUTINE SET 

CURRENT LOADER RELOCATION INCREMENT. 
CARD SEQUENCE NUMBER FOR LOADING. 



02885 
02895 
02900 
02901 



COLD START ENTRY TO THE MONITOR -CLEAR STORAGE, THEN 
THE FOLLOWING INSTRUCTIONS MUST BE LOADED INTO 0. 

340003200701 

360003200702 

4902402X 

Y196361 1300102 

WHERE X IS THE MONITOR CONTROL CARD SOURCE - 

«1 TYPEWRITER IF ANY OTHER DIGIT IS SUPPLIED, 

«3 P/T READER THE MONITOR WILL ASSUME THE 

«5 CARD READER VALUE 1 (TYPEWRITER) 



10490 


• 


AND WHERE Y IS THE 


DRIVE CODE FOR THE PHYSICAL MODULE 










10500 


• 


ON WHICH THE MONITOR 


NOW RESIDES - 










10510 


• 




3l MODULE 0 


IF ANY OTHER DIGIT IS SUPPLIED, 










10520 


• 




«3 MODULE 1 


THE MONITOR WILL ASSUME THE 










10530 


• 




«5 MODULE 2 


VALUE 1 (MODULE 0) 










10540 


• 




»7 MODULE 3 












10550 


• 
















10560 




DORG 


SYSORG 




02402 








10570 


MAOOO 


TO 


402,NCR01A,, 


MOVE ARITHMETIC TABLES TO PROPER ADDRESS. 


02402 


25 


00402 


04465 


10580 




TR 


100,102 




02A14 


31 


00100 


00102 


10590 




TOM 


402,0 




02426 


15 


00402 


00000 


10600 




TO 


•♦23,31 




02438 


25 


02461 


00031 


10610 




80 


• 4^24,HC001 




02450 


43 


02474 


10690 


10620 




TDM 


31,1 




02462 


15 


00031 


OOOOl 


10630 




TO 


MCOMM+3,31 




02474 


25 


02855 


00031 


10640 




CF 


32,,, 


SET UP LOGICAL MODULE 0 DRIVE CODE 


02486 


33 


00032 


00000 


10650 




TO 


•♦23,32,, 


EQUIVALENCE. 


02498 


25 


02521 


00032 


10660 




BO 


•♦24,MCD04 




02510 


43 


02534 


10720 


10670 




TOM 


32,1 




02522 


15 


00032 


OOOOl 


10680 




TO 


MC0MM*5,32 




02534 


25 


02857 


00032 


10690 


MAO 10 


TDM 


MCOMM,0,, 


INITIALIZE COMM SECTOR INDS. 


02546 


15 


02852 


00000 


10700 




TOM 


MC0MM*1,0 




02558 


15 


02853 


00000 


10710 




TOM 


MC0MM*2,0 




02570 


15 


02854 


00000 


10720 




roM 


MC0MM*12,4 




02582 


15 


02864 


00004 


10730 




TFM 


BNI*18,IBMM0O+l3,Tll 


02594 


16 


00510 


-045L 


10740 




TFM 


OLDCYntMCYL,l0 




02606 


16 


02132 


000R8 


10750 




IF 


E0UIV+l,MCOMM+5,, 


READ DDA-S FOR SPS, FORTRAN, DUP, AND 


02618 


26 


02124 


02857 


10760 




TO 


IBMM0D,MC0MM*5,, 


THE EQUIVALENCE TABLE AND DUMP THEM 


02630 


25 


00440 


02857 


10770 




BTM 


UT05,8,, 


ONTO DISK. ON SPECIAL SECTOR. 


0264? 


17 


08380 


-0008 


10780 




TR 


SPSDDA,UT05-l,ll 




02654 


31 


10802 


0837R 


10790 




BTM 


UT05,136 




02666 


17 


08380 


-0136 


10800 




TR 


F0RD0A,UT05-l,ll 




02678 


31 


10822 


0837R 


10810 




BTM 


UT05,139 




02690 


17 


08380 


-0139 


10820 




TR 


DUPDDA,UT05-l,ll 




02702 


31 


10842 


0837R 


10830 




BTM 


UT05,2 




02714 


17 


08380 


-0002 


10840 




TR 


EQUDDA,UT05-l,Il 




02726 


31 


10862 


0837R 
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10850 




TFM 


I0XX»««23 




02738 


16 


00565 


-2761 


10860 


















10870 




B 


MBOOOtft 


PROCEED TO THE INTER-PHASE ENTRY. 


02762 


49 


02902 


00000 


10880 




00R6 


•-4 . 




02769 














Z922 




02769 




2 








22 
OS A 


MA025 




02775 




5 


X 1 












02775 




—2777 




10910 




OSC 
• 






02776 




1 




10920 


MA025 


osc 


Ifl 




02777 




1 




10990 




1 

OS A 


0SA40 




02782 






X 1 












02782 




J9743 




09 




DC 


3 f 1 




02785 




3 








-01 














109S0 




OSA 


SPSDDA 




02790 




5 


X 1 












02790 




J0802 




10960 




OSC 


If' 




02791 




1 




10970 




INTER-PHASE ENTRY TO 


MONITOR. 










10980 




DORG 


SYSORG-t-SOO 




02902 








10990 


MBOOO 


RCTY 


1 1 f 


RESTORE TYPEWRITER CARRIAGE. 


02902 


34 


00000 


00102 


10991 




TO 


KREC«2»C0MM-»76f f 


SAVE SYSTEM SUE 


02914 


25 


09836 


02878 


10992 




TR 


0L0CYtMB226-lf • 


SET ARM INDICATORS SO SEEK MUST OCCUR 


02926 


31 


02131 


04076 


10993 




BSNX 


•♦12, ft 


TURN OFF REGISTERS 


02938 


60 


02950 


00000 


11000 




TF 


EQUIV4>l,NC0MM>5tf 


RESTORE LOGICAL DRIVE 1 MODULE EQUIV. 


02950 


26 


02124 


02857 


11010 




TO 


IBMMOOfMCOMM-i-5 




02962 


25 


00440 


02857 


11020 




SF 


HALTfff 


INDICATE PRESENCE OF MONITOR. 


02974 


32 


00456 


00000 


11030 




TDM 


lOP^37f9«, 


DISABLE CONTROL CARD TRAP. 


02986 


15 


01995 


00009 


11040 




BD 


MB035fOVRLAY«10,f 


TEST FOR ENTRY VIA CNTL CARD TRAP. 


02998 


43 


03192 


00478 


11050 




TOM 


MIOlfOff 


NO -SET UP TO READ A CNTL CARD. 


03010 


15 


09870 


ooood 


11060 


MBOlO 


TO 


•♦34*MC0MM«12f , 


ON AY EATCHAY. 


03022 


25 


03056 


02864 


11070 




TO 


•♦23fSYSCAL 




03034 


25 


03057 


00475 


11080 




TO 


SYSCAL,MC006 




03046 


25 


00475 


10740 


11090 




BD 


MB020fSYSCALf» 


TEST IF END OF JOB. 


03058 


43 


03082 


00475 


11100 




BTM 


UTOTflf, 


YES -GO TO JOB CLOSING ROUTINE. 


03070 


17 


08812 


-0001 


11110 


MB020 


TO 


•♦23tSYSCALtf 


EXECUTE A COMPUTED BRANCH ON SYSCAL. 


03082 


25 


03105 


00475 


1 1120 




TO 


•♦23fMCD09 






25 






11130 




TF 


•♦30fMC010 




03106 


26 


03136 


10781 


11131 




CF 


• ♦17 




03118 


33 


03135 


00000 


11140 




8 


MB02S»f6 




03130 


49 


0315- 


00000 


11150 




OORG 


MB000^244, 


TRICKY, WHAT SAY—. 


03146 








11160 


MB025 


OSA 


MCROlfMBOSO.MBlOOf 


NB100,NB140 


03150 




5 


X 5 












03150 




-4098 














03155 




-3304 














03160 




-3452 














03165 




-3452 














03170 




-3^88 




11170 


MB030 


TOM 


SYSCALfOtf 


FORCE TERMINATION OF JOB. 


03172 


15 


00475 


00000 


11180 




B 


MBOlO+48 




03184 


49 


03070 


00000 


11190 




OORG 


•-3 




03192 
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11200 


MB035 


SF 


NONEXtf, ' 


INHIBIT EXECUTION. 


03192 


32 


00457 


00000 


11210 




TD 


»-lfOVRLAY*10,, 


SAVE RETURN CODE. 


03204 


25 


03203 


00478 


11220 




TDM 


0VRLAY4^10,0f , 


RESTORE MAIN IND. 


03216 


15 


00478 


00000 


11230 




BNF 


MB045,MB035^11,, 


TEST IF READ NUMERICALLY. 


03228 


44 


03284 


03203 


11240 


MB040 


WATY 


MM30,,, 


TYPE RELOAD MESSAGE. 


03240 


39 


10381 


00100 


U250 




RCry 






03252 


34 


00000 


00102 


11260 




H 




WAIT FOR OPERATOR. 


03264 


48 


00000 


00000 


11270 




B 


MB 010-12 




03276 


49 


03010 


00000 


U280 




OORG 


• -3 




03284 








11290 


MB045 


TDM 


MtOl.l,, 


INHIBIT READING A CONTROL CARD. 


03284 


15 


09870 


00001 


11300 




B 


MBOlO 




03296 


49 


03022 


00000 


11310 




DORG 


•-3 




03304 








11320 


HB080 


BTM 


UTll,,, 


TEST FOR INHIBITED EXECUTION. 


03304 


17 


09648 


-0000 


11330 




TDM 


MD02f6,, 


SET SYSCAL CODE. 


03316 


15 


09773 


00006 


11340 




TDM 


MC0MM+12»6,, 


SET DUP INDICATOR. 


03328 


15 


02864 


00006 


11350 




TR 


MR02,0UPDDA,, 


GET ODA FOR DUP SUPERVISOR. 


03340 


31 


09774 


10842 


11360 




6NR 


MB081,MR02,, 


TEST IF VALID. 


03352 


45 


03420 


09774 


11370 




TFM 


P0INT,139,, 


NO. 


03364 


16 


09798 


-0139 


11380 


MB080A 


WATY 


MM36,,, 


TYPE ERROR MESSAGE. 


03376 


39 


10481 


00100 


11390 




WNTY 


POINT-3,,, 


IDENTIFY MISSING DIM ENTRY. 


03388 


38 


09795 


00 1 00 


11400 




RCTY 






03400 


34 


00000 


00102 


11410 




B 


UTIOF 




03412 


49 


09580 


00000 


11420 




OORG 


•-3 




03420 








11430 


HB081 


NOP 






03420 


41 


00000 


00000 


11440 




TO 


MB225^7,NCR01A,f 


NO LOAD ADDRESS. 


03432 


25 


04070 


04485 


11450 




B 


MB200f • 


GO TO EXECUTE LOAD. 


03444 


49 


03764 


00000 


11460 




OORG 


»-3 




03452 








11470 


HBIOO 


BTM 


UTll,,, 


TEST FOR INHIBITED EXECUTION. 


03452 


17 


09648 


-0000 


11480 




BNF 


MB145,MC0MH^1,, 


TEST IF PHASE BEGAN WITH EXECUTE CARD. 


03464 


44 


03720 


02853 


11490 




BNF 


MB110,MC0MM«2,, 


YES -TEST IF EXECUTION INHIBITED. 


03476 


44 


03496 


02854 


11500 




B 


UTIOF,,, 


YES. 


03488 


49 


09580 


00000 


11510 




OORG 


•-3 




03496 








11520 


MBllO 


TDM 


MCOMM+12,4,, 


SET EXECUTION INDICATOR. 


03496 


15 


02864 


00004 


11530 




BNF 


MB110B,C0MM422,, 


TEST IF PROGRAM LOADED TO DISK. 


03508 


44 


03596 


02824 


11540 




BD 


MB110B,CDMM^22,, 


YES -TEST IF IN CORE IMAGE FORMAT. 


03520 


43 


03596 


02824 


11550 




BNF 


•♦20,C0MM*39,, 


YES -TEST IF A DIM NUMBER SUPPLIED. 


03532 


44 


03552 


02841 


11560 




B 


MBUOB,,, 


WHERE ARE YOU. 


03544 


49 


03596 


00000 


11570 




OORG 


♦-3 




03552 








11580 


MBUOA 


BT 


UT05,C0MM+39,, 


GO TO GET THE ODA. 


03552 


27 


08380 


02841 


11590 




TR 


MR02,UT05-1,11, 


MOVE TO TEMPORARY SLOT. 


03564 


31 


09774 


0837R 


11600 




BNR 


MB190,MR02,, 


TEST IF VALID. 


03576 


45 


03740 


09774 


11610 




B 


MXQ04+12,,, 


NO -TYPE ERROR MESSAGE AND CLOSE JOB. 


03588 


49 


07236 


00000 


11620 




DORG 


• -3 




03596 








11630 


MB 11 OB 


TR 


MR024-1,C0MM,, 


USE DDA IN COMM SECTOR AS LOAD ODA. 


03596 


31 


09775 


02802 


11640 




A 


MR02+3,SREL0C,, 


CONVERT FROM SCRATCH TO ABSOLUTE 


03608 


21 


09777 


00425 


11650 




TO 


MR02,SREL0C-3., 


SECTOR ADDRESS. 


03620 


25 


09774 


00422 


11660 




TFM 


MR02+13, 99999, , 


FORCE THE RELOCATABLE INDICATOR. 


03632 


16 


09787 


R9999 


11670 




BNF 


•♦24,C0MM*12,, 


TEST IF THE SPS SUPERVISOR REQUIRED. 


03644 


44 


03668 


02814 


11680 




SF 


MR02^13,,, 


YES -SET FLAG INDICATOR. 


03656 


32 


09787 


00000 


11690 




TFM 


HIGH.SYSORG,, 


RELOCATABLE PROGRAMS WILL BE LOADED 


03668 


16 


00434 


-2402 


11700 




B 


MB195,,, 


AT SYSORG. 


03680 


49 


03752 


00000 


11710 




OORG 


•-3 




03688 








11720 


MB140 


BNF 


•♦20,MC0MM+l , , 


TERMINATE JOB IF THIS PHASE INVOLVES 


0368B 


44 


03708 


02853 


11730 




6 


MB030,,, 


EXECUTION OF A USER-S PROGRAM. 


03700 


49 


03172 


00000 


11740 




OORG 


•-3 




03708 








11750 




BTM 


UTll,!,, 


TYPE NON EXECUTE MESSAGE. 


03708 


17 


09648 


-0001 



2 8 



1620*1311 SUPERVISOR AND lORT tl 



PAGE 



1 1760 


MB145 


TDM 


HC0MM4l,0,, 


11770 




B 


MCROltv, 


1 1780 




00 RG 


•-3 


11790 


MB190 


TDM 


MB225,3«* 


1 1800 


MB195 


TDM 


MD02t0tt 


1 1 8 10 




FINAL LOAD AND EXEI 


11820 


HB200 


TF 


t QU I V*3 1 MCuHM* 7 f i 


1 1 830 




TF 


ClIUI ¥♦!> tMtOMM+9 


1 1 840 




TF 




11850 




TR 


REPOS«LRECt t 


1 1860 




TOM 


REP0S*7 1 0 


11870 




TD 


• ♦47» FSPSf t 


11860 




TO 


FSPS »MC0MM*3 


1 1890 




8NF 


• ♦24t*'*"23 


1 1900 




SF 


FSPS 


11910 




SF 


LOI NPT 1 1 1 


1 1 920 




SF 


CtNIT 


1 1930 




TR 


Lunn«'o4t jRcv« 


11940 




TFM 


lOXXt *-*'23ff t 


1 1950 




B 


I0RBCtMB220t7 


1 1960 




TOM 


IOP*37»5t t 


1 1970 




TO 


SYSCAL.M002t« 


1 1980 




CF 


HALT,,, 


1 1990 




CF 


HALT4-lt*» 


12000 




BD 


MB210fSYSCAL,, 


12010 




WATY 


MM2$,,, 


12020 




RCTV 




12030 


MB210 






12040 




B 


IOGT,MB225f7 


12050 


MB220 


DSC 


2 ,22 






22 




12060 




OS A 


MB222 


12070 




OSC 
• 


It* 


12060 


MB222 


OSC 


1,1 


12090 




OS A 


0SA39 


12100 




DSC 


3,1 






001 




12110 




OS A 


CGMH 


12120 




DSC 
• 


If • 


12130 


MB225 


OSC 


2.-22 






2K 




12140 




DSA 


MR02 


12150 




OSC 
t 


l.» 


12160 




DSC 


5,0* 



INDICATE PHASE NOT BEGUN. 

60 TO CONTROL CARD READ EXECUTIVE. 



FORCE UPDATING OF HIGH INDICATOR. 
SET SYSCAL CODE. 



NOVE REMAINDER OF EQUIV TABLE. 



SET DRIVE REPOSITION TABLE TO ZERO-S. 
MOVE CONTROL CARD SOURCE TO COMMON. 



FOR GOOD MEASURE. 



WRITE COMM SECTOR ON DISK. 

RESTORE CNTL CARD TRAP IN lORT. 

SET SYSCAL CODE. 

REMOVE MONITOR INDICATOR. 

REMOVE ANY REMAINING LITTLE GOODIES. 

TEST FOR EXECUTION. 

YES -TYPE MESSAGE. 

LOAD AND EXECUTE DESIRED PROGRAM. 



03720 


IS 


02853 


00000 


03732 


49 


04098 


00000 


03740 








03740 


15 


04063 


00003 


03752 


15 


09773 


00000 


03764 


26 


02 126 


02859 


03776 


26 


02 126 


02661 


03768 


26 


02130 


02863 


03600 


31 


00512 


09843 


038 12 


15 


00519 


00000 


03624 


25 


0387 1 


00429 




25 




02855 


Q384B 


44 


03872 


03871 


03860 


32 


00429 


00000 




32 


00428 




03884 


32 


00427 


nnnnn 


03896 


31 


02886 


09818 


03908 


16 


00565 


-3931 


03920 


49 


00520 


-4040 




15 


01995 


00005 


03944 


25 


00475 


09773 


03956 


33 


00456 


00000 


03968 


33 


00457 


00000 


03980 


43 


04016 


00475 


03992 


39 


10319 


00100 


04004 


34 


00000 


00102 


04016 


16 


00565 


-4039 


04028 


49 


00566 


-4063 


04040 




2 




04046 




5 


X 1 


04046 




-4048 




04047 




I 




04048 




1 




04053 




5 


X 1 


04053 




J9663 




04054 




3 




04061 




5 


X 1 


04061 




-2802 




04062 




1 




04063 




2 




04069 




5 


X 1 


04069 




-9774 




04070 




1 




04071 




5 
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12161 


MB226 


DC 


2,-01 


12162 




-J 
DC 


2,-01 






-J 




12163 




DC 


2,-01 






-J 




12164 




DC 


3,-0l« 






-J« 




12170 




MONITOR CONTROL 


12180 




TDM 


MI01,0,, 


12190 


MCROl 


TO 


MCR02A^11,MC0M 


12200 




TD 


•♦23,NC0MM43 


12210 




TF 


MCR06<*>6,MC002 


12220 




BD 


MCR04,MI01,, 


12230 


MCR02A 


BNF 


MCR03,MCD01,, 


12240 




RCTY 


1 1 1 


12250 




WATY 


MMOl 


12260 




BNF 


•♦24,MI03,, 


12270 




WATY 


NM26 


122B0 




RCTY 





TURN OFF ALREADY READ IND. 



TEST IF CNTL CARD ALREADY READ. 
TEST IF TYPEWRITER INPUT. 
YES -TYPE ENTER MESSAGE. 

TEST IF IN JOB CARD SEARCH. 



12290 MCR03 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 

12400 MCR04 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12460 
12490 
12500 
12510 
12520 

12530 MCR04A 
12540 
12550 

12560 

12570 
12580 
12590 
12600 • 
12610 
12620 



TFM 

TR 

AM 

CM 

BNI 

TFM 

B 

BNI 
BNF 
B 



•♦18,MCCBUF,, 
XX,MCR04A47 
MCR03-i-18,4 
MCR03-t-lB,MCCBUF«-l60 
MCR03^12,1300 
I0XX,«*23», 
I0GT,NCR06,7 
• 4-32, 400, ff 
•4^20,MCR02A«11,11, 
MCROl-12 



CLEAR THE CONTROL CARD BUFFER. 



READ A RECORD FROM CONTROL RECORD SOURCE. 



IF SSW4, ALLOW RE-ENTRY ON TYPEWRITER 
INPUT. 



OORG —3 

BNF •♦24,MCR02A*ll,ll, RESTORE CARRIAGE IF TYPEWRITER INPUT. 



RCTY 
TOM 
BNR 
BNR 
TFM 
BTM 
BNR 
BNR 
BNR 
TDM 
B 



HlOUl,, TURN ON CNTL CARD READ INHIBITOR. 

MCROl-12, NCCBUF4-1, .READ AGAIN IF NO DOUBLE R.M. 
MCROl-12, MCCBUF+3 

TREAT AS COMMENTS CARD IF ANY R.M. 
IN COLS. 3-6. 



TEST FOR END OF JOB. 

DISABLE CONTROL CARD READ INHIBITOR. 



CLEAR FLAGS FOR COLS. 4,5 AND 6. 



MF01,4 

UT03,HCCBUF«5,, 
MCR04A,M0dl 
ttCR05A,MCCBUF^5,, 
MCR05A,MCCBUF«^7 
MI01,0,, 
M6030 
OORG •-3 

CF MCCBUF+6,,, 
DORG »-4 
DC 2,0 

-0 

DC 3,0*, 
-0« 

CF MCCBUF+8 
CF MCCBUF+10 
TDM MD01,0 

DECODE CONTROL CARD TYPE 
C MCCBUF*ll,MM02+6,, TEST FOR -JOB- CARD. 
BI MJB01,1200 



04079 




2 




04081 




2 




04084 




3 




04086 


15 


09870 


00000 


04098 


25 


04157 


02855 


04110 


25 


04133 


02855 


04122 


26 


04971 


10700 


04134 


43 


04334 


09870 


04146 


44 


04218 


10690 


04158 


34 


00000 


00102 


04170 


39 


09873 


00 1 00 


04182 


44 


04206 


09871 


04194 


39 


10339 


00100 


04206 


34 


00000 


00102 


04218 


16 


04236 


J3000 


04230 


31 


00000 


04481 


04242 


11 


04236 


-0004 


04254 


14 


04236 


J3160 


04266 


47 


04230 


01300 


04278 


16 


00565 


-4301 


04290 


49 


00566 


-4965 


04 302 


47 


04334 


00400 


04314 


44 


04334 


0415P 


04326 


49 


04086 


00000 


04334 








04334 


44 


04358 


0415P 


04346 


34 


00000 


00102 


04358 


15 


09870 


OOOOl 


04370 


45 


04086 


13001 


04382 


45 


04086 


13003 


04394 


16 


09746 


-0004 


04406 


17 


08068 


J3005 


04418 


45 


04474 


09772 


04430 


45 


04658 


13005 


04442 


45 


04658 


13007 


04454 


15 


09870 


00000 


04466 


49 


03172 


00000 


04474 








04474 


33 


13006 


00000 


04481 








04482 




2 




04485 




3 




04486 


33 


13008 


00000 


04498 


33 


13010 


00000 


04510 


15 


09772 


00000 


04522 


24 


13011 


09927 


04534 


46 


04974 


01200 



31» 
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12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12810 
12820 
12830 
128A0 
12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 

13030 
13040 
13050 
13060 
13070 
13080 
X3090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 



MCROIA 
•••»•« 

MJBOl 
MJB02 



c 


MCC&UF-»^lltMM03-t-6t t 


TEST FOR -TYPE- CARD. 


04546 


24 


13011 


09935 


BNI 


MCR05 9 1200 




04558 


47 


04602 


01200 


TDM 


MC0MM->^3»lt* 


YES -SET INDICATOR. 


04570 


15 


02855 


00001 


BTM 


UT06tt* 


60 TO TYPE-OUT ROUTINE. 


04582 


17 


08524 


-0000 


8 


MCR0l-12ttt 


GO TO READ ANOTHER CARD. 


04594 


49 


04086 


00000 


DORG 


•-3 




04602 








c 


MCCBUF4-ll»MM04*6t « 


TEST FOR -PAUS- CARD. 


04602 


24 


13011 


09943 


BNI 


MCR05A,1200 




04614 


47 


04658 


01200 


BTM 


UT06>»t 


YES -GO TO TYPE-OUT ROUTINE. 


04626 


17 


08524 


-0000 


H 




AFTER START f READ ANOTHER CARD. 


04638 


48 


00000 


00000 


B 


MCROl-12 




04650 


49 


04086 


00000 


DORG 






04658 








BO 


MCR01<-12f HI03t 9 


RE-READ IF IN JOB CARD SEARCH. 


04658 


43 


04086 


09871 


BTM 


UT06*»* 


GO TO TYPE OUT THE CARD. 


04670 


17 


08524 


-0000 


BD 


MCR01->12tMD01f t 


READ NEXT CARD IF FORCED COMMENTS CARD. 


04682 


43 


04086 


09772 


TR 


C0MM4^22tIRECf « 


INITIALIZE SPS AND FORTRAN PROCESSOR 


04694 


31 


02824 


098 00 


TDM 


C0MM-t-39t0tll t 


OUTPUT FIELDS. 


04706 


15 


02841 


0000- 


TR 


COMM«MREC 




04718 


31 


02802 


09851 


TD 


SFDlNTtMC0MM4^3 




04730 


25 


00426 


02855 


TR 


C0MM-t-74tKRECtf 


DISABLE COMN SECTOR INDICATORS FOR 


04742 


31 


02876 


09834 


TDM 


C0MM^82ff0tllt 


SPS AND FORTRAN SUBROUTINE LOADERS. 


04754 


15 


02884 


0000- 


TFM 


HIGHfSYSORG 




04766 


16 


00434 


-2402 


TD 


M6225-i-7»MCR01A 




04778 


25 


04070 


04485 


c 


MCCBUF4-1 1 •MM05-i-6«> 


TEST FOR -SPS"- CARD. 


04790 


24 


13011 


09951 


BI 


MSP01tl200 




04602 


46 


06226 


01200 


c 


MCCBUF-*^ 1 1 »MM06-i-6 1 1 


TEST FOR -SPSX- CARD. 


04814 


24 


13011 


09959 


BI 


MSP02ffl200 




04826 


46 


06248 


01200 


c 


MCCBUF^lltMM07«6f t 


TEST FOR -FOR- CARD. 


04838 


24 


13011 


09967 


BI 


MFTOlt 1200 




04850 


46 


06580 


01200 


c 


MCCBUF^ 1 1 »MM08«-6 » • 


TEST FOR -FORX- CARD. 


04862 


24 


13011 


09975 


BI 


MFT02fl200 




04874 


46 


06600 


01200 


c 


MCCBUF'fll tMM09'i-6f t 


TEST FOR -OUP- CARD. 


04886 


24 


1301 1 


09983 


BI 


MDPOl* 1200 




04898 


46 


06836 


01200 


c 


MCCBUF+ll>MM10«-6» * 


TEST FOR -XEQ- CARD. 


04910 


24 


13011 


09991 


BI 


MXQ01»1200 




04922 


46 


06940 


012OO 


C 


MCCBUF^ll»MMll'f6t f 


TEST FOR -XEQS- CARD. 


04934 


24 


13011 


09999 


BI 


MXQ02 9 1200 




04946 


46 


06972 


01200 


B 


MCR01-12f MCCBUF-flt 


7 f COMMENTS CARD -GO TO READ NEXT ONE. 


04958 


49 


04086 


J3001 


OS 


0t»-4 




04965 




0 




DC 


2tXX 




04971 




2 




XX 
DGM 






04972 




I 




OS 


0.MCR04A4-11 




04485 




0 




JOB CARD PROCESSOR 












BTM 


UT07,,, 


GO TO JOB CLOSE OUT ROUTINE. 


04974 


17 


08812 


-0000 


BTM 


UT06.»» 


GO TO CONTROL RECORD TYPE-OUT ROUTINE. 


04986 


17 


08524 


-0000 


TFM 


F0,»*23t»» 


DECODE COL. 7. 


04998 


16 


09628 


-5021 


B 


UT10«MJB02At7 




05010 


49 


09168 


-5090 


BNF 


MJB03»F4» t 


MUST RE-READ IF ANY ERROR. 


05022 


44 


05104 


09632 


BNF 


MJB30>Flf f 


EXIT IF R.M. 


05034 


44 


06180 


09629 


BNF 


MJB04,M001 




05046 


44 


05172 


09772 


BO 


MJBOSBtMCDOltf 


PROCEED IF PROPER DIGIT. 


05058 


43 


05160 


10690 


TFM 


F0.MJB03tf 


NO -TYPE ERROR MESSAGE. 


05070 


16 


09628 


-5104 


B 


UTIOE 




05082 


49 


09512 


00000 


DORG 


•-3 




05090 








DSC 


4.0100 




05090 




4 




0100 
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31 



13180 




DC 


2.7 








-7 






13190 




DC 
-1 


2.1 




13200 




OS A 


MJB02X^11 




13210 




DSC 
t 


l.» 




13220 


MJB03 


RCTY 






13230 


MJB03A 


TOM 


MC0MM4 3.1,. 


CHANGE SOURCE INDICATOR. 


13240 




TDM 


MI03,1»11( 


INDICATE JOB CARD SEARCH. 


13250 




TDM 


MCOMM.O,, 


INDICATE JOB NOT BEGUN. 


13260 




B 


MCROl-12,,, 


GO TO CNTL CARD READ SUPERVISOR. 


13270 




DORG 


»-3 


13280 


MJB03B 


TD 


MC0MM+3,MF02.11 




13290 


MJB04 


SF 


MJBIO., , 


INITIALIZE TO SCAN REMAINDER OF CARD. 


13300 




SF 


MJB15 




13310 




TD 


MJBlltll.C0MM^49 




13320 




TD 


MJB20*8,C0MM+49 




13330 




TDM 


MJB15A^11,1 




13340 




TFM 


MJB13A*6,MC0MM+5 




13350 




TFM 


MJB174^11.4 




13360 




TFM 


MJB50A*5,8,10 




13370 




TFM 


MJB55A+5, 12,10 




13380 


MJBIO 


BNF 


HJB12A-M2,*,, 


IGNORE CONTROL CARD FIELD IF SCAN OVER. 


13390 




TFM 


F0,»+23,, 


DECODE CURRENT DRIVE EQUIV. FIELD. 


13400 




B 


UT10,MJB50A,7 




13410 




TDM 


MJ612A>1,1,, 


SET ERROR RETURN SWITCH. 


13420 




BNF 


MJB12*20,F4,, 


CHECK FOR ANY ERROR. 


13430 




BNR 


•♦44,MD01,, 


TEST IF CARD FINISHED. 


1 3440 




CF 


MJBIO... 


YES -NO FURTHER SCAN OF FIELDS. 


13450 




CF 


MJB15 




13460 




B 


MJB12A+12 




13470 




DORG 


•-3 




13480 




BNF 


MJB12A-H2,M001,, 


IGNORE A BLANK. 


13490 


MJBll 


CM 


MF02,XXt610. 


NO -CHECK IF WITHIN CORRECT RANGE. 


13500 




BNI 


MJB13,1300 




13510 


MJB12 


TFM 


F0,»+20,, 


NO -TYPE ERROR MESSAGE. 


13520 




B 


UTIOE 




13530 




DORG 


»-3 




13540 




WATY 


MMIT 




13550 




RCTY 






13560 




H 


, t , 


WAIT FOR OPERATOR. 


13570 




BNI 


MJB03,400.» 


IF NO SSW4, SOURCE CHANGES TO TYPEWRITER 


13580 




WATY 


MM31,,, 


INDICATE THAT CONDITION IGNORED. 


13590 




RCTY 






13600 


MJB12A 


NOP 


MJB15A-20,,, 


NOP/BRANCH SWITCH, 


13610 




TF 


MF02,MJB13A4-6,611, 


♦ALLOW THE OLD EQUIVALENCE TO STAND. 


13620 




B 


MJ813A+12 




13630 




DORG 


•-3 




13640 


MJB13 


A 


MF02,MF02,6ll. 


COMPUTE PHYSICAL DRIVE CODE. 


13650 




AM 


MF02, 1,610 




13660 


MJB13A 


TF 


XX,MF02,21l, 


MOVE TO MCOMM EQUIV TABLE. 


13670 




AM 


MJB13A+6,EQUIV-MC0MM-4, .MOVE TO lORT EOUIV TABLE. 


13680 




TF 


MJB13A+6,MF02.611 





05095 




2 




05097 




2 




05102 




5 


X 1 


05102 




-5069 




05103 




1 




05104 


34 


00000 


00102 


05116 


15 


02855 


OOOOl 


05128 


15 


09871 


OOOOJ 


05140 


15 


02852 


00000 


05152 


49 


04086 


00000 


05160 








05160 


25 


02855 


0975J 


05172 


32 


05280 


00000 


05184 


32 


05604 


00000 


05196 


25 


05407 


02851 


05208 


25 


06064 


02851 


05220 


15 


05719 


OOOOl 


05232 


16 


05574 


-2857 


05244 


16 


05971 


-0004 


05256 


16 


06205 


000-8 


05268 


16 


06219 


00OJ2 


05280 


44 


05524 


05280 


05292 


16 


09628 


-5315 


05304 


49 


09168 


-6200 


05316 


15 


05513 


OOOOl 


05328 


44 


05440 


09632 


05340 


45 


05384 


09772 


05352 


33 


05280 


00000 


05364 


33 


05604 


00000 


05376 


49 


05524 


00000 


05384 








05384 


44 


05524 


09772 


05396 


14 


0975J 


000-0 


05408 


47 


05544 


01300 


05420 


16 


09628 


-5440 


05432 


*9 


09512 


00000 


05440 








05440 


39 


10065 


00100 


05452 


34 


00000 


00102 


05464 


48 


00000 


00000 


05476 


47 


05104 


00400 


05488 


39 


10405 


00100 


05500 


34 


00000 


00102 


05512 


41 


05688 


00000 


05524 


26 


0975J 


0557M 


05536 


49 


05580 


00000 


05544 








05544 


21 


0975J 


0975J 


05556 


11 


0975J 


000-1 


05568 


26 


-0000 


0975J 


05580 


11 


05574 


-073L 


05592 


26 


0557M 


0975 J 
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13690 


MJB15 


8NF 


MJB15A-20t*ff f 


TEST IF R*N« ALREADY ENCOUNTERED. 


09604 


44 


09688 


05604 


13700 




TFH 


F0t*^23tt 


NO -EXTRACT CURRENT PACK NO. FIELD. 


09616 


16 


09628 


-5639 


13710 




B 


UT10tNJB55Aa7 




09628 


49 


09168 


-6214 


13720 




TDM 


NJB12A^lf9«t 


SET SWITCH. 


05640 


15 


05513 


00009 


13730 




BNF 


MJB12-*-20ffF4f t 


CHECK FOR ANY ERROR. 


09692 


44 


05440 


09632 


13740 




BNR 


•♦24,M001t, 


NO -TEST IF CARD FINISHED. 


09664 


45 


05688 


09772 


13750 




CF 


MJB15,,, 


YES -NO FURTHER SCAN OF PACK NO. FIELDS. 


09676 


33 


05604 


00000 


13760 




BD 


• •t-20,MJB13A46fflla 


SKIP TO END IF MODULE NOT ATTACHED. 


09688 


43 


05708 


0557M 


13770 




B 


MJB20 




05700 


49 


06056 


00000 


13780 




00 RG 


•-3 




05708 








13790 


MJB15A 


TOM 


MJB23fXX»10« 


READ TRACK CONTAINING PACK NUMBER. 


09708 


15 


06164 


000-0 


13800 




TFM 


I0XX,«<«>23 




05720 


16 


00565 


-5743 


13810 




B 


I0GT»MJB22t7 




05732 


49 


00566 


-6156 


13820 




BNF 


MJB17»MJBl5tt 


IGNORE CHECK IF END OF CARD, OR 


05744 


44 


05960 


05604 


13830 




BNF 


NJB17tM001», 


BLANK FIELD, OR 


05756 


44 


05960 


09772 


13840 




BNF 


MJB17fF4tt 


IGNORED ERROR IN FIELD. 


05768 


44 


D9960 


09632 


13850 




SF 


14009, ft 


COMPARE THE PACK NUMBERS. 


05780 


32 


14005 


00000 


13860 




C 


14009,MF02,11 




05792 


24 


14009 


0975J 


13870 




BI 


MJB17,1200 




05804 


46 


05960 


01200 


13880 




TO 


•♦23,MJB23,, 


PACK NO. ERROR. -GET MODULE NUMBER. 


05816 


25 


05839 


06164 


13890 




BTM 


UT01,XX 




05828 


17 


07988 


-0000 


13900 




TO 


MM164-56,UT01-2 




05840 


25 


10057 


07986 


13910 




HATY 


MM16 




05852 


39 


10001 


00100 


13920 




TF 


MM17*72,MM32'H4 




05864 


26 


10137 


10455 


13930 




WATY 


MM17 




05876 


39 


10065 


00100 


13940 




TF 


NM17-*>7B,MM33*20 




05888 


26 


10143 


10477 


13950 




RCTY 






05900 


34 


00000 


00102 


13960 




H 


1 1 1 


WAIT FOR OPERATOR. 


05912 


48 


00000 


00000 


13970 




BNI 


MJB15A,400,, 


RE-READ PACK NO. IF SSW4 OFF. 


05924 


47 


05708 


00400 


13980 




MATY 


MM31,,, 


TYPE CONDITION IGNORED MESSAGE. 


05936 


39 


10405 


00100 


13990 




RCTY 






05948 


34 


00000 


00102 


14000 


MJB17 


BTM 


UT05,XX», 


READ IN DIM SECTOR FOR THIS LOGICAL 


05960 


17 


08380 


-0000 


14010 




SF 


14000, » t 


MODULE AND MOVE SECTOR ADDRESS FOR 


05972 


32 


14000 


00000 


14020 




AM 


UT05-1,5,, 


THIS PACK TO PROPER DIM ENTRY. 


05984 


11 


08379 


-0005 


14030 




TF 


UT05- 1,14004,6 




05996 


26 


0837R 


14004 


14031 




AM 


UT05-1, 1,610, 


ADD 1 TO SECTOR ADDRESS. 


06008 


11 


0837R 


000- 1 


14040 




TO 


MAPENT,TEMP-5,, 


WRITE IT BACK OUT ON DISK. 


06020 


25 


02144 


02014 


14050 




TFM 


I0XX,*^23 




06032 


16 


00565 


-6055 


14060 




B 


I0RBC,MJB21,7 




06044 


49 


00520 


-6148 


14070 


MJB20 


SM 


•♦8,1,710, 


EXIT IF ALL MODULES FOR THIS 


06056 


12 


06064 


-00- 1 


14080 




BNI 


MJB30,1100,, 


CONFIGURATION PROCESSED. 


06068 


47 


06180 


01100 


14090 




AM 


MJB13A^6,MC0MM>EQUIV«6 


06080 


11 


05574 


-0735 


14100 




AM 


MJB15A-t-ll,2,10 




06092 


11 


05719 


000-2 


14110 




AM 


MJB17«11,1 




06104 


11 


05971 


-0001 


14120 




AM 


MJB50A^S,1,10 




06116 


11 


06205 


000-1 


14130 




AM 


MJB55A^5,5,10 




06128 


11 


06219 


000-5 


14140 




B 


MJBIO,,, 


REPEAT FOR NEXT LOGICAL MODULE. 


06140 


49 


05280 


00000 


14150 




00 RG 


•-3 




06148 








14160 


MJB21 


DSC 


2,22 




0614B 




2 




14170 




22 
DSA 


UTOSB 






















06154 




-8498 




14180 




OSC 
• 


it* 




06155 




1 




14190 


MJB22 


DSC 


2,26 




06156 




2 





26 
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14200 




DSA 


MJB23 




06162 




5 


X 1 












06162 




-6164 




14210 




DSC 
* 


l,« 




06163 




1 




14220 


MJB23 


OSC 


1,1 




06164 




1 




14230 




1 

DSA 


19800 




06169 




5 


X I 












06169 




J9B0D 




14240 




DC 


3,20 




06172 




3 








-20 














14250 




DSA 


14000 




06177 




5 


X 1 












06177 




J4000 




14260 




DSC 


1,« 




06178 




1 




14270 


MJB30 


TDM 


MI03,0, , 


DISABLE JOB CARD SEARCH. 


06180 


15 


09871 


00000 


14280 




B 


MCROl-12,,, 


GO READ ANOTHER CNTL CARD. 


06192 


49 


04086 


00000 


14290 




□ORG 


• -3 




06200 








14300 


MJB50A 


DSC 


4,0100 




06200 




4 








0100 














14310 




DC 


2,0 




06205 




2 




14320 




-0 
DC 


2,1 




06207 




2 




14330 




-1 
DSC 


6,0* 




06208 




6 








00000* 












14340 


MJB55A 


OSC 


4,0100 




06214 




4 








0100 














14350 




DC 


2,0 




06219 




2 




14360 




-0 
DC 


2,5 




06221 




2 




14370 




-5 
OSC 


6,0« 




06222 




6 








ooooo* 












14380 




SPS AND SPSX CNTL 


CARD PROCESSOR 










14390 


MSPOl 


TOM 


MCOMM+1 ,3,, 


SET SPS ENTRY IND. 


06228 


15 


02853 


00003 


14400 




B 


• ♦20 




06240 


49 


06260 


00000 


14410 




DORG 


•-3 




06248 








14420 


MSP02 


TDM 


MC0MM^1,3,11, 


SET SPSX ENTRY IND. 


06248 


15 


02853 


OOOOL 


14430 




TDM 


MCOMM,!,, 


INDICATE PHASE BEGUN. 


06260 


15 


02852 


00001 


14440 




TOM 


MCOMM+12,5 




06272 


15 


02864 


00005 


14450 




TFM 


F0,»*23,, 


DECODE COL. 7. 


06284 


16 


09628 


-6307 


14460 




B 


UT10,MSP05A,7 




06296 


49 


09168 


-6523 


14470 




TO 


•♦23,SFDINT,, 


TEST IF LEGITIMATE. 


06308 


2b 


06331 


00426 


14480 




BO 


•♦20,MCD01 




06320 


43 


06340 


10690 


14490 




B 


UTIOE,, , 


NO -KILL THIS PHASE. 


06332 


49 


09512 


00000 


14500 




DORG 


• -3 




06340 








14510 




BNF 


MSP03,Fl 




06340 


44 


06460 


09629 


14520 




BNF 


MSP03,MC0MM+l, , 


TEST IF SPSX CARD. 


06352 


44 


06460 


02853 


14530 




TFM 


F0,»*23,, 


YES -DECODE COLS. 8-9. 


06364 


16 


09628 


-6387 


14540 




B 


UTIO,MSP05B,7 




06376 


49 


09168 


-6537 


14550 




BNF 


MSP03,F1 




06388 


44 


06460 


09629 


14560 




TFM 


F0,»+23,, 


DECODE COL. 10. 


06400 


16 


09628 


-6423 


14570 




B 


UT10,MSP05C,7 




06412 


49 


09168 


-6551 



3't 
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14580 




BNF 


MSP03tFl 




06424 


44 


06460 


09629 


14590 




TFM 


F0t»*23tt 


DECODE COLS* ll-*-12« 


06436 


16 


09628 




14600 




B 


UTl0tMSP05Df7 




06448 


49 


09168 


—6565 


14610 


MSP03 


TR 


MR02* SPSDDAt • 


MOVE DDA FOR SPS ASSEMBLER* 


06460 


31 


09774 


1 0802 


14620 




BNR 


MSP04»MR02t • 


TEST IF VALID* 


06472 


45 


06504 


09774 


14630 




TFM 


POINTf 8f t 


NO -TERMINATE CURRENT PHASE* 


06484 


16 






14640 




B 


MB080A 




06496 


49 


03376 


UUUUU 


14650 




D0R6 


•-3 




06504 








14660 


MSP04 


TDM 


M002t4» 


SET SYSCAL CODE* 


06504 


15 


09773 


00004 


14670 




B 


MB081'M2 




06516 


49 


03432 


00000 


14680 




DORG 


•-4 




06523 








14690 


MSP05A 


OSC 


4«0I01 




06523 




4 








0101 














14700 




DC 


2,7 




06528 




2 




14710 




-7 

DC 


2,1 




06530 




2 




14720 




-I 
OS A 


SFDINT 




06535 




5 


X 1 












06535 




-0426 




14730 




OSC 
t 


It' 




06536 




1 




14740 


MSP05B 


DSC 


4,0101 




06537 




4 








0101 














14750 




DC 


2,8 




06542 




2 




14760 




-8 
DC 


2,2 




06544 




2 




14770 




-2 
DSA 


COMM^Bl 




06549 






X 1 












06549 




—2883 




14780 




OSC 
• 


1, » 




06550 




1 




14790 


MSP05C 


OSC 


4,0101 




06551 




4 








0101 














14800 




DC 


2,10 




06556 




2 








JO 














14810 




DC 


2,1 




06558 




2 




14820 




-1 
DSA 


COMM*77 




06563 




5 


X I 












06563 




— Z879 




14830 




DSC 
« 


1,» 




06564 




1 




14840 


MSP05D 


DSC 


4,0101 




06565 




4 








0101 














14850 




DC 


2.11 




06570 




2 








Jl 














14860 




DC 


2,2 




06572 




2 








-2 
DSA 


C0MM4>79 




06577 




5 


X 1 












06577 




-2881 




14880 




OSC 


1,* 




06578 




1 




14890 




FOR AND FORK CNTL 


CARD PROCESSOR* 
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PAGE 


1 Aonn 
1 


HrTOl 


TOM 


MC0MM>1,4,, . 


SET FOR ENTRY INO* 


06580 


15 


02853 


00004 


14910 




B 


• ♦20 




06592 


49 


06612 


00000 


14920 




DORG 


•-3 




06600 








14930 


MrT02 


TDM 


MC0MM4^1,4,I1, 


SET FORX ENTRY IND* 


06600 


15 


02853 


OOOOM 






TDM 


MC0MM,1,, 


INDICATE PHASE BEGUN* 


06612 


15 


02852 


00001 


14950 




TDM 


MCOMM«12,5 




06624 


15 


02864 


00005 


14960 




TFM 


F0,»4-23f • 


DECODE COL* 7* 


06636 


16 


09628 


-6659 






B 


UT10,MSP05A,7 




06648 


49 


09168 


-6523 






TO 


• 4-23, SFDINT,, 


TEST IF LEGITIMATE* 


06660 


25 


06683 


00426 


1 ^nnn 




BD 


•♦20,MC00l 




06672 


43 


06692 


10690 






B 


UTIOE,,, 


NO -KILL THIS PHASE* 


06684 


49 


09512 


00000 


15010 




DORG 


•-3 




06692 












BNF 


MFT03,F1 




06692 


44 


06764 


09629 


1 <n«n 




TFM 


F0,»423,, 


DECODE COL* 8* 


06704 


16 


09628 


-6727 


15040 




B 


UT10,MFT05B,7 




06716 


49 


09168 


-6808 






BNF 


MFT03,F1 




06728 


44 


06764 


09629 






TFM 


F0,«^23,, 


DECODE COLS* 9-10* 


06740 


16 


09628 


-6763 


15070 




B 


UT10,MFT05C,7 




06752 


49 


09168 


-6822 


15080 


MFT03 


TR 


MR02,FORD0A,, 


MOVE DDA FOR FORTRAN COMPILER* 


06764 


31 


09774 


10822 


15090 




BNR 


MSP04,MR02,, 


TEST IF VALID* 


06776 


45 


06504 


09774 


15100 




TFM 


POINT, 136 




06788 


16 


09798 


-0136 


15110 




B 


MB080A 




06800 


49 


03376 


00000 


15120 




DORG 


•-3 




06808 








15130 


MFT05B 


DSC 


4,0101 




06808 




4 








0101 














15140 




DC 
-8 


2,8 




06813 




2 




15150 




DC 
-1 


2,1 




06815 




2 




15160 




DSA 


COMM^82 




06820 




5 


X I 












06820 




-2884 




15170 




DSC 
• 


1,» 




06821 




1 




15180 


MFT05C 


DSC 


4,0101 




06822 




4 








0101 














15190 




DC 
-9 


2,9 




06827 




2 




15200 




DC 
-2 


2,2 




06829 




2 




15210 




DSA 


COMM+75 




06834 




5 


X 1 












06834 




-2877 








DSC 


1,' 




06835 




1 




15230 


****** 


OdP CNTL CARD PROCESSOR 










1 Kn 


MDPOl 


TOM 


MC0MM4^1,2,, 


SET PHASE INDICATOR. 


06836 


15 


02853 


00002 


1 ^7 An 




TOM 


MC0MM,1,, 


INDICATE PHASE BEGUN. 


06848 


15 


02852 


00001 






TOM 


MC0MM4-12,6,, 


SET DUP INDICATOR. 


06860 


15 


02864 


00006 


15270 




TDM 


MD02,4,, 


SET SYSCAL CODE. 


06872 


15 


09773 


00004 


15280 




TFM 


F0,^*23,, 


DECODE COL. 7* 


06884 


16 


09628 


-6907 


15290 




B 


UT10,MSP05A,7 




06896 


49 


09166 


-6523 


15300 




TO 


•♦23, SFDINT,, 


TEST IF LEGITIMATE. 


06908 


25 


06931 


00426 


15310 




BO 


MB080+24,MCD01 




06920 


43 


03328 


10690 


15320 




B 


UTIOE,,, 


NO -KILL THIS PHASE. 


06932 


49 


09512 


00000 


15330 




DORG 


»-3 




06940 
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15340 •••••• XEQ AND XEQS CNTL CARD PRflCESSOR 



15350 


MXQOl 


CF 


FSPSttt 


SET XEQ ENTRY INDICATORS. 


06940 


33 


00429 


00000 


15360 




TFM 


MXQ03B^11»27,10 




06952 


16 


07187 


0OOK7 


15370 




B 


MX002^24 




06964 


49 


06996 


00000 


15380 




DORG 


•-3 




06972 








15390 


MXQ02 


SF 


FSPStfft 


SET XEQS ENTRY INDICATORS. 


06972 


32 


00429 


00000 


15A00 




TFM 


NXQ03B«lLt34«10 




06984 


16 


07187 


000L4 


15410 




TDM 


MCOMMilt* 


INDICATE PHASE BEGUN. 


06996 


15 


02852 


00001 


15420 




TDM 


MCOMM^ltltll 




07008 


15 


02853 


OOOOJ 


15430 




TDM 


MC0MM4l2t4t t 


SET OBJECT PROGRAM INDICATOR. 


07020 


15 


02864 


00004 


15440 




BNF 


• -•■20tMC0MM-l-2t t 


TEST IF EXECUTION IS INHIBITED 


07032 


44 


07052 


02854 


15450 




B 


UTlOFtf t 


YES -TYPE MESSAGE AND FINISH UP JOB. 


07044 


49 


09580 


00000 


15460 




DORG 


•-3 




07052 








15470 




TFM 


F0t*>23« t 


DETERMINE IF COLS. 7-'12 LEGITIMATE. 


07052 


16 


09628 


-7075 


15480 




B 


UT10tMXQ50t7 




07064 


49 


09168 


-7843 


15490 




BD 


MXQ07tMD01 




07076 


43 


07448 


09772 


15500 




BNF 


MXQ03tMD01 




07088 


44 


07108 


09772 


15510 




B 


UTlOEtt t 


NO -NAMES MUST BE NON-NUMERIC. 


07100 


49 


09512 


00000 


15520 




DORG 


•-3 




07108 








15530 


MXQ03 


TFM 


MXQ03A4-23tMXQ55t • 


INITIALIZE TO DECODE REST OF CARD. 


07108 


16 


07143 


-7857 


15540 


MXQ03A 


TFM 


F0t*«23f t 


PERFORM THE SCAN. 


07120 


16 


09628 


-7143 


15550 




B 


UTlOtXX 




07132 


49 


0916B 


00000 


15560 




AM 


•-ltl4 




07144 


11 


07143 


-0014 


15570 




BNR 


• -*-20tMD01* • 


TEST FOR R.M. 


07156 


45 


07176 


09772 


15580 




B 


MX004«24ffff t 


YES -END OF CARD. 


07168 


49 


07200 


00000 


15590 




DORG 


•-3 




07176 








15600 


MXQ03B 


CM 


F5tXX 




07176 


14 


09634 


-0000 


15610 




BNI 


MXQ03A« 1300 




07188 


47 


07120 


01300 


15620 




BD 


MXQ12tLDINPTt t 


BRANCH IF NQN-OISK LOAD INPUT. 


07200 


43 


07704 


00428 


15630 




BNF 


MXQll tCOMM+35* t 


BRANCH IF PROGRAM NAME SUPPLIED. 


07212 


44 


07672 


02837 


15640 


MXQ04 


BNF 


MXQ05»C0MM4-39tt 


TEST IF DIM ENTRY PICKED UP. 


07224 


44 


07256 


0284L 


15650 




MATY 


MM37t f f 


NO -TYPE ERROR MESSAGE AND CLOSE JOB. 


07236 


39 


10517 


00100 


15660 




B 


UTIOF 




07248 


49 


09580 


00000 


15670 




DORG 


•"3 




07256 








15680 


MXQ05 


BT 


UT05fC0MM^39t» 


GO TO PICK UP THE DIM ENTRY. 


07256 


27 


08380 


02841 


15690 




TR 


MR02>UT05-l«llt 


MOVE FOR LOAD ROUTINE. 


07268 


31 


09774 


0837R 


15700 




BNR 


•♦20«NRQ2tt 


TEST IF EMPTY. 


07280 


45 


07300 


09774 


15tl0 




B 


MXQ044l2f t» 


YES -ERROR. 


07292 


49 


07236 


00000 


15720 




DORG 


•-3 




07300 








15730 




TF 


MF01tMR024-13it 


DETERMINE IF RELOCATABLE. 


07300 


26 


09746 


09787 


15740 




CF 


MFOl 




07312 


33 


09746 


00000 


15750 




CM 


MFO It 99999 




07324 


14 


09746 


R9999 


15760 




BI 


MXQ06Af 1200 




07336 


46 


07368 


01200 


15770 


MXQ06 


TFM 


NXQ06C-*-6tMB190t t 


NO -FORCE UPDATING OF HIGH INDICATOR. 


07348 


16 


07446 


-3740 


15780 




B 


MXQ06B 




07360 


49 


07416 


00000 


15790 




DORG 


•-3 




07368 








15800 


HXQ06A 


BNF 


• 4-24«C0NM48t t 


YES -MOVE IN LOAD ADDRESS IF ANY. 


07368 


44 


07392 


02810 


15810 




TF 


NB2254-lltC0MM4-12 




07380 


26 


04074 


02814 


15820 




CF 


MB225411 




07392 


33 


04074 


00000 


15830 




TFM 


MXQ06C«6fMB195 




07404 


16 


07446 


-3752 


15840 


MXQ06B 


BNF 


• ♦24tC0MM4-13»« 


MOVE IN ENTRY ADDRESS IF SUPPLIED. 


07416 


44 


07440 


02815 


15850 




TF 


MR024-18tC0MM4-17 




07428 


26 


09792 


02819 


15860 


HXQ06C 


B 


MB195,», 


MB 190 OR MBI95. 


07440 


49 


03752 


00000 


15870 




DORG 


•-3 




07448 








15880 


MXQ07 


CF 


MCCBUF-»14«»» 


CLEAR EXCESS FLAGS IN NAME FIELD. 


07448 


33 


13014 


00000 


15890 




CF 


NCCBUF416 




07460 


33 


13016 


00000 
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15900 




CF 


MCCBUF*18 


15910 




CF 


NCCBUF4-20 


15920 




CF 


MCCBUF-»>22 


15930 


MXQ08 


TFM 


AB034 30tMXQ09,, 


15940 




TFM 


AB03>50tNXQ10 


15950 




TFM 


AB03443tMCCBUF4-23 


15960 




TF 


C0MM-f35tNCCBUF4^23 


15970 




TD 


AB09A»EQUDDA 


15980 




BNR 


•♦20tEQUDDA 


15990 




B 


• ♦20 


16000 




DORG 


•-3 


16010 




TF 


AB09A-i-5fEQUD0A4 5 


16020 




TFM 


MXQ03A423«MX055414 


16030 




B 


MXQ03A,,, 


16040 




DORG 


•-3 


16050 


MXQ09 


MATY 


MM38,»» 


16060 




B 


UT10F»,. 


16070 




DORG 


•-3 


16080 


MXQIO 


AM 


AB034ll«4,, 


16090 




TF 


C0MM*39,AB03*ll,ll, 


16100 




B 


MXQ05,f , 


16110 




DORG 


•-3 


16120 


MXQll 


BNR 


AB02-12tE0UDDA,, 


16130 




TFM 


P0INT,2tt 


16140 




B 


MB080A 


16150 




DORG 


•-3 


16160 


MXQ12 


TD 


•♦23,LDINPT,, 


16170 




BD 


MXQ13fMC005 


16180 




TFM 


POINT, 27, 9, 


16190 




B 


UTIOE 


16200 




DORG 


•-3 


16210 


MXQ13 


TR 


MR02,MXQ20,, 


16220 




TD 


DIMENT+14,HCR01A 


16230 




BNF 


• ♦24,C0MM-H3 


16240 




TF 


DIMENT«18tCOMM4-17 


16250 




BNF 


• ♦24,C0MM4-8 


16260 




TF 


HIGH.COMM-t-12 


16270 




B 


MB195 


16280 




DORG 


•-3 


16290 


MXQ20 


DSC 


Ifl 


16300 




1 

DSA 


DSA15 


16310 




DC 


3,3 






-03 




16320 




DC 


6,0« 






-000Q' 


16330 


MX050 


DSC 


4,1001,, 






1001 




16340 




DC 


2,7 






-7 




16350 




DC 


2,6 






-6 




16360 




DSC 


6,0* 



INITIALIZE FOR EQUIVALENCE TABLE SEARCH. 



RETURN TO DECODE REST OF CARD. 

COULD NOT FIND -TYPE ERROR MESSAGE. 
FINISH UP. 

MOVE CORRESPONDING DIM NUMBER TO 
r TO THE COMM SECTOR. 
GO PICK UP THE DIM ENTRY. 

GO TO EQU TABLE SEARCH IF ODA VALID. 
NO -TYPE ERROR MESSAGE. 



TEST FOR LEGITIMACY OF INPUT DEVICE. 
NO -TYPE MESSAGE AND EXIT. 

SET UP TO EXECUTE LOADER CALLER. 



PROGRAM NAME. 



07472 


33 


13018 


00000 


07484 


33 


13020 


00000 


07496 


33 


13022 


00000 


07508 


16 


11064 


-7620 


07520 


16 


11084 


-7640 


07532 


16 


11077 


J3023 


07544 


26 


02837 


13023 


07556 


25 


11380 


10862 


07568 


45 


07588 


10862 


07580 


49 


07600 


00000 


07588 








07588 


26 


11385 


10867 


07600 


16 


07143 


-7871 


07612 


49 


07120 


00000 


07620 








07620 


39 


10553 


00100 


07632 


49 


09580 


00000 


07640 








07640 


11 


11045 


-0004 


07652 


26 


02841 


1104N 


07664 


49 


07256 


00000 


07672 








07672 


45 


10986 


10862 


07684 


16 


09798 


-0002 


07696 


49 


03376 


00000 


07704 








07704 


25 


07727 


00428 


07716 


43 


07748 


10730 


07728 


16 


09798 


00-27 


07740 


49 


09512 


00000 


07748 








07748 


31 


09774 


07828 


0 7760 


25 


00416 


04485 


07772 


44 


07796 


02815 


07784 


26 


00420 


02819 


07796 


44 


07820 


02810 


07808 


26 


00434 


02814 


07820 


49 


03752 


00000 


07828 








07828 




1 




07833 




5 


X I 


07833 




J9783 




07836 




3 




07842 




6 




07843 




4 




07848 




2 




07850 




2 




07851 




6 
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16370 MXQ55 


OSC 


4,0101, t 


DIM NUMBER. 


OTssr 


4 




0101 










16380 


DC 


2,13 




07862 


2 




J3 










16390 


DC 


2,4 




07864 


2 




-4 










16400 


OSA 


COMM+39 




07869 


5 










07869 


-2841 


16410 


OSC 
t 






07870 


1 


16420 


DSC 


4,0101,, 


LOAD ADDRESS. 


07871 


4 




0101 










16430 


DC 


2,17 




07876 


2 




J7 










16440 


DC 


2,5 




07878 


2 


16450 


-5 
OSA 


CdMM+12 




07883 


5 










07883 


-2814 


16460 


OSC 
• 


ItV 




07884 


1 


16470 


OSC 


4,0101,, 


ENTRY ADDRESS. 


07885 


4 




0101 










1^460 


DC 


2,22 




07890 


2 




K2 










16490 


DC 


2,5 




07892 


2 




-5 










16500 


DSA 


C0MM417 




07897 


5 










07897 


-2819 


16510 


OSC 


l,« 




07898 


1 


16520 


OSC 


4,0101,, 


INPUT SOURCE. 


07899 


4 




0101 










16530 


DC 


2,27 




07904 


2 




K7 










16540 


DC 


2,1 




07906 


2 


16550 


-1 
DSA 


LOINPT 




07911 


5 










07911 


-0428 


16560 


DSC 
• 


I,' 




07912 


1 


16570 


OSC 


4,0101,, 


SUBROUTINE SET INDENT IF ICATION FOR FORTRA 


07913 


4 




0101 










16580 


DC 


2,28 




07918 


2 




K8 










16590 


DC 


2,1 




07920 


2 


16600 


-I 
DSA 


C0MM4-82 




07925 


. 5 










07925 


-2884 


16610 


OSC 
t 


I,* 




07926 


1 


16620 


DSC 


4,0101,, 


CONTROL CARD COUNT FOR FORTRAN. 


07927 


4 



0101 

M 
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16630 DC 2,29 07932 2 
K9 

16640 DC 2,2 07934 2 
-2 

16650 OSA COMM+75 07939 5 X 1 

07939 -2877 

16660 DSC 1,» 07940 1 

16670 DSC 4,0101,, SPS SUBROUTINE SET. 07941 4 

0101 

16680 DC 2,31 07946 2 

LI 

16690 DC 2,2 07948 2 

-2 

16700 OSA COMM+81 07953 5 X 1 

07953 -2883 

16710 DSC l,« 07954 1 

* 

16720 OSC 4,0101,, SPS NOISE DIGIT. 07955 4 

0101 

16730 DC 2,33 07960 2 

L3 

16740 OC 2,1 07962 2 

-1 

16750 DSA COMM+77 07967 5 X 1 

07967 -2879 

16760 DSC 1,« 07968 1 

« 

16770 OSC 4,0101,, SPS MANTISSA LENGTH. 07969 4 

0101 

16780 DC 2,34 07974 2 

L4 

16790 DC 2,2 07976 2 

-2 

16800 DSA COMM+79 07981 5 X 1 

07981 -2881 

16810 DSC 1,« 07982 1 

■ ■ . • ■ 

16820 ••••»• ROUTINE TO MULTIPLY A DIGIT BY FIVE -RESULT IS A FIVE 
16830 • DIGIT FIELD ADDRESSED AT UTOl-1 

16840 DC 5,0,,, CALLING SEQUENCE 07987 5 

-0000 

16850 UTOl TFM •-2,0,8, TO •4-23, DIGIT 07988 16 07986 0-000 

16860 CF UTOl-1,,7, BTM UT01,0 08000 33 07987 -0000 

16870 TO •-1,UT01-1 08012 25 08011 07987 

16880 A UT01-l,UT0l-l 08024 21 07987 07987 

16890 A UT01-l,UT01-l 08036 21 07987 07987 

16900 A UT01-1,UT01*21 08048 21 07987 08011 

16910 BB 08060 42 00000 00000 

16920 DORG .-g 08062 

16930 •••••• ROUTINE TO EXTRACT NUMERICAL STRIP FROM MONITOR CONTROL 

16940 • CARD READ IN AREA (MONITOR READ IN AREA HAS FLAGS IN EVERY 
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16950 


• 


EVEN DIGIT POSITIONI 


16960 




DC 


5»0tt 






-0000 


16970 


UT03 


TOM 


MDOltOtt 


169S0 




TFM 


MF 02 fMF 03-20 t« 


16990 




A 


MFOltMFOl 1 1 


17000 




A 


MFOlf UT03'-1 > • 


17010 


UT03A 


TF 


UT03B4-8tUT03-l tilt 


17020 




BNR 


• '*-26«UT03B-*'8» t 


17030 




TDM 


MDOl tOt t 


17040 




DORG 


* • t 


17050 




DSC 


1 1 • » t 


17060 




BB 




17070 




DORG 


*-9t f 


17080 




AM 


MF02flt« 


17090 




TD 


MF02tUT03B-t-8,6t I 


17100 


UT03B 


CM 


• ♦8f OfTlOt t 


17110 




BN I 


• <-38» 1200t t 


17120 




BNF 


UT03CtMD01tt 


17130 




TDM 


MDOltlff 1 


17140 




BB 


t • • 


17150 




DORG 


•-9,, 1 


17160 




CM 


UT03B-»-8f 70t lOt 1 


17170 




BNI 


UT03B-»-36t 1300» t 1 


17180 




TDM 


MDOl tOt 11 


17190 


UT03C 


AH 


UT03-1»2 


17200 




c 


UT03-ltMF01 


17210 




BNI 


UT03A,1300 


17220 




CM 


MF02,MF03-19 


17230 




BNI 


•♦48fl200 


17240 




TD 


MF03-18,MF03-19 


17250 




TDM 


MF03-19,0 


17260 




TFM 


MF02,MF03-18 


17270 




SF 


MF03-19 


17280 




BB 




172.90 




DORG 


•-9 


17300 




MONITOR SUBROUTINE TO 


17310 




DC 


5,0 






-0000 


17320 


UT05 


TR 


UTOSB.MAPSCT,, ( 


17330 




A 


UT05B+6,UT05-1,* 


17340 




A 


UT05B4^6,UT05-1,, 1 


17350 




TO 


UT05A«ll,UT05Bt6,, 1 


17360 




TOM 


UT05B«6,0tll, ( 


173T0 




TFM 


I0XX,*^23»« i 


17380 




6 


IOGT»UT05A1«7« I 


17390 




TFM 


UT05-1,0 


17400 


UT05A 


TDM 


UT05-2,XX 


17410 




BB 




17420 




DORG 


•-9 


17430 


UT05A1 


DSC 


2t22 






22 




17440 




OS A 


UT05B 



CALLING SEQUENCE 



TFM MF01,NCHAR 
BTM UTOSfADDR 

WHERE NCHAR IS THE NUMBER OF CHARS. 
IN THE FIELO.ADOR IS THE ADDRESS OF 
THE FIELD -AS IT WOULD BE ADDRESSED 
FOR AN ALPHAMERIC lOP (SECOND DIGIT) 



UPON RETURN* MDOl CONTAINS MINUS ZERO 
IF THE FIELD WAS PURE NUMERIC, PLUS 
ZERO IF BLANK, A RECORD MARK IF IT 
CONTAINED A RECORD MARK, AND PLUS ONE 
IF THE FIELD WAS NON-NUMERIC. 

A ONE DIGIT SOURCE FIELD IS ALWAYS TRANS- 
FERRED INTO A TWO DIGIT OBJECT FIELD. 
SOURCE FIELDS OF MORE THAN ONE DIGIT 
RETAIN THEIR ORIGINAL DIGIT COUNT. THE 
LOCATION OF THE OBJECT FIELD IS GIVEN 
BY MF02 (IT WILL BE IN MF03) 



TO READ A MAP SECTOR INTO 0-99 



CALLING SEQUENCE 

BTM UT05,DIMNUM 
WHERE DIMNUM IS THE DIM ENTRY 

ICH IS DESIRED IN THIS SECTOR. 
UPON RETURN UT05-1 CONTAINS CORE 
ADDRESS OF THE REQUESTED ENTRY 
(•0,20,40,60, 80) 



08066 




3 






15 


09772 


nnnnn 
uuuuu 


08080 


16 


09751 


-9751 


08092 


21 


09746 


09746 


08104 


21 


nalflA 






f s 




0806P 


nfiif n 








nai^i 


1 R 


no777 
09772 


00000 














1 




06 152 






nnnnn 
UUUUU 












1 1 


0975 1 


-0001 


nai AA 


f A 


nalsA 


08186 


na 1 7a 






n?3nn 


nnion 


A7 






08202 


44 


nfl9AA 


ft0775 


08214 


1 5 


09772 


OOOOl 




42 


nnnnn 


nnnnn 
UUuUO 












It 




OOOPO 








01300 




IK 


nQ77 


0000- 




11 


nanAT 






?A 


08067 


09746 


08288 


47 


08116 


01300 


08300 


14 


09751 


-9752 


08312 


47 


08360 


01200 


08 324 


25 


09753 


09752 


08336 


15 


09752 


00000 




\t 






08360 




09752 


nnnnn 
uuuuu 


08372 


A? 


uuuuu 


UUUUU 


08 374 








08378 








06380 








08392 


21 


na^nA 


n«^7Q 




2 1 




naa7a 


08416 




08487 


08504 


08428 


15 


08504 


0000- 


08440 


16 


00565 


-8463 


08452 


49 


00566 


-8490 


08464 


16 


08379 


-0000 


08476 


15 


08378 


00000 


08488 


42 


00000 


00000 


08490 








08490 




2 




08496 




5 


X I 


08496 




-8498 





41 
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17450 




DSC 
( 


1,« 




08497 




1 




17460 


UT05B 


DSC 


20,0 




08498 




20 








00000000000000000000 












17470 




SUBROUTINE TO TYPE A 


MONITOR CONTROL CARD. 










17480 




DC 


5,0 




08522 




5 








-0000 












17490 


UT06 


BNF 


•♦14,MCR02A^11,I1, 


RETURN IF INPUT FROM THE TYPEWRITER. 


08524 


44 


08538 


0415P 


17500 




BB 






08536 


42 


00000 


00000 


17510 




DORG 


• -9 




08538 








17520 




RCTY 




RESTORE TYPEWRITER CARRIAGE. 


08538 


34 


00000 


00102 


17530 




TFM 


UT06A4^11tNCCBUF^ll 


,, DETERMINE LAST NON-BLANK COLUMN OF 


08550 


16 


08581 


J3011 


17540 




B 


UT06B^12,,, 


CARD. 


08562 


49 


08662 


00000 


17550 




DORG 


•-3 




08570 








17560 


UT06A 


BO 


UT06B,XX 




08570 


43 


08650 


00000 


17570 




AM 


UT06A>11,1 




08582 


11 


08581 


-0001 


17580 




BO 


UT06B+12,UT06A^llt 


11 


08594 


43 


08662 


0658J 


17590 




AM 


UT06A^11,1 




08606 


11 


08581 


-0001 


17600 




CM 


UT06A4-11,MCCBUF«160 


08618 


14 


08581 


J3160 


17610 




BNI 


UT06A,1300 




08630 


47 


08570 


01300 


17620 




B 


UT06C 




08642 


49 


08682 


00000 


17630 




DORG 


•-3 




0B650 








17640 


UT06B 


AM 


UT06A4'll,l 




08650 


11 


08581 


-0001 


17650 




TF 


UT06D4-1L,UT06A^11 




08662 


26 


08755 


08581 


17660 




B 


UT06B-44 




08674 


49 


08606 


00000 


17670 




DORG 


• -3 




08682 








17680 


UT06C 


TD 


19998, MCCBUF+1,, 


DUMP INITIAL RECORD MARKS. 


08682 


25 


19998 


13001 


17690 




TD 


19999, MCCBUF+3 




08694 


25 


19999 


13003 


17700 




DNTY 


19998 




08706 


35 


19998 


00100 


17710 




BNR 


•♦14,MCCBUF*5,, 


RETURN IF R.M. IN COL. 3. 


08718 


45 


08732 


13005 


17720 




BB 






08730 


42 


00000 


00000 


17730 




DORG 


•-9 




08732 








17740 




AM 


•♦23,2,, 


SET R.M. AFTER LAST SIGNIFICANT CHAR. 


08732 


11 


08755 


-0002 


17750 


UT06D 


TD 


UT06E4^11,XX 




08744 


25 


08803 


00000 


17760 




TD 


•-1,MCR01A,6 




08756 


25 


0875N 


04485 


17770 




WATY 


MCCBUF^5,,, 


TYPE REMAINDER OF CARD. 


08768 


39 


13005 


00100 


17780 




RCTY 






08780 


34 


00000 


00102 


17790 


UT06E 


TDM 


UT060-t>ll,XX,6, 


RESTORE DIGIT. 


08792 


15 


0875N 


00000 


17800 




BB 






08804 


42 


00000 


00000 


17810 




DORG 


• -9 




08606 








17820 




JOB CLOSE-OUT SUBROUTINE. 










17830 




DC 


5,0 




08810 




5 








-0000 












17840 


UT07 


BO 


•♦14,MC0MM,, 


FORGET IT IF WE HAVEN-T DONE ANYTHING. 


08812 


43 


08826 


02852 


17850 




BB 






08824 


42 


00000 


00000 


17860 




DORG 


• -9 




08826 








17870 




BO 


•♦44,UT07-1,, 


TYPE END OF JOB MESSAGE IF FORCED. 


08826 


43 


08870 


08811 


17880 




TO 


»+23,MC0MM*3,, 


NO -TYPE ONLY IF THE CONTROL CARD 


08838 


25 


08861 


02855 


17890 




BO 


♦♦20,MCD05,, 


SOURCE IS NOT THE TYPEWRITER 


08850 


43 


08870 


10730 


17900 




B 


• ♦20 




08862 


49 


08882 


00000 


17910 




DORG 


• -3 




08870 








17920 




WATY 


MM21 




08870 


39 


10199 


00100 


17930 




RCTY 






08882 


34 


00000 


00102 


17940 




TO 


UT07C,MC0MM^5 




08894 


25 


09152 


02857 


17950 




TDM 


UT07Al*ll,0 




0B906 


15 


09033 


00000 


17960 




B 


♦+20 




08918 


49 


08938 


00000 
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17970 




00 R6 


•-3 




08926 








17980 


UT07A 


34 


UT07Ct701tt 


REFRESH THE COMMON REGION AND THE 


08926 


34 


09152 


00701 


17990 




BI 


• «-12ff 600t f 


OVRLAY READ ROUTINE. 


08938 


46 


08950 


00600 


18000 




Bl 


•♦12»700 




0B950 


46 


08962 


00700 


18010 




BI 


•♦12tl600 




08962 


46 


08974 


01600 


18020 




BI 


•♦I2tl700 




08974 


46 


08986 


01700 


18030 




36 


UT07Ct702 




08986 


36 


09152 


00702 


18040 




BNI 


UT07Btl900 




Q8998 


47 


09090 


01900 


18050 




TO 


•♦23f*«23tllt 




09010 


25 


09033 


0903L 


18060 


UT07A1 


BO 


UT07A«MC011 




09022 


43 


08926 


1 0790 


18070 




HATY 


MM22tt* 


COMPLAIN LOUOLY IF ANY ERROR. 


09034 


39 


10221 


00100 


18080 




WATY 


MM23 




09046 


39 


10307 


OOlOO 


18090 




RCTY 






09058 


34 


00000 


00102 


18100 




H 


» 1 1 


OPERATOR MUST RESET ANO START TO RETRYk 


09070 


48 


00000 


00000 


16110 




B 


UT07A 




09082 


49 


08926 


00000 


18120 




00 RG 


•-3 




09090 








18130 


UT07B 


TOM 


MCOMM«0«f 


INITIALIZE NECESSARY INDICATORS ANO 


09090 


15 


02852 


00000 


18140 




TOM 


MC0MM4>lf Of f 


FIELDS. 


09102 


15 


02853 


00000 


18150 




TOM 


MC0MM-t-2t0 




09114 


15 


02854 


00000 


18160 




TOM 


MI03tlfIi 




09126 


15 


09871 


OOOOJ 


18170 




TO 


IBMMOOf MC0MM«^5 




09138 


25 


00440 


02857 


18180 




BB 


1 1 1 


BOUNCE BACK. 


09150 


42 


00000 


00000 


18190 




00 RG 


•-9 




09152 








18200 


UT07C 


OSC 


Itl 




09152 




1 




18210 




1 

OS A 


OS A 04 




09157 




5 


X 1 












09157 




J9639 




18220 




DC 


3.1 




09160 




3 








-01 














18230 




DC 


6, 402* 




09166 




6 








-0402* 












18240 




SUBROUTINE TO DETERMINE VALIDITY OF A CONTROL CARD FIELD. 










18250 


UTIO 




•♦23,F0,11, 


MOVE CALLING SEQUENCE RECORD. 


09168 


26 


09191 


09620 


18260 




TO 


FltXX 




09180 


31 


09629 


00000 


18270 




AM 


FO.l,, 


COMPUTE NORMAL RETURN ADDRESS. 


09192 


11 


09628 


-OOOl 


18280 




TC 


POINT, F5,, 


INITIALIZE COLUMN TYPE-OUT POINTER. 


09204 


26 


09798 


09634 


18290 




rp 


POINT-1 


INITIALIZE RETURN INO. FLAGS. 


09216 


33 


09797 


00000 


18300 




SF 


Flrt* 


09228 


32 


09629 


00000 


18310 




SF 


F4 




09240 


32 


09632 


00000 


18320 




TFM 


UT10A*23.MCCBUF-1 


,, INITIALIZE CALL TO UT03. 


09252 


16 


09323 


J2999 


18330 






UT10A+23fF5 




09264 


21 


09323 


09634 


18340 




A 


UT10A+23.F5 




09276 


21 


09323 


09634 


18350 






UT10A*11,F6 




09288 


25 


09311 


09636 


18360 


UTIOA 


TFM 


MFOltXX,, 


EXTRACT NUMERIC STRIP IF ANY. 


09300 


16 


09746 


-0000 


18370 






UT03»XX 




09312 


17 


08068 


-0000 


18360 




RNR 


UTIOB, MDOlt. 


NO -CHECK FOR R.M. 


09324 


45 


09368 


09772 


18390 




re 


Fl,,, 


YES -SET INDICATOR. 


09336 


33 


09629 


00000 


18400 




BD 


UTIOE, Fl, 


GO TO ERROR ROUTINE IF NOT ALLOWED. 


09348 


43 


09512 


09629 


18410 




B 


F0,,6 




09360 


49 


09620 


00000 


18420 




00 RG 


•-3 




09368 








18430 


UTIOB 


BO 


UTlOCMOOlf, 


GO TO ALPHA-S TEST IF ALPHAMERIC. 


09368 


43 


09472 


09772 


18440 




BNF 


UT10D,MD01,, 


GO TO BLANK-S TEST IF BLANK. 


09380 


44 


09492 


09772 


18450 




BNF 


F0,F7-4,6, 


NUMERIC -EXIT IF NO MOVE DESIRED. 


09392 


44 


09620 


09637 


18460 




CM 


F6,l,10, 


NUMERIC -MOVE DIGIT OR A FIELD. 


09404 


14 


09636 


000-1 


18470 




BNI 


• 4^24, 1200 


43 


09416 


47 


09440 


01200 
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PAGE 


18480 




TDM 


•♦13,5 




09428 


15 


09441 


00005 


18490 




TF 


F7,MF02,611 




09440 


26 


0964J 


0975J 


18500 




TDM 


♦-11,6 




09452 


15 


09441 


00006 


18510 




B 


F0,,6 




09464 


49 


0962Q 


00000 


18520 




OORG 


•-3 




09472 








18530 


UTIOC 


BO 


UTIOE, F2,, 


60 TO ERROR IF ALPHA-S NOT ALLOWED. 


09472 


43 


09512 


09630 


1 8540 




B 


F0,,6 




09484 


49 


0962Q 


00000 


18550 




OORG 


»-3 




09492 








18560 


UTIOO 


BD 


UT10E,F3,, 


60 TO ERROR IF BLANK-S NOT ALLOWED. 


09492 


43 


09512 


09631 


16570 




B 


F0,,6 




09504 


49 


0962Q 


00000 


18580 




OORG 


•-3 




09512 








18590 


UTIOE 


WATY 


MM39,,, 


TYPE ERROR MESSA6E. 


09512 


39 


10591 


00100 


18600 




WNTY 


POINT-1 




09524 


38 


09797 


00100 


18610. 




WATY 


MM45 




09536 


39 


10677 


00100 


18620 




BO 


UT10F,F4,» 


BRANCH IF PHASE TO BE DELETED. 


09548 


43 


09580 


09632 


18630 




CF 


F4,,, 


SET RETURN IND. 


09560 


33 


09632 


00000 


18640 




B 


FO, ,6 




09572 


49 


0962 Q 


00000 


18650 




OORG 


♦-3 




09580 








18660 


UTIOF 


WATY 


MM40, , • 


TYPE PHASE DELETED MESSAGE 


09580 


39 


10639 


00100 


18670 




RCTY 






09592 


34 


00000 


00102 


18671 




TOM 


MI01,0,,f TURN 


OFF Already read indicator 


09604 


15 


09870 




18680 




B 


MB140,, 


WIND-UP. 


09616 


49 


03688 


00000 


18690 




OORG 


•-3 




09624 








18700 


FO 


DC 


5,0,, 


CALL ANO RETURN VECTOR. 


09628 




5 








-OOOO 












18710 


Fl 


OSC 
0 


ItO,, 


R.M. ERROR. 


09629 




1 




18720 


F2 


OSC 
0 


ltO», 


ALPHA ERROR. 


09630 




1 




18730 


F3 


OSC 
0 


1,0,, 


BLANK ERROR. 


09631 




1 




18740 


F4 


OSC 
0 


1,0,, 


END PHASE ON ANY ERROR. 


09632 




1 




18750 


F5 


oc 

-0 


2t0,, 


STARTIN6 CARD COL. 


09634 




2 




18760 


F6 


OC 
-0 


2t0,, 


FIELD LENGTH. 


09636 




2 




1 8 770 


F 7 


OC 


5,0,, 


MOVE TO ADDRESS FOR NUMERIC DATA. 


09641 




5 








-0000 












1 8780 




OSC 
f 


I,*. 




09642 




1 




18 f 90 


****** 


NON EXECUTE TESTER. 












18600 




DC 


5,0 




09647 




5 








-0000 














UT 1 1 


BD 


•♦24, #-1,, 


PICK THE ENTRY. 


09648 


43 


09672 


09647 


18820 




BNF 


UT11A^12,N0NEX,, 


TEST IF EXECUTE INHIBITOR IS ON. 


09660 


44 


09740 


00457 


18830 




BNF 


•♦20,MC0MM^2,, 


YES -TYPE ONLY IF NOT ALREADY TYPED. 


09672 


44 


09692 


02854 


18840 




B 


UTllA 




09684 


49 


09728 


00000 


18850 




OORG 


•-3 




09692 








18860 




WATY 


MM19 




09692 


39 


10149 


00100 


18870 




RCTY 






09704 


34 


00000 


00102 


18880 




SF 


MCQMM^2,,, 


TURN ON EXECUTION INHIBITOR. 


09716 


32 


02854 


00000 


18890 


uniA 


CF 


NONEX 




09728 


33 


00457 


00000 


18900 




BB 






09740 


42 


00000 


00000 


18910 




OORG 


•-9 




09742 









18920 •••••• HONIIOR SCRATCH FIELDS 
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18930 


HFOl 


DC 5,0 








09746 


5 






-0000 












18940 


MF02 


DC 5*0 








09751 


5 






—0000 












18950 


MP03 


DC 20,0 








09771 


20 






-0 00000000 0000000000 












18960 


MDOl 


DSC 1,0 








09772 


1 


18970 


MD02 


0 

DSC 1,0 








09773 


1 


18980 


MA02 


DSC 20, 0*,, 


HOLDS 


DDA FOR PROGRAM MONITOR IS CALLING. 


09774 


20 






0000000000000000000 • 












18990 


POINT 


DC 5,0,, 


LOOKY 


HERE, 


MA. 


09798 


5 






-0000 












19000 




DSC 1 , • , 








09799 


1 


19010 




tNITIALIZATION RECORDS. 










19020 


IREC 


DSC 2,0 








09800 


2 






00 












19030 




DC 12,-0 








09813 


12 






-0000000000- 












19040 




DC 4,0* , 








09817 


4 






-00* 












19050 


JREC 


DC 1,0 








09818 


1 


19060 




DSC 5,-0 








09819 


5 






0000- 












19070 




DSC 5,-0 








09824 


5 






0000- 












19080 




DSC 5,0*, 








09829 


5 






0000* 












19090 


KREC 


DC 1,0 








09834 


1 


19100 




DC 2,-0 








09836 


2 


19110 




DSC 1,-0 








09837 


1 


19120 




DC 2,-0 








09839 


2 


19130 




DC 2,-0 








09841 


2 


19140 




DSC 1,*, 
• 








09842 


1 


19150 


LREC 


DC 1,0 








09843 


1 


19160 




DSC 2,-0 








09844 


2 






0- 












19170 




DSC 2,-0 








09846 


2 






0- 












19180 




DSC 2,-0 








09848 


2 






0- 












19190 




DSC 1,*, 
■ 








09850 


1 


19200 


MREC 


DSC 19, 0« 








09851 


19 






000000000000000000* 












19210 


• 


THE FOLLOWING INDICATORS ARE NON-ZERO OR FLAGGED IF TRUE. 
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19220 


MtOl 


DSC 1,0,, CNTL CARD READ INO. 


09870 


I 






19230 


MI03 


0 

DSC 1,0,, -JOB- CARD SEARCH IND. 


09871 








19240 




0 

» MONITOR OAC-S 










19250 


MMOl 


OAC 24, ENTER MONITOR CNTL REG.*, 


09873 


24 


X 


2 






ENTER MONITOR CNTL REC* 










19260 


MM02 


DAC 4. JOB • 


09921 


4 


X 


2 






JOB 










19270 


MM03 


DAC 4, TYPE, 


09929 


4 


X 


2 






TYPE 










19280 


MM04 


DAC 4,PAUS, 


09937 


4 


X 


2 






PAUS 










19290 


MHOS 


DAC 4,SPS f 


09945 


4 


X 


2 






SPS 










19300 


MM06 


DAC 4,SPSX, 


09953 


4 


X 


2 






SPSX 










19310 


MM07 


DAC 4, FOR , 


09961 


4 


X 


2 






FOR 










19320 


MM08 


OAC 4,F0RX, 


09969 


4 


X 


2 






FORX 










19330 


MM09 


OAC 4,DUP , 


09977 


4 


X 


2 






DUP 










19340 


MMIO 


DAC 4,XEQ , 


09985 


4 


X 


2 






XEQ 










19350 


MNll 


DAC 4,XEQS, 


09993 


4 


X 


2 






XEQS 










19360 


MM16 


DAC 32, PACK NUMBER ERROR ON MODULE 0. 


10001 


32 


X 


2 






PACK NUMBER ERROR ON MODULE 0. • 










19370 


HM17 


DAC 42, SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.*, 


10065 


42 


X 


2 






SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.* 










19380 


MN19 


DAC 25, EXECUTION IS INHIBITED. >, 


10149 


25 


X 


2 






EXECUTION IS INHIBITED. • 










19390 


MN21 


DAC 11, END OF JOB*. 


10199 


11 


X 


2 






END OF JOB* 










19400 


MM22 


DAC 43, CANNOT RESTORE COMMON -RESET AND START TO *, 


10221 


43 


X 


2 






CANNOT RESTORE COMMON -RESET AND START TO • 










19410 


MM23 


DAC 6, RETRY*, 


10307 


6 


X 


2 






RETRY* 










19420 


MM25 


DAC 10, EXECUTION*, 


10319 


10 


X 


2 






EXECUTION* 










19430 


MM26 


OAC 21, JOB CARD GROUP ONLY*, 


10339 


21 


X 


2 






JOB CARD GROUP ONLY* 










19440 


MM30 


DAC 12, MUST RELOAD*, 


10381 


12 


X 


2 






MUST RELOAD* 










19450 


MM31 


DAC 18, CONDITION IGNORED*, 


10405 


18 


X 


2 






CONDITION IGNORED* 










19460 


HM32 


DAC 8,C0MPARE», 


10441 


8 


X 


2 






COMPARE* 










19470 


MM33 


DAC 12, -ENTER CARD*, 


10457 


12 


X 


2 






-ENTER CARD* 










19480 


MM36 


DAC 18, SYSTEM DIM ERROR *, 


10481 


18 


X 


2 






SYSTEM DIM ERROR • 










19490 


MM37 


DAC 18, OBJECT DIM ERROR 


10517 


18 


X 


2 






OBJECT DIM ERROR • 










19500 


MM38 


OAC 19, OBJECT NAME ERROR *, 


10553 


19 


X 


2 



OBJECT NAME ERROR • 
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19510 MM39 
19520 MM40 



DAC 24»ERR0R IN FIELD AT COL. 
ERROR IN FIELD AT COL. • 
DAC 19, PHASE TERMINATED. », 
PHASE TERMINATED. • 



10591 
10639 



24 X 

19 X 



19530 


MM45 


OAC 3». *, 










10677 


3 


19540 




FOLLOWING ARE MONITOR-S QUICK 


AND 1 


DIRTY DIGIT DECODERS. 






19550 




OORG SYSORG'i-8288 










10690 




19560 


MCDOl 


DSC 2,-01 










10690 


2 






OJ 














19570 




DSC 8,01010000 










10692 


8 






OlOiOOOO 














19580 


MCD02 


OS 0,»*l 










10700 


0 


19590 




DC 2,6 










10701 


2 


19600 




-6 

DC 2,8 
-8 










10703 


2 


19610 




DC 6,100000 










10709 


6 






JOOOQO 














19620 


MCD03 


DSC 10,0010000000 










10710 


10 






OOlOQOOOOO 














19630 


MCD04 


DSC 10,0101010100 










10720 


10 






OlOlQlOlOO 














1 9640 


MCD05 


DSC 10,0001010000 










10730 


10 






0001010000 














19650 


nCD06 


DSC 10,0000000000 










10740 


10 






0000000000 . 














19660 


MCD07 


DSC 10,0124444444 










10750 


10 






0124444444 














19670 


MC008 


DSC 10,0443444444 










10760 


10 






0443444444 














1 9680 


MCD09 


DSC 10,1357911111 










10770 


10 






1357911111 














19690 


MCDIO 


DC 2,-50 










10781 


2 






N- 














1 9700 




DC 2,-55 










10783 


2 






NN 














19710 




DC 2,-60 










10785 


2 






fl- 














19720 




oe 2,-65 










10787 


2 






ON 














19730 




OC 2,-70 










10789 


2 


19740 


MCOll 


P- 

DSC 10,1234567890 










10790 


10 






1234567890 














19750 




SYSTEM DIM ENTRY 


SECTOR -THESE 


OOA-S ARE 


PICKED UP 






19760 




OORG SYS0RG^8400, 


BY THE 


COLO 


START 


ROUTINE. 


10802 




19770 


SPSOOA 


OSC 1,0,, 


DOA FOR SPS ASSEMBLER. 


10802 


1 


19780 




0 

OSA 0 










10807 


5 



19790 
19800 



OC 3,0 
-00 

OSA 0,0 



10807 
10810 



-0000 
3 
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10815 
10820 



-0000 
-0000 



19810 




OSC 






10821 




1 


19820 


FOROOA 


DSC 


1*0,, 


DOA FOR FORTRAN COMPILER. 


10822 




1 


19830 




0 

OSA 


0 




10827 




5 












10827 




-0000 


19840 




OC 


3tO 




10830 




3 






-00 












19850 




OSA 


0,0 




10835 




5 












10835 




-0000 












10840 




-0000 


19860 




OSC 
t 


1,», 




10841 




1 


19870 


OUPODA 


OSC 


1.0,, 


OOA FOR OUP SUPERVISOR. 


10842 




1 


19880 




0 

OSA 


0 




10847 




5 












10847 




-0000 


19890 




OC 


3,0 




10850 




3 






-00 












19900 




OSA 


0,0 




10855 




5 












10855 




-0000 












10860 




-0000 


19910 




OSC 
• 


l.'t 




10861 




1 


19920 


EQUDDA 


OSC 


ItO,, 


ODA FOR EQUIVALENCE TABLE. 


10862 




1 


19930 




0 

OSA 


0 




10867 




5 












10867 




-0000 


19940 




OC 


3.0 




10870 




3 






-00 












19950 




DC 


6.0* 




10876 




6 






-0000* 










19960 




lORT LOAD PROCESSOR 


FOR NAMED PROGRAMS SECTION 2 








19970 




OORG 


SYSORG-i-8500 




10902 






19980 


ABOO 


BNF 


AB05.AA02A^5.. 


TEST FOR A SPECIFIED LOAD ADDRESS. 


10902 


44 


11134 


19990 




TF 


AA04>ll»AA02A4-4.» 


YES -MOVE TO CALLING PARAMETER RECORD. 


10914 


26 


00295 


20000 


ABOl 


SF 


AA02A>5.,. 


INITIALIZE SCAN. 


10926 


32 


00234 


20010 




TFM 


I0XX,«-i-23 




10938 


16 


00565 


20020 




B 


I0SK,AB08,7 




10950 


49 


00554 


20030 




TF 


AB09A*5,MAPENT*5 




10962 


26 


11385 


20040 




TO 


AB09A,TEMP-5 




10974 


25 


11380 


20050 




TO 


AB10^411.AB09,, 


SET A GROUP MARK FOR LOOP TEST. 


10986 


25 


11807 


20060 


AB02 


TFM 


tOXX,*^23., 


READ 4 EQUIVALENCE TABLE SECTORS. 


10998 


16 


00565 


20070 




B 


I0GT,AB084^8,7 




11010 


49 


00566 


20080 




TFM 


AB03^11,AB10>11,, 


INITIALIZE 4 SECTOR SCAN. 


11022 


16 


11045 


20090 


A803 


8NR 


•♦32, XX., 


TEST IF TABLE IS EXHAUSTED. 


1 1034 


45 


11066 


20100 




TFM 


BKPT,AB01 




11046 


16 


00467 


20110 




B 


ERROR+72 




11058 


49 


00702 


20120 




OORG 


•-3 




11066 







00234 
00233 
00000 
J0961 
J1363 
02149 
02014 
11379 
J 1021 
J1371 
J 1407 
00000 
J0926 
00000 
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20130 




C 


AB03^11tAA02A«>16t 


6 • COMPARE CURRENT ENTRY. 


11066 


24 


1104N 


00245 


20140 




BI 


AB06f 1200t» 


BRANCH IF FOUND* 


11078 


46 


11154 


01200 


20150 




AM 


AB03«lltl6,, 


NO -ADVANCE ADDRESSING. 


11090 


11 


11045 


-0016 


20160 




55 


AB03f AB03«11«11« 


TEST IF 4 SECTORS EXHAUSTED. 


11102 


55 


11034 


1104N 


20170 




AN 


AB09A4-5t4tt 


YES -INCREMENT SECTOR ADDRESS. 


11114 


11 


11385 


-0004 


20180 




B 


AB02 




11126 


49 


10998 


00000 


20190 




00 RG 


•-3 




11134 








20200 


AB05 


TF 


AA02A^16,AA02A«12 


••MOVE NAME FOR NO LOAD ADDRESS CASE. 


11134 


26 


00245 


00241 


20210 




B 


ABOl 




11146 


49 


10926 


00000 


20220 




00 RG 


•-3 




11154 








20230 


AB06 


AM 


AB034-ll«4tt 


MOVE FOUND DIM ENTRY. 


11154 


11 


11045 


-0004 


20240 




TF 


AA04^6f AB03«11»11 




11166 


26 


00290 


1104N 


20250 




BNF 


•♦24.AA02A426,, 


TEST IF REPOSITIONING DESIRED. 


11178 


44 


11202 


00255 


20260 




SF 


AA04»,» 


YES -SET INDICATOR. 


11190 


32 


00284 


00000 


20270 




BO 


•♦24«AA02A^26«, 


TEST IF EXECUTION DESIRED. 


11202 


43 


11226 


00255 


20280 




SF 


AA04«lfffff 


YES -SET INDICATOR. 


11214 


32 


00285 


00000 


20290 




TR 


0»AB07tt 


OVERLAY SECTION 1 MITH TERMINATION 


11226 


31 


00000 


11246 


20300 




B 


0>t» 


ROUTINE. 


11238 


49 


00000 


00000 


20310 




□ORG 


•-3 




11246 








20320 


AB07 


TFM 


I0XX,23»» 


RESTORE CORE. 


11246 


16 


00565 


-0023 


20330 




B 


IOGTtAA03»7 




11258 


49 


00566 


-0261 


20340 




TFM 


0FILE4^11«TTlf • 


DUMMY UP A GET ENTRY TO lORT. 


11270 


16 


01945 


-1756 


20350 




TF 


I0XX«AA02A4-23 




11282 


26 


00565 


00252 


20360 




TR 


CNTHD*AA04 




11294 


31 


02170 


00284 


20370 




TFM 


OLDCYi-lfMCVLtt 


SET UP TO RESTORE MPY TABLE AND 


11306 


16 


02132 


-0098 


20380 




TFM 


HALT4-6tX0l436tt 


EXECUTE LOAD. 


11318 


16 


00462 


-1886 


20390 




TR 


0L0DA,103 




11330 


31 


00441 


00103 


20400 




B 


OVRLAY,OSA01»« 


YOU-RE ON YOUR OWN NOMt BOY. 


11342 


49 


00468 


19635 


20410 




DC 


3,3 




11356 




3 








-03 














20420 




OC 


6»0* 




11362 




6 








-0000* 












20430 


AB08 


DSC 


3t220 




11363 




3 








220 














20440 




DC 


4.2 




11369 




4 








—002 














20450 




OSC 


It* 




11370 




1 




20460 




DSC 


2t22 




11371 




2 








22 














20470 




OS A 


AB09A 




1 1377 




5 


X 1 












11377 




JI380 




20471 




OSC 


It* 




11378 




I 




20460 


AB09 


DSC 


ItOtt 


GROUP MARK FOR TEST. 


11379 




1 




20490 


A609A 


0 

OSC 


Itl 




11380 




1 




20500 




1 

OS A 


6 




11385 




5 


X I 












11385 




-0000 




20510 




DC 


3t4 




11388 




3 








-04 














20520 




OS A 


ABIO 




1 1393 


















'i. J 
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11393 




JI396 




20530 




DSC 
t 


It* 




11394 




I 




20540 


ABIO 


00 


1 1 * 


READ BUFFER FOR FOUR SECTORS. 


11396 


00 


00000 


00000 


20550 




DORG 


19982, 


CONTROL TO WRITE ON DISK. 


19982 








20560 




DSC 


l.l 




19982 




1 




20570 




1 

OS A 


0SA08 




19987 




5 


X 1 












19987 




J9659 




20580 




OC 


3t90 




19990 




3 








-90 














20590 




OS A 


SYSORG 




19995 




5 


X 1 












19995 




-2402 




20600 




DSC 
• 


It* 




19996 




I 




20610 




DEND 






00000 









5U 
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APHASE 


01612 


ABOO 


10902 


0SA21 


19630 


JR 


01141 


MC004 


10720 


BIGTRB 


00766 


ABOl 


10926 


DSA39 


19663 


JTEST 


01010 


MC005 


10730 


CYLOVF 


00802 


AB02 


10998 


0SA40 


19743 


KREC 


09834 


MC006 


10740 


DIMENT 


00402 


AB03 


11034 


DSASO 


17024 


LAOOR 


00439 


MCD07 


10750 


OUPODA 


10842 


AB05 


11134 


OSASI 


19600 


LCAOl 


00072 


MC008 


10760 


EMSGIO 


01079 


AB06 


11154 


E0030 


00630 


LCA02 


00132 


MCD09 


10770 


EMSGll 


01085 


AB07 


11246 


E0040 


00736 


LCA03 


00273 


MCDIO 


10781 


EMSG13 


01211 


AB08 


11363 


E0050 


00806 


LCA04 


00120 


MCDll 


10790 


EMSG20 


01091 


AB09A 


11380 


E0070 


00838 


LCA06 


00180 


MCOMM 


02852 


EMSG21 


01083 


AB09 


11379 


ED080 


00922 


LCA07 


00223 


MCROl 


04098 


EQUDDA 


10862 


ABIO 


11396 


E0090 


00956 


LCA08 


00237 


MCR03 


04218 


FORODA 


10822 


AJOB 


01600 


E0095 


01016 


LCA09 


00245 


MCR04 


04334 


HOLLER 


01388 


Bl 


01579 


EOlOO 


01050 


LCBOl 


00092 


MCR05 


04602 


I BMMOD 


00440 


BBUFF 


01230 


ECALL 


01793 


LCB02 


00200 


MCR06 


04965 


tBMWRT 


01022 


BKPT 


00467 


EEXIT 


01636 


LCB08 


00255 


MCYL 


00098 


LCA02A 


00253 


BNI 


00492 


EMSGl 


01785 


LCB09 


00263 


MOOI 


09772 


LCA06A 


00204 


CHECK 


01268 


EMSG2 


01155 


LCBIO 


00278 


MD02 


09773 


LDINPT 


00428 


CHEKl 


01340 


ENS63 


01055 


LRA02 


00176 


MDOA 


01779 


MAPENT 


02144 


CHEK2 


01376 


EMSG4 


01061 


LRA05 


00269 


MDPOl 


06836 


MAPSCT 


01835 


CHKl 


00880 


ENSG5 


01067 


LRA06 


00283 


MERR 


00878 


MB080A 


03376 


CHK2 


01344 


EMSG6 


01073 


LREC 


09843 


MESl 


00811 


HBllOA 


03S52 


CHK3 


01380 


EMS67 


01079 


HAOOO 


02402 


MES2 


0O933 


MBllOB 


03596 


CHK4 


01412 


EQUIV 


02123 


NAOlO 


02546 


MESSG 


00954 


MCAOOA 


00079 


CINIT 


00427 


ERRB 


01815 


NA020 


02769 


MFOl 


09746 


MCCBUF 


13000 


CNTHD 


02170 


ERRET 


00602 


MA 02 5 


02777 


MF02 


09751 


MCROIA 


04485 


COMM 


02802 


ERROR 


00630 


HBOOO 


02902 


MF03 


09771 


MCR02A 


04146 


COUNT 


01131 


FO 


09628 


NBOlO 


03022 


MFTOl 


06580 


MCR04A 


04474 


DCDE 


01058 


Fl 


09629 


HB020 


03082 


MFT02 


06600 


MCR05A 


04658 


DFILE 


01934 


F2 


09630 


NB025 


03150 


MFT03 


06764 


MFT05B 


06808 


DIOl 


00972 


F3 


09631 


NB030 


03172 


MlOl 


09870 


MFT05C 


06822 


OtOP 


02020 


F4 


09632 


MB 03 5 


03192 


MI03 


09871 


MJB02A 


05090 


010 


00820 


F5 


09634 


MB 040 


03240 


MJBOl 


04974 


MJB02X 


05058 


OIOX 


01028 


F6 


09636 


MB045 


03284 


MJB02 


04986 


MJB03A 


05116 


DlOY 


00928 


F7 


09641 


MB080 


03304 


MJB03 


05104 


MJB03B 


051 60 


OIOZ 


01128 


FSPS 


00429 


MB081 


03420 


MJB04 


05172 


MJB12A 


05512 


DOVFL 


01134 


GDGO 


00864 


MB 100 


03452 


MJBIO 


05280 


HJB13A 


05568 


DRIVE 


02169 


GTEST 


01160 


MBllO 


03496 


MJBIL 


05396 


MJBISA 


05708 


DSAOO 


19600 


HOI 


01424 


MB 140 


03688 


MJB12 


05420 


HJB50A 


06200 


DSAOl 


19635 


H03 


01460 


MB 145 


03720 


MJB13 


05544 


MJB55A 


06214 


DSA02 


19636 


H04 


01484 


MB 190 


03740 


MJB15 


05604 


MONCAL 


00796 


DSA04 


19639 


HALT 


00456 


MB195 


03752 


MJB17 


05960 


MSP05A 


06523 


D$A06 


19640 


HIGH 


00434 


MB200 


03764 


MJB20 


06056 


MSP058 


06537 


DSA07 


19656 


INDS 


00610 


MB210 


04016 


MJB21 


06148 


MSP05C 


065 5 L 


DSA08 


19659 


INOUT 


00629 


MB220 


04040 


MJB22 


06156 


MSP05D 


06565 


DSA09 


19744 


lOCAL 


00716 


MB222 


04048 


MJB23 


06164 


MXQ03A 


07120 


DSAIO 


19749 


I OCT 


00566 


MB225 


04063 


MJB30 


06180 


MXQ03B 


07176 


OSAll 


19761 


lOPA 


01010 


MB226 


04077 


MMOl 


09873 


MXQ06A 


07368 


DSA12 


19786 


I OP 


01958 


MCAOO 


00052 


MM02 


09921 


MXQ06B 


07416 


DSA13 


19772 


I OPT 


00532 


MCAOl 


00208 


MH03 


09929 


MXQ06C 


07440 


0SA14 


19777 


lORBC 


00520 


MCA03 


00100 


MM04 


09937 


NEWOOA 


01160 


DSA15 


19783 


lOSK 


00554 


MCA04 


00071 


MM05 


09945 


OVRLAY 


00468 


DSA16 


19767 


lOXX 


00565 


MCA05 


00241 


MM06 


09953 


AA02A 


00229 


DSA17 


19770 


IREC 


09800 


MCA06 


00250 


MM07 


09961 


AA02 


00120 


DSA18 


19792 


JA 


00984 


MCOOl 


10690 


MMOB 


09969 


AA03 


00261 


DSA19 


19795 


JOFF 


01036 


MC002 


10700 


MM09 


09977 


AA04 


00284 


0SA20 


19798 


JREC 


09818 


MC003 


10710 


MMIO 


09985 
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MM 11 

MM16 

MM17 

MM 19 

MM21 

MM22 

MM23 

MM25 

MM26 

MM30 

MM31 

MM32 

MM33 

MM36 

MM 37 

MM38 

MM39 

MM40 

MM45 

MR02 

MREC 

MSPOl 

MSP02 

MSP03 

MSP04 

MXQOl 



09993 
lOOOL 
10065 
10149 
10199 
10221 
10307 
10319 
10339 
10381 
10405 
10441 
10457 
10481 
10517 
10553 
10591 
10639 
10677 
09774 
09851 
06228 
06248 
06460 
06504 
069 40 



MXQ02 

MXQ03 

MXQ04 

MXQ05 

MXQQ6 

MXQ07 

MXQ08 

MXQ09 

MXQIO 

MXQll 

MXQ12 

MXQ13 

MXQ20 

MXQ50 

MXQ55 

NEXT 

NIOP 

NOERR 

NONEX 

OLDCY 

OLODA 

OTEST 

POINT 

RCALL 

RDIMl 

ROIM 



06972 
07108 
07224 
07256 
07348 
07448 
07508 
07620 
07640 
07672 
07704 
07748 
07828 
07843 
07857 
00969 
01066 
00654 
00457 
02131 
00441 
00766 
09798 
01807 
00834 
00786 



RDVCD 

REPOS 

RETN 

RETRY 

RMl 

RM2 

RMAP 

RNAM 

SEEK 

SETX 

SIOP 

SIOXX 

SKOl 

SK02 

SK03 

SK04 

SRAOl 

SRA02 

SRA03 

STEPS 

TEETH 

TEMP 

TEST 

TTl 

UTOl 

UT03A 



01002 
00512 
01680 
01042 
02210 
02215 
00962 
00718 
01500 
01316 
01802 
01250 
01480 
01608 
01712 
02143 
00072 
00060 
00152 
01200 
01211 
02019 
00630 
01756 
07988 
08116 



UT038 

UT03C 

UT03 

UT05A 

UT05B 

UT05 

Ur06A 

UT06B 

UT06C 

UT06D 

UT06E 

UT06 

UT07A 

UT07B 

UT07C 

UT07 

UTIOA 

UTIOB 

UT IOC 

UTIOD 

UTIOE 

UTIOF 

UTIO 

UTllA 

UTll 

MRTCT 



OfllTB 
08264 
08068 
08476 
0 8498 
08380 
08570 
08650 
08682 
08744 
08792 
08524 
08926 
09090 
09152 
08812 
09300 
09368 
09472 
09492 
09512 
09580 
09168 
09728 
09648 
00722 



WTEST 

XOl 

X03 

X04 

XX 

Y07A 

YIOB 

Y07 

YOIA 

YOO 

ZOll 

ZOl 

Z02 

Z03 

Z04 
SAVDDA 
SFDINT 
SPSDDA 
SPSMLP 
SRELOC 
SUPENT 
SUPRET 
SYSCAL 
SYSORG 
UT05AI 
UT07AI 



00710 
01850 
01084 
01216 
00000 
01130 
00978 
01118 
00954 
00678 
00750 
00842 
00886 
00930 
00986 
01175 
00426 
10802 
00468 
00425 
02934 
01821 
00475 
02402 
08490 
09022 



END OF ONE ASSEMBLY, 
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00120 OORG 2500 

00130 • WRITE SEGMENT 1 OF LOADER ON DISK. 

00140 TRYl 34 OCONTltTOl 

00150 38 OCONT 1,702 

00160 BNt RIGHT 1,1900 

00170 H 

00180 B TRYl 

00190 RIGHTl TRA 

00200 OCONTl DSC 9,119600009 
119600009 
DSA CAROIN-10 



00220 DORG 502 

00225 FAKE DC 2,0 
-0 

DISK INPUT PROGRAM. IF CARD INPUT, BRING IN SEGMENT 2. 
B LOADER 
DORG •-^ 

INPUT CONTROL FOR DISK INPUT. DDA IS AT CNTLt CYLOV IS LOCATION 
OF CYLINDER OVERFLOW ROUTINE, LD 3 IS ERROR MESSAGE, OK IS 
NORMAL EXIT. 



00230 t 
00240 
00250, 
00260 i 
00270 < 
00280 * 
00290 NORM 



00300 

00310 
00320 

00330 



DC 
P 

DSA 



lt7 



CNTL, CYLOV 



DC 
P3 
DSA OK 



2.73 



DC 



It 



00340 • SECTOR ADDRESSES AND COUNTS FOR DISK INPUT. 
00350 CNTL I DC 8,00100200 

-0100200 
00360 CNTL2 DC 8,00200100 

-0200100 
00370 CHJ DC 8,00300000 

-0300000 

00380 • CYLINDER OVERFLOW ROUTINE. 

00390 • IF OVERFLOW OCCURRED, UPDATE ARM POSITION CODE FOR IOCS. 
00400 CYLOV AM ARM, 1,10 



00410 • 
00420 
00430 
00440 
00450 
00460 

00470 MORE 
00480 

00490 DORG •-3 

00500 • NORMAL EXIT. INCREMENT SECTOR ADOR 



AM 
BO 
B 



READ ONE OR TWO SECTORS FROM NEXT CYLINDER, AND CONTINUE. 
TF DIS-1 ,CNTL2 
CNTL*5,1 
M0RE,CNTL*5 
DIS 
DORG •-3 

TF OIS-1 ,CNTLl 
B CYLOV+24 



BY 3, DECREMENT COUNT BY 3, 



02500 


34 


02584 


00701 


02512 


38 


02584 


00702 


02524 


47 


02960 


01900 


02536 


48 


ononn 


nnnnn 

WW VwV 


02948 


49 


02500 


00000 


02560 


36 


00000 


00500 


02572 


49 


00000 


00000 


02584 




9 




02597 




5 


X 1 


02597 




-0502 




00502 








00503 




2 




00504 


49 


01266 


00000 


00511 








00511 








00516 






X 2 


00516 




-0920 




00521 




-0554 




00523 




2 




00528 








00528 




0630 




00529 








00537 




8 




00545 








00553 




8 




00554 


11 


00464 


000-1 


00566 


26 


00933 


00545 


00578 


11 


00925 


-0001 


00590 


43 


00610 


00925 


00602 


49 


00934 


00000 


00610 








00610 


26 


00933 


00537 


00622 


49 


00578 


00000 


00630 
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00510 • 60 TO BEGIN PROCESSING INPUT. 

00520 OK TO 0K*23,DIS-6 

00530 AM CNTL^5,XX 

00540 SM MAPENT4^8,3,9 

00550 B FIN 

00560 OORG •-2 

• CONTROL TO BRING IN SEGMENT 2. 
00590 DC 1,7 

P 

DSA C0NT2, CYLOV 



25 
11 
12 



00630 
00642 
00654 
00666 49 
00675 

00675 

00680 



00653 00928 

00925 -0000 

00410 00-03 

01092 00000 



1 

5 X 



00610 
00620 



DC 2,74 
P4 

DSA CARD IN 



00630 • DDA TO BRING IN SEGMENT 2. 
1»« 



TRANSMITTED TO OUT BEFORE USAGE. 



00640 

00650 
00660 



DC 

DC 1,0 
OSA CAROAD 



00680 
00685 
00687 

00692 

00692 

00693 

00694 

00699 



-0694 
-0554 
2 

5 X 
-0512 
1 
I 

5 X 



00670 



DSC 3,3 
003 

DSA CARDIN-10 



00699 
00700 



J9609 
3 



00707 
00708 



-0502 
1 



00700 • ADDRESS TO BRANCH TO AFTER DISK READ ERROR. 
00710 DSA DIS 



LOAD ADDRESS FOR INPUT. 
DC 5,0 

-0000 

00740 • FOR DISK INPUT, HAS CHARACTER COUNT REACHED 300... 
CM CHAR I, 300 
BNE •♦32 
IF SO, GET MORE INPUT. 
TFM CO 
B DISK 
OORG •-3 

IF NOT, ARE WE READY FOR A NEW 75-CHARACTER GROUP... 
C CHAR1,C 
BNE BEGIN 
B HERE,, 7 
DORG •'3 

00860 • INPUT CONTROL FOR CARD INPUT. 0 IS INPUT LOCATION, ERR IS ERROR 
00870 • ROUTINE, LD 2 IS ERROR MESSAGE, CEND IS NORMAL EXIT. 
00880 READ DSC 1,0 



00720 
00730 



00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 



00713 
00713 
00718 



00720 
00732 



00764 
00776 
00788 
00796 



14 
47 



5 X 
-0934 
5 



00863 -0300 
00764 01200 



00744 16 
00756 49 
00764 



00439 
00864 



-0000 
00000 



00863 00439 
01164 01200 
01116 -0000 
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00890 


OS A Of ERR 


noftni 
* 




_ 








00801 




-0000 








00806 




-1030 




00900 


OC 2,72 


00808 




2 






P2 










00910 


OS A CENO 


00813 




5 


X 1 










-0556 




00920 


OC I , • 










00930 


* Tn ARtNf^ IN ^FftMPMT 7. TBAMCMtt IMPIIT mNTSni AMD nflA 












niiT Tn rntiiTO adiia.i 

U U 1 1 U V« UN 1 ^ , A K 1 


00816 


25 


00694 


00465 


00 




00828 


31 


01073 






TFM C *0^^ 


nnR^9 


io 




^0000 


00970 


D U t i 4C 




49 


nnoAA 
00946 


UUOUU 


00960 


DO R G * 4 


00859 








00990 


* CHARACTER COUNTER* 










01000 


CHARl OC 5,0 


00863 




















01 ni n 
ni ft^n 


• nf^K tMPilT. PYTT UMPM <iPrTf1ll milMT tC TPOM 

* uiois ill fu i • • c A 1 1 nncii dCiriuK (•uurai id ^cku* 












u t oi\ nArciN 1 , u, Tf 








nn 


ni nin 


BNH SIX 


00876 


A7 

47 


02206 


ni Tnn 




• NIIT 7PRn •» TRAN<:MrT IMPIIT mMTRni AMD a—ccrmp nriA 
» 11 u 1 ccixu ^ innnonii inrUi vurtinut. Am/ j scvIUK uua* 










ni n«5n 




nnaofi 
uuooo 








01060 


TP ni^— 1 .TMT 


00900 


9A 

fa 


nnoaa 
-no^A 


00553 


01070 


B DI S , , 2 


nnoln 






nonnn 














01090 


• DDA PriR nt^K TMPIIT UARrARIP milMT AMH mQP AnDRIPCC TH UAMDI P 










01 too 


• rviiNnPR nvpRPi nu 










01 1 10 




00920 










UUUUUU 














00933 










— nnnnonn 

UUUUUUV/ 










01 130 


« INPUT RnilTtMP. CPPK. APT IMPIIT flPVITP. BFAH. TMPriC PflB FRRnQ 










01 140 




nnof A 


_ 

9^ 






01150 








00967 


01073 


01 160 




nnq^R 


Z2 


01 070 


00702 


01 170 






AT 










nnoof 


2a 


00994 


00600 


01190 


ni Ann 




22 






01200 


Ri •4>v 9.1 7nn 


01006 


46 


01018 


01700 


01210 


BI CIN,3800,6 


01018 


46 


0108L 


03800 




• FRRnn RniiTiMP uritp in y. mai t. rprpad 










01230 


FRR TP <TnP4><3.n 


ni nan 
ni nf 9 


26 


ni nAi 


_ 




matv ^TnP4') 

WA IT O i UrT 3 






^'«AAn 


00100 


01250 


d 1 ur n 3J"»*,vi 




Aft 


93440 


nnnnn 






ni nAi 








ni ?7n 




01061 










0000* 










01280 


RATK R ni^KY^.A 
DA\#^ D Utd<VA,,0 


01066 


49 


0071L 


yUUUU 


01290 


OORG •-4 


01073 








01300 


• INPUT CONTROL. DEVICE CODE, CORE AODR. FOR INPUT, ERR ROUTINE, 










01310 


• ERROR HESSG, NORMAL EXIT. 










01320 


A OC 1,0 


01073 




1 






lA9n_l4f 1 Mnkiffno ttiriAnea 
10£U"Utl nUNI 1 UK I ILOAUCK 


55 






PAGE 


01330 


R nr •» - n 


■ 

01078 




5 






-0000 










01340 


CIN OC 5,0 


01083 




5 






—0000 










01350 


—0 


01085 




2 




01360 


€ OC 6,0* 


01091 




6 






-OOOO* 










01370 


* BEGIN PROCESSING A TS—CHARACTER GROUP* 










01380 


FIN TF CHARl, C 




9A 


00863 


00439 


01390 


• IF THIS IS FIRST GROUP* mMPUTF RFLCnN. UNI PC^ RFTllRNIMf: FBnM T^n 










01400 


RCON BNF TO ,TCO 


0 1 104 


44 


01 176 


00428 


01410 


TF RELCON, HIGH 








00434 


01420 


SF FIN 


01128 


32 


01092 


UUOOO 


01460 


• *sFT i nu Tfi pir<:t AnnBF^*c hn ptp^t rABnpiiic ppi rnM 










01470 


7PRn TP 1 nu.4 


01140 


26 


00444 


00004 




BNR •4-74 .MAPFNT4-14 


01152 


45 


01 176 


00416 




TF MAPENT^13,L0M 


01164 


26 


00415 


00444 


01480 


• RESET TCD INDICATOR* 










01490 


TO SF TCD 


ni 17A 
01176 




00428 


uuuuu 


01520 


» TO BRING IN SEGMENT 3, TRANSMIT INPUT CONTROL AND ODA* 












11/ V U(l 1 J f Al\n~ 4. 




25 


01 250 


00465 


01540 


TR A,RPROG 


0 1200 


31 


01073 


01231 


01 550 


TR niiT .rnNTi 

i wui ,ounii J 


01212 


31 


00816 


01250 


01 560 


B 0 1 S 


01224 


49 


00934 


00000 


01570 


DORG •-4 


01231 








01580 


• INPUT CONTROL FOR SEGMENT 3. OUT IS ODA, LO 4 IS ERROR MESS6, 










01590 


• RCON IS NORMAL RETURN. 










01600 


RPROG DC 1,7 
P 


01231 




I 




01610 


OSA OUT ,CYLOV 


ni ?^A 




_ 
■* 


9 






01236 




-0816 








01241 




-0554 




01620 


DC 2 , 74 


01243 




2 






P4 










01630 


OSA START 


01248 




5 


X 1 






01248 




—0720 




01640 


DC 1 , * 


0 1 249 




1 




01650 


• DDA FOR SEGMENT 3. 










01660 


C0NT3 DSC 9,019612012 


01250 




9 






019612012 










01670 


OSA RCON-2 


01263 




5 


X 1 










— 1 102 




01680 


DSC 1,* 


01264 








01690 


• LOGICAL START OF LOADER* IF INPUT IS FROM CARDS, GET SEGMENT 2. 












LOADER TD CNTLI ,ITAB 


niPAA 




ni *9fl 






Tn ARMI-I.ITAR 
f IJ Ar\H'l,tlAD 


0 1 278 


25 


00465 


00440 


01 


TR A,INIT 


01290 


31 


01073 


01309 


01 


B DIS*12 


01302 


49 


00946 


00000 


01 


DORG 


01309 








01 


IN IT OC 1,7 


01309 




1 





p 



56 
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01 


OS A CNTLIfCYLOV 


0I3U 




9 


X 2 






01314 




-1328 








01319 




-0554 






DC 2t 74 


01321 




2 






P4 










01 


USA TRANa 








X 1 










— 1342 




01 


DSC I , • 
t 


01327 




1 




01 


CNTLI DSC ItO 


01328 




1 




01 


0 

OS A SYSSCT 


01333 




5 


X 1 






01333 




J9663 




01 


DC 8f 100000 


01341 




8 






-0100000 










01 


TRANS TR C0MMt84 


01342 


31 


00440 


00084 


01700 


BD OUT tlOMED 


01354 


43 


00816 


00428 


01710 


m. te tikiikil.T ennM ntcir f^cT ctocT ccrvno Anno amh fin Tn ttCAn ntcv 
* Ir INPUT rKOn UlsRf wC 1 rlKal dCUlUK AUUK* ANU uU lU KCAU UtdK* 










01720 


TF CNTL«5»MAPENT4-5«» DISK INPUT 


01366 


26 


00923 


00407 


01725 


TO CNTLtMAPENT 


01378 


25 


00920 


00402 


01730 


B DISK 


01390 


49 


00864 


00000 


01740 


DORG •-3 


01398 








01750 


TCD TRY I 


02500 








01760 


DORG 2500 . 


02500 








01770 


• WRITE SEGMENT 2 OF LOADER ON DISK. 










017B0 


TRY2 34 DC0NT2»701 


02500 


34 


02584 


00701 


01790 


38 0C0NT2.702 


02512 


38 


02584 


00702 


01800 


BNI RIGHT2.1900 


02524 


47 


02560 


01900 


01810 


H 


02536 


48 


00000 


00000 


01820 




02548 


49 


02500 


00000 


01830 


RI6HT2 TRA 


02560 


36 


00000 


00500 






02572 


49 


00000 


00000 


01840 


DC0NT2 DSC 9t 119609003 


02584 




9 






119609003 












OS A CARD! N- 10 


02597 




5 


X 1 






02597 




-0502 




01860 


DORG 502 


00502 










DC 2»0 


00503 




2 






-0 










01870 


B LOADER 


00504 


49 


01266 


00000 


01880 


DORG •-3 


00512 








01890 


• CARD INPUT PROGRAM. 










01900 


• GET INPUT DEVICE CODE FROM COMM. AREA. 










01910 


CARDIN TD READflOMEDtt CARD OR TAPE INPUT 


00512 


25 


00796 


00428 


01920 


CF READ 


00524 


33 


00796 


00000 




• TRANSMIT CARD INPUT CONTROL* AND GO TO READ A CARD. 










01940 


CARD TR A»READ 


00536 


31 


01073 


00796 


01950 


B DIS^12 


00548 


49 


00946 


00000 


01960 


DORG •-3 


00556 








01970 


• IF CARD INPUT, CHECK SEQUENCE. IF TAPE* BYPASS THIS. 










01980 


CEND CM READ.5,10 


00556 


14 


00796 


000-5 




57 
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01990 


BNE FIN 


00568 


47 


01092 


01200 


02000 


8NF FIN. 7 5,, CHECK CARD SEQUENCE NO. 


00580 


44 


01092 


00075 


02010 


AM SEQtl 


00592 


11 


00454 


-0001 


02020 


C 79,SEQ 


00604 


24 


00079 


00454 


02030 


BE FIN 


00616 


46 


01092 


0L200 


02040 


SM SEQ,1 


00628 


12 


00454 


-0001 


02050 


• IF CARD IS OUT OF SEQUENCE, WRITE LAST SEQ. NO. WHICH WAS CORRECT, 










02060 


« khtn i D 1 THPN MAi T. AMH BP AO AMflTMCa T ABD 










02070 


WNTY SeQ-4 


00640 


38 


00450 


00100 


02080 


TFM STOP't'9, 71 * 10 




16 






02090 


B ERR412 


00664 


49 


01042 


00000 


02100 


DORG • 


00675 








02110 


GET DC 1,7 
P 


00675 




1 




02120 


DSA OUT ,CYLOV 


00680 




5 


X 2 






00680 




-0816 








00685 




-0554 




02130 


DC 


00687 




2 
















02 140 










X 1 










0864 




02150 


DC 1,» 
• 


00693 








02160 


C0NT2 DC 1,0 


00694 




1 




021 70 


n^A nicKAn 








X 1 






00699 




J9600 




02180 


OSC 3 3 


00700 




3 






003 ' 












DSA CAROIN-10 


00707 




5 


X 1 






00707 




-0502 




02200 


DSC 1,« 
f 


00708 




1 




02210 


» ADDRESS TO BRANCH TO AFTER CARD OR TAPE READ ERROR. 










02220 


DISKX DSA DIS*12 


00713 




5 


X 1 






00713 




-0946 




02230 


REL DC 5,0 


00718 




5 






-0000 










02240 


• FOR UNIT RECORD INPUT, HAS CHARACTER COUNT REACHED 75... 










02250 


START CM CHAR1,75 


00720 


14 


00863 


-0075 


02260 


FORK BNE •♦32 


00732 


47 


00764 


01200 


02270 


» IF SO, REAID ANOTHER RECORD. 










02280 


TFM CO 


00744 


16 


00439 


-0000 


02290 


B CARD 


00756 


49 


00536 


00000 


02300 


DORG •-3 


00764 








02310 


C CHAR1,C 


00764 


24 


00863 


00439 


02320 


TCD TRY2 


02500 









02330 DORG 2500 ' 02500 

02340 • WRITE SEGMENT 3 OF LOADER ON DISK. 

02350 TRy3 34 DC0NT3,701 02500 



34 02584 



00701 
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02360 


Jo OCONTJtrQZ 


02512 


38 


02584 


00702 


02370 


BNI RIGHT3«1900 


02524 


47 


02560 


01900 


02380 


H 


02536 


48 


00000 


00000 


02390 


B TRY3 


02 548 


49 


02500 


00000 


02400 


RIGHT3 TRA 


02560 


36 


00000 


00500 






02572 


49 


00000 


00000 


02410 


UCUNT3 DSQ 9t 119612012 


02584 




9 






119612012 










02420 


DSA RCON-2 


02597 




5 


X 1 




■ 


02597 




-1102 




02430 


DORG RCON 


01104 








02440 


♦ SEGMENT 3 HANDLES ANALYZING AND LOADING OF INPUT* 










02450 


TFM CNTL'>-2tDlStl2 


01104 


16 


00918 


-0946 


02460 


• INITIALIZE COUNTERS FOR NEW 75'~CHARACTER GROUP* 










02470 


HERE AH Ct75 


01116 


11 


00439 


-0075 


02480 


AM CHARlt4 


01128 


11 


00863 


-0004 


02490 


TF LOCiCHARltll 


01140 


26 


01283 


ooe6L 


02500 


AM CHARlfl 


01152 


11 


00863 


-0001 


02510 


BEGIN BNR NOTRMtCHARl t 1 1 


01164 


45 


01228 


0086L 


02520 


BNF NOFLAG tCHARl»ll« RECORD MARK INDICATOR 


01176 


44 


01208 


0086L 


02530 


• FLAGGED RECORD MARK - START NEM GROUP* 










02540 


TF CHARlfC 


01188 


26 


00863 


00439 


02550 


8 START 


01200 


49 


00720 


00000 


02560 


00 RG •-3 


01208 








02570 


• UNFLAGGEO RECORD MARK GET. NEM S'-DIGIT AODR* 










02580 


NOFLAG AM CHARltS 


01208 


11 


00863 


-0005 


02590 


B HERE+24 


01220 


49 


01140 


00000 


02600 


DORG •-3 


01228 








02610 


» ZERO INDICATOR - READ IN SEGMENT 4* 










02620 


NOTRM BD NOZEROfCHARlfll 


01228 


43 


01272 


0086L 




SEEK TO CONTl tARM^l 


01240 


25 


02228 


00465 




TR At PROG 


0 1252 


31 


01073 


02242 


02640 


B DIS 


01264 


49 


00934 


00000 


02650 


DORG •-3 


01272 








02660 


NOZERO TFM RELtLOC»» NON'-ZERO INDICATOR 


01272 


16 


00718 


-1283 


02670 


BNF FLAGff CHARl* 11 


01284 


44 


01316 


0086L 


02680 


• FLAGGED DIGIT - 00 NOT RELOCATE* 










02690 


TFM 2024* TWO 


01296 


16 


02024 


-1880 


02700 


B 00 


01308 


49 


01388 


00000 


02710 


DORG •-3 


01316 








02720 


• UNFLAGGEO DIGIT - ADD RELCOM* 










02730 


FLAG A RELt RELCOM 


01316 


21 


00718 


00449 


02740 


• IF RELOCATABLE PROGRAMt ADO RELCOM TO LOW AND ENTRY ADDRESS* 










02750 


BNF ••♦■48fFIN 


0 1328 


44 


01376 


01092 


02760 


CF FIN 


0 1340 


33 


01092 


00000 


02770 


A LOWtRELCON 


01352 


21 


00444 


00449 


02780 


A MAPENT'flltRELCON 


01364 


21 


00415 


00449 


02790 


TFM 2024tFiyE 


01376 


16 


02024 


-1696 


02800 


• BcT LcniGTH Or DATAf SAVc ADDR* Or rlRST POSITluN Or DATA rIELP* 










02810 


00 TO TEMP,CHAR1,11 


01388 


25 


01489 


0086L 


02811 


CF TEMP,,. BUCKET FOR TEMP 1 


01400 


33 


01489 


00000 


02820 


AM CHARl, 2 


01412 


11 


00863 


-0002 


02830 


TF N,CHAR1,U 


01424 


26 


02057 


0086L 


02840 


TF M,N 


01436 


26 


02067 


02057 


02850 


AM CHARl, 1 


01448 


11 


00863 


-0001 
















iOcll'13il nuNITUK lILuAOcK 








PAGE 




Ir lcnP2,cnARi 


01460 


26 


02145 


00863 




TC TCUOI DCt 

Ir ItnrlfKcL 


01472 


26 


01411 


00718 


02880 


• BRANCH TO PROPER INDICATOR ROUTINE* 










02890 


BR B 2008, ft 


01484 


49 


02008 


00000 






01492 








02910 


• THREE INDICATOR - SYMBOLIC ADDRESSES, FLAGGED AND RELOCATED BY SET* 












inKcc irn 5C:i-*'t, THKcc INDICATOR 


01492 


16 


02085 


- 1 51 3 




B SET, 0,8 


01504 


49 


02086 


0-000 


02940 


DORG »-l 


01514 








02950 


AM CHAR 1,5 


01514 


11 


00863 


-0005 




SM M , 5 , 1 0 


01526 


12 


02067 


000-5 


02970 


Br THKcc 


01538 


46 


01492 


01100 


02980 


B STORE 


01550 


49 


01892 


00000 




DORG ••3 


01558 








03000 


» cniiD tKintfATno _ KiiiiieBtf* bi amm>c 
* rUUK IIMUIUAIUK — NUncKIL DLANK5* 












FOUR TD TEMPI (BLANK, 6, FOUR INDICATOR 


01558 


25 


0141J 


02227 


03020 


AM TEMPI, 1 


01570 


11 


01411 


-OOOl 


03030 


SM M , 1 , 1 0 


01582 


12 


02067 


000-1 


03040 


BP F OUR 


01594 


46 


01558 


01100 




A LOC,N 


01606 


21 


01283 


02057 




B START 


01618 


49 


00720 


00000 


* 


DORG •"•3 


01626 








03120 


* EXAMINE SECOND POSITION OF OP CODE* 










03130 


Q AM CHAR 1,1 


01626 


11 


00863 


-0001 


03140 


BNF OONT, CHARl, 11 


01638 


44 


01672 


0086L 




• rLAbbcD - RcLUCATc Q rIcLD* 










03160 


Jrn 5cT— l,«*Zl 


01650 


16 


02085 


-1671 


03170 


B C C T A t\£\ B 


01662 


49 


02086 


0-600 


03180 


DORG •"•1 


01672 








03190 


• nuVc TO NcXI INaTRUCTIuN* 












UUNI An unARl,!! 


01672 


11 


00863 


-0011 


03210 


SM M,12fl0 


01684 


12 


02067 


000J2 


03220 


• rLAbbcU rlVc AND UNrLAbGcO UNc INDICATORS — INSTRUCTIONS* 










03230 


M. ADC TUCBC 1 CCC TLJ A Al TrW^tY^iee'T 

♦ ARC TMcRc LcSb THAN 7 DIGITS LcrT*** 










03240 


FIVE CM M,7,10, . FIVE INDICATOR 


01696 


14 


02067 


000-7 






0 1 708 


47 


01868 


01300 




M. Un ABC TUCBC 1 CCC TUAAI t '9 

• NO — ARC THcRc LcSS THAN 12* •* 












CM M, 12 , 10 


01720 


14 


02067 


000 J2 


03280 


BI 1 CC ^ t *% . 

BL LcSS12 ' 


01732 


47 


01834 


01300 


03290 


• NU — cXAniNc rlRST PUSITIUN Or OP CuDc* 










03300 


BNF IF8, CHARl, 11 


01744 


44 


01778 


0086L 


03310 


• FLAGGED - RELOCATE P FIELD* 










03320 


TCii CCT 1 m.^'it 


01756 


16 


02085 


-1777 


03330 


B CCT o r\/\ a 
o 5t I ,200,0 


01768 


49 


02086 


0-200 






01778 








03350 


• IF FIRST DIGIT OF OP CODE WAS 8, DO NOT EXAMINE SECOND DIGIT* 










03360 


IF8 MA FIVE BK'*'4, CHAR 1,11, MOVE DIGIT 


01778 


70 


02016 


0086L 


03370 


CM FIVE BK-*-5«80,10, COMPARE FOR 8 


0179*0 


14 


02017 


OOOQO 


03390 


BNE 0 


01802 


47 


01626 


01200 


03400 


AM CHARl , 1 


01814 


11 


00863 


-OOOl 


03410 


B DONT 








nnnnn 


03420 


DORG •-3 


01834 








03430 


• LESS THAN 12 DIGITS LEFT - EXAMINE FIRST POSITION OF OP CODE ONLY. 










03440 


LESS12 BNF NO, CHARl, 11 


01834 


44 


01868 


0086L 


03450 


• FLAGGED - RELOCATE P FIELD. 










03460 


TFM SET-1,*+21 


01846 


16 


02085 


-1867 



6U 
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03470 




B 


SETt200*8 


01856 


49 


02086 


0-200 


03480 




DORG 


•-1 


01868 








03490 


• RESET CHARACTER COUNTER TO BEGINNING OF DATA FIELD. 










03500 


NO 


TF 


CHARl,TEMP2 


01868 


26 


00863 


02145 


03510 


• TWO 


AND FLAGGED ONE INDICATOR > CONSTANTS. 










03520 


TWO 


A 


CHARl.Nt, TWO INDICATOR 


01880 


21 


00863 


02057 


03530 


• SAVE 


DIGIT AT END OF FIELD. 










03531 


STORE 


SM 


CHARUUlO 


01892 


12 


00863 


000-1 


03540 




TD 


SAVEltCHARl.llt GENERAL STORING ROUTINE 


01904 


25 


00966 


0086L 


03550 


♦ SET 


A RECORD MARK THERE. 










03560 




A 


TEMPI (N 


01916 


21 


01411 


02057 


03561 




SM 


TEMPlfltlO 


01928 


12 


01411 


000-1 


03570 




TO 


CHARltRM«6 


01940 


25 


0086L 


02260 


03578 


• TRANSMIT 1 


DATA TO LOAD ADDRESS. 










03581 




TR 


REL»TEMP2.611 


01952 


31 


007IQ 


0214N 


03584 


» REPLACED 


SAVED DIGITS. 










03587 




TD 


TEMP1,SAVE1,6 


01964 


25 


0141J 


00968 


03588 




AM 


TEMPl.ltlO 


01976 


1.1 


01411 


000-1 


03589 




AM 


CHAR1,1,10 


01988 


11 


00863 


000-1 


03593 


• GO TO UPDATE LOCATION POINTER. 












PLACE 


B 


F0UR4-48 fXX 


02000 


49 


01606 


00000 




P2 


DS 


0 


02011 




0 




03594 


FIVEBK 


NOP 


t.4, JUST A BUCKET TO COMPARE 8 OP 


02012 


41 


00-00 


00000 


03600 




DORG 


2018 


02018 








03610 




B 


XX 


02016 


49 


00000 


00000 


03620 




DORG 


• -1 


02028 








03630 




B 


TWO 


02028 


49 


01880 


00000 


03640 




DORG 


•-1 


02038 








03650 




B 


THREE 


02038 


49 


01492 


00000 


03660 




DORG 


• -1 


02048 








03670 


NSTOR 


B 


FOUR 


02048 


49 


01558 


00000 


03680 




DORG 


♦-1 


0205R 








03690 


MSTOR 


B 


FIVE 


02058 


49 


01696 


00000 


03700 




DORG 


• -1 


02068 








03710 




B 


SIX 


02068 


49 


02206 


00000 


03720 




DORG 


•-4 


02075 








03730 


• ROUTINE TO SET FLAGS AND RELOCATE 5-DIGIT ADDRESSES. 










03731 


BUF 


DC 


5,12345 


02079 




5 








J2345 










03740 




DC 


5.0,, RELOCATING SUBROUTINE 


02084 




5 








-0000 










03750 


• COMPUTE BEGINNING AND END OF ADDRESS. 










03760 


SET 


TF 


PltCHARl 


02086 


26 


02205 


00863 


03770 




A 


P1,SET-1.11 


02098 


21 


02205 


0208N 


03780 




TF 


P2,P1 


02110 


26 


02011 


02205 


03790 




AM 


P2,4 


02122 


11 


02011 


-0004 


03800 


SF 


SF 


Pltt6 


02134 


32 


0220N 


00000 


03810 




MA 


BUF,P2»11, STRIP ADDRESS 


02146 


70 


02079 


020IJ 


03811 




A 


BUF,RELCON,« RELOCATE ADDRESS 


02158 


21 


02079 


00449 


3812 




MA 


P2tBUF»6, BRING BACK 


02170 


70 


0201J 


02079 


03880 


BB 


AM 


SET-1,1 


02182 


11 


02085 


-0001 


03890 




B 


SET>1,,6 


02194 


49 


0206N 


00000 



03990 » SIX INDICATOR - END OF DATA TO BE LOADED. 
04000 • READ IN SEGMENT 4. 

04010 SIX TFM PR0G«-17,LEAVE 02206 16 02259 -1548 

04020 B SEEK 02218 49 01240 00000 



61 
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04030 DORG •-3 

04040 • STORAGE FOR NUMERIC BLANK - MUST BE PATCHED IN ABSOLUTE DECK. 
04050 BLANK DC 2tO 
-0 

04060 • DDA TO READ IN SEGMENT 4. 
04070 CONTl DSC 9*019624005 

019624005 
04080 DSA NOZERO 



04090 
04100 



INPUT CONTROL FOR SEGMENT 4 
NOZERO IS NORMAL RETURN. 



CONTl IS DDA* LO 4 IS ERROR MESSG* 



02226 
02227 

02228 
02241 
02241 



9 

5 X 
-1272 



04110 


PROG 


DC 


lt7 


02242 




1 


04120 




P 

DSA 


CONTl *CYLOV 


02247 




5 










02247 




-2228 










02252 




-0554 


04130 




DC 


2*74 


02254 




2 






P4 










04140 




DSA 


NOZERO 


02259 




5 










02259 




-1272 


04150 


RM 


DC 
• 




02260 




1 


04160 


CARDAO 


DS 


tl9609 


19609 




0 


04170 


DISKAD 


DS 


* 19600 


19600 




0 


04180 


LOC 


OS 


• NOZEROi^ll 


01283 




0 


04190 


M 


DS 


• MST0R4>9 


02067 




0 


04200 


N 


DS 


*NST0R*9 


02057 




0 


04210 


PI 


OS 


*BB'*-23 


02205 




0 


04230 


SAVEl 


DS 


•RD^IO 


00968 




0 


04240 


SAVE2 


DS 


• RD*7 


00965 




0 


04250 


TEMP 


DS 


tBR*5 


01489 




0 


04260 


TEMPI 


DS 


•00*23 


01411 




0 


04270 


TEMP2 


DS 


♦SF+11 


02145 




0 


04280 


XX 


DS 


5,0 


00000 




5 


04290 


ARM 


DS 


*464 


00464 




0 


04295 


COMM 


DS 


* 440 


00440 




0 


04300 


C 


DS 


• 439 


00439 




0 


04310 


HIGH 


DS 


• 434 


00434 




0 


04320 


LOW 


DS 


t444 


00444 




0 


04330 


lOHED 


DS 


• 428 


00428 




0 


04340 


MAPENT 


DS 


• 402 


00402 




0 


04350 


RELCON 


DS 


• 449 


00449 




0 


04360 


SEQ 


DS 


• 454 


00454 




0 


04390 


TCD 


DS 


• 428 


00428 




0 


04400 


I TAB 


DS 


• 440 


00440 




0 




SYSSCT 


DS 


•19663 


19663 




0 


04410 




TCD 


TRY3 


02500 






04420 




00 RG 


2500 


02500 






04430 


• WRITE SEGMENT 4 OF LOADER ON DISK. 








04440 


TRY4 


34 


DC0NT4,701 


02500 


34 


02584 


04450 




38 


0C0NT4,702 


02512 


38 


02584 


04460 




BNI 


RIGHT4,1900 


02524 


47 


02560 



00701 
00702 



62 
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04470 




H 


02S36 


48 


00000 


00000 


04480 




B TRV4 


02548 


49 


02500 


00000 


04490 


RI6HT4 


TRA 


02560 


36 


00000 


00500 








02572 


49 


00000 > 


00000 


04500 


0CONT4 


DSC 9tll9624005 


02564 




9 








119624005 










04510 




OS A NOZERO 


02597 




5 


X 1 








02597 




-1272 




04520 




OORG NOZERO 


01272 








04530 


* ZERO 


INDICATOR - SET TCO INDICATOR. 










04540 




CF TCO , 


01272 


33 


00428 


00000 


04550 




BNF •♦20tCHARl,ll 


01284 


44 


01304 


0086L 


04560 


• FLAGGED ZERO - DO NOT RELOCATE. 










04570 




B NOT 


01296 


49 


01368 


- 00000 


04580 




DORG •-3 


01304 








04590 


• UNFLAGGEO ZERO - 00 RELOCATE. 










04600 




AM CHARlt5 


01304 


11 


00863 


-0005 


04610 




BNF ADOtCHARl.ll 


01316 


44 


01348 


0086L 


04620 


• INDIRECT ADDRESS - SUBTRACT RELCON. 










04630 




S CHAR1«RELC0N>6 


01328 


22 


0086L 


00449 


04640 




B NOT* 12 


01340 


49 


01380 


00000 


04650 




DORG •-3 


01348 








04660 


• NOT 


INDIRECT " ADD RELCON. 










04670 


ADO 


A CHARl.RELC0Nt6 


01348 


21 


0086L 


00449 


04680 




B •♦20 


01360 


49 


01380 


00000 


04690 




DORG •-3 


01366 








04700 


NOT 


AM CHARltS 


01368 


11 


00863 


-0005 


04710 


• PUT 


ADDRESS IN COMM. AREA. 










04720 




TF MAPENT4l8tCHARl>ll 


01380 


26 


00420 


0086L 


04730 


• SAVE 


LAST SECTOR READ* IF DISK INPUT. 














BO EXIT ,10 MED 


01392 


43 


01440 


00428 


04740 




TF MAPENT*5tCNTL*5 


01404 


26 


00407 


00925 


04750 




SM MAPENT*5,3 


01416 


12 


00407 


-0003 


04760 




AM MAPENT*8*3f9 


01428 


11 


00410 


00-03 


04770 


• WRITE THREE FIELDS ONTO COMMUNICATION SECTOR. 












EXIT 


TO CNTLE tARM^l 


01440 


25 


01490 


00465 


01 




TR A, EX 


01452 


31 


01073 


01471 


01 




B DIS*12 


01464 


49 


00946 


00000 


01 




OORG »-4 


01471 








01 


EX 


OC lt7 


01471 




1 




01 




P 

OSA CNTLE (CYLOV 


01476 




5 


X 2 








01476 




-1490 










01481 




-0554 




01 




DC 2 f 74 


01483 




2 








P4 










01 




DSA THRU 


01488 




5 


X 1 
















02 




DSC lt» 


01489 




1 




02 


CNTLE 


DSC 1,0 


01490 




1 




02 




0 

OSA SYSSCT 


01495 




5 


X I 



63 
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02 

02 
02 
02 
02 
02 

04840 



DC 8 1 100000 
-0100000 
THRU TR 84,C0MM 
TDM RD+1,8 
TFM CNTLE-2,NEXT 
8 EXIT 
OORG •-3 

• SIX INDICATOR -UPDATE LAST LOCATION PLUS ONE INDICATOR. 
LEAVE TF HIGH.REL 

• MOVE THE ENTRY ADDRESS. 

TF MAPENT4-18,MAPENT*13 

• IF NON-DISK INPUT, READ ONE MORE RECORD. 



04910 
04920 
04930 

04931 
04932 



04940 



BD 
B 

OORG 
TO 

RNCD 

TFM 

B 



• ♦20 
EXIT 

•-4 

• ♦21 

SEQ.O 
EXIT 



,10 MED 



DORG •-4 

OOA FOR lORT-S LOADER RETURN SUBROUTINE. 
3 DSC 14, 1979200300000 • 
1979200300000* 
READ AND EXECUTE EXIT SUBROUTINE. 
TFM 510,0 
TO COMM.ARM^l 
TR C0MM*1,CNTL3 
8 480 
TCO TRY4 



04950 DORG 2500 

04960 « READ IN SEGMENT 1 OF LOADER AND BEGIN EXECUTION. 
04970 TRY5 34 OCONT5,701 
0C0NT5,702 
RIGHT5,1900 



36 
BNI 



04980 
04990 

05000 H 
05010 8 
05020 RIGHTS H 
05030 B 
05040 DC0NT5 DSC 



TRYS 



LOADER 

14,01960000900502 



01960000900502 



01495 




J9663 




01503 




8 




01504 


31 


00084 


00440 


01516 


15 


00959 


00008 


01528 


16 


01486 


-1650 


01540 


49 


01440 


00000 


01548 








01548 


26 


00434 


00718 


01560 


26 


00420 


00415 


01572 


43 


01592 


00428 


01584 


49 


01440 


00000 


01591 








01592 


25 


01613 


00428 


01604 


36 


00000 


00500 


01616 


16 


00454 


-0000 


01628 


49 


01440 


00000 


01635 








01635 




14 




01650 


16 


00510 


-0000 


01662 


25 


00440 


00465 


01674 


31 


00441 


01635 


01686 


49 


00480 


00000 


02500 








02500 








02500 


34 


02584 


00701 


02512 


36 


02584 


00702 


02524 


47 


02560 


01900 


02536 


46 


00000 


00000 


02548 


49 


02500 


00000 


02560 


48 


00000 


00000 


02572 


49 


01266 


00000 


02584 




14 





02500 
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ANYERR 


00982 


BB 


02182 


OIS 


00934 


M 


02067 


SEO 


00454 


CARDAO 


19609 


BEGIN 


01164 


OONT 


01672 


MS TOR 


02098 


SET 


02086 


CAROIN 


00512 


BLANK 


02227 


00 


01318 


. NEXT 


01690 


SF 


02134 


DCONTl 


02584 


BR 


01484 


0 


01085 


NORM 


00511 


SIX 


02206 


DC0NT2 


02584 


B 


01078 


ERR 


01030 


NO 


01868 


START 


00720 


DC0NT3 


02584 


BUF 


02079 


E 


01091 


NOTRM 


01228 


STOP 


01054 


DC0NT4 


02584 


CARD 


00536 


EXIT 


01440 


NOT 


01368 


STORE 


01892 


DC0NT5 


02584 


CEND 


00556 


EX 


01471 


N 


02057 


TCD 


00428 


UISKAO 


19600 


CHARl 


008 63 


FAKE 


00503 


NSTOR 


02048 


TD 


01176 


FIVEBK 


02012 


CIN 


01083 


FIN 


01092 


OK 


00630 


TEMPI 


01411 


LESS12 


01834 


CNTLl 


00537 


FIVE 


01696 


OUT 


00816 


TEMP2 


02145 


LOADER 


01266 


CNTL2 


00545 


FLAG 


01316 


PI 


02205 


TEMP 


01489 


MAPENT 


00402 


CNTL3 


01635 


FORK 


00732 


P2 


02011 


THREE 


01492 


NOFLAG 


01208 


CNTLE 


01490 


FOUR 


01558 


PLACE 


02000 


THRU 


01504 


NOZERQ 


012 72 


CNTLI 


01326 


GET 


00675 


PROG 


02242 


TRANS 


01342 


RELCON 


00449 


CNTL 


00920 


HERE 


01116 


Q 


01626 


TRY I 


02500 


RIGHTl 


02560 


CNT 


00553 


HIGH 


00434 


RCON 


01104 


TRY2 


02500 


RIGHT2 


02560 


COMM 


00440 


IF8 


01778 


RD 


00956 


TRY3 


02500 


RI6HT3 


02560 


CONTI 


02228 


INIT 


01309 


READ 


00796 


TRY4 


02500 


RIGHT4 


02560 


C0NT2 


00694 


lOMED 


00428 


REL 


00718 


TRY5 


02900 


RIGHTS 


02560 


C0NT3 


01250 


I TAB 


00440 


RN 


02260 


TWO 


01680 


ADO 


01348 


C 


00439 


LEAVE 


01548 


RPROG 


01231 


XX 


00000 


ARM 


00464 


CYLOV 


00554 


LOC 


01283 


SAVEl 


00968 


ZERO 


01140 


A 


01073 


DISK 


00864 


LOM 


00444 


SAVE2 


00965 


SYSSCT 


19663 


BACK 


01066 


DISKX 


00713 


MORE 


00610 


SEEK 


01240 







END OF ONE ASSEMBLY. 
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00010 




DORG 2218 




02218 




00020 


• 




SYMBOL TABLE PARAMETERS 








00030 


SPBL 


DS 


• 40. « 


SECTORS PER BLOCK 


00040 


0 


00040 


SMPBL 


DS 


t 235,, 


SYMBOLS PER BLOCK 


00235 


0 


00050 


SYMTBL 


OS 


* 16003, 


HI-OROER POSITION OF SYMBOL TABLE 


16003 


0 


00060 


LOSYMB 


DS 


, SYMTBL+SMPBL«l7-l, 


LO-ORDER POSITION OF SYMBOLIC BLOCK 


19997 


0 


00070 


SBFAOD 


OS 


, L0SYMB-SPBL«100*1, 


SYMBOLIC BLOCK DISK ADDRESS 


15998 


0 


00080 


LBLIM 


DS 


• L0SYMB^12t 


LO-ORDER BLOCK LIMIT 


20009 


0 


00090 


MAXLIM 


DS 


• SYMTBL-6, 


MAXIMUM LIMIT 


15997 


0 


00100 


• 




EMPIRICAL SECTOR ASSIGNMENT PARAMETERS 






00110 


IPTSPB 


DS 


tl500. 


1-PASS TOTAL SECTORS PER SYM. BLOCK 


01500 


0 


00120 


2PTSPB 


OS 


,600, 


2-PASS TOTAL SECTORS PER SYM. BLOCK 


00600 


0 


00130 


BP20K 


DS 


#5, 


SYMBOLIC BLOCKS PER 20K CORE 


00005 


0 


00140 


2PRTI0 


DS 


t20000. 


2-PASS RATIO— INTERN. /FINAL SECTORS 


20000 


0 


00150 


• 




INDEX REGISTER LOCATIONS 








00160 


XRAl 


DS 


,264*l»40-t'5»l 




00309 


0 


00170 


XRA2 


DS 


t264*l»40+5»2 




00314 


0 


00180 


XRA3 


DS 


t264*l»40+5»3 




00319 


0 


00190 


XRA5 


OS 


,264*l«40-»-5*5 




00329 


0 


00200 


XRA6 


DS 


,264*l«40'»-5»6 




00334 


0 


00210 






SPS DISC ASSIGNMENT PARAMETERS 






00220 


AIDAD 


DS 


ff 18600, 


CONTROL STATEMENTS, PH.A SUBROUTINS 


18600 


0 


00230 


AISCT 


DS 


♦ 137 




00137 


0 


00240 


A2DA0 


DS 


,18800, 


NORMAL PROCESSING— FREQUENT STMTS. 


18800 


0 


00250 


A2SCT 


DS 


• 58 




00058 


0 


00260 


A30A0 


DS 


• 18861, 


TRA. CALL, GET-PUT AND ASSOC OECL 


18861 


0 


00270 


A3SCT 


DS 


• 22 




00022 


0 


00280 


A40AD 


OS 


,18883, 


DMES.DVLC, DOT, HEAD 


16883 


0 


00290 


A4SCT 


DS 


• 44 




00044 


0 


00300 


A50AD 


DS 


,18737, 


OENO, TCD, AND SYMBOL TABLE LIST 


18737 


0 


00310 


A5SCT 


DS 


• 29 




00029 


0 


00320 


SSTDAD 


DS 


•18927, 


SYSTEM SYMBOL TABLE 


18927 


0 


00330 


SSTSCT 


DS 


• 35 




00035 


0 


00340 


MSTOAD 


OS 


•SSTOAO^SSTSCT, 


MASTER SYMBOL TABLE 


18962 


0 


00350 


MOSOAO 


OS 


,19663, 


MONITOR COMM SECTOR DISK ADDRESS 


19663 


0 


00360 


BIOAO 


DS 


,19180, 


PHASE B INITIALIZATION 


19180 


0 


00370 


BISCT 


DS 


• 20 




00020 


0 


00380 


B20AD 


OS 


•19200, 


INPUT, BRANCH TABLE, SCAN 


19200 


0 


00390 


B2SCT 


DS 


• 56 




00056 


0 


00400 


B30AD 


DS 


,19000, 


LINPRT,INSTRNtDC»DSDNB,DAS,DORG 


19000 


0 


00410 


B3SCT 


DS 


• 63 




00063 


0 


00420 


B3MA0 


DS 


,09700, PHASE B3 MEMORY 


ADDRESS 


09700 


0 


00430 


B4DA0 


DS 


,19063, 


RSTR , 0AC» ALOW. OMES , OSB, DVLC, DGM 


19063 


0 


00440 


B4SCT 


DS 


,56 




00056 


0 


00450 


B5DA0 


OS 


,19122, 


OSA , MACRO, DDA,TRA, OENO 


19122 


0 


00460 


B5SCT 


DS 


,29 




00029 


0 


00470 


B6DAD 


DS 


,19151, 


CALL LINK,LOAO,EXIT 


19151 


0 


00480 


B6SCT 


DS 


,29 




00029 


0 


00490 


DIHDAO 


DS 


,04800, 


DIM ENTRY FOR EQUIV. TABLE 


04800 


0 


00500 


DIMSCT 


OS 


,1 




00001 


0 


00510 


EQDAD 


DS 


• 0, 


EQUIVALENCE TABLE 


00000 


0 


00520 


EQSCT 


DS 


,4 




00004 


0 


00530 


PHCDAD 


DS 


• 19260 




19260 


0 


00540 


PHCSCT 


DS 


,40 




00040 


0 


00550 


SUBOAD 


DS 


,04808, 


SPS SUBROUTINE DIM ENTRIES 


04808 


0 


00560 


• 




MONITOR COMMUNICATION PARAMETERS 
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00570 


MOSCT 


OS 


f 16000, 


00580 


MODOC 


OS 


tMOSCT+22. 


00590 


MOCTOC 


OS 


•MOSCT+23, 


00600 


MONAME 


OS 


fMOSCT*35, 


00610 


MOIONO 


OS 


•MOSCT+39, 


00620 


MOML 


OS 


tM0SCT4'41, 


00630 


MOSBNO 


OS 


•MOSCT+43, 


00640 


MONO IS 


OS 


,M0SCT+44, 


00650 


MOEXEC 


OS 


,426, 


00660 


MOMAD 


OS 


,415, 


00670 


SYSCAL 


OS 


#475, 


00680 


NONEX 


OS 


,457, 


00690 


PCK 


OS 


• 2365 


00700 


* 




lORT ENTRIES 


00710 


lORT 


OS 


,565 


00720 


lOPT 


OS 


,532 


00730 


lOGT 


OS 


,566 


00740 


lORBC 


OS 


,520 


00750 


lOSK 


OS 


,554 


00760 


lOCAL 


OS 


,00716 


00770 


MONCAL 


OS 


,00796 


00780 


lOCSAD 


OS 


,19783, 


00790 








00800 


• 




SPS COMMUNICA 


00810 








00820 


OUT 


OS 


1 


00830 




DS 


80 


00840 


2EP0 


OS 


2 


00850 




DS 


81 


00860 




DC 
1 


l,« 


00870 


LNTH 


DC 


5,0 



MONITOR COHN SECTOR MEMORY ADDRESS 
DISC OUTPUT CODE 
CO-TP OUTPT CODE 
NAME 

10 NUMBER 
MANT, LENGTH 
SUB* SET 
NOISE DIGIT 

EXECUTE CONTROL AND SPS INPUT 
MEMORY AOOR 

SYSTEM COMMON ACTION LOCATION 
NON-EXECUTE FOR JOB ERROR 



AODR OF THE LOADER-CALLER 



00910 
00920 
00930 

00940 

00950 

00960 
00970 
00980 
00990 
01000 
OlOlO 

01020 
01030 



-0000 
DC l,» 
• 

AJUST OC 11,2121212121,, 

-2121212121 
THINGS DC 21 ,0010203040506070000* 

-0010203040506070000* 
COLL OS 19 

DS 2 
NUMB DC 7,« 

-00000* 
JSTBL DC 11,3212323232,, 

-3232323232 
EVOOD DC 10,0101010101,, 

-lOlOlOlOl 
• PROCESSOR CONTROL SWITCHES- 



INSTRUCTION PARITY TABLE 



ALPHA PARITY TABLE 
DMES PARITY TABLE 



-FLAGGED 1»0N, UNFLAGGEO O-OFF 



STPCSW 


DS 


Iff 


PUNCH SYMBOL TABLE 


STTYSW 


OS 


It, 


TYPE SYMBOL TABLE 


STPRSM 


OS 


It, 


PRINT SYMBOL TABLE 


TVINSW 


DS 


It, 


BEGIN TYPEWRITER INPUT 


COINSM 


OC 
J 


Itlt, 


BEGIN CARD INPUT 


PTINSW 


DS 


It, 


BEGIN PAPER TAPE INPUT 


ERSTSW 


DS 


It, 


ERROR STOP 



16000 
16022 
16023 
16035 
16039 
16041 
16043 
16044 
00426 
00415 
00475 
00457 
02365 

00565 
00532 
00566 
00520 
00554 
00716 
00796 
19783 



02218 
02298 
02300 
02381 
02362 

02387 

02388 

02399 

02420 

02439 
02441 
02448 

02459 

02469 



02470 
02471 
02472 
02473 
02474 

02475 
02476 



1 

80 
2 

81 
1 

5 

1 

II 

21 

19 
2 
7 

11 

10 
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01040 


2PSSW 


OS 


1 , , 


TWO PASS MODE 


02477 






01050 


RELSW 


OS 


1 , , 


ASSEMBLE RELOCATABLE 


02478 






01060 


LSCDSW 


OS 


1 » , 


LIST CARD 


02479 






01070 


LSTYSW 


DS 


1 , , 


LIST TYPEWRITER 


02480 






01080 


LSPRSW 


OS 


1 , , 


LIST PRINTER 


02481 






01090 


PCNUSW 


OS 


I , » 


PUNCH RESEQUENCEO SOURCE DECK 


02482 






01100 


INTRSW 


OS 


1 , , 


INTERRUPT 


02483 






OHIO 


KILSUB 


OS 


1 , , 


NO SUBROUTINES 


02484 






01120 


OIVCSW 


DC 
J 


1,1,, 


NO SYMBOLIC DIVIDE 


02485 






01130 


CTVT 


DC 


5,0 




02490 




5 






-0000 










01140 


INCOOE 


OC 


2,5 




02492 




2 


01X50 


OBJCRE 


-5 
OS 


5,, 


OBJECT MACHINE SIZE 


02497 




5 


01160 


PROCRE 


OS 


1,, 


PROCESSOR MACHINE SIZE 


02498 




1 


01170 


PRTLIM 


DSA 


»-• 




02503 




5 












02503 




-0000 


01180 


HCLIM 


DSA 


LBLIM 




02508 




5 












02508 




K0009 


01190 




DC 
• 


It* 




02509 




I 


01200 


STCNT 


DC 


5, It, 


STATEMENT COUNT 


02514 




5 






-0001 










01210 


HI ADD 


DC 


5.0,, 


HIGH ADDRESS 


02519 




5 






-0000 










01220 


L 


OS 


2,, 


LENGTH OF MANTISSA 


02521 




2 


01230 


NOISE 


OS 


1 




02522 




1 


01240 


SUBNO 


DS 


2 




02524 




2 


01250 


PICKUP 


OS 


5 




02529 




5 


01260 




DC 


Itl 




02530 




1 


01270 


I STAT 


J 

OC 


30tO* 




02560 




30 






-0000000000000000000000000000* 








01280 


SPSGM 


DGM 






02561 




1 


01290 


INKRM 


OS 


5 




02566 




5 


01300 




OC 


If* 




02567 




1 


01310 


TEMPR 


DS 


5 




02572 




5 


01320 




DC 
« 


1,' 




02573 




1 


01330 


RMRK 


OS 


3 




02576 




3 


01340 




DC 
( 


1,* 




02577 




1 


01350 


ONEZ 


OC 


10,1 




02587 




10 






-000000001 










01360 
















01370 


• 




IOCS CALL-LOAD 


PROCESSOR SECTION-NO WLRC 








01380 


« 














01390 




DS 


5 




02592 




5 


01400 


CFF 


TFM 


I0RT,»+23 




02594 


16 


00565 


01410 




B 


I0GT,CFF0EF, 


7 . ' . 


02606 


49 


00566 


01420 




B7 


CFF-1,,6 




02618 


49 


0259L 
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01430 


CFFDEF 


DSC 


2t2Zfft AdsULUIc disk IIUI MRUNo LCNvln 


02625 


2 








22 










01440 


CFFA 


DSA 




02631 


5 


X 










02631 


-0000 




01450 




DC 
« 




02632 


1 




01460 


MUR I 


DS 


1 


02633 


1 




01470 


lOADOR 


DC 


5,0,, FILE ADDRESS OF INTERMEDIATE OUTPUT 


02638 


5 








-0000 








01480 


SYHTAD 


DC 


5,02600»,FILE ADDRESS OF SYMBOL TABLE 


02643 


5 








-2 600 








01490 


SBOUT 


DC 
-0 


2,0 


02645 


2 




01500 


« 












01510 




END SPS COMMUNICATION AREA 








01520 


• 












01530 


TYPIN 


DSA 


INPUT-10 


02650 


5 












02650 


—2871 




01540 




DC 


3,06' 


02653 


3 








-6* 










01 550 




OGM 


• 


02653 


1 




01560 


TAP IN 


DSA 


IMPUT-IO 


02658 


5 


X 










02658 


—2871 




01570 




DC 


3,08» 


02661 


3 




01580 




-8» 

DGM 


• 


02661 


1 




01590 


CAROIN 


DSA 


INPUT-10 


02666 




















01600 




DC 


3tlO* 


02669 


3 


















01610 




DGM 


• 


02669 


I 




01620 


SBMAX 


DC 


2tOO 


02671 


2 




01630 


SBCNT 


-0 
DC 


2.0 


02673 


2 








-0 










01640 


ADDCOW 


OS 


StPICKUP 


02529 


5 




01650 




DS 


1 


02674 


1 




01660 


ALPHA 


DC 


10,0 


02684 


10 








-000000000 








01670 


BETA 


DC 


5,0 


02689 


5 








-0000 








01680 


DIGITS 


DS 


3 


02692 


3 




01690 


CLERER 


OC 


1.0 


02693 


1 




01700 




DSC 


26t0 


02694 


26 








00000000000000000000000000 








01710 




DSC 


27,« 


02720 


27 








00000000000000000000000000 • 








01720 


INSAV 


DAS 


61 


02749 


61 


X 



1620 SPS II-D FOR MONITOR II PHASE A 



69 



01730 




DAC 


5f 1 1 • 


02871 




5 


X 2 


01740 


INPUT 


OAS 


6 


02881 




6 


X 2 


01750 




OAS 


4 


02893 




4 


X 2 


01760 




OAS 


66 


02901 




66 


X 2 


01770 




OC 


l.«.» 


03031 




1 




01780 




OAS 


1 


03033 




1 


X 2 


01790 


INPUT2 


OSS 


217 


03034 




217 




01800 


SUBENT 


OS 


5 


03255 




5 




01810 


OMSV 


OS 


5 


03260 




5 




01820 


OMSVW 


DS 


5 


03265 




5 




01830 


PLACE 


DS 


5 


03270 




5 




01840 


ERROIG 


DS 


1 


03271 




1 




01850 




OC 


5,0 


03276 




5 








-0000 










01860 


LIMITS 


OC 


5,0 


03281 




5 








-0000 










01870 




OC 


It* 


03282 




1 




01880 


AOORS 


OS 


11 


03293 




11 




01890 




DC 
« 


l,» 


• 03294 




1 




01900 


ERLAB 


DAS 


6 


03297 




6 


X 2 


01910 




DAC 


2,*» 


03309 




2 


X 2 


01920 


LOPOUT 


DC 


10,0 


03321 




10 








-000000000 










01930 




DAC 


2. • 


03323 




2 


X 2 


01940 


LAB 


DS 


12 


03337 




12 




01950 




DC 


l,» 


03338 




1 




01960 


FLGRM 


DC 
« 


1,S* FLAGGED RECORD MARK 03339 




I 




02010 


CORM 


DAC 


22, RE-ENTER STATEMENT.' 


03341 




22 


X 2 






RE 


-ENTER STATEMENT,' 










02020 


• 














02021 


SMODE 


DS 


1 


03384 




1 




02022 


DGSV 


OS 


1 


03385 




1 




02023 




OS 


1 


03386 




1 




02024 


TEMP 


DS . 


5 


03391 




5 




02030 


• READ 


INPUT 










02040 
















02050 


PHASEA 


TDM 


ERROIG, 0 


03392 


15 


03271 


00000 


02060 




BO 


READ2, CDINSW 


03404 


43 


03600 


02474 


02070 




BD 


READl, PTINSM 


03416 


43 


03568 


02475 


02080 


• 














02090 


• 


READ TYPEWRITER 










02100 


• 














02110 


READ3 


RCTY 




03428 


34 


00000 


00102 


02120 




BLXM 


•♦12,20-142(1) 


03440 


66 


03452 


OOIKK 


02130 




TFM 


INPUT+142tl» 


03452 


16 


030K3 


-0000 


02140 




OAC 
• 


1,'.* 


03463 




1 


X 2 


02150 




BCXH 


•-12,2(1 » 


03464 


64 


03452 


000-2 



7 0 



1620 SPS II~D FOR MONITOR II PHASE A 



PAGE 









INrUf—£f l.LfcRcR+9 




03476 


26 


02879 


02702 






TC 


TMDilT^in nCDCD^It 

INrUl^iUf LL.cKt:K+ i i 




03488 


26 


02891 


02704 


0Z180 




TP 
IP 


IMrUI+lOt LLcRtR*/ 




03500 


26 


02899 


02700 


02190 




TFM 


I0RT»»*23 




03S12 


16 


00565 


-3535 


02200 




B 


I0GT,TYPIN-4,7 




03524 


49 


00566 


-2646 


022 10 




BNC4 


PROSTM 




03536 


47 


03804 


00400 


02220 




WATY 


CORM 




03548 


39 


03341 


00100 


02230 




B7 


REA03 




03560 


49 


03428 




02240 


• 
















02250 


* 


READ PAPER TAPE 












02260 


• 
















02270 


REAOl 


TFM 


I0RT,»+23 




03568 


16 


00565 


-3591 


02280 




B 


I0GT,TAPIN-4t7 




03580 


49 


00566 


-2654 


02290 




87 


PROSTM 




03592 


49 


03804 




02300 


* 
















02310 


* 


READ STATEMENT FROM CARD 












02320 


• 
















02330 


REA02 


TFM 


I0RT,«*23 




03600 


16 


00565 


-3623 


02340 




B 


I0GT,CARDlN-4,7 




03612 


49 


00566 


-2662 


02350 




BNF 


RSCAN.PCNUSW 




03624 


44 


03744 


02482 


02360 




BNR 


•♦24, INPUT-IO 




03636 


45 


03660 


02871 


02370 




TFM 


INPUT-10,00,10 




03648 


16 


02871 


000-0 


02380 




CM 


INPUT-10tl4,lO 




03660 


14 


02871 


000J4 


02390 


R2BE 


BE 


RSCAN 




03672 


46 


03 744 


01200 


02400 




TFM 


INPUT-02,70,8 




03684 


16 


02879 


0-070 


024 10 




TNF 


INPUT-04.STCNT.. 


PUNCH RESEQ. SOURCE CARD 


03696 


73 


02877 


02514 


02415 




SF 


INPUT-.Il 




03708 


32 


02870 


00000 


02420 




TFM 


I0RT,«>23 




03720 


16 


00565 


-3743 


02430 




B 


l0PT,CAR0IN-4,7 




03732 


49 


00532 


-2662 


02440 


















02450 


» 


FIND RIGHTMOST CHARACTER 


OF STATEMENT AND PLACE A 










02460 


• 


RECORD MARK AFTER IT 












02470 


* 
















02480 


RSCAN 


BL XM 


•♦12,122(1) 




03744 


66 


03756 


001K2 


02490 




TFM 


INPUT-flBd), 0200,8 9 




03756 


16 


028R9 


0-KOO 


02500 




OAC 


lf«t» 




03767 




1 


X 2 


02510 




BO 


PROSTM, INPUT^16(U 




03768 


43 


03804 


028R7 


02520 




BD 


PROSTM, INPUT+15CI) 




03780 


43 


03804 


028R6 


02530 




BCX 


•-36,RSCAN«21(1) 




03792 


63 


03 756 


03705 


02540 


• 


CLEAR FOR INTERMEDIATE OUTPUT 










02550 


» 
















02560 


PROSTM 


B 


PROCON 




03604 


49 


10606 


00000 


02570 




BNR 


•♦24, INPUT+20 




03816 


45 


03840 


02901 


02580 




TFM 


INPUT+22, 00000 




03828 


16 


02903 


-0000 


02590 


X2 


DC 


2, 2, •-2 




03837 




2 




02600 




-2 

OAC 

• 


lt»t» 




03839 




1 


X 2 


026 10 




TR 


INPUT2, CLERER^46 




03840 


31 


03034 


02739 






TR 


INSAV-l,INPUT^19 












02630 




AM 


STCNT,l,lO 




03864 


11 


02514 


000-1 


02640 




TDM 


LDABSW, 1,11 




03876 


15 


07320 


OOOOJ 


02650 




BD 


R3E, 2PSSW 




03888 


43 


03924 


02477 


02660 




TDM 


INPUT2+99 




03900 


15 


03133 


00000 


02670 




DC 






03911 




1 





71 



1620 SPS II-O FOR MONITOR tl PHASE A PAGE 



02680 




TR 


INPUT2^8, INPUT-U 


03912 


31 


03042 


02870 


02690 


R3E 


AM 


INKRM, 1,10 


03924 


11 


02566 


000-1 


02700 




BNR 


•♦24,INPUT-10 


03936 


45 


03960 


02871 


02710 




TFM 


INPUT-10,00,10 


03948 


16 


02871 


000-0 


02720 




TF 


PLACE, ADDCOW 


03960 


26 


03270 


02529 


02730 




CM 


ADOCOM, 99999 


03972 


14 


02529 


R9999 


02740 




BE 


• ♦48 


03984 


46 


04032 


01200 


02750 




C 


ADDCOW, HIADD,, HI ADDRESS TO HIADO 


03996 


24 


02529 


02519 


02760 




BNH 


• ♦24 


04008 


47 


04032 


01100 


02770 




TF 


HIA0D,A00COW 


04020 


26 


02519 


02529 


02780 




BNR 


•♦20, INPUT 


04032 


45 


04052 


02881 


02790 




B7 


ER2 


04044 


49 


04156 




02800 




CM 


INPUT, 14, 10 


04052 


14 


02881 


000J4 


02810 




BNE 


RLOPl 


04064 


47 


04112 


01200 


02820 




BD 


•♦24,ERRDIG 


04076 


43 


04100 


03271 


02830 




BO 


PHASEA, 2PSSW 


04088 


43 


03392 


02477 


02840 




BTM 


OUTPUT, PHASEA 


04100 


17 


09570 


-3392 


02850 


m 














02860 


• 


CHECK FOR RECORD MARK IN LABEL FIELD. 










02870 


• 














02880 


RLOPl 


BLXM 


•♦12,-14(1) 


04112 


66 


04124 


OOOJM 


02890 




BCX 


•♦20,X2(1) 


04124 


63 


04144 


038L7 


02900 




B7 


OP 


04136 


49 


04228 




02910 




BNR 


RL0P1^12,INPUT^12C1) 


04144 


45 


04124- 


028R3 


02920 


• 


RECORD MARK IN LABLE FIELD. 










02930 


ER2 


TFM 


EVALER-1, 20000 


04156 


16 


07041 


KOOOO 


02940 




DC 


l,«t* 


04167 




1 




02950 




BT 


EPRINT,EPRINT-1 


04168 


27 


07322 


07321 


02960 




TF 


INPUT^lO, CLERER^ll 


04180 


26 


02891 


02704 


02970 




BD 


•♦24, 2PSSW 


04192 


43 


04216 


02477 


02980 




TR 


INPUT2^8, INPUT-U 


04204 


31 


03042 


02870 


02990 




BD 


ERCOR, ERSTSW 


04216 


43 


07178 


02476 


03000 


OP 


C 


CLERER^11,INPUT^10 


04228 


24 


02704 


02891 


03010 




BE 


• ♦36 


04240 


46 


04276 


01200 


03020 




TF 


ERLAB^10,INPUT^10 


04252 


26 


03307 


02891 


03030 




TFM 


INKRM, 0 


04264 


16 


02566 


-0000 


03040 


• 














03050 


• 


PROCESS OP CODE 










03060 


• 














03070 


« 


CHECK FOR RECORD HARK IN OP CODE. 










03080 




BL XM 


•♦12,-10{ 1) 


04276 


66 


04288 


OOOJ- 


03090 




BCX 


•♦20,X2(1) 


04288 


63 


04308 


038L7 


03100 




B7 


OPl 


04300 


49 


04364 




03110 




BNR 


•-20,INPUT^20(1» 


04308 


45 


04288 


029-1 


03120 




TF 


INPUT^ia, CLERER+T 


04320 


26 


02899 


02 700 


03130 




BD 


•♦24, 2PSSW 


04332 


43 


04356 


02477 


03140 




TR 


INPUT2+8, INPUT-11 


04344 


31 


03042 


02870 


03150 




B7 


ER3 


04356 


49 


04680 




03160 




TEST FOR ABSOLUTE OP CODE 










03170 


OPl 


TD 


• ♦46, INPUT-U 


04364 


25 


04410 


02892 


03180 




TO 


•♦35, INPUT^13 


04376 


25 


04411 


02894 


03190 




CM 


•♦23,77,10 


04388 


14 


04411 


00 OP 7 


03200 




BNE 


ALFOP 


04400 


47 


04472 


01200 


03210 




C 


CLERER^3,INPUT^18 


04412 


24 


02696 


02899 


03220 




BNE 


ALFOP 


04424 


47 


04472 


01200 



1420 SPS II-O FOR MONITOR II FHASI A 



PAGE 



8 



03230 




TD 


INPUT2f INPUT412 


03240 




TO 


INPUT24^1« INPUT4L4 


03250 




BTM 


INSTRNt D0INST424 


03260 


• 


SOAN OPCODE TABLE 


03270 


ALFOP 


BL XM 


• «^12tB( L) 


03280 




BLXM 


• 4-12tl5(2) 


03290 




BD 


•♦44«INPUT«9(1I 


03300 




BXM 


•♦12^5(2} 


03310 




BCXM 


•-24.-2(1) 


03320 




87 


ER3 


03330 




TF 


XRA3*0PLNT8(2t 


03340 




MA 


ALFLP+ll»0PLCTB(2» 


03350 




MA 


ALFLP*35,0PINT8(2I 


03360 


ALFLP 


C 


INPUT+10(l) ••-•(31 


03370 




BE 


OK 


03380 




BCXM 


•-24.«-«C3» 


03390 




87 


ER3 


03400 


• 1 


LXATIONS OP SECTIONS OF 


03410 


OPLNTB 


DSA 


A-AENDX-5tB-BEN0XH 


03420 


QPLCTB 


OSA 


AEN0X^5-3flBENDX«7-: 


03430 


OPINTB 


DSA 


5, 1 


03440 


• 


INVALID OP CODE 


03450 


ER3 


TFM 


EVALER-Lt 30000 


03460 




DC 
• 




03470 




BT 


EPRtNT>EPRINT-l 


03480 




BO 


ERCORt ERSTSW 


03490 




TFM 


INPUT2>1» 041. 9 


03500 




BTM 


INSTRN.LDLBL 


03510 


• 






03520 


• 


USING THE LAST DIGIT 


03530 


• 


MODIFIED TO BRANCH Tl 


03540 


• 






03550 


OK 


BXM 


•♦12.3I3I 


03560 




TF 


ZEP0^30.ALFLP4-11.L 


03570 




TO 


XRA5-1.ZEP0O0 


03580 




MF 


XRA5.XRA5-1 


03590 




SF 


ZEP04>27 


03600 




87 


BTBL4-6(5ltt6 


036L0 




B 


SAVRST...-7 


03620 




DORG 


•-1 



7.C-CENOX-9.D*0ENOX-ll 



0443* 


25 


03034 


02893 


04448 


25 


03035 


02895 


04460 


17 


10132 


J0320 


04472 


66 


04484 


000-8 


04484 


66 


04496 


00-15 


04496 


43 


04540 


028RO 


04508 


62 


04520 


00-ON 


04520 


64 


04496 


000-K 


04532 


49 


04680 




04540 


26 


00319 


04023 


04552 


70 


04587 


04043 


04564 


70 


04611 


04063 


04576 


24 


028R1 


00—0 


04588 


46 


04740 


01200 


04600 


64 


04576 


00—0 


04612 


49 


04680 




04623 




5 


X 4 


04623 




-005- 




04628 




-0330 




04633 




-071J 




04638 




-121- 




04643 




5 


X 4 


04643 




J3590 




04648 




J3928 




04653 




J4641 




04658 




J5853 




04663 




5 


X 4 


04663 




-0005 




04668 




-0007 




04673 




-0009 




04678 




-0011 




04680 


16 


07041 


LOOOO 


04691 




I 




04692 


27 


07322 


07321 


04704 


43 


07178 


02476 


04716 


16 


03035 


00-41 


04728 


17 


10132 


-8390 



04740 


62 


04752 


00—3 


04752 


26 


02330 


0458P 


04764 


25 


00328 


02330 


04776 


71 


00329 


00328 


04788 


32 


02327 


00000 


04800 


49 


0M8QM 




04808 


49 


05116 


00000 


04818 









73 



IMO SPS II-D FOR MONITOR It PHASE A 



03630 




B 


RDWBt »* 


-6 


03640 




DORG 


•-1 




03650 




8 


0ECL.». 


-5 


03660 




DORG 


•-1 




03670 




B 


BOMK. . t 


-4 


03680 




DORG 


•-1 




03690 




8 


MCCALLt* 


.-3 


03700 




00 RG 


•-1 




03710 




8 


ADC... 


-2 


03720 




DORG 


•-1 




03730 




8 


MACRO. >t 


-1 


03740 




DORG 


•-1 




03750 


BTBL 


8 


INST,., 


0 


03760 




DORG 


•-1 




03770 




8 


Sloe. 


♦ 1 


03780 




DORG 


•-1 




03790 




8 


DISK... 


♦2 


03800 




DORG 


•-1 




03810 




B 


ROW.,. 


♦3 


03820 




DORG 


•-1 




03830 




B 


K. , , 


♦4 


03840 




DORG 


♦-1 




03850 




B 


DSDNB.,. 


♦5 


03860 




DORG 


•-1 




03870 




B 


Bl... 


♦6 


03880 




DORG 






03890 




B 


BNI... 


♦7 


03900 




00 RG 


• -1 




03910 




B 


DENDC , > . 


♦8 


03920 




DORG 


•-1 




03930 




B 


BSIN... 


♦9 


03940 




DORG 


•-3 




03950 


DECL 


TD 


XRA6-1.ZEP01-29 


03960 




87 


BTBL2(6I 


.,6 


03970 




DORG 


BTBL-50- 


3.,, 


03980 


BTBL2 


DSA 


OC 




03990 




OS 


5,,, 


0 


04000 




OSA 


DORG 




04010 




OS 


5.,, 


♦ 1 


04020 




DSA 


OAC 




04030 




OS 


5... 


♦2 


04040 




DSA 


DSA 




04050 




OS 


5... 


♦ 3 


04060 




OSA 


OAS 




04070 




OS 


5... 


♦4 


04080 




OSA 


HEADER 





INTERWEAVE SUB-VECTOR MITH VECTOR 



04818 
04828 
04828 
04838 
04838 
04848 
04848 
04858 
04858 
04868 
04868 
04878 
04878 49 
04888 
04888 
04898 
04898 49 
04908 
04908 49 
04918 
04918 49 
04928 
04928 
04938 
04938 
04948 
04948 
04958 
04958 49 
04968 
04968 
04976 
04976 25 
04988 49 
04825 
04829 

04829 
04834 
04839 

04839 
04844 
04849 

04849 
04854 
04859 

04859 
04864 
04869 

04869 
04874 
04879 



49 



49 



49 



49 



49 



49 



49 



49 



49 



49 



49 



05068 

04976 

05032 

11196 

05020 

11304 

04996 

05104 

05080 

05056 

05092 

12284 

05044 

05044 

12728 

05008 

00333 
0MQ2R 



PAGE 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
02329 

X 1 



J2 768 
5 
5 

J2552 
5 
5 

J1488 
5 
5 

J3276 
5 
5 

J1408 
5 
5 



7 4 



1620 SPS II-O FOR MONITOR II PHASE A 



PAGE 













048T9 




J2676 


04090 




DS 


5ff» 


♦5 


04884 




5 


04100 




DSA 


DSB 




04889 




5 












04889 




J2048 


041 10 




OS 


5 1 1 » 


♦6 


04894 




5 


04120 




DSA 


OGM 




04899 




5 










' . ■ 


04899 




J1236 


04130 






5t t t 


♦7 


04904 




5 


04140 




DSA 


DMESCL 




04909 




5 












04909 




J1156 


04150 




DS 


5,,. 


♦8 


04914 




5 






00 RG 


DECL+20 


04996 






041 70 


I NST 


BTM 


INSTRN, 


DOINST 


04996 


17 


10132 


nit on 




BTM 


INSTRN, 


DOBS 


05008 


17 


10132 


04190 


Hz. 


BTM 


INSTRN* 


DOADC 


05020 


17 


10132 


04200 


BOMK 


BTM 


INSTRN, 


DOBOMK 


05032 


17 


10132 


042 10 


B I 


BTM 


INSTRN, 


OOBI 


05044 


17 


10132 


04220 


BNI 


OS 


,BI 




05044 




0 


04230 


ROW 


BTM 


INSTRN, 


DOROW 


05056 


17 


10132 


04240 


ROWS 


BTM 


INSTRN, 


DORDWB 


05068 


17 


10132 


04250 


DISK 


BTM 


INSTRN, 


DODISK 


05080 


17 


10132 


04260 


K 


BTM 


INSTRN, 


DOK 


05092 


17 


10132 


04270 


SIOC 


BTM 


INSTRN, 


OOStOC 


05104 


17 


10132 


04280 


SAVRST 


BTM 


INSTRN, 


OOSVRS 


05116 


17 


10132 



04290 
04300 
04310 
04320 
04330 
04340 
04350 
04 360 
04370 

04380 SCAN 
04390 
04400 
04410 
04420 

04430 SCAN2 
04440 
04450 
04460 
04470 
04480 
04485 

04490 SCANA 
04500 
04510 
04520 
04530 
04540 
04550 
04560 



THE FOLLOWING CLOSED SUBROUTINE EVALUATES 
THE STATEMENT OPERAND 



DS 

TRSCAN TR 
BT 
OS 
TFM 
TFM 
TF 
TDM 
• TF 
TO 
BO 
BO 
TR 
87 
BNR 
80 
SF 
CM 
BE 
CM 
BNE 
BNF 
CM 
BNF 



J0296 
J0404 
J0448 
J0528 
J0596 

J0664 
J0732 
J1076 
J0752 
J0832 
J0996 



5 




05132 




5 




INPUT-H9,INPUT*2l,, 


ELIMINATE LEADING , 


05134 


31 


02900 


02902 


SCAN,TRSCAN-1 




05146 


27 


05164 


05133 


5 




05162 




5 




OPER, 10,10 




05164 


16 


06532 


OOOJO 


XFLAG,00,10 




05176 


16 


06986 


000-0 


OiySW,CLERER4^5,, 


CLEAR SWITCHES 


05188 


26 


07318 


02698 


BSW,1,11 




05200 


15 


07319 


OOOOJ 


ADDRS,CLERER*9 




05212 


26 


03293 


02702 


ALPHA, LNTH+1,, 


RECORD MARK— ALPHA EMPTY 


05224 


25 


02684 


02388 


•♦44,INPUT*19 




05236 


43 


05280 


02900 


•♦32,INPUT*20 




05248 


43 


05280 


02901 


INPUT+19,INPUT*21 




05260 


31 


02900 


02902 


•-36 




05272 


49 


05236 




SCANl-24,iNPUT^20 




05280 


45 


05464 


02901 


FERRR,LPNSW 




05292 


43 


06988 


07317 


ADDRS-4 




05304 


32 


03289 


00000 


RCTR, 00,10 




05316 


14 


07314 


000-0 


SREL>12 




05328 


46 


05456 


01200 


RCTR, 01,10 




05340 


14 


07314 


000-1 


• ♦24 




05352 


47 


05376 


01200 


SREL, ADORS 




05364 


44 


05444 


03293 


RCTR, -01,10 




05376 


14 


07314 


000-J 


•♦24, ADORS 




05388 


44 


05412 


03293 



75 
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04570 




BE 


SREL 




05400 


46 


05444 


01200 


04580 




TFM 


EVALER-2, 71770,, 


RELOCATION ERROR 


05412 


16 


07040 


P1770 


04590 




BT 


EPRINT,EPRINT-1 




05424 


27 


07322 


07321 


04600 




87 


EVl 




05436 


49 


07078 




04610 


SREL 


TDM 


RL0CSW,1,11 




05444 


15 


07316 


OOOOJ 


04620 




B7 


TOBB 




05456 


49 


07102 




04630 




CM 


INPUT+20,23f 10 




05464 


14 


02901 


000K3 


04640 




BE 


SCANA-12 




05476 


46 


05292 


01200 


04650 


SCANl 


CM 


INPUT*20,10,10 




05488 


14 


02901 


OOOJO 


04660 




BNE 


• ♦44 




05500 


47 


05544 


01200 


04670 




TFM 


OPER, 10, 10 




05512 


16 


06532 


OOOJO 


04680 




TR 


INPUT^19,INPUT^21 




05524 


31 


02900 


02902 


04690 


EVALOP 


B7 


EVALAD 




05536 


49 


05960 




04700 




CM 


INPUT^20, 20,10 




05544 


14 


02901 


OOOKO 


04710 




BNE 


EVALAD 




05556 


47 


05960 


01200 


04720 




TFM 


OPER, 20, 10 




05568 


16 


06532 


OOOKO 


04730 




87 


SCAN 1^36 




05580 


49 


05524 




04740 


OtGALF 


BNR 


•♦20, ALPHA 




05588 


45 


05608 


02684 


04750 




B7 


MOVE 




05600 


49 


05676 




04760 




BO 


DIVIDE, DIVSW 




05608 


43 


05708 


07318 


04770 




M 


ALPHA, BETA 




05620 


23 


02684 


02689 


04780 




SF 


90 




05632 


32 


00090 


00000 


04790 




TF 


ALPHA, 99 




05644 


26 


02684 


00099 


04800 


NDRET 


80 


SREL-32,RSrMSW 




05656 


43 


05412 


07315 


04810 




8? 


M0VE^12 




05668 


49 


05688 




04820 


MOVE 


TF 


ALPHA, BETA 




05676 


26 


02684 


02689 


04830 




TDM 


DIVSW, 0 




05688 


15 


07318 


00000 


04840 




B7 


6ET-1,,6 




05700 


49 


0653P 




04850 


DIVIDE 


CM 


BETA,0 




05708 


14 


02689 


-0000 


04860 




BE 


MDRET 




05720 


46 


05656 


01200 


04870 




LD 


99, ALPHA 




05732 


28 


00099 


02684 


04880 




D 


89, BETA 




05744 


29 


00089 


02689 


04890 




SF 


85 




05756 


32 


00085 


00000 


04900 




TF 


ALPHA, 94 




05768 


26 


02684 


00094 


04910 




87 


MDRET 




05780 


49 


05656 




04920 




TDM 


DIVSW, 1,11 




05788 


15 


07318 


OOOOJ 


04930 


INTERN 


BD 


SREL-32, RSYMSW 




0S800 


43 


05412 


07315 


04940 




87 


SCANl+36 




05812 


49 


05524 




04950 




TDM 


LPNSW,1,11 




05820 


15 


07317 


OOOOJ 


04960 




TR 


INPUT+19,INPUT^21 




05832 


31 


02900 


02902 


04970 


SLOP 


CM 


OPER, ,10 




05844 


14 


06532 


000-0 


04980 




BE 


SCAN2 




05856 


46 


05224 


01200 


04990 




TD 


•♦13,0PER-1 




05868 


25 


05881 


06531 


05000 


ADDSUB 


20 


ADORS, ALPHA 




05880 


20 


03293 


02684 


05010 




TF 


ALPHA, CLERER+9 




05892 


26 


02684 


02702 


05020 




TFM 


OPER, ,10 




05904 


16 


06532 


000-0 


05030 




BNF 


•+36, RSYMSW 




05916 


44 


05952 


07315 


05040 




TD 


•+13, ADDSUB+1 




05928 


25 


05941 


05881 


05050 




AM 


RCTR, 1,10 




05940 


11 


07314 


000-1 


05060 




B7 


SCAN2 




05952 


49 


05224 




05070 


EVALAD 


SF 


HED-2 




05960 


32 


10119 


00000 


05090 




TDM 


BSW,0 




05972 


15 


07319 


00000 


05100 




TFM 


LABL,1,10 




05984 


16 


06075 


000-1 


05110 




TFM 


OOL, , 10 




05996 


16 


06073 


000-0 


05120 




TR 


COLL-18,THINGS-20 




06008 


31 


02421 


02400 


05130 




B7 


BCMSPC 




06020 


49 


06144 
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05140 » CHECK FOR SPECIAL CHARACTER 



05150 


COMSPC 


CM 


INPUT ♦20t70t 10 






0602 B 


14 


02901 


OOOPO 


05160 




BL 


SPEC 






06040 


47 ' 


06176 


01300 


05170 




TF 


COLLt INPUT*20 






06052 


26 


02439 


02901 


05180 




CF 


COLL-1 






06064 


33 


02438 


00000 


05190 


LABL 


OS 








06075 




0 




05200 


DOL 


DS 


#•-2 






06073 




0 




05210 




AM 


OOLtlflO 






06076 


11 


06073 


000-1 


05220 




TR 


C0LL-17,C0LL-15 






06088 


31 


02422 


02424 


05230 




CM 


C0LL-17t7f 10 






06100 


14 


02422 


000-7 


05240 


• 


SYMBOL IN OPERAND CONTAINS 


MORE THAN SIX 


CHARACTERS 










05250 


• 


OR NUMBER IN OPERAND HAS MORE THAN FIVE 


DIGITS 










05260 




BNE 


•♦20 






06112 


47 


06132 


01200 


05270 


ERLNTH 


B7 


ER5 






06124 


49 


07740 




05280 




TR 


INPUT<i-19»INPUT«21 






06132 


31 


02900 


02902 


05290 


• 


CHECK TO SEE IF OPERAND IS 


PRESENT 












05300 


BCMSPC 


TFM 


GET-1,BL0P 






06144 


16 


06537 


-5844 


05310 




BNR 


COMSPCf INPUT«20 






06156 


45 


06028 


02901 


05320 




B7 


GET 






06168 


49 


06538 




05330 


• 


CHECK FOR -f OR > 














05340 


SPEC 


BO 


SltINPUT«20 






06176 


43 


06208 


02901 


05350 


• 


CHECK FOR BLANK 














05360 




BD 


GETtlNPUT^19 






06188 


43 


06538 


02900 


05370 




B7 


BCMSPC- 12 






06200 


49 


06132 




05380 


• 


CHECK FOR COMMA 














05390 


SI 


CM 


INPUT«'20t23«10 






06208 


14 


02 901 


000K3 


05400 




BE 


GET 






06220 


46 


06538 


01200 


05410 


• 


CHECK FOR SLASH 














05420 




BNF 


• •*-48«0IVCSW 






06232 


44 


06280 


02485 


05430 




CM 


INPUT^20f21tl0 






06244 


14 


02901 


OOOKl 


05440 




BNE 


•♦24 






06256 


47 


06280 


01200 


05450 




BTM 


GET,INTERM-12 






06268 


17 


06538 


-5788 


05460 


• 


CHECK FOR ASTERISK 














05470 




CM 


INPUT^20tl4»IO 






06280 


14 


02901 


000J4 


054S0 




BE 


ASTER 






06292 


46 


06846 


01200 


05490 


• 


CHECK FOR DOLLAR SIGN 














05500 




CM 


INPUT^20«13»10 






06304 


14 


02901 


000J3 


05510 




BE 


DOLLAR 






06316 


46 


06408 


01200 


05520 


• 


CHECK FOR LEFT PAREN 














05530 




CM 


lNPUT^20f24tlO 






06328 


14 


02901 


000K4 


05540 




BNE 


•♦24 






06340 


47 


06364 


01200 


05550 




BTM 


GET«BL0P-24 






06352 


17 


06536 


-5820 


05560 


• 


CHECK FOR RIGHT PAREN 














05570 




CM 


INPUT^20t04»10 






06 364 


14 


02901 


000-4 


055B0 




BE 


RTPN 






06376 


46 


06882 


01200 


05590 


LDCHAR 


TDM 


LABL 






06388 


15 


06075 


00000 


05600 




B7 


C0MSPC^24 






06400 


49 


06052 




05610 


DOLLAR 


CF 


DOLLAR 






06408 


33 


06408 


00000 


05620 




BD 


•♦32tD0L 






06420 


43 


06452 


06073 


05630 




TFM 


COLLttlO 






06432 


16 


02439 


000-0 


05640 




B7 


•♦44 






06444 


49 


06486 




05650 




CM 


D0L«1,10 






06452 


14 


06073 


OOO-l 


05660 




BNE 


LDCHAR 






06464 


47 


06388 


01200 


05670 




SF 


COLL-3 






06476 


32 


02436 


00000 


05680 




CF 


HED-2 






06488 


33 


10119 


00000 


05690 




TDM 


LABL 






06500 


15 


06075 


00000 
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05700 




BD 


BCMSPC-12*D0L 






06512 


43 


06132 


06073 


05710 




B7 


BCMSPC-56 






06524 


49 


06088 




05720 


• 


















05730 


» 


CLOSED ROUTINE TO EVALUATE 


COLLECTED SYMBOL OR INTEGER 










05740 


» 


















05750 


OPER 


DC 
-0 


2fO 






06532 




2 




05760 




OS 


5 






06537 




5 




05770 


GET 


TDM 


RSYMSWtO 






06538 


15 


07315 


00000 


05775 




BD 


FERRR tLPNSM 






06550 


43 


06988 


07317 


05780 




C 


•♦23,C0LL-2 






06562 


24 


06585 


02437 


05790 




BE 


GETAST, 14,10 






06574 


46 


06758 


012J4 


05800 




BD 


TRNUMB t LABL 






06586 


43 


06802 


06075 


05810 




CM 


COLL-17, 05.10 






06598 


14 


02422 


000-5 


05820 




BH 


6CHAR 






06610 


46 


06714 


01100 


05830 




BE 


5CHAR 






06622 


46 


06682 


01200 


05840 




TDM 


COLLtO 






06634 


15 


02439 


00000 


05850 




TR 


C0LL~17, COLL-15 






06646 


31 


02^22 


02424 


05860 




CM 


COLL-17, 05,10 






06658 


14 


02422 


000-5 


05870 




BNE 


•-36 






06670 


47 


06634 


01200 


05880 


5CHAR 


BNF 


LBADD-24, HED-2 






06682 


44 


07556 


10119 


05890 




TF 


COLL-12, HED 






06694 


26 


02427 


10121 


05900 




B7 


LBADD 






06706 


49 


07580 




05910 


6CHAR 


BNF 


LBADD* HED-2 






06714 


44 


07580 


10119 


05920 




SF 


COLL-13 






06726 


32 


02426 


00000 


05930 




SF 


COLL-2 






06738 


32 


02437 


00000 


05940 




B7 


LBADD 






06750 


49 


07580 




05950 


GETAST 


TF 


BETAtADOCOM 






0675B 


26 


02689 


02529 


05960 




BNF 


DIGALFfRELSW 






06770 


44 


05588 


02478 


05970 




TDM 


RSYMSW,1,11 






06782 


15 


07315 


OOOOJ 


05980 




B7 


DIGALF 






06794 


49 


05588 




05990 


TRNUMB 


CM 


COLL- 14, 6060 






06802 


14 


02425 


-6060 


06000 




BH 


ER5 






06814 


46 


07740 


01100 


060 10 




TNS 


C0LL-2,8ETA 






06826 


72 


02437 


02689 


06020 




B7 


DIGALF 






06838 


49 


05588 




06030 


ASTER 


CM 


00L»0,10 






06846 


14 


06073 


000-0 


06040 




BE 


LDCHAR 






06858 


46 


06388 


01200 


06050 




BTM 


GET, INTERN 






06870 


17 


06536 


-5800 


06060 


RTPN 


BNF 


FERRR, LPNSWt, 


FORMAT ERROR 




06882 


44 


06988 


07317 


06070 




C 


•♦23,C0LL-2 






06894 


24 


06917 


02437 


06080 




BH 


•♦36,70,10 






06906 


46 


06942 


OUPO 


06090 




C 


•♦23,C0LL-2 






06918 


24 


06941 


02437 


06095 




BNL 


•♦48,77,10 






06930 


46 


06978 


013P7 


06100 




TFH 


EVALER-2, 75000 






06942 


16 


07040 


P5000 


06110 




BT 


EPR1NT,EPRINT-1,, 


ILLEGAL INDEX 


SPECIFIED 


06954 


27 


07322 


07321 


06120 




BD 


ERC0R,ERSTSH 






06966 


43 


07178 


02476 


06130 




B7 


SCANA 






06978 


49 


05304 




06140 


XFLAG 


DC 
-0 


2,0 






06986 




2 




06150 


FERRR 


TFM 


EVALER-2, 75000,, 


FORMAT ERROR 




06988 


16 


07040 


P5000 


06160 




BT 


EPRINT,EPRINT-I,, 


ILLEGAL )f 




07000 


27 


07322 


07321 


06170 




87 


EVl 






07012 


49 


07078 




06180 




















06190 


• 


EVALER IS THE ERROR ROUTINE 












06200 


• 


















06210 




DAS 


5 






07021 




5 


X 2 
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06220 




BNR 


59007 


07030 


45 


59007 


00000 


06230 




DC 
t 


If 


07041 




1 




06240 


EVALER 


BT 


EPRINTtEPRINT-l 


07042 


27 


07322 


07321 


06250 




SP TY 




07054 


34 


00000 


00101 


06260 




WATY 


COLL-12 


07066 


39 


02427 


00100 


06270 


EVl 


BD 


ERCOR, ERSTSW 


07078 


43 


07178 


02476 


06280 


CHKND 


TFM 


AOORS 


07090 


16 


03293 


-0000 


06290 


TOBB 


CF 


SCAN- I 


07102 


33 


05163 


00000 


06300 




BMR 


• 4-20,INPUT+20 


07114 


45 


07134 


02901 


06310 




B7 


SCAN- I,, 6 


07126 


49 


0516L 




06320 




CM 


INPUT*20.23,10 


07134 


14 


02901 


000K3 


06330 




BE 


SCAN-1,,6 


07146 


46 


0516L 


01200 


06340 




TR 


INPUT+19,INPUT+21 


07158 


31 


02900 


02902 


06350 




87 


TOBB+12 


07170 


49 


07114 




06360 


ERCOR 


WATY 


CORM,,, ERROR CORRECTION ON-LINE 


07178 


39 


03341 


00100 


06370 




RCTY 




07190 


34 


00000 


00102 


06380 




TR 


INPUT-H9,INSAV-1 


07202 


31 


02900 


02748 


06390 




WATY 


INPUT-10 


07214 


39 


02871 


00100 


06400 




TF 


AOOCOW, PLACE 


07226 


26 


02529 


03270 


06410 




TOM 


ERROIG, 1,11 


07238 


15 


03271 


OOOOJ 


06420 




SM 


INKRM,1,10 


07250 


12 


02566 


000-1 


06430 




SM 


STCNT,1,10 


07262 


12 


02514 


000-1 


06440 




TFM 


CFFA, NCOCFl 


07274 


16 


02631 


-7298 


06450 




BTM 


CFF,REA03 


07286 


17 


02594 


-3428 


06460 


NCOCFl 


DO A 


tO,A20ADtA2SCT,INSTRN 


07298 




14 








0J86Q0-58J0132 










06470 




DC 
t 


It* . 


07312 




1 




06480 


RCTR 


OS 


2t* RELOCATION COUNTER 


07314 




2 




06490 


RSYMSW 


OS 


Itt ON FOR RELOCATABLE SYMBOL 


07315 




1 




06500 


RLOCSW 


DS 


Itt ON FOR RELOCATABLE EXPRESSION 


07316 




1 




06510 


LPNSW 


OS 


I 


07317 




1 




06520 


DIVSW 


OS 


1 


07318 




1 




06530 


BSW 


OS 


If, ON INDICATES BLANK OPERAND 


07319 




1 




06540 


LOABSW 


OS 


l,f ON FOR RELOCATABLE SYMBOL TO TABLE 


07320 




1 




06550 


• 














06560 


• 


EPRINT PRINTS THE ERROR MESSAGE AND REFERENCE TO 










06570 


• 


INDICATE THE STATEMENT IN ERROR 










06580 


• 














06590 


EPRINT 


RCTY 




07322 


34 


00000 


00102 


06600 




TF 


LOPOUTf INPUT-2 


07334 


26 


03321 


02879 


06610 




WATY 


LOPOUT-8 


07346 


39 


03313 


00100 


06620 




WATY 


ERLAB 


07358 


39 


03297 


00100 


06630 




WNTY 


INKRM-3 


07370 


38 


02563 


00100 


06640 




WATY 


EVALER-21 


07382 


39 


07021 


00100 


06650 




80 


•♦24»ERSTSW 


07394 


43 


07418 


02476 


06660 




SF 


NONEXff, KILL AUTO EXECUTION 


07406 


32 


00457 


00000 


06670 




882 




07418 


42 






06680 


• 














06690 


• 




TEST IF SIZE OF OBJECT CORE HAS BEEN EXCEEDED. 










06700 






LINKAGE - BTM CTESTf>^12 (RETURN ADDRESS IF ERROR). 










06710 


• 














06720 




DS 


6 


07425 




6 




06730 


CTEST 


CM 


ADDCOWf 99999 


07426 


14 


02529 


R9999 


06740 




BE 


ERl-2 


07438 


46 


07486 


01200 



7 9 
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06750 




C 


ADDCQWtOBJCRE 


06760 




BI 


ERlf 1300 


06770 


CTl 


TOM 


CTUlOfOO 


06780 




882 




06790 


ERl 


BD 


•-2,CT1+10 


06800 




TFM 


EVALER-l, 10000 


06810 




OC 
f 


l,»f« 


06820 




BT 


EPRINT,EPRINT-1 


06830 




TOM 


CTH-10,01 


06840 




SF 


NONEX 


06850 




87 


CTEST-1,,6 


06860 


« 






06870 


• 


THE SYMBOL TABLE IS SEARCHED FOR 


06880 


• 






06890 




TDM 


COLLf 0 


06900 




TR 


COLL-17, COLL-15 


06910 


LBAOO 


BNF 


LB2, SCAN-1 


06920 




87 


OIGALF 


06930 


LB2 


TF 


8SENT, COLL-2 


06940 




BT 


BS, BS-1 


069S0 




BNF 


NIC, EQSW 


06960 




AM 


BSBF-1,5,10 


06970 




TF 


BETA, BSBF-1« 11 


06980 


LAOOR 


BNF 


•♦48, RELSW 


06990 




BNF 


•♦36, BETA 


07000 




TDM 


RSYMSW, 1,11 


07010 




CF 


BETA 


07020 




87 


OIGALF 


07030 


NIC 


CM 


SBOUT, 00,10 


07040 




BNE 


• ♦24 


07050 


ER5 


BTM 


EVALER, 50000 


07060 




DC 
t 


1,»,» 


07070 




CM 


BSBF-l, LBLIM 


07080 




BNL 


• -24 


07090 




TD 


OGSV, LOSYMB^l 


07100 




TD 


LOSYMB+l, SPS6M 


07110 


• 


WRITE 


DISK-WCRC— SAVE CORE SYMBOLS 


07120 




TFM 


I0RT,»^23 


07130 




B 


I0RBC,SDEFI,7 


07140 




TF 


B20CF+5, BlOCF+5 


07150 




TF 


SBCNT, SBOUT 


07160 




TFM 


LIMITS-5, MAXLIH 


07170 




TFM 


LIMITS, LBLIM 


07180 


RDBLK 


AM 


B2DCF+5, SPBL 


07190 




READ 


DISK-WLRC— READ SYMBOL BLOCK 


07200 




TFM 


I0RT,*+23 


07210 




B 


I0GT,SDEF2,7 


07220 




BT 


BS, BS-l 


07230 




80 


LBFND, EQSW 


07240 




SM 


SBCNT, 1,10 


07250 




BP 


RDBLK 


07260 


♦ 


READ 


DISK-WLRC— RESTORE C0RE-ER5 


07270 




TFM 


I0RT,»+23 


07280 




B 


I0GT,SDEF1,7 



07450 


24 


02529 


02497 


07462 


46 


07488 


01300 


07474 


15 


07484 


00000 


07486 


42 






07488 


43 


07486 


07484 


07500 


16 


07041 


JODOO 


07511 




1 




07512 


27 


07322 


07321 


07524 


15 


07484 


00001 


07536 


32 


00457 


00000 


07548 


49 


0742N 




07556 


15 


02439 


00000 


07568 


31 


02422 


02424 


07580 


44 


07600 


05163 


07592 


49 


05588 




07600 


26 


08389 


02437 


07612 


27 


08096 


08095 


07624 


44 


07716 


08335 


07636 


11 


08359 


000-5 


07648 


26 


02689 


0835R 


07660 


44 


07708 


02478 


07672 


44 


07708 


02689 


07684 


15 


07315 


OOOOJ 


07696 


33 


02689 


00000 


07708 


49 


05588 




07716 


14 


02645 


000-0 


07728 


47 


07752 


01200 


07740 


17 


07042 


NOOOO 


07751 




1 




07752 


14 


08359 


K0009 


07764 


46 


07740 


01300 


07776 


25 


03385 


19998 


07788 


25 


19998 


02561 


07800 


16 


00565 


-7823 


07812 


49 


00520 


J0023 


07824 


26 


10077 


10061 


07836 


26 


02673 


02645 


07848 


16 


03276 


J5997 


07860 


16 


03281 


K0009 


07872 


11 


10077 


-0040 


07884 


16 


00565 


-7907 


07896 


49 


00566 


J0031 


07908 


27 


08096 


08095 


07920 


43 


08016 


08335 


07932 


12 


02673 


000-1 


07944 


46 


07872 


01100 


07956 


16 


00565 


-7979 


07968 


49 


00566 


J0023 



8 0 
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PACE 



07290 




TD 


LOSYMB«-lf 06SV 


07960 


25 


19998 


03389 


07300 




TR 


LIMITS— 9t PIITLIM— 4 


07992 


31 


03272 


02499 


07310 




BTM 


EVALERt 50000 


08004 


17 


07042 


NOOOO 


07320 




OC 


1 1 • #• 


08015 




1 




07330 


LBFNu 


AM 


BSBr— lt5f 10 


08016 


11 


08359 


000-5 


07340 




TF 


BETA t BSBr- It 11 


08028 


26 


02689 


0835R 


07350 


* 


READ 


01 SK—WLRC— RESTORE CORE 










07360 




TFM 


tORT»««23 


08040 


16 


00565 


-8063 


07370 




B 


I06T,SDEF1,7 


08052 


49 


00566 


J0023 


07380 




TD 


L0SYMB41, D6SV 


08064 


25 


19998 


03385 


07390 




TR 


LIMITS-9. PRTLIM>4 


08076 


31 


03272 


02499 


07400 




B7 


LA0DRtt2 


08088 


49 


-7660 




07410 


* 


BINARY SYMBOL TABLE SEARCH SUBROUTINE 










07420 


BS 


TR 


LIM-9, LIMITS-9 


08096 


31 


08367 


03272 


07430 


BSCYC 


TF 


BSBFt CLERER^5 


08108 


26 


08360 


02698 


07440 




A 


BSBFt LIM 


08120 


21 


08360 


08376 


07450 




A 


8SBF» LIM-5 


08132 


21 


08360 


08371 


07460 




TF 


BSAVt BSBF 


08144 


26 


08366 


08360 


07470 




A 


BSBFt BSBF 


08156 


21 


08360 


08360 


07480 




A 


BSBFt BSBF 


08168 


21 


08360 


08360 


07490 




A 


BSBF, BSAV 


08180 


21 


08360 


08366 


07500 




80 


•♦24t BSBF 


08192 


43 


08216 


08360 


07510 




AM 


BSBF-1. 8tl0 


08204 


11 


08359 


000-8 


07520 




SM 


BSBF-lt 8*10 


08216 


12 


08359 


000-8 


07530 




C 


BSBF-1. LIN-5 


08228 


24 


08359 


08371 


07540 




BNE 


»-t-26 


08240 


47 


08266 


01200 


07550 




TOM 


EQSWt 0 


08252 


15 


08335 


00000 


07560 




BB2 




08264 


42 






07570 




C 


BSENT. BSBF-ltll 


08266 


24 


08389 


0835R 


07580 




BNE 


BSNEQ 


08278 


47 


08304 


01200 


07590 




TDM 


EOSW. Itll 


08290 


15 


08335 


OOOOJ 






BB2 




08302 


42 






07610 


BSNEQ 


BH 


BSHI 


08304 


46 


08336 


01100 


07620 




TF 


LIM. BSBF-1 


08316 


26 


08376 


08359 


07630 




87 


BSCYC 


08328 


49 


08108 




07640 


BSHI 


TF 


LIM-5, BSBF-1 


08336 


26 


08371 


08359 


07650 




87 


BSCYC 


08348 


49 


08108 




07660 


EQSW 


OS 


t BSHI-1 


08335 




0 




07670 


BSBF 


DC 


6t0 


08360 




6 








-00000 










07680 


BSAV 


DC 


6t0 


08366 




6 








-00000 










07690 


LiN 


DC 


lOtO 


08376 




10 








-000000000 










07700 




OC 
• 


It* 


08377 




1 




07710 


BSENT 


OS 


12 


08389 




12 




07720 


* 














07730 


* 


ROUTINE TO LOAD LABELS INTO SYMBOL TABLE 










07740 
















07750 


LDLBL 


C 


CLERER^ll, INPUT^IO 


08390 


24 


02704 


02891 


07760 




BNE 


• ♦24 


08402 


47 


08426 


01200 


07770 


SNOTCD 


BTM 


OUTPUT, PHASEA 


08414 


17 


09570 


-3392 


07780 




TOM 


TSPECt 1 


08426 


15 


10124 


00001 


07790 




BLXM 


•♦12t 12(11 tt CHECK LABEL 


08438 


66 


08450 


000J2 
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07800 




BO 


LBCK2*INPUT-2(1} 




08450 


43 


08486 


028P9 


07810 




BD 


LBCK2tINPUT-3(lltt 


SKIP TRAILING BLANKS 


08462 


43 


06486 


028P8 


07820 




BCXM •-24t-2(ll 




08474 


64 


08450 


000-K 


07830 


LBCK2 


C 


•♦23tINPUT-2{l)tt 


.OK 


08486 


24 


08509 


028P9 


07840 




BE 


LBC3t03tlO 




08498 


46 


06606 


012-3 


07850 




BD 


•♦36,0IVCSWtt 


/ ILLEGAL UNLESS 


08510 


43 


06546 


02485 


07860 




C 


•♦23tINPUT-2Cl)tt 


NO SYMBOLIC DIVIDE 


08522 


24 


08545 


028P9 


07870 




BE 


LBC3,21tlOt 


IN EFFECT 


08534 


46 


08606 


012K1 


07880 




C 


•♦23tINPUT-2(l) 




08546 


24 


08569 


028P9 


07890 




BH 


ER2Bt33tlOt 


!)♦«•$, AND BLANK NOT ALLOWED 


08558 


46 


09382 


011L3 


07900 




C 


•♦23, INPUT-2CI) 




08570 


24 


08593 


028P9 


07910 




BL 


•♦24,69,10 




08582 


47 


08606 


01309 


07920 




TDM 


TSPECO 




08594 


15 


10124 


00000 


07930 


LBC3 


BCXM L6CK2,-2(1I 




08606 


64 


08486 


000-K 


07940 




BD 


ER2B, TSPEC 




08618 


43 


09382 


10124 


07950 




TF 


BSENT, INPUT^IO 




08630 


26 


08389 


02891 


07960 




SF 


BSENT 




08642 


32 


08389 


00000 


07970 




80 


•♦60t INPUT^IO 




08654 


43 


08714 


02891 


07980 




BD 


•♦48» INPUT^9 




08666 


43 


08714 


02890 


07990 




TF 


BSENTt INPUT^B 




08678 


26 


08389 


02889 


08000 




CF 


BSENT-9 




08690 


33 


08380 


00000 


08010 




TF 


BSENT-lOt HEO 




08702 


26 


08379 


10121 


08020 




BT 


BS, BS-1 




08714 


27 


08096 


08095 


08030 




BD 


ER4A, EQSW 




08726 


43 


09478 


08335 


08040 




CM 


BSBF-1, LBLIM 




08738 


14 


08359 


K0009 


08050 




BNL 


LDSOK 




08750 


46 


09026 


01300 


08060 




CM 


SBOUTt OOtlO 




08762 


14 


02645 


000-0 


08070 




BE 


LDSOK 




08774 


46 


09026 


01200 


08080 




TD 


OGSVt LOSYMB^l 




08786 


25 


03385 


19998 


08090 




TD 


LOSYMB^lt SPSGM 




08798 


25 


19998 


02561 


08100 


• 


IOCS 


CALL-WRITE DISK WLRC 












08110 




TFM 


lORT,«+23 




08810 


16 


00565 


-8833 


08120 




B 


IORBCtSDEFlt7 




08822 


49 


00520 


J0023 


08130 




TFM 


LIMITS, LBLIM 




08834 


16 


03281 


K0009 


08140 




TFM 


L|N|TS-5t MAXLIMtt 


LEFT FULL BLOCK LIMIT 


08846 


16 


03276 


J5997 


08150 




TF 


SBCNTt SBOUT 




08858 


26 


02673 


02645 


08160 




TF 


B20CF^5t BIOCF^S 




08870 


26 


10077 


10061 


08170 




TF 


LOSR^llt BSBF-1 




08882 


26 


09025 


08359 


08180 


LDOSCY 


AM 


B20CF^5» SPBLtlO 




08894 


11 


10077 


OOOMO 


08190 


• 


READ 


DISK-WLRC 












08200 




TFM 


IDRT,»^23 




08906 


16 


00565 


-8929 


08210 




B 


10GT,SDEF2,7 




08918 


49 


00566 


J0031 


08220 




BT 


BS, BS-1 




08930 


27 


08096 


08095 


08230 




BD 


ER4, EQSW 




08942 


43 


09430 


08335 


08240 




SM 


SBCNT, 1,10 




08954 


12 


02673 


000-1 


08250 




BNZ 


LDOSCY 




08966 


47 


08894 


01200 


08260 


• 


IOCS 


CALL-READ DISK WLRC 












08270 




TFM 


I0RT,«^23 




08978 


16 


00565 


-9001 


08280 




B 


I0GT,SDEF1,7 




08990 


49 


00566 


J0023 


08290 




TD 


LOSYMB^lt OGSV 




09002 


25 


19998 


03385 


08300 


LOSR 


TFM 


BSBF-1, •-• 




09014 


16 


08359 


-0000 


08310 


LOSOK 


SM 


PRTLIM, 17,10 




09026 


12 


02503 


000J7 


08320 




CM 


PRTLIM, MAXLIM 




09038 


14 


02503 


J 5 997 


08330 




BL 


TABFUL 




09050 


47 


09230 


01300 


08340 




TR 


LIMITS-9, PRTLIM-4 




09062 


31 


03272 


02499 


08350 




BLX 


• ♦12,BSBF-im^, 


SHIFT SYMBOLS LEFT 


09074 


65 


09086 


083N9 



82 
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06360 




TO 


06SVt6(l)tt 


TO MAKE HOLE FOR 09086 


25 


03385 


000-6 


08370 




TOM 


6fl)»«t 


NEW ENTRY 09098 


15 


000-6 


00000 


08380 




OC 


It • f* 


09109 




1 




08390 




BLX 


•+12tPRTLIM(2) 


09110 


65 


09122 


O2N03 


08400 




TR 


999 72(21 $99989(2} ft 


09122 


31 


99R72 


99Ra9 


084 10 




TF 


BSBF— It BSENTf 6 


09134 


26 


0835R 


08389 


08420 




BNF 


•♦48tRELSH 


09146 


44 


09194 


02478 


08430 




SF 


ADORS 


09158 


32 


03293 


00000 


08440 




BD 


»*24tL0ABSM 


09170 


43 


09194 


07320 


08450 




CF 


ADORS 


09182 


33 


03293 


00000 


08460 




TF 


5(1) f ADORS tr 


INSERT SYMBOLIC EOUIV 09194 


26 


000-5 


03293 


08470 




TO 


6(n>06SV 


09206 


25 


000-6 


03385 


08480 




BTM 


OUTPUTt PHASEA 


09218 


17 


09570 


-3392 


08490 


TABFUL 


AM 


B20CF*5t SPBLtlO 


09230 


11 


10077 


OOOMO 


08500 




C 


SBOUTt SBMAX 


09242 


24 


02645 


02671 


08510 




BNL 


ER19 


09254 


46 


09498 


01300 


08520 




AM 


SBOUTt It 10 


09266 


11 


02645 


000-1 


08530 




TD 


OGSVt LOSYMB+l 


09278 


25 


03385 


19998 


08540 




TO 


LOSYMB+lt SPS6M 


09290 


25 


19998 


02561 


08550 


• 


IOCS 


CALL-WRITE DISK WLRC 










08560 




TFM 


IORTt»*23 


09302 


16 


00565 


-9325 


08570 




B 


I0RBCtSDEF2t7 


09314 


49 


00520 


J0031 


08580 




TD 


L0SYMB4-1, OGSV 


09326 


25 


19998 


03385 


08590 




TFM 


PRTLIMt LBLIM-17 


09338 


16 


02503 


J9992 


08600 




TF 


LOSYMB, CLERER«52 


09350 


26 


19997 


02745 


08610 




TFM 


BSBF-ltLBLIM-l7 


09362 


16 


08359 


J9992 


08620 




B7 


LOSOK 


09374 


49 


09026 




08630 


ER26 


TFM 


EVALER~lf 20000 


09382 


16 


07041 


KOOOO 


08640 




DC 
* 


lf»t* 


09393 




1 




08650 




8T 


EPRINTt EPRINT-1 


09394 


27 


07322 


07321 


08660 




BD 


ERCORf ERSTSW 


09406 


43 


07178 


02476 


08670 




BTM 


OUTPUTi PHASEA 


09418 


17 


09570 


-3392 


08680 


» 


READ 


DISK-WLRC 










08690 


ER4 


TFM 


I0RT,»>23 


09430 


16 


00565 


-9453 


08700 




B 


I0GT,SDEF1,7 


09442 


49 


00566 


J0023 


08710 




TR 


LIMITS-9t PRTLIM-4 


09454 


31 


03272 


02499 


08720 




TO 


LOSYMB+lt DGSV 


09466 


25 


19998 


03385 


08730 


ER4A 


TFM 


EVALER-lt 40000 


09478 


16 


07041 


MOOOO 


08740 




DC 
' 


lt«t» 


09489 




1 




08750 




87 


ER2B^12 


09490 


49 


09394 




08760 


ER19 


TFM 


EVALER-lt 17900 


09498 


16 


07041 


J7900 


08770 




OC 
* 


It • t» 


09509 




1 




08780 




TDM 


ASTSWtltll 


09510 


15 


10125 


OOOOJ 


08790 




NOP 


OUTPUT, PHASEA 


09522 


41 


09570 


03392 


08800 




BT 


EPRINT,EPRINT-1 


09534 


27 


07322 


07321 


08810 




TFM 


»-23,17,I0t 


CHANGE NOP TO BTM 09546 


16 


09523 


000 J 7 






B7 


• -36 


09558 


49 


09522 




08830 
















08840 


» 


OUTPUT ROUTINE 










08850 


• 














08860 




OS 


5 


09569 




5 




08870 


OUTPUT 


TF 


0T20CF*5,0UTDCF*5 


09570 


26 


10109 


10093 



83 
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08880 




S 


0T20CF+5, SYMTAO 








09582 


22 


10109 


02643 


08890 




CM 


OT20CF+5,-2tlO 








09594 


14 


10109 


000-K 


08900 




BH 


ER20,,, 


INTER SECTOR OVERFLOW 


09606 


46 


09956 


01100 


08910 




BD 


2PASS, 2PSSW 








09618 


43 


09766 


02477 


08920 




BNR 


2SECT, INPUT2+99 








09630 


45 


09710 


03133 


08930 




TD 


INPUT2*99, SPSGM 








09642 


25 


03133 


02561 


08940 




TOM 


OUTDCF+8, 1 








09654 


15 


10096 


00001 


08950 




WRITE 


OISK-NO WLRC 
















08960 




TFM 


I0RT,*+23 








09666 


16 


00565 


-9689 


08970 




B 


I0RBC,QUTDF1,7 








09678 


49 


00520 


J0039 


08980 




AM 


OUTDCF+5, 1 








09690 


11 


10093 


-0001 


08990 




87 


OUTPUT-1, ,6,, 


RETURN 






09702 


49 


0956R 




09000 


2SECT 


TOM 


OUTDCF+8, 2 








09710 


15 


10096 


00002 


09010 


• 


IOCS 


CALL-WRITE DISK-NO WLRC 
















09020 




TFM 


I0RT,«*23 








09722 


16 


00565 


-9745 


09030 




B 


I0RBC,0UTDF1,7 








09734 


49 


00520 


J 003 9 


09040 


2S 


AM 


OUTDCF+5, 2 








09746 


11 


10093 


-0002 


09050 




87 


OUTPUT-1,,6 








09758 


49 


0956R 




09060 


2PASS 


CM 


2PTR+6,INPUT2+208 








09766 


14 


09832 


-3242 


09070 




BL 


• ♦24 








09778 


47 


09802 


01300 


09080 




BTM 


2PS0UT,»*12 








09790 


17 


09862 


-9802 


09090 




TR 


2PBUF,INPUT2 








09802 


31 


09946 


03034 


09100 




TD 


2PBUF+7,ERR0IG 








09814 


25 


09953 


03271 


09 1 10 


2PTR 


TR 


INPUT2*8,2P8UF,2 








09826 


31 


-3042 


09946 


09120 




AM 


2PTR+6t8,10 








09838 


11 


09832 


000-8 


09130 




B7 


OUTPUT-1,,6 








09850 


49 


0956R 




09140 




OS 


5 








09861 




5 




09150 


2PS0UT 


TF 


0T2DCF+5, OUTDCF+5 








09862 


26 


10109 


10093 


09160 




AM 


OUTDCF+5, 2, 10 








09874 


11 


10093 


000-2 


09170 




TD 


INPUT2+208, SPSGM 








09886 


25 


03242 


02561 


09180 


• 


IOCS 


CALL-WRITE DISK WITH WLRC 














09190 




TFM 


I0RT,»+23 








09898 


16 


00565 


-9921 


09200 




B 


I0RBC,0UTDF2,7 








09910 


49 


00520 


J0047 


09210 




TFM 


2PTR+6,INPUT2+8 








09922 


16 


09832 


-3042 


09220 


2PRE 


B 


2PS0UT-1,»6 








09934 


49 


0986J 


00000 


09230 


2PBUF 


DSC 


9,0* 








09946 




9 








00000000 • 
















09240 


ER20 


NOP 


0UTPUT^1,,6 








09956 


41 


0956R 


00000 


09250 




TDM 


ASTSWtltll 








09968 


15 


10125 


OOOOJ 


09260 




TFM 


EVALER-1, 27000 








09980 


16 


07041 


K7000 


09270 




DC 


It* t» 








09991 




1 




09280 




BT 


EPRINT, EPRINT-1 








09992 


27 


07322 


07321 


09290 




TFM 


ER20+1,49,10 








10004 


16 


09957 


DOOM 9 


09300 




B7 


OUTPUT-1,,6 








10016 


49 


0956R 




09310 


SOEFl 


DSC 


2,00,, PLUS 


DISK WITH 


WRONG 


LENGTH 


10023 




2 




09320 




00 
DSA 


BIDCF 








10029 




5 


X 1 
















10029 




J0056 




09330 




DC 


1,« 








10030 




1 




09340 


S0EF2 


DSC 


2,00,, PLUS 


DISK WITH 


WRONG 


LENGTH 


10031 




2 




09350 




00 
DSA 


B2DCF 








10037 




5 


X 1 



8't 
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10037 




J0072 




09360 




DC 


It' 






10038 




1 




09370 


OUTDFl 


OSC 


2«02,« PLUS 


DISK 


NOT WRONG LENGTH 


10039 




2 




09380 




02 
OS A 


OUTOCF 






10045 




5 


X 1 














10045 




J0088 




09390 




DC 


If' 






10046 




1 




09400 


0UT0F2 


OSC 


2,00,, PLUS 


DISK 


WITH WRONG LENGTH 


10047 




2 




09410 




00 
DSA 


0T20CF 






10053 




5 


X 1 














10053 




J0104 




09420 




DC 
• 


It' 






10054 




1 




09430 


BIDCF 


00 A 


tOt»-*tSPBLtSBFAOO 






10056 




14 








0-00 00-40 J 5998 














09440 




OC 
• 


It' 






10070 




1 




09450 


B2DCF 


00 A 


•0.»-«,SPBLtSBFADO 






10072 




14 








0> 0000-40 J 5998 














09460 




OC 


It' 






10086 




1 




09470 


OUTDCF 


00 A 


,0,»-»,l,INPUT2 






10088 




14 








0-0000-01-3034 














09480 




OC 


It' 






10102 




1 




09490 


0T2DCF 


00 A 


tO.»-»,2*INPUT2^8 






10104 




14 








0-0000-02-3042 














09500 




OC 
• 


1.' 






10118 




1 




09510 




OS 


1 






10119 




1 




09520 


HED 


DC 


2t0 






10121 




2 




09530 


CNTR 


-0 
OS 


2 






10123 




2 




09540 


TSPEC 


OS 


1 






10124 




1 




09550 


ASTSH 


OS 


1 






10125 




1 




09560 


• 


















09570 


• 


PHASE 


Al— INITIALIZATION 














09580 


• 


















09590 


START 


TFM 


I0RT,«*23 






10126 


16 


00565 


J0149 


09600 




B 


lOGTtMCAOEF*? 






10138 


49 


00566 


J4162 


09610 




TOM 


MOCTQCtO 






10150 


15 


16023 


00000 


09620 




TOM 


MODOC tO 






10162 


15 


16022 


00000 


09630 




TF 


M0NAME,CLERER«11 






10174 


26 


16035 


02704 


09640 




TF 


M010NOfCLERER4'3 






10186 


26 


16039 


02696 


09650 




TFM 


MOM AO, 99999 






10198 


16 


00415 


R9999 


09660 




TFM 


INKRM»99999 






10210 


16 


02566 


R9999 


09670 




TFM 


AO0COW,2401 






10222 


16 


02529 


-2401 


09680 




TF 


LtMOML 






10234 


26 


02521 


16041 


09690 




TO 


NOISEtMONOIS 






10246 


25 


02522 


16044 


09700 




TF 


SUBNOtMOSBNO 






10258 


26 


02524 


16043 


09710 


START2 


TDM 


OtO 






10270 


15 


00000 


00000 


09720 




TR 


19999, CLERER^52 






10282 


31 


19999 


02745 
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09730 




BNR 


•♦44,0 






10294 


45 


10338 


00000 


09740 




TOM 


PR0CRE,2,11 






10306 


15 


02498 


OOOOK 


09750 




TFM 


HCLIM,LBLIM 






10318 


16 


02508 


K0009 


09760 




B7 


AlCl 






10330 


49 


10418 




09770 




TR 


39999, CLERER4-52 






10338 


31 


39999 


02745 


097.80 




BNR 


• ♦44 






10350 


45 


10394 


00000 


09790 




TOM 


PR0CRE,4,11 






10362 


15 


02498 


OOOOM 


09800 




TFM 


HCLIM,LBLIM«1I76*17 






10374 


16 


02508 


MOOOl 


09810 




B7 


AlCl 






10386 


49 


10418 




09820 




TOM 


PR0CRE,6,11 






10394 


15 


02498 


00000 


09830 




TFM 


HCL I M,LBLIM4-2*1 176*17 






10406 


16 


02508 


N9993 


09840 


AlCL 


TO 


0BJCRE-4,PRGCRE 






10418 


25 


02493 


02498 


09850 




TF 


PRTLIM, HCLIM 






10430 


26 


02503 


02508 


09860 




SM 


PRTLIM, 17,10 






10442 


12 


02503 


000J7 


09870 




TR 


LIMITS-9, PRTLlM-4 






10454 


31 


03272 


02499 


09880 




TF 


•♦30,0BJCRE 






10466 


26 


10496 


02497 


09890 




SM 


• 't-18,1,10 






10478 


12 


10496 


000- 1 


09900 




TF 


•-•,CLERER*52 






10490 


26 


00000 


02745 


09910 




BSBA 


• ♦12 






10502 


60 


10514 


0000 1 


09920 




BLXM 


•♦12,0(6) ,,, 


CLEAR VECTOR REGISTERS 


10514 


66 


10526 


0 — GO 


09930 




BLXM 


•♦12,0(5) 






10526 


66 


10538 


0-0-0 


09940 




TO 


INCOOE,MOEXEC 






10538 


25 


02492 


00426 


09950 




CF 


INCOOE 






10550 


33 


02492 


00000 


09960 




CM 


INC00E,03tl0 






10562 


14 


02492 


000-3 


09970 


ST2L 


BL 


C15P 






10574 


47 


12006 


01300 


09980 




BE 


C14P 






10586 


46 


11 950 


01200 


09990 




B7 


C13P 






10598 


49 


11894 




10000 


PROCON 


BNR 


•♦24,INPUT-10 






10606 


45 


10630 


02871 


10010 




TFM 


INPUT-10, 00,10 






10618 


16 


02871 


000-0 


10020 




BLXM 


•♦12,-9-15311) 






10630 


66 


10642 


OOlOK 


10030 




CF 


INPUT^153(1) 






10642 


33 


030L4 


00000 


10040 




BCXM 


•-12,2(1) 






10654 


64 


10642 


000-2 


10050 




CM 


INPUT-10, 14,10 






10666 


14 


02871 


000J4 


10060 




BNE 


CALLA2 






10678 


47 


12490 


01200 


10070 




BD 


•♦36,TYINSW 






10690 


43 


10726 


02473 


10060 




RCTY 








10702 


34 


00000 


00102 


10090 




WAXY 


INPUT-10,,, 


TYPE 


CONTROL STATEMENT 


10714 


39 


02871 


00100 


10100 




BLXM 


•♦12,0( U 






10726 


66 


10738 


000-0 


10110 


SLP 


BXM 


•♦12,2(1),, 


COMPRESS BLANKS 


10738 


62 


10750 


000-2 


10120 




BNR 


•♦20,INPUT-10{1) 






10750 


45 


10770 


028PI 


10130 




87 


SLPX 






10762 


49 


10814 




10140 




C 


CLERER^1,INPUT-10(1I 






10770 


24 


02694 


028P1 


10150 




BNE 


SLP 






10782 


47 


10738 


01200 


10160 




TR 


I NPUT-ll ( 1 ) , INPUT-9 ( 1 ) 






10794 


31 


028P0 


026P2 


10170 




B7 


SLP+12 






10806 


49 


10750 




10180 


SLPX 


BLXM 


•♦l2.BOAT-E0AT-5(3) 






10814 


66 


10826 


OOJMN 


10190 




TFM 


SLC^ll.MESTAB 






10826 


16 


10897 


J3353 


10200 




A 


SLC^l I ,B0LT-B0AT^E0AT^5 (3) 




10838 


21 


10897 


11JJ2 


10210 




C 


XRAl ,80LT-B0AT^E0AT^5 f 3 ) 






10850 


24 


00309 


1 1JJ2 


10220 ' 




TF 


XRA2 , B0LT-B0AT^E0AT^5 ( 3 ) 






10862 


26 


00314 


11JJ2 


10230 




BL 


• ♦36 






10874 


47 


10910 


01300 


10240 


SLC 


C 


INPUT-12(2) ,•-• 






10886 


24 


02Q69 


00000 


10250 




BE 


MATCH 






10898 


46 


10956 


01200 


10260 




BCXM 


SLPX^24,5(3) 






10910 


64 


10838 


00—5 


10270 




WATY 


lOMES 






10922 


39 


10943 


00100 


10280 




87 


PHASEA 






10934 


49 


03392 





86 
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10340 BOAT DSA CIP tC2P tC3PfC4P«C5P«C6PffC7P«C8P tC9P9C10P 



DSA CllP,CllAP»C12PtC13P»C14P,C15P*C16P,C17PtCi7AP 



10943 

10956 
10967 

10967 
10972 
10977 
10982 
10987 
10992 
10997 
1 1002 
11007 
11012 
11017 

11017 
11022 
11027 
11032 
11037 
11042 
11047 
11052 
11057 
11062 
11067 

11067 
11072 
11077 
11082 
11087 
11092 
11097 
11102 
11107 
11112 

11112 
11117 
11122 
11127 
11132 
11137 
11142 
11147 
11152 
11157 
11162 

11162 
11167 
11172 
11177 



49 IIKNP 

5 X 

-0022 
-0028 
-0030 
-0022 
-0020 
-0040 
-0032 
-0022 
-0010 
-0032 

5 X 

-0034 
-0034 
-0020 
-0030 
-0040 
-0042 
-0018 
-0030 
-0024 
-0030 

5 X 

-0032 
-0036 
-0024 
-0028 
-0010 
-0018 
-0010 
-0054 
-0034 

5 X 

J1254 
J1334 
J1454 
J 1 634 
J1654 
J1674 
J 1694 
J1714 
J1734 
J1814 

5 X 

J1834 
J1854 
J1874 
J 1894 
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87 



OSA C18P,C19P,C20P,C21P,C22PtC23PtC24PtC25P.C26P 



10370 


EOAT 


OSA 


C27P 


10380 


CIP 


TFM 


OBJCREtOt t 


10390 




TO 


OBJCRE-4, INPUT-10*2«1 1 


10400 




SF 


OBJCRE-4 


10410 




CM 


0BJCRE*20000 


10420 




BNL 


• ♦24 


10430 




TFM 


OB JCRE> 20000 


10440 




B7 


PHASEA 


10450 


C2P 


BNR 


• ♦20tINPUT-104-2»15., 


10460 




B7 


C2P1 


10470 




C 


C70.INPUT-10+2»15 


10480 




BNH 


C2P2 


10490 


C2P1 


TFM 


SUBNO, 00*10 


10500 




TO 


SUBN0,INPUT-104^2»14 


10510 




87 


PHASEA 


10520 


C2P2 


TO 


SUBN0,INPUT-10+2»15 


10530 




TO 


SUBNO-1 1 INPUT-104-2*14 


10540 




SF 


SUBNO-1 


10550 




87 


PHASEA 


10560 


C3P 


BNR 


•♦20, INPUT-10*2»16,, 


10570 




B7 


C3P1 


10580 




C 


C70,INPUT-10+2»16 


10590 




BNH 


C3P2 


10600 


C3P1 


TFM 


L,00,IO 


10610 




TO 


L,INPUT-10*2»15 


10620 




B7 


C3P3 


10630 


C3P2 


TO 


L, INPUT-10+2»16 


10640 




TO 


L-l,INPUT-10+2»15 


10650 




SF 


L-1 


10660 


C3P3 


CM 


L,2,10 


10670 




BL 


• ♦36 


10680 




CM 


L,45,10 


10690 




BNH 


• ♦24 


10700 




TF 


LtMOML 


10710 




B7 


PHASEA 


10720 


C4P 


TO 


N0ISE,INPUT-I0^2«ll, ♦ 


10730 




B7 


PHASEA 


10740 


C5P 


TOM 


ERSTSW,l,lt, 



OBJECT CORE N 



SUBROUTINE NUMBER NN 



MANTISSA LENGTH NN 



NOISE DIGIT N 
ERROR STOP 



11182 




J1950 




11187 




J2006 




11192 




J2050 




11197 




J2070 




11202 




J2090 




11207 




5 


X 9 


11207 




J2110 




11212 




J2154 




11217 




J2174 




11222 




J2314 




11227 




J2334 




11232 




J2354 




11237 




J241G 




11242 




J2430 




11247 




J2450 




11252 




5 


X 1 


11252 




J2470 




11254 


16 


02497 


-0000 


11266 


25 


02493 


02B93 


11278 


32 


02493 


00000 


11290 


14 


02497 


KOOOO 


11302 


46 


11326 


01300 


11314 


16 


02497 


KOOOO 


11326 


49 


03392 




11334 


45 


11354 


02901 


11346 


49 


11378 




11354 


24 


14161 


02901 


11366 


47 


11410 


01100 


11378 


16 


02524 


000-0 


11390 


25 


02524 


02899 


11402 


49 


03392 




11410 


25 


02524 


02901 


11422 


25 


02523 


02899 


11434 


32 


02523 


00000 


11446 


49 


03392 




11454 


45 


11474 


02903 


11466 


49 


11498 




11474 


24 


14161 


02903 


11486 


47 


11530 


01100 


11498 


16 


02521 


000-0 


11510 


25 


02521 


02901 


11522 


49 


11566 




11530 


25 


02 521 


02903 


11542 


25 


02520 


02901 


11554 


32 


02520 


00000 


11566 


14 


02521 


000-2 


11578 


47 


11614 


01300 


11590 


14 


02521 


000M5 


11602 


47 


11626 


01100 


11614 


26 


02521 


16041 


11626 


49 


03392 




11634 


25 


02522 


02893 


11646 


49 


03392 




11654 


15 


02476 


OOOOJ 
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87 


PHASEA 




11666 


49 


03392 




10760 


C6P 


TDM 


RELSM,I»1I» 


ASSEMBLE RELOCATABLE 


11674 


15 


02478 


OOOOJ 


10770 




B7 


PHASEA 




11686 


49 


03392 




10780 


C7P 


TDH 


MOCTOCf Itllt 


OUTPUT PAPER TAPE 


11694 


15 


16023 


OOOOJ 


10790 




B7 


PHASEA 




11706 


49 


03392 




10800 


C8P 


TDM 


MOCTOCtOtll» 


OUTPUT CARD 


11714 


15 


16023 


0000- 


10610 




87 


PHASEA 




11726 


49 


03392 




10820 


C9P 


TO 


CTVT tlNPUT^S.* 


CTVT NNNNN 


11734 


25 


02490 


02869 


10830 




TD 


CTVT-l,INPUT+6 




11746 


25 


02489 


02887 


10840 




TO 


C TV T-2» INPUTS 




11758 


25 


02488 


02885 


10850 




TD 


CTVT-3tINPUT*2 




11770 


25 


02487 


02663 


10860 




TD 


CTVT-4, INPUT 




11782 


25 


02486 


02681 


10870 




SF 


CTVT-4, 




11794 


32 


02466 


00000 


10880 




87 


PHASEA 




11806 


49 


03392 




10890 


ClOP 


TOM 


STTYSWvltllf • 


TYPE SYMBOL TABLE 


11814 


15 


02471 


OOOOJ 


10900 




87 


PHASEA 




11826 


49 


03392 




10910 


CUP 


TDM 


STPCSMfltll, 


PUNCH SYMBOL TABLE 


11834 


15 


02470 


OOOOJ 


10920 




87 


PHASEA 




11846 


49 


03392 




10930 


CHAP 


TDM 


STPRSM.l.ll, 


PRINT SYMBOL TABLE 


11854 


15 


02472 


OOOOJ 


10940 




87 


PHASEA 




11866 


49 


03392 




10950 


C12P 


TOM 


INTRSW,1»11« 


INTERRUPT XXX 


11874 


15 


02483 


OOOOJ 


10960 




87 


PHASEA 




11886 


49 


03392 




10970 


C13P 


TDM 


CDINSU,1,11, 


BEGIN CARD INPUT 


11894 


15 


02474 


OOOOJ 


10980 




TDM 


PTINSH*0 




11906 


IS 


02475 


00000 


10990 




TOM 


TYINSUfO 




11918 


15 


02473 


00000 


llOOO 




TOM 


INC00E«5 




11930 


15 


02492 


00005 


11010 




B7 


PHASEA' 




11942 


49 


03392 




11020 


C14P 


TOM 


PTINSHtUllt 


BEGIN PAPER TAPE INPUT 


11950 


15 


02475 


OOOOJ 


11030 




TOM 


TYINSMtO 




11962 


15 


02473 


00000 


11040 




TOM 


COINSM»0 




11974 


15 


02474 


00000 


11050 




TDM 


INC00E.3 




11986 


15 


02492 


00003 


11060 




87 


PHASEA 




11998 


49 


03392 




11070 


C15P 


TDM 


TYINSH*1»11» 


BEGIN TYPEWRITER INPUT 


12006 


15 


02473 


OOOOJ 


11080 




TOM 


COINSMtO 




12018 


15 


02474 


00000 


11090 




TOM 


PTINSN.O 




12030 


15 


02475 


00000 


11100 




87 


PHASEA 




12042 


49 


03392 




11110 


C16P 


TOM 


LSCOSMtUllt 


LIST CARD 


12050 


15 


02479 


OOOOJ 


11120 




87 


PHASEA 




12062 


49 


03392 




11130 


C17P 


TOM 


LSTYSM«l»llt 


LIST TYPEWRITER 


12070 


15 


02480 


OOOOJ 


11140 




87 


PHASEA 




12082 


49 


03392 




11150 


C17AP 


TOM 


LSPRSM*1,11» 


LIST PRINTER 


12090 


15 


02481 


OOOOJ 


11160 




87 


PHASEA 




12102 


49 


03392 




11170 


C18P 


BNF 


PHASEA* tSTAT-SOf. 


STORE CORE IMAGE 


12110 


44 


03392 


02530 


11180 




TO 


ISTAT-30, FLGRM 




12122 


25 


02530 


03339 


11190 




TOM 


N000C*0»11» 




12134 


15 


16022 


0000- 


11200 




B7 


PHASEA 




12146 


49 


03392 




11210 


C19P 


TOM 


MOOOCtltll* 


STORE RELOADABLE 


12154 


15 


16022 


OOOOJ 


11220 




87 


PHASEA 




12166 


49 


03392 




11230 


C20P 


BO 


PHASEA, SSTSWt.t 


SYSTEM SYMBOL TABLE 


12174 


43 


03392 


12313 


11240 




TF 


SST0CF4-13,HCLIM 




12186 


26 


12311 


02508 


11250 


C20P2 


SM 


SSTDCF^13*SSTSCT« 100^11 




12198 


12 


12311 


-3511 


11260 




TFM 


I0RT,»*23 




12210 


16 


00565 


J2233 


11270 




B 


I0GTtSST0F,7 




12222 


49 


00566 


J2289 


11280 




BLX 


• ♦12,SSrOCF4>13(l) 




12234 


65 


12246 


123J1 


11290 




S 


PRTLIM,4I1) 




12246 


22 


02503 


000-4 


11300 




TR 


LIMlTS*9,PRTLIM-4 




12258 


31 


03272 


02499 



89 
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11310 




TOM 


SSTSW, 1,11 




12270 


15 


12313 


OOOOJ 


11320 


C20P4 


87 


PHASEA 




12282 


49 


03392 




11330 


SSTDF 


DSC 


2,22,, ABSOLUTE 


DISK NOT WRONG LENGTH 


12289 




2 




11340 


C20P3 


22 
DSA 


SSTOCF 




12295 




5 


X 1 












12295 




J2298 




11350 




DC 
1 






12296 




1 




11360 


SSTOCF 


DO A 


tO,SSTOAO,SSTSCT,«-* 




12298 




14 








OJ 8927-3 5-0000 












11370 




DC 
t 


lt« 




12312 




1 




11380 


SSTSW 


OS 


I 




12313 




1 




11390 


C21P 


TDM 


2PSSW,1,11, 


TWO PASS MODE 


12314 


15 


02477 


OOOOJ 


11400 




B7 


PHASEA 




12326 


49 


03392 




11410 


C22P 


TOM 


KILSUB,1,11, 


NO SUBROUTINES 


12334 


15 


02484 


OOOOJ 


11420 




B7 


PHASEA 




12346 


49 


03392 




11430 


C23P 


TR 


INPUT-10U),CLERER«1,, 


NAME AAAAAA 


12354 


31 


028P1 


02694 


11440 




SF 


INPUT-10*2«5-l 




12366 


32 


02880 


00000 


11450 




TF 


MONAME, INPUT-10*2»5^2*5 




12378 


26 


16035 


02891 


11460 




CF 


INPUT-10*2«5-l 




12390 


33 


02880 


00000 


11470 




B7 


PHASEA 




12402 


49 


03392 




11480 


C24P 


TNS 


tNPUT-10«2«12,MOIDNa, , 


ID NUMBER NNNN 


12410 


72 


02895 


16039 


11490 




87 


PHASEA 




12422 


49 


03392 




11500 


C25P 


CF 


ISTAT-30,,, 


LIBR 


12430 


33 


02530 


00000 


11510 




87 


PHASEA 




12442 


49 


03392 




11520 


C26P 


TOM 


PCNUSW,l,llt 


PUNCH RESEQUENCED SOURCE DECK 


12450 


15 


02482 


OOOOJ 


11530 




87 


PHASEA 




12462 


49 


03392 




11540 


C27P 


TOM 


01VCSW,0,, 


NO SYMBOLIC DIVIDE 


12470 


15 


02465 


00000 


11550 




87 


PHASEA 




12482 


49 


03392 




11560 


CALLA2 


SF 


INPUT-1 




12490 


32 


02880 


00000 


11570 




SF 


INPUT^ll 




12502 


32 


02892 


00000 


11580 




BLXH 


••t-12, 19-153(1) 




12514 


66 


12526 


OOILM 


11590 




SF 


INPUT^153(1) 




12526 


32 


030L4 


00000 


11600 




BCXM 


•-12,2(1) 




12538 


64 


12526 


000-2 


11610 




TFM 


I0RT,««23 




12550 


16 


00565 


J2573 


11620 




B 


I0RBC,MCA0EF,7 




12562 


49 


00520 


J4162 


11630 




BNF 


•♦24,TYINSW 




12574 


44 


12598 


02473 


11640 




TOM 


2PSSW,0 




12586 


15 


02477 


00000 


11650 


• 
















11660 


• 


DISK STORAGE SCRATCH SECTOR ASSIGNMENT 










11670 


• 
















11680 




TFM 


IORT,«4^23 




12598 


16 


00565 


J2621 


11690 




B 


t0GT,0IM,7 




12610 


49 


00566 


J3330 


11700 




TF 


CYLAV,M0SCT*8*20 




12622 


26 


14167 


16028 


11705 




80 


♦♦24,TYINSW 




12634 


43 


12656 


02473 


11710 




RCTY 






12646 


34 


00000 


00102 


11720 




TF 


SCTAV-2,CYLAV,. 


OBTAIN AVAIL CYL. FROM MONITOR 


12658 


26 


14190 


14167 


11730 




A 


SCTAV.SCTAV 




12670 


21 


14192 


14192 


11740 




80 


SAS2P,2PSSW 




12682 


43 


12902 


02477 


11750 




TFM 


SASC*11,IPTSP8*SPBL 




12694 


16 


12777 


-1540 


11760 




CM 


HCLIM,LBLIM*I176»17 




12706 


14 


02506 


MOOOl 


11770 




BL 


• M8 




12718 


47 


12766 


01300 


11780 




BE 


• ♦24 




12730 


46 


12754 


01200 


11790 




AM 


SASC+ll,BP20K»lPTSPB-BP20K»SPBL 


12742 


11 


12777 


-7300 



911 
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11600 










12754 


21 


12777 


12753 


11810 


SASC 


CM 


SCTAVt*-* 




12766 




14192 


—0000 


11820 




BL 


SASXl 




12778 


47 


12870 


01300 


11830 




AM 


ST^A\/.7»<tPfti 






\ \ 


14197 


—0080 


1 1840 


SASl 


AM 






12802 


11 


02671 


000- 1 


11850 




AM 


^A^r-*' 1 1 . 1 PT^PR 

OMOO~ -1 1 f 4 r 4 D 




12814 


1 1 


12 777 


- 1500 


11860 




c 


STTAV.'^A^r*! 1 




12826 


24 


14192 


12777 


1 1870 




BL 


SASXl 




«?^^^ 


t7 


12870 


01300 


1 1 880 




AM 






12850 


1 1 


14197 


-0040 


11890 




B7 


SAS 1 




12862 


49 


12802 




1 1900 


SASXl 


jf 






12870 


26 


14202 


14192 


11910 






INTCAW CTCAI/ 
I ri 1 9 A V f ^ 1 V 




12882 


22 


14202 


14197 


11920 




87 


TYPASS 




12894 


49 


13174 










SASC24-11»2PTSPB-*>SPBL 




12902 


16 


12985 


-0640 


1 1940 




CM 


HCLIM,LBLIM+1176»17 




12914 


14 


02508 


MOOOl 








• ♦48 




12926 


47 


12974 


01300 


1 1 960 




BE 


• ♦24 




12938 


46 


12962 


01200 






a'^ 


SASC2^ 1 1 f BP20K*2PTSPB~BP20K^SPBL 


12950 


11 


12985 


-2800 


1 1980 






SASC2+llf»-l 




12962 


21 


12985 


12961 


1 1990 


SASC2 


CM 


SCTAVt*-* 




12974 


14 


14192 


-0000 


12000 






SASX2 




12986 


47 


13078 


01300 


12010 




AM 


STSAVt2«SPBL 




12998 


1 1 


14197 


-0080 






AM 


SBMAXf 1(10 




13010 


11 


02671 


000-1 


12030 




AM 


SASC+11»2PTSPB 




13022 


1 1 


12777 


-0600 


12040 




Q 


SCTAVf SASC-^ll 




13034 


24 


14192 


12777 


12050 




BL 


SASX2 




1 3046 


47 


13078 


01300 


12060 




AM 


STSAVfSPBL 




13058 


11 


141 97 


-0040 


12070 




B7 


SAS2 






^? 


13010 




12080 


SASX2 


jf 


INTSAV.SCTAV 




1 307B 


26 


14202 


14 192 


12090 






INTSAV.STSAV 




13090 


22 


14202 


14197 


12100 




MM 


lNTSAVt2PRTI0 




13102 


13 


14202 


KOOOO 


121 10 




SF 






13114 


32 


00090 


00000 








INTSAVf 94 




13126 


26 


14202 


00094 


12130 




TD 


•♦23,INTSAV 




13138 


2!> 


13161 


14202 


12140 




TO 


•♦23,AJUST 




1 3150 


25 


13173 


02399 


12150 






INTSAVttlO 




13162 


1 1 


14202 


000-0 


12160 


TYPASS 


jf 


SYMTAD.SCTAV 




13174 


26 


02643 


14 192 


12170 






SYMTA0,STSAV 




13186 


22 


02643 


141 97 


12180 




f p 


I0A0DR,SYMTA0 




J ^^?^ 






02643 


12 190 






lOADORtlNTSAV 




13210 


22 


02638 


14202 


12200 




TF 


BlOCF+5, SYMTAD 




1 3222 


26 


10061 


02643 


12210 






B2DCF+5,SYMTAD 




1 3234 


26 


10077 


02643 


12220 




jf 


OUTOCF^St lOAOOR 




1 3246 


26 


10093 


02638 


12230 






•♦24,RELSW 




13258 


44 


1 3282 


02478 


12240 




TFM 


ADOCOW. 99999 




13270 


16 


02529 


R9999 


12250 




TFM 


R2BE^I,4Itl0f 


CHANGE BE TO NOP 


13282 


16 


03673 


OOOMl 


12260 




TFM 


PR0STM^l,4l,l0., 


CHANGE B TO NOP 


13294 


16 


03805 


DOOM I 


12270 




TFM 


CFFAfNCOCFl 




13306 


16 


02631 


-7298 


12280 






CFF,PROSTM 




13318 


17 


02594 


-3804 


12290 


DIM 


DSC 


2,22 




13330 




2 




12300 




22 
OS A 


OIMDCF 




13336 




5 


X 1 












13336 




J3338 




12310 




DC 






13337 




1 
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12320 OIMDCF DDA ,0,0IMDAD,1,M0SCT 

0-48 00-01 J 6000 
12330 DC 

I 

12340 MESTAB OS ••♦! 

12350 CI DAC ll,»OBJECTCORE 

•OBJECTCORE 
12360 C2 DAC 14, •SUBROUTINESET 

•SUBROUTINESET 
12370 C3 DAC 1 5, -MANTI SSALENGTH 

•MANTISSALENGTH 
12380 C4 DAC I I, •NOI SEDIGIT 

•NOISEOIGIT 
12390 C5 DAC lO.^ERRORSTOP 

•ERRORSTOP 

12400 C6 DAC 20, •ASSEMBLERELOCATABLE 

•ASSEMBLERELOCATABLE 
12410 C7 DAC 16,»0UTPUTPAPERTAPE 

•OUTPUTPAPERTAPE 
12420 C8 DAC II, •OUTPUTCARO 

•OUTPUTCARD 
12430 C9 DAC 05,«CTVT 

•CTVT 

12440 CIO DAC 16, •TYPESYMBOLTABLE 

•TYPESYMBOLTABLE 
12450 Cll DAC 17,»PUNCHSYMB0LTABLE 

•PUNCHSYMBOL TABLE 
12460 CllA DAC 17, •PRINTSYMBOLTABLE 

•PRINTSYMBOLTABLE 
12470 C12 OAC 10, •INTERRUPT 

•INTERRUPT 
12480 013 OAC 15,«BEGINCARDINPUT 

•BEGINCAROINPUT 
12490 C14 DAC 20,«8E6INPAPERTAPEINPUT 

•BEGINPAPERTAPEINPUT 
12500 C15 DAC 2l,^B£GINTYPEWRITERiNPUT 

•BEGINTYPEWRITERINPUT 
12510 C16 DAC 09,^LISTCAR0 

•LISTCARO 

12520 C17 OAC 15,»LISTTYPE WRI TER 

•LISTTYPEWRITER 
12530 C17A DAC 12,«LISTPRINTER 

•LISTPRINTER 
12540 C18 DAC 15, •STORECOREIMAGE 

•STORECORE IMAGE 
12550 C19 DAC 16, •STOREREiOAOABLE 

•STORERELOADABLE 
12560 C20 DAC 18, •SYSTEMSYMBOLTABLE 

•SYSTEMSYMBOLTABLE 
12570 C21 DAC 12,»TW0PASSM0DE 

•TWOPASSMODE 
12580 C22 OAC 14, •NOSUBROUTINES 

•NOSUBROUTINES 
12590 C23 DAC 05, •NAME 

•NAME 

12600 C24 DAC 09,^IDNUMB€R 
• IDNUMBER 



PHASE A pftGE 



13338 


14 






13352 


1 






13353 
13355 


0 
11 


X 


2 


13377 


14 


X 


2 


13405 


15 


X 


2 


13435 


11 


X 


2 


13457 


10 


X 


2 


13477 


20 


X 


2 


13517 


16 


X 


2 


13549 


11 


X 


2 


13571 


5 


X 


2 


13581 


16 


X 


2 


13613 


17 


X 


2 


13647 


17 


X 


2 


13681 


10 


X 


2 


13701 


15 


X 


2 


13731 


20 


X 


2 


13771 


21 


X 


2 


13813 


9 


X 


2 


13831 


15 


X 


2 


13861 


12 


X 


2 


13885 


15 


X 


2 


13915 


16 


X 


2 


13947 


18 


X 


2 


13983 


12 


X 


2 


14007 


14 


X 


2 


14035 


5 


X 


2 


14045 


9 


X 


2 
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12610 


C25 


DAC 


05,»LIBR 


14063 






•LIBR 




12620 


C26 


OAC 


27,«PUNCHRESEQUENCE0S0URCE0ECK 


14073 






•PUNCHRESEQUENCEDSOURCEOECK 




12630 


C27 


OAC 


1 7 « •NOS YNBOL I CD I V 1 DE 


14127 






•NOSYMBOLICOIVlOE 




12640 


C70 


OC 


2(70 


14161 






PO 






12650 


MCAOEF 


OSC 


2,22 


14162 






22 




14168 


12660 




OS A 


MCAOCF 










14168 


12670 




DC 
1 


If* 


14169 


12680 


MCAOCF 


00 A 


•OtMOSOAO.ltMOSCT 


1 A i7n 






0J9663-01J6000 




12690 




OC 




14184 


12700 


CYLAV 


OC 


3*20 


14187 






-20 






12710 


SCTAV 


OC 


5,0 


14192 






-0000 




12720 


STSAV 


DC 


5,0 


14197 






-0000 




12730 


INTSAV 


DC 


5.0 








-0000 




127A0 




DC 


l,« 


14203 


12750 


FLAl 


SF 


FLGRM 




12760 




34 


AIDCF, 00701 


142 16 


12770 




38 


AIDCF ,00702 


14228 


12780 




TRA 




14240 










14252 


12790 


AIDCF 


DO A 


,0,A10AD,A1SCT,2EP0 


14264 






OJ8600J37-2300 




12800 




OC 
• 


l,« 


. _ 


12810 




TCO 


FLAl 




12820 




DORG 


START 




12830 




OS 


5 


1 ni Tin 


12840 


INSTRN 


TO 


•♦23,ADDC0W 


1 n 1 
1 ni^l 


12850 




TO 


•♦23,AJUST 


1 J, . 


12860 




AM 


AODCOW,,10 




12870 




BTM 


SCAN, •♦12,7 11 


1 n ifiR 


12880 




BTM 


TRSCAN,»^12,7 11 


10180 


12890 




C 


INPUT«18,BMK46 


10 192 


12900 




BE 


• ♦36 




12910 




C 


INPUT>18,BBT46 


10216 






BNE 


• ♦24 


10228 


12930 




BTM 


TRSCAN,»+12,7 11 


10240 


12940 




TF 


A0DRS,AD0C0W 


10252 


12950 




AM 


ADDC0W,11,10 


10264 


12960 




BTM 


CTEST,«^12 


10276 


12970 




B7 


INSTRN-1,,6 


10288 



PAGE 
5 X 2 



27 X 
17 X 

2 

2 

5 X 

J4170 
1 

14 

1 

3 
5 
5 
5 
1 



32 
34 

38 14264 

36 00000 
49 00000 
14 

1> 



03339 00000 
14264 00701 
00702 
00500 
00000 



5 

10155 
10167 
02529 
05164 
05134 
02899 
10240 
24 02899 
10252 
05134 
03293 
02529 
07426 
1013J 



02529 
02399 
000-0 
J018- 
J019K 
10403 
01200 
10395 
01200 
J025K 
02529 
OOOJl 
J0288 



93 
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12980 


DOINST 


TF 


INPUT2^1, ZEPO+29 




10296 


26 


03035 


02329 


12990 




C 


INPUTS 14, XB7-3 




10306 


24 


02895 


13620 


13000 




BNE 


•♦24 




10320 


47 


10344 


01200 


13010 




SM 


AODCOW, 5,10 




10332 


12 


02529 


000-5 


13020 




C 


INPUT^16, XBB2-3 




10344 


24 


02897 


14146 


13030 




BNE 


•♦24 




10356 


47 


10380 


01200 


13040 




SM 


ADDCOM, 10,10 




10368 


12 


02529 


OOOJO 


13050 




B7 


LDLBL 




10380 


49 


08390 




13060 


BBT 


DAC 


4, BBT ,,, 




10389 




4 


X 2 


13070 


BMK 


BBT 
OAC 


4, BMK , , , 




10397 




4 


X 2 






BMK 














13080 


DOBS 


TFM 


INPUT2^1,060,9 




10404 


16 


03035 


00-60 


13090 




TO 


INPUT2^6,ZEP0^26 




10416 


25 


03040 


02328 


13100 




SF 


INPUT2^6 




10428 


32 


03040 


00000 


13110 




B7 


LDLBL 




10440 


49 


08390 




13120 


OOAOC 


TF 


INPUT2^2, ZEP0^29 




10448 


26 


03036 


02329 


13130 




SF 


INPUT2^2 




10460 


32 


03036 


00000 


13140 




TOM 


INPUT2,8 




10472 


15 


03034 


00008 


13150 




CM 


INPUT^12, 59,10, 


FLAG OP OF RNtC, RAIC 


10484 


14 


02893 


000N9 


13160 




BNE 


• ♦24 




10496 


47 


10520 


01200 


13170 




SF 


INPUT2^1 




10508 


32 


03035 


00000 


13180 




B7 


LDLBL 




10520 


49 


08390 




13190 


DOBOMK 


TDM 


INPUT2,4 




10528 


15 


03034 


00004 


13200 




TO 


INPUT2^1, ZEP0^28 




10540 


25 


03035 


02328 


13210 




TO 


INPUT2^6, ZEP0^29 




10552 


25 


03040 


02329 


13220 




SF 


INPUT2+6 




10564 


32 


03040 


00000 


13230 




TFM 


INPUT2^4,00,10 11 




10576 


16 


03038 


000— 


13240 




B7 


LOLBL 




10588 


49 


08390 




13250 


DOB I 


TOM 


INPUT2, 4 




10596 


15 


03034 


00004 


13260 




TO 


INPUT2^1, ZEP0^30 




10608 


25 


03035 


02330 


13270 




SF 


ZEP0^2fl 




10620 


32 


02328 


00000 


13280 




TF 


INPUT2^4,ZEP0^29 




10632 


26 


03038 


02329 


13290 




SF 


INPUT2^4 




10644 


32 


03038 


00000 


13300 




B7 


LDLBL 




10656 


49 


08390 




13310 


OORDW 


TOM 


INPUT2^3,0.11 




10664 


15 


03037 


0000- 


13320 




TO 


INPUT2^1, 2EP0^28 




10676 


25 


03035 


02328 


13330 




TDM 


INPUT2, 3 




10688 


15 


03034 


00003 


13340 




TO 


INPUT2^4,ZEP0^29 




10700 


25 


03038 


02329 


13350 




SF 


INPUT2^4 




10712 


32 


03036 


00000 


13360 




87 


LDLBL 




10724 


49 


08390 




13370 


DORDWB 


TDM 


INPUT2^3,3,11 




10732 


15 


03037 


OOOOL 


13380 




B7 


00RDW^12 




10744 


49 


10676 




13390 


DOK 


TFM 


INPUT2^1, 034,9 




10752 


16 


03035 


00-34 


13400 




TD 


INPUT2+6, ZEPD^29 




10764 


25 


03040 


02329 


13410 




SF 


INPUT2^6 




10776 


32 


03040 


00000 


13420 




TD 


INPUT2^4, ZEP0^28 




10788 


25 


03038 


02328 


13430 




SF 


INPUT2^4 




10800 


32 


03038 


00000 


13440 




TDM 


INPUT2^3, 0,11 




10612 


15 


03037 


0000- 


13450 




B7 


LDLBL 




10824 


49 


08 390 




13460 


DOSIOC 


SF 


ZEP0^22 




10832 


32 


02322 


00000 


13470 




TFM 


INPUT2^l, 046,9 




10844 


16 


03035 


00-46 


13480 




CM 


ZEP0^23, 43,10 




10856 


14 


02323 


000M3 


13490 




BE 


• ♦72 




10868 


46 


10940 


01200 


13500 




CM 


ZEP0^25,4243,8 




10880 


14 


02325 


0M243 


13510 




BE 


• ♦36 




10892 


46 


10928 


01200 
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13520 




CM 


ZEP04-23t42f 10 


10904 


14 


02323 


000M2 


13530 




BE 


• ♦24 


10916 


46 


10940 


01200 


13540 




TDM 


INPUT2«-lf 1 


10928 


15 


03035 


00007 


13550 




TFM 


INPUT244t60tl011 


10940 


16 


03038 


OQOO- 


13560 




SF 


ZEP0^28 


10952 


32 


02 328 


00000 


13570 




TF 


lNPUT2*6t2EP0*29 


10964 


26 


03040 


02329 


13580 




SF 


INPUT 2-1-6 


10976 


32 


03040 


00000 


13590 




87 


LDLBL 


10988 


49 


08390 




13600 


DOSVRS 


AM 


ADDC0W,12 


10996 


11 


02529 


-0012 


13610 




TFM 


iNPUT2'i-l» 02.10 


11008 


16 


03035 


000-2 


13620 




BO 


• «-36»ZEP04-29 


11020 


43 


11056 


02329 


13630 




AM 


AD0C0W«12 


11032 


11 


02529 


-0012 


13640 




TOM 


lNPUT2'flfl 


11044 


15 


03035 


OOOOl 


13650 




BTM 


CTEST, •♦12 


11056 


17 


07426 


J1068 


13660 




B7 


tOLBL 


11068 


49 


08390 




13670 


DOOISK 


TDM 


INPUT2,3 


11076 


15 


03034 


00003 


13680 




TD 


INPUT2^1, 2EP0^28 


11088 


25 


03035 


02328 


13690 




TDM 


INPUT2^4» 7,11 


11100 


15 


03038 


OOOOP 


13700 




TDM 


INPUT2^3f 0»11 


11112 


15 


03037 


0000- 


13710 




TO 


INPUT2^6, 2EP0^29 


11124 


25 


03040 


02329 


13720 




SF 


INPUT2^6 


11136 


32 


03040 


00000 


13730 




87 


LDLBL 


1 1148 


49 


08390 




13740 


OMESCL 


TFM 


CFFA.FFIOCF 


11156 


16 


02631 


J1180 


13750 




BTM 


CFF,DECL2 


11168 


17 


02594 


J0132 


13760 


FFIDCF 


ODA 


•0,A4DAD,A4SCT»INSTRN 


11180 




14 








0J8883>44J0132 










13770 




DC 
• 


l.» 


1 1 194 




1 




13780 


MCCALL 


TFM 


CFFA,A3DCF 


11196 


16 


02631 


J1220 


13790 




BTM 


CFF,MACR02 


11208 


17 


02594 


J0132 


13800 


A3DCF 


ODA 


•0,A3DAD»A3SCT»INSTRN 


11220 




14 








0J8861>22J0132 










13810 




DC 
1 


If* 


11234 




1 




13820 


DGH 


TOM 


INPUT2, 5 


11236' 


15 


03034 


00005 


13830 




BTM 


SCAN««+12 


11248 


17 


05164 


J1260 


13840 




BNF 


OAC 3-32, BSW 


11260 


44 


11972 


07319 


13850 




AM 


ADDCOW, 1 


11272 


11 


02529 


-0001 


13860 




TF 


AODRS, AODCOM 


11284 


26 


03293 


02529 


13870 




87 


DAC 3- 32 


11296 


4y 


11972 




13880 


MACRO 


TD 


•♦23, ADDCOW 


11304 


25 


11327 


02529 


13890 




TO 


•♦23,AJUST 


11316 


25 


11339 


02399 


13900 




AM 


ADDCOW,, 10 


11328 


11 


02529 


000-0 


13910 




SF 


ZEP0^28 


11340 


32 


02328 


00000 


13920 




TF 


INPUT2^6, ZEP0^29 


11352 


26 


03040 


02329 


13930 


• 














13940 


» 


SET ONE TO INDICATE SUBROUTINE IS REQUIRED 








13950 


♦ 














13960 




TFM 


•♦30,ISTAT-30 


11364 


16 


11394 


-2530 


13970 




A 


•♦18,2EP0+29 


1 1376 


21 


11394 


02329 


13980 




TOM 


• -•, 1 


1 1388 


15 


00000 


00001 


13990 




87 


DSA,,,TO DSA ROUTINE TO 


COUNT NUMBER OF OPERANDS 11400 


49 


13276 




14000 


» 


EVALUATE LENGTH OF OAS 










14010 


• 














14020 


DAS 


BTM 


SCAN, •♦12 


11408 


17 


05164 


J 1420 


14030 




TF 


LNTH, AODRS 


1 1420 


26 


02387 


03293 
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95 

II PHASE A 






PAGE 


14040 




TF 


TEMPR,LNTH 


11432 


26 


02572 


02387 


14050 




A 


TEMPRtTEMPR 


11444 


21 


02572 


02572 


14060 




TDM 


INPUT2, 2 


11456 


15 


03034 


00002 


14070 




TD 


INPUT2^6, ZEP0^29 


11468 


25 


03040 


02329 


14080 




87 


0AC3 


11480 


49 


12004 




14090 
















14100 




EVALUATE LENGTH OF OAC 










14110 


• 














14120 


OAC 


TDM 


INPUT2, 0 


11488 


15 


03034 


00000 


14130 




TFM 


STCHAR^ll, 00,10 


11500 


16 


11791 


000-0 


14140 




DAC 
■ 


!,«#• 


11511 




1 


X 2 


14150 




BTM 


SCAN,^^12 


11512 


17 


05164 


J1524 


14160 




TF 


LNTH, AODRS 


11524 


26 


02387 


03293 


14170 




CM 


LNTH, 51 


11536 


14 


02387 


-0051 


14180 




BN 


• ♦80 


11548 


47 


11628 


01300 


14190 




TFM 


EVALER-1, 80000,, 


ER 8, LENGTH TOO BIG 11560 


16 


07041 


QOOOO 


14200 




DC 
• 


1,S« 


11571 




1 




14210 




TFM 


LNTH, OOOSO 


11572 


16 


02387 


-0050 


14220 




TFM 


-TEMPR, 100 


11584 


16 


02572 


-0100 


14230 


DACER 


BT 


EPRINT, EPRINT-1 


11596 


27 


07322 


07321 


14240 




BD 


ERCOR, ERSTSW 


11608 


43 


07178 


02476 


14250 




B7 


DACR 


11620 


49 


11828 




14260 




A 


A DORS, AODRS 


11628 


21 


03293 


03293 


14270 




TF 


TEMPR, AODRS 


11640 


26 


02572 


03293 


14280 




BNR 


•♦20,INPUT^20 


11652 


45 


11672 


02901 


14290 




87 


ER90AC 


11664 


49 


11684 




14300 




BNR 


•♦32, INPUT^22 


11672 


45 


11704 


02903 


14310 


ER9DAC 


TFM 


EVALER-1, 90000,, 


CONSTANT NOT SPECIFIED 11684 


16 


07041 


ROOOO 


14320 




DC 
1 




11695 




1 




14330 




B7 


DACER 


11696 


49 


11596 




14340 


CHVALD 


BLX 


•♦12,TEMPRC1) 


11704 


65 


11716 


025P2 


14350 




BNR 


•♦32,INPUT^20(1» 


11716 


45 


11748 


029-1 


14360 


El 00 AC 


TFM 


EVALER-1, 17000, • 


MIS-COUNT OF CONSTANT LENGTH 11728 


16 


07041 


J7000 


14370 




DC 
• 




11739 




1 




14380 




87 


DACER 


11740 


49 


11596 




14390 




BNR 


•♦20,INPUT^22(1I 


11748 


45 


11768 


029-3 


14400 




87 


• ♦32 


. 11760 


49 


11792 




14410 




CM 


INPUT^22{1>,23,10 


11768 


14 


029-3 


000K3 


14420 


STCHAR 


BNE 


ElODAC 


11780 


47 


11728 


01200 


14430 




TD 


STCHAR«11,1NPUT^22(1) 


11792 


25 


11791 


029-3 


14440 




TFM 


INPUT^22(1) 


11804 


16 


029-3 


-0000 


14450 




DAC 


lt».» 


11815 




1 


X 2 


L4460 




TR 


INPUT^21,INPUT^23(1) 


11816 


31 


02902 


029'*4 


14470 


DACR 


TF 


INPUT2^6, ZEP0^29 


11828 


26 


03040 


02329 


14480 




TD 


1NPUT2^4, LNTH 


11840 


25 


03038 


02387 


14490 




TO 


INPUT2+3, LNTH-l 


11852 


25 


03037 




14500 




BNR 


DAC3,STCHAR+11 


11864 


45 


12004 


11791 


14510 


• 


ADDRESS ASSIGNED BY PROCESSOR 








14520 


• 














14530 


NO SINE 


TD 


•♦23, ADDCOW 


11876 


25 


11899 


02529 


14540 




TD 


•+23, JSTBL 


11888 


25 


11911 


02459 
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1A550 




AM 


ADDC0W,»10 


11900 


11 


02529 


000-0 


14560 




TF 


AOORStADDCOM 


11912 


26 


03293 


02529 


14570 




A 


ADOCQWtTEMPR 


11924 


21 


02529 


02572 


14580 




SM 


AD0C0Wf2tl0 


11936 


12 


02529 


000-2 


14590 




80 


•♦24tZEP0«28 


11948 


43 


11972 


02328 


14600 




TF 


ADORStADDCOW 


11960 


26 


03293 


02529 


14610 




BTM 


CTEST, •♦12 


11972 


17 


07426 


J1984 


14620 




TDM 


INPUT2^1t 0»ll 


11984 


15 


03035 


0000- 


14630 




B7 


LOLBL 


11996 


49 


08390 




14640 


DAC3 


BTM 


TRSCAN.v+12 


12004 


17 


05134 


J2016 


14650 




BO 


NOSINEfBSW 


12016 


43 


11876 


07319 


14660 




TO 


LDABSM,RLOCSW 


12028 


25 


07320 


07316 


14670 




B7 


0AC3-32 


12040 


49 


11972 




14680 


• 














14690 




EVALUATE LENGTH OF DSB 










14700 


« 














14710 


DSB 


TDM 


INPUT2t4 


12048 


15 


03034 


00004 


14720 




TDM 


INPUT24-6t 1 


12060 


15 


03040 


00001 


14730 




TFM 


EVALER-1» 70000 


12072 


16 


07041 


POOOO 


14740 




DC 
t 


l»«f» 


12083 




1 




14750 




BTM 


SCAN,»«12 


12084 


17 


05164 


J2096 


14760 




TF 


LNTH> ADDRS 


12096 


26 


02387 


03293 


14770 




BTM 


TRSCAN**«12 


12108 


17 


05134 


J2120 


14780 




TF 


TEMPR. ADDRS 


12120 


26 


02572 


03293 


14790 




BNF 


• 4-48« BSW 


12132 


44 


12180 


07319 


14800 




BT 


EPRINT^ EPRINT-l 


12144 


27 


07322 


07321 


14810 




BO 


ERCORf ERSTSW 


12156 


43 


07178 


02476 


14820 




TFM 


TEMPR* 00001 


12168 


16 


02572 


-0001 


14830 




BTM 


TRSCAN,»'H2 


12180 


17 


05134 


J2192 


14840 




TO 


LDABSW,RLOCSM 


12192 


25 


07320 


07316 


14850 




BNF 


DAC3-32, BSW 


12204 


44 


11972 


07319 


14860 




TOM 


LDABSWtl.ll 


12216 


15 


07320 


OOOOJ 


14670 




TF 


AOORSf AODCOM 


12228 


26 


03293 


02529 


14880 




A 


ADDRS f LNTH 


12240 


21 


03293 


02387 


14890 




N 


LNTH, TEMPR 


12252 


23 


02387 


02572 


14900 




A 


AODCOWt 99 


12264 


21 


02529 


00099 


14910 




B7 


D AC 3- 32 


12276 


49 


11972 




14920 


• 














14930 


• 


EVALUATE LENGTH OF OS OR DNB 










14940 


• 














14950 


OSONB 


BTM 


SCANf»^12 


12284 


17 


05164 


J2296 


14960 




TD 


INPUT2+6, 2EP01-29 


12296 


25 


03040 


02329 


14970 




TD 


INPUT2+5* 2EP0+28 


12308 


25 


03039 


02328 


14980 




TF 


LNTH, ADDRS 


12320 


26 


02387 


03293 


14990 




TOM 


INPUT2t 4tll 


12332 


15 


03034 


OOOOM 


15000 




BD 


•«-84» ZEP0^29 


12344 


43 


12428 


02329 


15010 




CM 


LNTH ,99 


12356 


14 


02387 


-0099 


15020 




BNP 


• ♦60 


12368 


47 


12426 


01100 


15030 




TFM 


EVALER>lff 80000 


12380 


16 


07041 


QOOOO 


15040 




OC 
• 




12391 




1 




15050 




BT 


EPRINT* EPRINT-1 


12392 


27 


07322 


07321 


15060 




BD 


ERCORf ERSTSW 


12404 


43 


07178 


02476 


15070 




TFM 


LNTH, 00099 


12416 


16 


02387 


-0099 


15080 


NASS 


BTM 


TRSCAN,^^12 


12428 


17 


05134 


J2440 
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15090 




TD 


LDABSW, RLOCSW 




12440 


25 


07320 


07316 


15100 




BNF 


DAC3-32, BSM 




12452 


44 


11972 


07319 


15110 


• 
















15120 


• 


ABORESS ASSIGNED BY PROCESSOR 










15130 


• 
















15140 


DNB2 


TF 


ADDRS, AOOCOW 




12464 


26 


03293 


02529 


15150 




TDM 


L0ABSW,1,11 




12476 


15 


07320 


OOOOJ 


15160 




A 


ADDCOWtLNTH 




12488 


21 


02529 


02387 


15170 




BD 


0SS,ZEPO4-28 




12500 


43 


12532 


02328 


15180 




A 


ADDRS, LNTH 




12512 


21 


03293 


023B7 


15190 




B7 


0AC3-32 




12524 


49 


11972 




15200 


OSS 


AM 


ADDRS, ItlO 




12532 


11 


03293 


OOO-l 


15210 




87 


DAC3-32 




12544 


49 


11972 




15220 


00R6 


BTM 


SCAN, •♦12 




12552 


17 


05164 


J2564 


15230 




BNF 


•♦84,RELSW 




12564 


44 


12648 


02478 


15240 




BD 


•♦72, RLOCSW 




12576 


43 


12648 


07316 


15250 




TFM 


EVALER-2,71770,. 


RELOCATION ERROR 


12588 


16 


07040 


P1770 


15260 




BT 


EPRINT,EPRINT-1,, 


IGNORE ABSOLUTE D0R6 


12600 


27 


07322 


07321 


15270 




BD 


ERCOR.ERSTSM 




12612 


43 


07178 


02476 


15280 




TFM 


INPUT 2^1, 06 ,10, 


IN RELOCATABLE ASSEMBLY 


12624 


16 


03035 


000-6 


15290 




BTM 


OUTPUT, PHASE A 




12636 


17 


09570 


-3392 


15300 




TF 


AOOCOW, ADDRS 




12648 


26 


02529 


03293 


15310 




BTM 


CTEST, •♦12 




12660 


17 


07426 


J2672 


15320 


















15330 


• 


SET ADDRESS COUNTER TO NEW 


VALUE 










15340 


• 
















15350 




SM 


ADDC0W,1,10 




12672 


12 


02529 


000-1 


15360 




TDM 


INPUT2,1,11 




12684 


15 


03034 


OOOOJ 


15370 




BNF 


•♦24, AOOCOW 




12696 


44 


12720 


02529 


15380 




TFM 


ADDCOW, 99999 




12708 


16 


02529 


R9999 


15390 




B7 


DAC3-20 




12720 


49 


11984 




15400 


DENDC 


TFM 


CFFA,CA5DCF 




12728 


16 


02631 


J2752 


15410 




BTM 


CFFtOENO 




12740 


17 


02594 


J0796 


15420 


CA5DCF 


DO A 


tO,A5DAD,A5SCT,INSTRN 




12752 




14 








0J8737-29J0132 












15430 




OC 


It* 




12766 




1 




15440 


• 


DEFINE CONSTANT AND DEFINE 


SPECIAL CONSTANT 










15450 


• 
















15460 


DC 


TDM 


INPUT2, 2,11 




12768 


15 


03034 


OOOOK 


15470 




TD 


DC-1,2EP0^28 




12780 


25 


12767 


02328 


15480 




TF 


INPUT2^6, 2EP0^29 




12792 


26 


03040 


02329 


15490 




BTM 


SCAN, •♦12 




12804 


17 


05164 


J2816 


15500 




TF 


LNTH, ADDRS 




12816 


26 


02387 


03293 


15510 


CCON 


TFM 


TEMPR, -OOOOl 




12828 


16 


02572 


-OOOJ 


15520 




AM 


TEMPR, 1 




12840 


11 


02572 


-0001 


15530 




TR 


INPUT^19, INPUT^21 




12852 


31 


02 900 


02902 


15540 




BNR 


CCN2-36,INPUT^20 




12864 


45 


12944 


02901 


15550 




CM 


TEMPR, 0 




12876 


14 


02572 


-0000 


15560 




BNE 


CCN2 




12888 


47 


12980 


01200 


15570 




TFM 


EVALER-1, 90000 




12900 


16 


07041 


ROOOO 


15580 




DC 


l,»t» 




12911 




1 




15590 




■ 

BT 


EPRINT, EPRINT-l 




12912 


27 


07322 


07321 


15600 




BO 


ERCOR, ERSTSta 




12924 


43 


07178 


02476 


15610 




B7 


CCN2 




12936 


49 


12980 





1)5 
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15620 




CM 


INPUT 4-2 Of 23tl0 




12944 


14 


02901 


0OOK3 


15630 




BH 


CC0N'(-I2 




12956 


46 


12840 


01100 


15640 




BL 


CC0N*24 




12968 


47 


12852 


01300 


15650 


CCN2 


t 


TEMPR y LNTH 




12980 


24 


02572 


02387 


1 5660 




BNP 


•>60 




12992 


47 


13052 


01100 


15670 




TFM 


EVALER'-if 17000 




13004 


16 


07041 


J7000 


15680 




DC 
• 


lt»»» 




13015 




1 




15690 




BT 


EPRINTrEPRINT-1 




13016 


27 


07322 


07321 


15700 




BD 


ERCORt ERSTSW 




13028 


43 


0717B 


024 76 


15710 


DCRN 


TF 


LNTH* TEMPR 




13040 


26 


02387 


025 72 


15720 




CM 


LNTHt51 




13052 


14 


02387 


-0051 


15730 




BN 


• ♦72 




13064 


47 


13136 


01300 


15740 




TFH 


EVALER-l* 80000 




13076 


16 


07 041 


QOOOO 


15750 




DC 
• 


lt«f» 




13087 




1 




15760 




BT 


EPRINTf EPRINT-l,f 


ER 8 LENGTH TOO BIG 


13068 


27 


07322 


07321 


15770 




BO 


ERCORy ERSTSW 




13100 


43 


07178 


02476 


15780 




TFM 


LNTHt 00050 




13112 


16 


02387 


-0050 


15790 




TFM 


TEMPR, 50 




13124 


16 


02572 


-0050 


15800 




BTM 


TRSCAN»»*12 




13136 


17 


05134 


J3148 


15810 




TD 


L0ABSW,RL0CSW 




1314B 


25 


07320 


07316 


15820 




BNF 


CCN3» BSW 




13160 


44 


13244 


07319 


15830 




TDM 


tOABSWtltU 




13172 


15 


07320 


OOOOJ 


15840 




TF 


ADORS, ADOCOWtt 


MACHINE ASSIGNS ADDRESS 


13184 


26 


03293 


02529 


15850 




AM 


ADDRSfl 




13196 


11 


03293 


-0001 


15860 




A 


AODCOW, LNTH 




13208 


21 


02529 


02387 


15870 




BD 


•♦24, OC-1 




13220 


43 


13244 


12767 


158B0 




TF 


ADORS, ADOCOM 




13232 


26 


03293 


02529 


15890 


CCN3 


SF 


TEMPR-1 




13244 


32 


02571 


00000 


15900 




TF 


INPUT2+4, TEMPR 




13256 


26 


03038 


02572 


15910 




B7 


DAC3-32 




13268 


49 


11972 




15920 


DSA 


TFM 


LNTH, 00000 




13276 


16 


02387 


-0000 


15930 




B7 


DSAl 




13288 


49 


13308 




15940 




TR 


INPUT+19, INPUT*21 




13296 


31 


02900 


02902 


15950 


DSAl 


BTM 


SCAN, •♦12, 7 11 




13308 


17 


05164 


J332- 


15960 




AM 


LNTH, 5,10 




13320 


11 


02387 


000-5 


15970 




BNR 


•-36, INPUT^20 




13332 


45 


13296 


02901 


15980 


DSA2 


CM 


LNTH, 0050 




13344 


14 


02387 


-0050 


15990 




BH 


EROSA 




13356 


46 


13484 


01100 


16000 




TF 


ADORS, ADOCOW 




13368 


26 


03293 


02529 


16010 




AM 


ADORS, 5, 10 




13380 


11 


03293 


000-5 


16020 




A 


ADOCOW, LNTH 




13392 


21 


02529 


02387 


16030 




TOM 


INPUT2, 1 




13404 


15 


03034 


00001 


16040 




BNF 


DAC3-32, 2EP0^28 




13416 


44 


11972 


0232B 


16050 




AM 


ADOCOW, 19,10 




13428 


U 


02529 


000J9 


16060 




SM 


ADORS, 5 




13440 


12 


03293 


-0005 


16070 




TOM 


INPUT2, 0,11 




13452 


15 


03034 


0000- 


16080 




BTM 


CTEST, •♦12 




13464 


17 


07426 


J3476 


16090 




B 


LOLBL 




13476 


49 


08390 


00000 


16100 




00 RG 


•-3 




13484 








16110 


ERDSA 


TFM 


EVALER-1, 60000 




13484 


16 


07041 


00000 


16120 




DC 
• 


l.',» 




13495 




1 




16130 




BT 


EPRINT,EPRINT-1 




13496 


27 


07322 


07321 


16140 




BD 


ERCOR, ERSTSW 




13508 


43 


07178 


02476 
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PAGE 


16150 




TFM 


LNTH, 00050 




13520 


16 


02387 


-0050 


16160 




B7 


DSA2^24 




13532 


49 


13368 




16170 


• 
















16180 


* 


OPERATION CODE TABLE 












16190 


« 
















16200 


A 


DC 


5,41210,, 


ADD A 


13543 




5 








M1210 












16210 




OC 


5,62220,, 


SUBTRACT S 


13548 




5 








02220 












16220 




DC 


5,54230,, 


MULTIPLY M 


13553 




5 








N4230 












16230 




DC 


5,44290tt 


DIVIDE D 


13558 




5 








M4290 












16240 




DC 


5,43240,, 


COMPARE C 


13563 




5 








M3240 












16250 




DC 


5,42490,, 


BRANCH B 


1 3568 




5 








M2490 












16260 




DC 


5,52340,, 


CONTROL K 


13573 




5 








N2 340 












16270 




DC 


5,48480,, 


HALT H 


13578 




5 








M8480 












16280 




DC 


5,60000,, 


DUMMY OP CODE 


13583 




5 








00000 












16290 


AENDX 


DC 


5,60000,, 


DUMMY OP CODE 


13588 




5 








00000 












16300 


B 


DC 


7,4154110,, 


ADO IMMEDIATE AM 


13595 












M154110 












16310 




DC 


7,6254120,, 


SUBTRACT IMMEDIATE SM 


13602 












0254120 












16320 




DC 


7,4267610,,, 


BRANCH AND MODIFY INDEX BX 


13609 












M267610 












16330 




DC 


7,5454130,, 


MULTIPLY IMMEDIATE MM 


13616 












N454130 












16340 


XB7 


DC 


7,4277490,, 


7-CHAR. BRANCH B7 


13623 












M2 77490 




■ 








16350 




DC 


7,4354140,, 


COMPARE IMMEDIATE CM 


13630 












M354140 




■ 








16360 




DC 


7,6344250,, 


TRANSMIT DIGIT TD 


13637 












0344250 












16370 




DC 


7,6346260,, 


TRANSMIT FIELD TF 


13644 












0346260 












16380 




DC 


7,6359310,, 


TRANSMIT RECORD TR 


13651 












0359310 












16390 




DC 


7,4263270,, 


BRANCH AND TRANSMIT BT 


13658 












M2 63270 












16400 




DC 


7,4242420,, 


BRANCH BACK 8B 


13665 












M2 42420 












16410 




DC 


7,6246320,, 


SET FLAG SF 


13672 












0246320 












16420 




DC 


7,4346330,, 


CLEAR FLAG CF 


13679 












M346330 












16430 




DC 


7,5446710,, 


MOVE FLAG MF 


1 3686 












N446 710 












16440 




OC 


7,5441700,,, 


MOVE ADDRESS MA 


13693 












N441700 












16450 




OC 


7,4244430,, 


BRANCH DIGir BD 


13700 












M244430 













1 0 0 
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16460 








16470 








16480 






M2 53 137 


1 6490 






M2 55 137 


16500 






M2 48 11 6 


16310 


DC 7t4257116ft 




M257 116 


16520 


DC 7f4245126fft 




H245126 


16530 


DC 7t4^6V126tt 




M269126 


16540 


DC 7t4265146tf 




M2 65146 


1 6550 


DC 7t4241196tt 




M241 196 


16560 


OC 7|-4256704f» 




M2 5670M 


16570 XDS 


DC rt44o^ul3flf 




M462 015 


16580 


nr y _AAAannR 




M443(K)N 


1 6590 


nr 7 —AAATA'SI 




M64103 J 


16600 


r\r T .AAAOnot 




M66202 J 


166 10 


OC 7f— 4654041 tf 




M65404 J 


16620 


r%r* T AAAAAKl 

DC r f— 4044031 t t 




M6 4405 J 


16630 


DC 7 » 5344280* f 




N344280 


16640 


DC r»4454190ff 




uA CA 1 an 
n4 54190 


16650 






0241 41K 


16660 


V CAR9AIA 




lyA R^ JL1 il 

ri4 3c oln 


16670 


DC 7t6Zd£Hl<Ctt 




0252412 


16680 


DC 7t5955360tt 




N955360 


16690 


OC 7t5941370tt 




N941370 


16700 


nr y AARRaRH 




MA. RHISn 
H*r 33 j3\/ 


16710 


DC 7»6655380tt 




0655380 


16720 


DC 7,6641390,, 




0641390 


16730 


DC 7,-4444263,* 




M44426L 
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16740 DC 7,6060000,, 

0060000 

16750 DC 7,6060000,, 

0060000 

16760 DC 7,6060000,, 

0060000 

16770 BENDX DC 7,6060000,. 

0060000 

16780 C DC 9,634654160,, 

034654160 
16790 DC 9,634454150,, 

034454150 
16800 DC 9,425546440,, 

M2 5546440 
16810 DC 9,425559450,, 

M25559450 
16820 DC 9,425549470,, 

M25549470 
16830 OC 9,425548117,, 

M25548117 
16840 DC 9,425557117,, 

M25557117 
16850 DC 9,425545127,, 

M25545127 
16860 DC 9,425569127, • 

M2 5569127 
16870 DC 9,425553136,, 

M25553136 
16880 OC 9,425555136,, 

M2 55551 36 
16890 OC 9,424367630, •• 

M2 43 67630 
16900 DC 9,426754620,,, 

M2 67 54620 
16910 DC 9,425367650,,, 

M2 5367650 
16920 DC 9,426267670,,, 

M2 62 67670 
16930 OC 9,426765156,, 

M2 6765 156 
16940 OC 9,425565147,, 

M25565147 
16950 DC 9,425541197,, 

M2 5541 I 97 
16960 DC 9,425343096,, 

M2 5343096 
16970 DC 9,424371016,, 

M2437I016 
16980 OC 9,424372026,, 

M2 4 3 72 026 
16990 DC 9,424373036,, 

M2 4 3 73036 
17000 DC 9,424374046,, 

M2 4 3 74046 
17010 DC 9,426354170,, 

M2 6354170 



BRANCH AND SELECT 
BRANCH INDICATOR 
BRANCH LOW 
BRANCH NEGATIVE 
BRANCH HIGH 
BRANCH POSITIVE 
BRANCH EQUAL 
BRANCH ZERO 
BRANCH OVERFLOW 
BRANCH ANY DATA CHECK 
BRANCH OUT, LOAD IR3 
DEFINE SYMBOL 
DEFINE CONSTANT 
FLOATING ADD SUB. 
FLOATING SUBTRACT SUB. 
FLOATING MULTIPLY SUB. 
FLOATING DIVIDE SUB. 
LOAD DIVIDEND 
DIVIDE IMMEDIATE 
SELECT ADDRESS 
MASK INTERRUPTS 
SEEK 

READ NUMERICALLY 
READ ALPHAMERICALLY 
DUMP NUMERICALLY 
WRITE NUMERICALLY 
WRITE ALPHAMERICALLY 
DEFINE DISK 



MONITOR II PHASE A 

DUMMY OP CODE 

DUMMY OP CODE 

DUMMY OP CODE 

DUMMY OP CODE 

TRANSMIT FIELD IMMEDIATE 

TRANSMIT DIGIT IMMEDIATE 

BRANCH NO FLAG 

BRANCH NO RECORD MARK 

BRANCH NO INDICATOR 

BRANCH NOT HIGH 

BRANCH NOT POSITIVE 

BRANCH NOT EQUAL 

BRANCH NOT ZERO 

BRANCH NOT LOW 

BRANCH NOT NEGATIVE 

BRANCH COND. AND MODIFY XR 

BRANCH AND MODIFY INDEX IMM. 

BRANCH AND LOAD XR 

BRANCH AND STORE XR 

BRANCH EXPONENT CHECK 

BRANCH NO OVERFLOW 

BRANCH NOT ANY DATA CHECK 

BRANCH LAST CARD 

BRANCH CONSOLE SWITCH 1 ON 

BRANCH CONSOLE SWITCH 2 ON 

BRANCH CONSOLE SWITCH 3 ON 

BRANCH CONSOLE SWITCH 4 ON 

BRANCH AND TRANSMIT IMM. 



BS 


13707 


BI 


13714 


BL 


13721 


BN 


13728 


BH 


13735 


BP 


13742 


BE 


13749 


BZ 


13756 


BV 


13763 


BA 


13770 


BO 


13777 


DS 


13784 


DC 


13791 


FA 


13798 


FS 


13805 


FM 


13812 


FD 


13819 


LO 


13826 


DM 


13833 


SA 


13840 


MK 


13847 


SK 


13854 


RN 


13861 


RA 


13868 


DN 


13875 


WN 


13882 


WA 


13889 


DO 


13896 
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13903 


7 




13910 


7 




13917 


7 




13924 


7 


TFM 


13933 


9 


TOM 


13942 


9 


BNF 


13951 


9 


BNR 


13960 


9 


BNI 


13969 


9 


BNH 


13978 


9 


BNP 


13987 


9 


BNE 


13996 


9 


BNZ 


14005 


9 


BNL 


14014 


9 


BNN 


14023 


9 


BCX 


14032 


9 


BXM 


14041 


9 


BLX 


14050 


9 


BSX 


14059 


9 


BXV 


14068 


9 


BNV 


14077 


9 


BNA 


14086 


9 


BLC 


14095 


9 


BCl 


14104 


9 


BC2 


14113 


9 


BC3 


14122 


9 


BC4 


14131 


9 


BTM 


14140 


9 


10 


2 
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17020 


XBB2 


DC 9,424272420tt 
M242 72420 


2-CHAR. BRANCH BACK 




BB2 


14149 


9 


17030 




DC 9t-645452604«t 
04 54 5260M 


UNMASK INTERRUPTS 




UNK 


14158 


9 


17040 




DC 9»555657410f ff 
N55657410 


NO OPERATION 




NOP 


14167 


9 


17050 




DC 9»-444965011»« 
H4496501J 


DIVIDE SUB. 




DIV 


14176 


9 


17060 




DC 9»~464567111,, 
M6456711J 


FLOATING NATURAL EXP. SUB. 




FEX 


14185 


9 


17070 




DC 9t-46535513l,t 

M6535513J 


FLOATING NATURAL LOG. SUB. 




FLN 


14194 


9 


17080 




DC 9, -635941003ft 
03594100L 


TRANSFER TO LOAD 




TRA 


14203 


9 


17090 


XDSS 


DC 9,446262115,, 
N46262115 


DEFINE SPECIAL SYMBOL 




DSS 


14212 


9 


17100 




DC 9,-446243105»» 
M4624310N 


DEFINE SPECIAL CONSTANT 




OSC 


14221 


9 


17110 


XDAS 


DC 9,-444162145,, 
M4416214N 


DEFINE ALPHA SYMBOL 




OAS 


14230 


9 


17120 




DC 9,-444143125,. 
M4414312N 


DEFINE ALPHA CONSTANT 




DAC 


14239 


9 


17130 




DC 9,-446241035,, 
M4624103N 


DEFINE SYMBOLIC ADDRESS 




OSA 


14248 


9 


17140 




DC 9,-446242065, • 
M4624206N 


DEFINE SYMBOLIC BLOCK 




DSB 


14257 


9 


17150 




DC 9,4455^2005,, 
M4 5542 005 


DEFINE NUMERIC BLANK 




DNB 


14266 


9 


17160 




DC 9,-444754075,, 

M4475407N 


DEFINE GROUP MARK 




DGM 


14275 


9 


17170 




DC 9,425547550,, 

M25547550 


BRANCH NO GROUP MARK 




BNG 


14284 


9 


17180 




DC 9,634344018,, 
034344018 


TRANSFER TO PROCESS 




TCD 


14293 


9 


17190 




DC 9,425659401,, 
M25659401 


BRANCH OUTPUT RECORD MARK 




BOR 


14302 


9 


17200 




DC 9,425945411,, 
M2 5945411 


BRANCH END OF RECORD 




BRE 


14311 


9 


17210 




DC 9,425443421,, 
M2 5443421 


BRANCH MODE SHIFT 




BMC 


14320 


9 


17220 




DC 9,424959441,, 
M2 49 59441 


BRANCH READ INPUT READY 




BIR 


14329 


9 


17230 




DC 9,424342461,, 
M24342461 


BRANCH SIOC CHANNEL BUSY 




BCB 


14338 


9 


17240 




DC 9,624156840,, 
024156840 


SELECT ADDRESS AND OPERATE 




SAO 


14347 


9 


17250 




DC 9,596355662,, 
N96355662 


READ DISK TRACK NUM. W/O GP. 


MK. 


RTN 


14356 


9 


17260 




DC 9,594455622,, 
N9 44 55622 


READ DISK WITHOUT GROUP MARK 




RON 


14365 


9 


17270 




DC 9,666355862,, 
066355862 


WRITE DISK TRACK NUM. W/O GP. 


MK. 


WTN 


14374 


9 


17280 




DC 9,664455822,, 


WRITE DISK WITHOUT GROUP MARK 




WON 


14383 


9 






064455822 










17290 




DC 9,436355672,, 


CHECK DISK TRACK NUM. W/O GP. 


MK. 


CTN 


14392 


9 



1 0 3 
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17300 




DC 9,434455632,, 
M344 55632 


CHECK DISK WITHOUT GROUP MARK 


CON 


14401 


9 


17310 




DC 9,634653060,, 
034653060 


TRANSMIT FLOATING 


TFL 


14410 


9 


17320 




DC 9,466253050,, 
M6 62 53050 


FLOATING SHIFT LEFT 


FSL 


14419 


9 


17330 




DC 9,466259080*, 
H662 59080 


FLOATING SHIFT RIGHT 


FSR 


14428 


9 


17340 




DC 9,635562720*, 
035562720 


TRANSMIT NUMERIC STRIP 


TNS 


14437 


9 


17350 




DC 9,635546730** 
035546730 


TRANSMIT NUMERIC FILL 


TNF 


14446 


9 


17360 




DC 9,565946920*,, 
N65946920 


OR TO FIELD 


ORF 


14455 


9 


17370 




DC 9, 566344960* *• 
N6 63 44960 


OCTAL TO DECIMAL CONV. 


OTD 


14464 


9 


17380 




DC 9,446356970,,, 
M4 63 56970 


DECIMAL TO OCTAL CONV. 


DTO 


14473 


9 


17390 


BBTX 


DC 9*424263900*** 
M2 4263900 


BRANCH ON BIT 


BBT 


14482 


9 


17400 


BMKX 


DC 9*425452910*** 
M2 5452910 


BRANCH ON MASK 


BMK 


14491 


9 


17410 




DC 9,-445663285,** 
M4566328N 


DEFINE OCTAL TABLE 


DOT 


14500 


9 


17420 




DC 9 ,-444441073*, 
M4444107L 


DEFINE DISK ADDRESS 


DDA 


14509 


9 


17430 




DC 9,534454180,, 
N344 54180 


LOAD DIVIDEND IMMEDIATE 


LOM 


14518 


9 


17440 




DC 9,-474563013*, 
M7456301L 


IOCS READ 


GET 


14527 


9 


17450 




DC 9,-576463023** 
N7646302L 


IOCS WRITE 


PUT 


14536 


9 


17460 




DC 9,-446355053,. 
M4635505L 


DEFINE TYPEWRITER NUMERIC 


OTN 


14545 


9 


17470 




DC 9,-444355253** 
M4435525L 


DEFINE CARD NUMERIC 


OCN 


14554 


9 


17480 




DC 9,-446341353,, 

M4634135L 


DEFINE TYPEWRITER ALPHA 


DTA 


14563 


9 


17490 




DC 9,-444341553,, 
M4434155L 


DEFINE CARD ALPHA 


OCA 


14572 


9 


17500 




DC 9,-444466063,, 
M4446606L 


DEFINE DISK WITH WLRC 


DOW 


14581 


9 


17510 




DC 9,426341200*, 

M26341200 


BRANCH AND TRANSMIT ADDRESS 


BTA 


14590 


9 


17520 




DC 9,606060000,, 
006060000 


DUMMY OP CODE 




14599 


9 


17530 




DC 9,606060000,, 
006060000 


DUMMY OP CODE 




14608 


9 


17540 




DC 9,606060000,, 

00 6060000 


DUMMY OP CODE 




14617 


9 


17550 




DC 9,606060000,, 
006060000 


DUMMY OP CODE 




14626 


9 


17560 


CENDX 


DC 9,606060000,, 
006060000 


DUMMY OP CODE 




14635 


9 


17570 


D 


DC 11,42554371017,, 


BRANCH CONSOLE SWITCH 1 OFF 


BNCl 


14646 


11 
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BRANCH CONSOLE SWITCH 2 OFF BNC2 14697 

BRANCH CONSOLE SWITCH 3 OFF BNC3 1466S 

BRANCH CONSOLE SWITCH 4 OFF BNC4 14679 

BRANCH NOT LAST CARD BNLC 14690 

BRANCH NOT EXPONENT CHECK BNXV 14701 

TRANSMIT RECORD NO RECORD MARK TRNM 14712 

BRANCH COND. MODIFY XR IMMED. BCXH 14723 

BRANCH AND LOAD XR IMMEDIATE BLXM 14734 

BRANCH BAND A SELECTED BBAS 14745 

BRANCH BAND B SELECTED BBBS 14756 

BRANCH NEITHER BAND SELECTED BNBS 14767 

BRANCH BAND A NOT SELECTED BANS 14778 

BRANCH BAND B NOT SELECTED BBNS 14789 

BRANCH EITHER BAND SELECTED BEBS 14800 

BRANCH AND SELECT BAND A BSBA 14811 

BRANCH AND SELECT BAND B BSB6 14822 

BRANCH AND SELECT INDIRECT ADOR BSIA 14833 

BRANCH AND SELECT NO IND ADOR BSNI 14844 

BRANCH AND SELECT NO INDEX BSNX 14855 

READ NUMERIC TYPEWRITER RNTY 14866 

READ NUMERIC PAPER TAPE RNPT 14877 

WRITE NUMERIC TYPEWRITER WNTY 14888 

WRITE NUMERIC PAPER TAPE WNPT 14899 

DUMP NUMERIC TYPEWRITER DNTY 14910 

DUMP NUMERIC PAPER TAPE DNPT 14921 

READ ALPHA TYPEWRITER RATY 14932 

READ ALPHA PAPER TAPE RAPT 14943 

WRITE ALPHA TYPEWRITER WATY 14954 



17580 OC 1 If 42554372027, 

M2554372027 
17590 OC 11»42554373037, 

M2554373037 
17600 DC 11.42554374047* 

M2 5543 74047 
17610 DC 11,42555343097, 

M2 559343097 
17620 DC 11,42556765157, 

M2556765157 
17630 DC 11,63595994300, 

03595954300 
17640 DC 11,42436754640, 

M2 43 6754640 
17650 DC 11,42536754660, 

M2 536754660 
17660 DC 11,42424162316, 

M2424162316 
17670 DC 11,42424262326, 

M2 42 4262326 
17680 DC 11,42554262306, 

M25542 62306 
17690 DC 11,42415562317, 

M2419562317 
17700 OC 11,42425562327, 

M2 42 5962 32 7 
17710 DC 11,42454262307, 

M2454262307 
17720 DC 11,42624241109, 

M2 62 4241109 
17730 DC 11,42624242209, 

M2 624242209 
17740 DC 11,42624941909, 

M2 62 4941 90 9 
17750 DC 11,42625549809, 

M2 62 9949809 
17760 DC 11,42625567009, 

M262 5967009 
17770 DC 11,99996368613, 

N9556368613 
17780 DC 11,59555763633, 

N9555763633 
17790 DC 11,66556368813, 

06556368813 
17800 DC 11,66555763823, 

06559763823 
17810 DC 11,44556368913, 

M4 5563685 I 3 
17820 OC 11,44555763923, 

M4555763523 
17830 DC 11,59416368713, 

N9416368713 
17840 OC 11,59415763733, 

N9415763733 
17850 DC 11,66416368913, 

06416368913 
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17860 


OC 11,66415763923,, 
06415763923 


WRITE ALPHA PAPER TAPE 


WAPT 


14965 


17870 


DC 11,66414344943,, 
06414344943 


WRITE ALPHA CARD 


WACO 


14976 


17880 


DC 11,59414344753,, 
N94L4344753 


READ ALPHA CARD 


RACO 


14987 


17890 


OC 11,44554344943,, 
M4554344543 


DUMP NUMERIC CARD 


ONCO 


14998 


17900 


DC 11,66554344843,, 
06554344843 


WRITE NUMERIC CARD 


WNCD 


15009 


17910 


DC 11,59554344653,, 
N9 554344653 


READ NUMERIC CARD 


RNCD 


15020 


17920 


OC 11,63426368184,, 
03426368184 


TABULATE TYPEWRITER 


TBTY 


15031 


17930 


OC 11,59436368124,, 
N9436368124 


RETURN CARRAIGE TYPEWRITER 


RCTY 


15042 


17940 


OC 11,49676368144,,, 
M9676368144 


INDEX TYPEWRITER 


IXTY 


15053 


17950 


DC 11,62576368114,, 
02576368114 


SPACE TYPEWRITER 


SPTY 


15064 


17960 


DC 11,42526368134,,, 
M2 52 6368 134 


BACKSPACE TYPEWRITER 


BKTY 


15075 


17970 


DC 11,99634795642,, 
N9634759642 


READ DISK TRACK NUM. W/GP. MK. 


RTGN 


15086 


17980 


OC 11,99444799602,, 
N9444755602 


READ DISK WITH GROUP MARK 


RDGN 


15097 


17990 


DC 11,66634759842,, 
06634755842 


WRITE DISK TRACK NUM. W/GP. MK. 


WTGN 


15108 


18000 


DC 11,66444755802,, 
06444755802 


WRITE DISK WITH GROUP MARK 


WDGN 


15119 


18010 


DC 11,43634755652,, 
M3634755652 


CHECK DISK TRACK NUM. W/GP. MK. 


CTGN 


15130 


18020 


DC 11,43444755612,, 
M3444755612 


CHECK DISK WITH GROUP MARK 


COGN 


15141 


18030 


DC 11,-42565344714,, 
M2 56534471 M 


BRANCH OUT, LOAD IRl 


BOLD 


15152 


18040 


DC 11,-46625859061,, 
M662 585906 J 


FLOATING SQUARE ROOT SUB. 


FSQR 


15163 


18050 


DC 11,-464^35662071,, 
M643566207J 


FLOATING COSINE SUB. 


FCOS 


15174 


18060 


DC 11,-46624955081,, 
M662495508J 


FLOATING SINE SUB. 


FSIN 


15185 


18070 


DC 11,-46416355091,, 
M641 635509 J 


FLOATING ARCTANGENT SUB. 


FATN 


15196 


18080 


DC 11,-46456763101,, 
M645676310J 


FLOATING EXP^ BASE 10 SUB. 


FEXT 


15207 


18090 


DC 11,-46535647121,, 
M653564712J 


FLOATING LOG. BASE 10 SUB. 


FLOG 


15218 


18100 


DC 11,-46625962141,, 
M662596214J 


FLOATING SHIFT RIGHT SUB. 


FSRS 


15229 


18110 


OC 11,-46625362151,, 
M662536215J 


FLOATING SHIFT LEFT SUB. 


FSLS 


15240 


18120 


DC 11,-63465362161,, 
0346536216J 


TRANSMIT FLOATING SUB. 


TFLS 


15251 


18130 


OC 11,46414444010,, 
M6414444010 


FLOATING AOO 


FA 00 


15262 



1 06 
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18140 


DC 1 1, 46626442020 ». 
M6626442020 


FLOATING SUBTRACT 


FSUB 


15273 


11 


18150 


DC 11,46546453030,, 
M6 546453030 


FLOATING MUtTIPty 


FMilL 


15284 


11 


18160 


DC 11,46444965090,, 
M6444965090 


FLOATING DIVIDE 


FOIV 


15295 


11 


18170 


DC 11,42634653070*, 
M2634653070 


BRANCH AND TRANSMIT FLOATING 


BTFL 


15306 


11 


18180 


DC 11,62535955860,, 
02 53 5955860 


SELECT READ NUMERICALLY 


iSLRN 


15317 


11 


18190 


DC 11,-42634662171,, 
M2 63 46621 7 J 


BR. AND TRANS V FLOAT. SUB. 


BTFS 


1532S 


11 


18200 


DC 1 1,-446241 43025 •• 
N462*14302N 


DEFINE SPECIAL ALPHA CONSTANT 


DSAC 


15339 


11 


18210 


DC 11,-44565947015,, 
M4S6594701N 


DEFINE JQRIGIN 


DORG 


15350 


11 


18220 XHEAD 


DC 11,-48454144385,, 
M845414438N 


HEAD 


HEAD 


15361 


11 


18230 


DC 11,-62416545007,, 
0241 6545 OOP 


SAVE PRODUCT AREA 


SAVE 


15372 


11 


18240 


DC 11 ,-59626359017,, 
N9 62 635901 P 


RESTORE PRODUCT AREA 


RSTR 


15383 


11 


18250 


DC 11,42555659401,, 
M2 555659401 


BRANCH NO OUTPUT RECORD MARK 


BNOR 


15394 


11 


18260 


DC 11,42555945411,, 
M2 555945411 


BRANCH NO END OF RECORD 


BNRE 


15405 


11 


18270 


DC 11,42555443421, • 
M2 555443421 


BRANCH NO MODE SHIFT 


BNMC 


15416 


11 


16280 


DC 11,42554959441,, 
M2 554959441 


BRANCH NO READ INPUT READY 


BNIR 


15427 


11 


18290 


DC 11,42435542461,, 

M2435542461 


BRANCH SIOC CHANNEL NOT BUSY 


BCNB 


15438 


11 


18300 


DC 11,-62534144662,, 
0253414466K 


SELECT AOC AND INCREMENT 


SLAO 


15449 


11 


18310 


DC 11,-59554943652,, 
N955494365K 


READ NUMERIC INPUT CHANNEL 


RNIC 


15460 


11 


18320 


DC 11,-62414356422,, 
0241435642K 


SELECT ADDRESS AND CONTACT OPER. 


SACO 


15471 


11 


18330 


DC 11,-62415662432,, 
0241 566243K 


SEL. ADDRS.ANO PROVIDE OUTPUT SIG. 


SAOS 


15482 


11 


18340 


DC 11,-62536341612,, 
0253634161K 


SELECT TAS 


SLTA 


15493 


11 


16350 


DC 11,-62534159622,, 
0253415962K 


SELECT ADC REGISTER 


SLAR 


15504 


11 


18360 


DC 11,-62536343642,, 
0253634364K 


SELECT REAL-TIME CLOCK 


SLTC 


15515 


11 


18370 


DC 11,-62534342672,, 
0253434267K 


SELECT CONTACT BLOCK 


SLCB 


15526 


11 


18380 


DC 11,-62535445682,, 
0253544568K 


SELECT MANUAL ENTRY SWITCHES 


SLME 


15537 


11 


18390 


DC 11,-62534943652,, 


SELECT INPUT CHANNEL 


SLIC 


15548 


11 




0253494365K 








18400 


DC 11,-59414943752,, 
N941494375K 


READ ALPHA INPUT CHANNEL 


RAIC 


15559 


11 


18410 


DC 11,-66555643852,, 


WRITE NUMERIC OUTPUT CHANNEL 


WNOC 


15570 


11 



0655564385K 
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18420 




DC 11,-66415643952,, 
0641 5643 95K 


WRITE ALPHA OUTPUT CHANNEL 


WAOC 


15581 




11 




18430 




DC 11,-59425763736,,, 
N9425763730 


READ BINARY PAPER TAPE 


RBPT 


15592 




11 




18440 




DC 11,-66425763926,,, 

06425763920 


WRITE BINARY PAPER TAPE 


WBPT 


15603 




11 




18450 




DC 11,43575346940,,, 
M3 575346940 


COMPLEMENT OCTAL FIELD 


CPLF 


15614 




11 




18460 




DC 11,41554446930,,, 
Ml 554446930 


AND TO FIELD 


ANOF 


15625 




11 




18470 




DC 11,45565946950,,, 
M5 565946950 


EXCLUSIVE OR TO FIELD 


EORF 


15636 




11 




18480 




DC 11,-43415353033,, 
M341 535303L 


CALL IOCS OR EXEC PKG. ROUTINE 


CALL 


15647 




11 




18490 




DC 11,-62454552043,, 
0245455204L 


IOCS SEEK DISK 


SEEK 


15658 




11 




18500 




DC 11,-44576341453,, 
M457634145L 


DEFINE PAPER TAPE ALPHA 


OPTA 


15669 




11 




18510 




DC 11,-44576355153,, 
M457635515L 


DEFINE PAPER TAPE NUMERIC 


OPTN 


15680 




11 




16520 




DC 11,-44655343185,, 
M465534318N 


DEFINE VARIABLE LENGTH CONSTANT 


OVLC 


15691 




11 




16530 




DC 11,-44544562085,, 
M454456208N 


DEFINE MESSAGE 


DMES 


15702 




11 




16540 




DC 11,44455544008,, 
M4455544008 


DEFINE END 


OENO 


15713 




11 




18550 




DC 11,42634154100,, 
M2634154100 


BRANCH AND TRANSMIT ADDR. IMMED. 


BTAM 


15724 




11 




18560 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15735 




11 




18570 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15746 




11 




18580 




DC 11,60606060606,. 
00606060606 


DUMMY OP CODE 




15757 




11 




18590 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15768 




11 




18600 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15779 




11 




18610 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15790 




11 




18620 




DC 11,60606060606,, 

00606060606 


DUMMY OP CODE 




15801 




11 




18630 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15812 




11 




18640 




DC 11,60606060606,, 
00606060606 


DUMMY OP CODE 




15823 




11 




18650 




DC 11,60606060606,, 

00606060606 


DUMMY OP CODE 




15834 




11 




18660 


DENDX 


DC 11,60606060606, , 
00606060606 


DUMMY OP CODE 




15845 




11 




18670 


FILE 


34 FDCF, 00701 






15846 


34 


15894 


00701 


18660 




38 FDCF, 00702 






15858 


38 


15894 


00702 


18690 




TRA 






15870 
15862 


36 
49 


00000 
00000 


00500 
00000 


18700 


FDCF 


DDA ,0,A2DAD,A2SCT,INSTRN 




15894 




14 





OJ 8800-58 J0132 
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18710 




TCD 


FILE 




18720 




00 RG 


INSTRN 




18730 


MACR02 


TFM 


G00DB3>6 


»BTBL3 


1 8740 




TO 


G00DB3^11tZEP0^29 


18750 




A 


600DB3^5i 


iG000B3'*-l 1 


18760 


GO0OB3 




1 1 10 




18770 


BTBL3 


B 


TRA» 1 f 


0 


18780 




00 RG 


• "-l 




18790 




B 


lOGETt 1 1 


♦ 1 


18800 




DORG 


♦—1 




18810 




B 


PUT» t • 


♦2 


18620 




OORG 


•-1 




18830 




B 


PCALL,,* 


♦3 


18840 




OORG 


•-1 




18850 




B 


SEEK,,, 


♦4 


18860 




OORG 


• -1 




18870 




B 


DCARO,,, 


♦ 5 


18880 




OORG 


•-1 




18890 




B 


DDWOO,,, 


♦6 


18900 




OORG 


»-l 




189 10 




B 


DDA,, , 


♦ 7 


18920 




DORG 


•-3 




18930 




TRANSFER INSTRUCTION 


18940 


TRA 


TO 


•♦23,A00C0W 


18950 




TO 


•♦23,AJUST 


18960 




AM 


AODCOtf, , 


10 


18970 




TF 


AODRS,AODCOH 


18980 




AM 


A0DC0M,41 


18990 




TFM 


INPUT2*1 


•50, 10 11 


19000 




87 


MEXIT 




19010 


lOGET 


TFM 


INPUT2+6 


, I06T 


19020 




BTM 


SCAN, PUTSRJ, 7 11 


19030 


SEEK 


TFM 


INPUT2^6 


• lOSK 


19040 




BTM 


SCAN, PUTSRJ ,7 11 


19050 


PUT 


TFM 


INPUT246 


,IOPT 


19060 




BTM 


SCAN, •♦12,7 11 


19070 




BTM 


MACSHF, PUTSRJ 


19080 




CM 


INPUT>20 


,59,10 


19090 




BNE 


PUTSRJ 




19100 




BTM 


MACSHF, PUTSRJ 


191 10 




CM 


INPUT«20 


•42,10 


191.20 




BNE 


PUTSRJ 




19130 




BTM 


NACSHFfPUTSRJ 


19140 




CM 


INPUT«20 


•43,10 


19150 




BNE 


PUTSRJ 




19160 




BTM 


MACSHF, •♦20 


19170 




B7 


PUTSRJ 




19180 




TFM 


INPUT24^6 


•lORBC 


19190 


PUTSRJ 


TO 


•♦23,ADDC0M 


19200 




TO 


•♦23*AJUST 


19210 




AM 


AOOCOW,, 


10 


19220 




TF 


ADORS,AOOCOW 


19230 




AM 


AOOCOW, 23,10 


19240 




TFM 


INPUT 2*1 


,07,10 


19250 


MEXIT 


BTM 


CTESTt»*l2 
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19260 




TFM 


CFFA,NC0CF2 


19270 




BTM 


CFF,LOLBL 


19280 


NCDCF2 


DDA 


•0,A2DAD,A3SCT, INSTRN 






0JB800-22J0132 


19290 




DC 


1.' 


19300 


DCARO 


TO 


INPUT2+6,ZEP0*28 


19310 




TOM 


INPUT2^5, 0,11 


19320 




A 


INPUT2*6, INPUT2«-6 


19330 




TFW 


INPUT24^1,05,10 


19340 




BTM 


SCAN,«-M2 


19350 




TO 


DCAR04^19,BSW 


19360 




TO 


LDABSWtRLOCSW 


19370 




TF 


TEMPR,ADDRS 


19380 




BTM 


TRSCAN,*^12,7 11 


19390 




TF 


ADDRS, TEMPR 


19400 




BNF 


MEXIT, DCARD*19 


19410 




TDM 


LDABSW,1,11 


19420 




AM 


AD0COW,l,10 


19430 




TF 


ADDRS, ADDCOW 


19440 




AM 


A0DC0W,7,10 


19450 




B7 


MEXIT 


19460 


OOWOO 


TOM 


INPUT2+5,0,H 


19470 




TO 


INPUT 2*6, 2EP0«-2B 


19480 




TFM 


INPUT 24^ 1,05, 10 


19490 




BTM 


SCAN,«^12 


19500 




TO 


DCARD-t^l9,BSW 


19510 




TD 


LDABSWtRLOCSW 


19520 




TF 


TEMPR, ADDRS 


19530 




BTM 


TRSCAN,»*12,7 11 


19540 




BTM 


TRSCAN,«*12,7 11 


19550 




TF 


ADDRS, TEMPR 


19560 




BNF 


MEXIT,DCARD-H9 


19570 




TDM 


LDABSW,1,11 


19580 




AM 


ADDCOW, 1,10 


19590 




TF 


ADDRS, ADDCOW 


19600 




AM 


ADDCOW, 12, 10 


19610 




BNF 


•♦24,BSW 


19620 




SM 


ADDCOW, 5, 10 


19630 




B7 


MEXIT 


19640 


PCALL 


TR 


C0LL-18,THINGS-20 


19650 




BNR 


•♦20, INPUT*20 


19660 




B7 


PCALLl 


19670 




CM 


INPUT*20,23,10 


19680 




BE 


PCALLl 


19690 




CM 


INPUT^20,00,10 


19700 




BE 


PCTR 


19710 




TF 


COLL, INPUT*20 


19720 




CF 


COLL-1 


19730 




TR 


C0LL-17,C0LL-15 


19740 




CM 


COLL-17,7,10 


19750 




BE 


ER22 


19760 


PCTR 


TR 


INPUT+19, INPUT*21 


19770 




B7 


PCALL+12 


19780 


PCALL 1 


CM 


COLL-17,06,10 


19790 




BE 


• ♦44 



15846 








10132 








10132 


16 


10174 


J0180 


10144 


25 


10179 


02329 


10156 


21 


10173 


10179 


10168 


49 


00000 


000-0 


10180 


49 


10258 


00000 


10190 








10190 


49 


10338 


00000 


10200 








10200 


49 


10386 


00000 


10210 








10210 


49 


11074 


00000 


10220 








10220 


49 


10362 


00000 


10230 








10230 


49 


10674 


00000 


10240 








10240 


49 


10862 


00000 


10250 








10250 


49 


11826 


00000 


10258 








10258 


25 


10281 


02529 


10270 


25 


10293 


02399 


10282 


IX 


02529 


000-0 


10294 


26 


03293 


02529 


10306 


11 


02529 


-0041 


10318 


16 


03035 


OOON- 


10330 


49 


10622 




10338 


16 


03040 


-0566 


10350 


17 


05164 


J055- 


10362 


16 


03040 


-0554 


10374 


17 


05164 


J055- 


10386 


16 


03040 


-0532 


10398 


17 


05164 


J041- 


10410 


17 


11536 


J0550 


10422 


14 


02901 


0O0N9 


10434 


47 


10550 


01200 


10446 


17 


11 536 


J0550 


10458 


14 


02901 


000M2 


10470 


47 


10550 


01200 


10482 


17 


11536 


J0550 


10494 


14 


02901 


000M3 


10506 


47 


10550 


01200 


10518 


17 


11536 


J0538 


10530 


49 


10550 




10538 


16 


03040 


-0520 


10550 


25 


10573 


02529 


10562 


25 


10585 


02399 


10574 


11 


02529 


000-0 


10586 


26 


03293 


02529 


10598 


11 


02529 


000K3 


10610 


16 


03035 


000-7 


10622 


17 


07426 


J0634 
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10634 


16 


02631 


J0658 


10646 


17 


02594 


-8390 


10658 




I* 




10672 




1 




10674 


25 


03040 


02328 


10686 


15 


03039 


0000- 


10698 


21 


03040 


03040 


10710 


16 


03035 


000-5 


10722 


17 


05164 


J0734 


10734 


25 


10693 


07319 


10746 


25 


07320 


07316 


10758 


26 


02572 


03293 


10770 


17 


05134 


J078K 


10782 


26 


03293 


02572 


10794 


44 


10622 


10693 


10806 


15 


07320 


OOOOJ 


10818 


11 


02 529 


000- 1 


10830 


26 


03293 


02529 


10842 


11 


02529 


000-7 


10854 


49 


10622 




10862 


15 


03039 


0000- 


10874 


25 


03040 


02328 


10886 


16 


03035 


000-5 


10898 


17 


05164 


J0910 


10910 


25 


10693 


07319 


10922 


25 


07320 


07316 


10934 


26 


02572 


03293 


10946 


17 


05134 


J095Q 


10958 


17 


05134 


J097- 


10970 


26 


03293 


02572 


10982 


44 


10622 


10693 


10994 


15 


07320 


OOOOJ 


11006 


11 


02529 


000-1 


11018 


26 


03293 


02529 


11030 


11 


02529 


000J2 


11042 


44 


11066 


07319 


11054 


12 


02529 


000-5 


11066 


49 


10622 




11074 


31 


02421 


02400 


11086 


45 


11106 


02901 


11098 


49 


11234 




11106 


14 


02901 


000K3 


11118 


46 


11234 


01200 


11130 


14 


02901 


000-0 


11142 


46 


11214 


01200 


11154 


26 


02439 


02901 


11166 


33 


02438 


00000 


11178 


31 


02422 


02424 


11190 


14 


02422 


000-7 


11202 


46 


11406 


01200 


11214 


31 


02900 


02902 


11226 


49 


11086 




11234 


14 


02422 


000-6 


11246 


46 


11290 


01200 



110 
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TOM 


COLLfO 




11258 


15 


02439 


00000 


198 10 




TR 


CQLL-17t COLL-15 




11270 


31 


02422 


02424 


19820 




B7 


PCALLl 




11282 


49 


11234 




19830 




SF 


COLL-13 




1 1290 


32 


02426 


00000 


19840 




TFM 


PCC'fl 1 1 CLTBL*10-18 




11302 


16 


11361 


J1471 


1 9850 


PCLPl 


AM 


PCC+1 1 t 18 t 10 




1 1314 


1 1 


1 1361 


000 J6 


19860 




CM 


PCC + 1 1 1 CLTBL-*- 10'*' 3* 18 




1 1326 


14 


1 1361 


J1543 


19870 




BNL 


ER22 




11338 


46 


11406 


01300 


19880 


PCC 


C 


C0LL-2,»-» 




11350 


24 


02437 


00000 


1 9890 




BNE 


PCLPl 




1 1362 


47 


11314 


01200 


19900 




AM 


PCC-i-1 1 1 5f 10 




11374 


11 


11361 


000-5 


19910 




SF 


PCC+1 1 




1 1386 


32 


11361 


00000 


19920 




87 


PCC-t-1 1 f t6 




11398 


49 


1136J 




19930 


ER22 


TFM 


EVALER-1 »27200 




11406 


16 


07041 


K7200 


19940 




DC 
t 


It • »♦ 




11417 




I 




19950 




8T 


EPRINT,EPRINT~1 




11418 


27 


07322 


07321 


19960 




BD 


ERCORf ERSTSM 




11430 


43 


07178 


02476 


19970 




TFM 


INPUT 2-^4* 06000 




1 1442 


16 


03038 


"6000 


19980 




TFM 


CFFAtNC0CF2 




11454 


16 


02631 


J0658 


19990 




BTM 


CFFtSNDTCO 




11466 


17 


02594 


-8414 


20000 


CLTBL 


DAC 


6tLINK ««t 


TABLE/VECTOR OF CALL STATEMENT 


11479 




6 


X 2 






LINK 














20010 




OS A 


CLL INK 




11494 




5 


X 1 












11494 




J1618 




20020 




DAC 


6tL0A0' t*f 


SELECT OPERANDS 


11497 




6 


X 2 






LOAD 














20030 




OS A 


CLLOAO 




11512 




5 


X 1 












11512 




J1618 




20040 




DAC 


6, EXIT fft 




11515 




6 


X 2 






EXIT 














20050 




DSA 


CALLEX 




1 1530 




5 


X 1 












11530 




J1746 




20060 




OS 


5 




11535 




5 




20070 


NACSHF 


TR 


INPUT«'19f INPUT«'2I 




11536 


31 


02900 


02902 


20080 




BNR 


• «-20t tNPUT-t-20 




11548 


45 


11568 


02901 


20090 




87 


MAC SHF*-lf »6 




11560 


49 


1153N 




20100 




CM 


INPUTS 20t23f 10 




11568 


14 


02901 


000K3 


20110 




BE 


MACSHF-lt t6 




11580 


46 


1153N 


01200 


20120 




c 


CLERER'fl t INPUT't-20 




11592 


24 


02694 


02901 


20130 




BE 


MACSHF 




11604 


46 


11536 


01200 


20140 




BB 2 






1 1616 


42 






20150 


CLLINK 


DS 






11618 




0 




20160 


CLLOAD 


TD 


•♦23tA00C0W 




11618 


25 


11641 


02529 


20170 




TD 


• 4'23iAJUST 




11630 


25 


11653 


02399 


20180 




AM 


ADDCQWftlO 




11642 


U 


02529 


000-0 


20185 




BTM 


TRSCAN»*4-12,7 11 




11654 


17 


05134 


J1660 


20190 




BTM 


rRSCAN»»4-12,7 11 




11666 


17 


05134 


J167Q 


20200 




TF 


ADORStAOOCOW 




11678 


26 


03293 


02529 


20210 




AM 


ADDC0M,31,10 




11690 


11 


02529 


OOOLl 


20220 




BNF 


•♦24.BSW 




11702 


44 


11726 


07319 


20230 




SM 


A00C0W,5,10 




11714 


12 


02529 


000-5 


20240 




TFM 


INPUT2-flf05,lO 




11726 


16 


03035 


000-5 



in 
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20250 




B7 


MEXIT 


11738 


49 


10622 




20260 


CALLEX 


TO 


•♦23,ADDC0W 


11746 


25 


11769 


02529 


20270 




TD 


•♦23,AJUST 


11758 


25 


11781 


02399 


20280 




AM 


AOOCOWtOOtlO 


11770 


11 


02529 


000-0 


20290 




TF 


ADORStAOOCOW 


11782 


26 


03293 


02529 


20300 




TFM 


INPUT2*1,04,10 


11794 


16 


03035 


000-4 


20310 




AM 


ADDCGWt6tl0 


11806 


11 


02529 


000-6 


20320 




B7 


MEXIT 


11818 


49 


10622 




20330 


DDA 


BTM 


SCANt««^12 


11626 


17 


05164 


J1838 


20340 




SF 


DDA 


11838 


32 


11826 


00000 


20350 




80 


•♦36,BSW 


11850 


43 


11886 


07319 


20360 




TO 


LDABSM,RLOCSW 


11662 


25 


07320 


07316 


20370 




CF 


DDA 


11874 


33 


11826 


00000 


20380 




TF 


DDA4^23tA0DRS 


11886 


26 


11849 


03293 


20390 




BTM 


TRSCANt»<-12t7 11 


11698 


17 


05134 


J191- 


20400 




BTM 


TRSCAN,»+12,7 11 


11910 


17 


05134 


J192K 


20410 




BTM 


TRSCAN,»+12,7 11 


11922 


17 


05134 


J193M 


20420 




BTM 


TRSCANt»+12t7 11 


11934 


17 


05134 


J1940 


20430 




TFM 


INPUT24^1,060,9 11 


11946 


16 


03035 


00-6- 


20440 




TF 


ADDRStODA4^23 


11958 


26 


03293 


11649 


20450 




BNF 


DDAXtODA 


11970 


44 


12042 


11826 


20460 




TD 


•♦23, ADOCOW 


11982 


25 


12005 


02529 


20470 




TD 


•♦23, AJUST 


11994 


25 


12017 


02399 


20480 




AM 


AODCOW, OOtlO 


12006 


11 


02529 


000-0 


20490 




TF 


ADORS, ADOCOW 


12016 


26 


03293 


02529 


20500 




AM 


AOOCOW, 13,10 


12030 


11 


02529 


000J3 


20510 


OOAX 


TFM 


CFFA,NC0CF2 


12042 


16 


02631 


J0658 


20520 




87 


MEXIT 


12054 


49 


10622 




20530 


C62S 


DC 


2,62 


12062 




2 




20540 


C66W 


02 
DC 


2,66 


12064 




2 




20550 


C41A 


06 
DC 
Ml 


2,41 


12066 




2 




20560 


FM 


34 


FMOCF, 00701 


12068 


34 


12116 


00701 


20570 




38 


FMDCF, 00702 


12080 


38 


12116 


00702 


20580 




TRA 




12092 


36 


00000 


00500 










12104 


^9 


00000 


00000 


20590 


FMDCF 


DDA 


• 0, A30Ab, A3SCT, INSTRN 


12116 




14 








0J8861-22J0132 










20600 




TCD 


FM 


12068 








20610 


• 














20620 


• 1 


DEFINE MESSAGE 










20630 


« 














20640 




DORG 


INSTRN 


10132 








20650 


0ECL2 


TD 


XRA6-l,ZEP0+28 


10132 


25 


00333 


02328 


20660 




87 


DECTAB (6) 


10144 


49 


1-J52 




20670 


DECTAB 


B 


DMES,,, +0 


10152 


49 


10530 


00000 


20680 




DORG 


•-1 


10162 








20690 




B 


DVLC, +1 


10162 


49 


11876 


00000 


20700 




DORG 


•-1 


10172 








20710 




B 


DOT,,, *2 


10172 


49 


12312 


00000 


20720 




DORG 


»-l 


10182 








20730 




B 


HEADER,,, +3 


10182 


49 


12676 


00000 


20740 




DORG 


• -3 


10190 
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20750 


• ANALYZE CONTROL CHARACTER, SUBROUTINE ANAL 






20760 


ANAL 


CM 


INPUT^24f 4tl0» 1ST CHECK IF RIGHT PAREN IS PRESENT 


10190 


14 


20770 




BNE 


ANAL1^12*.. NO LEFT PAREN, ERROR 


10202 


47 


20780 




TF 


ANALl4-llf INPUT-f22f tMOVE CHARACTER TO ANOTHER LOCATIOIf 


I02U 


26 


20790 




TR 


INPUT+l9,INPUT+23,, POSITION INPUT RECORD 


10226 


31 


20800 




CM 


ANALl4-llt44«10»IS IT A D 


10238 


14 


20810 


ANALl 


BNE 


ANAL2,«10t NOT A D, MAY BE 6000 


10250 


47 


20820 




TFM 


EVALER-1»17400,,IT IS A 0, ERROR 


10262 


16 


20830 




DC 
« 


l.»,» 


10273 




208A0 




CF 


ANAL,,, RESET STRAY PAREN SWITCH 


10274 


33 


20850 




BT 


EPRINT,EPRINT-1,, PRINT ERROR MESSAGE 


10286 


27 


20860 




BD 


ERCOR, ERSTSM 


10298 


43 


20870 


ANL14 


CM 


DTR-l,DMESC,, BRANCH TO READ NEXT CHAR 


10310 


14 


20880 




BE 


DMSBl,,, SCANNING FOR ALPHA MODE 


10322 


46 


20890 




B 


DMSNUM 


10334 


49 


20900 




DORG 


• -3 


10342 




20910 


ANAL2 


CM 


ANALU11,41,10, CHECK TO SEE IF CHARACTER LFE BETWEEN A^F 


10342 


14 


20920 




BL 


ANALl-t-12,,, NO IF BRANCH FROM HERE 


10354 


47 


20930 




CM 


ANALl^ll.47,10, MAY BE CHECK FURTHER 


10366 


14 


20940 




BL 


ANL14,,, OKAY 


10378 


47 


20950 




CM 


ANAL14>11, 54,10, CHECK REST OF CHARACTERS SERIALLY 


10390 


14 


20960 




BNE 


ANAL3,,, NOT A MODE CHANGE 


10402 


47 


20970 




CM 


DTR-1,0MESC,, NODE CHANGE SET UP BRANCH 


10414 


14 


20980 




BE 


DMSNUM,,, CHANGING FROM ALPHA TO NUMERIC 


10426 


46 


20990 




B 


DMES2,,, CHANGING FROM NUMERIC TO ALFA 


10438 


49 


21000 




DORG 


•-3 


10446 


14 


21010 


ANAL 3 


CM 


ANALU11,57,10, CHK FOR P 


1 0446 


21020 




BE 


ANL14,,, LEAVE SUBROUTINE 


10458 


46 


21030 




CM 


ANALU11,52,10, CHECK FOR R,S,,T 


10470 


14 


21040 




BL 


ANAL1^I2,,, ERROR IF BRANCH 


10482 


47 


21050 




CM 


ANAL1>11,63,10, 


10494 


14 


21060 




BH 


ANAL1>12,,, ERROR IF BRANCH 


10506 


46 


21070 




B 


ANL14,,, OKAY, RfS, OR T 


10518 


49 


21080 


ANAL4 


OS 


,ANAL1^12 


10262 




21090 


• PHASE A ONES PROCESSOR 






21100 


ONES 


BTM 


SCAN,*412 


10530 


17 


21110 




TF 


DIGITS, CLERER^2,, CLEAR DIGIT COUNT 


10542 


26 


21120 




TFM 


0TR-1,0MESC,, SET SWITCH TO HANDLE POSSIBLE ERROR 


10554 


16 


21130 




BNR 


• «^24,INPUT420,, CHECK IF BREAKER A RM 


10566 


45 


21140 




B 


OMSRM,,, BREAKER A RM, ERROR, INSERT NUM END MESSAGE 


10578 


49 


21150 




TDM 


SMODE,,, INITIALIZE STARTING MODE SWITCH 


10590 


15 


21160 




BNF 


DMESl, BSW,, PROGRAMMER SPECIFIES ADDRESS 


10602 


44 


21170 




TF 


ADORStAODCON,, NO, MOVE LOCATION COUNTER INTO ADDRESS LOC 


10614 


26 


21180 


OMESl 


TFM 


M0DE1^6,0MSMN1,,, INITITIALIZE BRANCH IN SUBROUTINE MODE 


10626 


16 


21190 




BTM 


MODE, •♦12,, FIND MODE 


10638 


17 


21200 




CM 


INPUT^20,41,I0, SEE IF ALPHA MODE 


10650 


14 


21210 




BE 


DMSALF,,, STARTING MODE ALPHA IF BRANCH. 


10662 


46 


21220 




TFM 


EVALER-1 ,17300, .ILLEGAL STARTING NODE CHARACTER. 


10674 


16 


21230 




DC 




10665 




21240 




BT 


EPRlNT.EPRINT-l.. PRINT ERROR MESSAGE 


10686 


27 


21250 




BD 


ERCOR, ERSTSW 


10698 


43 


21260 


DMSALF 


BNF 


OMESA,BSW., SEE OF PROGRAMMER SPEC ADDRESS 


10710 


44 


21270 




TO 


• 4-23.AD0C0N., NO, ADJUST ADDRESS ♦ LOC COUNTER 


10722 


25 


21280 




TO 


•♦23,JSTBL 


10734 


25 
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21290 




AM 


AD0C0W,,10 


10746 


11 


21300 




TF 


A0DRS,AOOCOW,, SET ADDRESS OF MESSAGE TO 2N0 DIGIT 


10758 


26 


21310 




SN 


AD0C0W,2,I0, SET LOC. COUNTER TO LOC BEFORE MESSAGE 


10770 


12 


21320 


OMESA 


TFM 


M00E1>6, DMSBl.,, SET>UP BRANCH INST IN SUBROUTINE MODE 


10782 


16 


21330 




BTM 


MODE, MODE,, SEARCH FOR COMMA 


10794 


17 


21340 


OHSBl 


BTM 


OTRtOMESC, SCAN MESSAGE OPERAND 


10806 


17 


21350 




AM 


DIGITS, 4, 10, LEFT PAREN FOUND. UPDATE DIGIT COUNT BY 4 


10818 


11 


21360 




BNF 


ANAL, ANAL.. STRAY PAREN NOT FOUND IF BRANCH 


10830 


44 


21370 




B 


ANAL4 


10842 


49 


21380 




DORG 


•-3 


10850 




21390 


ONESC 


AM 


DIGITS, 2. 10. UPDATE DIGIT COUNT BY 2 


10850 


11 


21400 




B 


OMSBl 


10862 


49 


21410 


OMSMNl 


TOM 


SMODE, 1,10, SET SWITCH FOR ALPHA STARTING MODE 


10874 


15 


21420 




BNF 


DMSNUM, BSW,, CHECK IF PROG SPECIFIED ADDRESS 


10886 


44 


21430 




AM 


AD0RS,1,10, PROCESSOR ASSIGNED, INCREASE ADDRESS 


10898 


11 


21440 


OMSNUH 


BTM 


DTR, OMESll,, SCAN MESSAGE OPERAND 


10910 


17 


21450 




AM 


DIGITS, 2, 10. LEFT PAREN FOUND 


10922 


11 


21460 




BNF 


ANAL, ANAL., STRAY PAREN NOT FOUND IF BRANCH 


10934 


44 


21470 




B 


ANAL4 


10946 


49 


21480 




DORG 


•-3 


10954 




21490 




DC 


1,»,» 


10953 




21500 




BT 


EPRINT, EPRINT-1 


10954 


27 


21510 


OMESll 


CM 


INPUT4^20, 79,, CHECK TO SEE IF CHAR NUMERIC 


10966 


14 


21520 




BH 


0MSER2,,, NOT NUMERIC, ERROR 


10978 


46 


21530 




CM 


INPUT4^20,69,10 


10990 


14 


21540 




BH 


DMS 12,,, NUMERIC IF BRANCH 


11002 


46 


21550 




CM 


INPUT*20,50,10, CHECK IF -OTHRU-9 


11014 


14 


21560 




BL 


DMSER2,,, NON-NUMERIC IF BRANCH 


11026 


47 


21570 




CM 


INPUT*20,59,10 


11038 


14 


21580 




BH 


DMSER2,,, NOT NUMERIC IF BRANCH 


11050 


46 


21590 


DMS12 


AM 


DIGITS, 1.10. UPDATE DIGIT COUNT BY ONE 


11062 


11 


21600 




B 


DMSNUM 


11074 


49 


21610 


• CHECK TO 


SEE IF ALPHA WILL START IN EVEN LOCATION 






21620 


• LOCATION 


DMSV CONTAINS LOC OF LAST DIGIT STORED, 






21630 


DMES2 


TF 


DMSV, DIGITS,. INITIALIZE IT WITH DIGIT COUNT. 


11086 


26 


21640 




BNF 


DMES21, BSW.. SEE OF PROGRAMMER SPEC ADDRESS 


11098 


44 


21650 




A 


OMSV.ADOCOW., NO, ADD LOC COUNTER 


11110 


21 


21660 




B 


DMES22 


11122 


49 


21670 


DMES21 


A 


DMSV,ADORS., ADO PROG SPEC ADDRESS 


11134 


21 


21680 




SM 


DMSV, I, 10, ADJUST FOR NUMERIC STARTING MODE 


11146 


12 


21690 




BD 


•+24, SMODE,, CHECK STARTING MODE 


11158 


43 


21700 




SM 


DMSV, 1,10, ADJUST FOR ALPHA STARTING MODE 


11170 


12 


21710 


0MES22 


TO 


•♦23, DMSV 


11182 


25 


21720 




TD 


DMSEND-l.EVODO,,, 


11194 


25 


21730 




BO 


DMSBl ,DMSEND-1,, WILL START IN EVEN 


11206 


43 


21740 




TFM 


EVALER-1, 17600,, 000 ERROR, PRINT ERROR MESSAGE 


11218 


16 


21750 




DC 
• 


l,*f» 


11229 




21760 




BT 


EPRINT, EPRINT-1 


11230 


27 


21770 




BO 


ERCOR, ERSTSW 


11242 


43 


21780 




AM 


DIGITS, 1,10, ALLOW FOR - 


11254 


11 


21790 




8 


DMSBl 


11266 


49 


21800 


OMSEND 


CM 


DIGITS,, 9, SEE IF NO DIGITS ACCUMULATED 


11278 


14 


21810 




BH 


•♦36,,, NO ZERO, OKAY 


11290 


46 


21820 


DMSRM 


AM 


DIGITS, 100, 9 


11302 


11 



PAGE 



02905 000-4 

10262 01200 

10261 02903 

02900 02904 
10261 000M4 
10342 012-0 
07041 J7400 

1 

10190 00000 

07322 07321 

07178 02476 

11691 J0850 

10806 01200 

10910 00000 

10261 OOOMl 

10262 01300 
10261 000M7 
10310 01300 
10261 0OON4 
10446 01200 
11691 J0850 
10910 01200 
11086 00000 

10261 000N7 

10310 01200 

10261 000N2 

10262 01300 

10261 00003 

10262 01100 
10310 00000 

0 

05164 J0542 

02692 02695 

11691 J0850 

10590 02901 

11302 00000 

03384 00000 

10626 07319 

03293 02529 

11632 J0874 

11578 J0650 

02901 OOOMl 
10710 01200 
07041 J7300 

1 

07322 07321 

07178 02476 

10782 07319 

10745 02529 

10757 02459 



PAGE 

02529 000-0 

03293 02529 

02529 000-2 

11632 J0806 

11578 J1578 

11692 J0850 

02692 000-4 

10190 10190 

10262 00000 

02692 000-2 

10806 00000 

03384 000-1 

10910 07319 

03293 000-1 

11692 J0966 

02692 000-2 

10190 10190 

10262 00000 

1 

07322 07321 

02901 -0079 

11512 01100 

02901 00009 

11062 01100 

02901 OOONO 

11512 01300 

02901 000N9 

11512 01100 

02692 000-1 

10910 ooooa 



03260 02692 

11134 07319 

03260 02529 

11182 00000 

03260 03293 

0326O 000-1 

11182 03384 

03260 000-1 

11205 03260 

11277 02469 

10806 11277 

07041 J 76 00 
1 

07322 07321 

07178 02476 

02692 000- I 

10806 00000 

02692 00-00 

11326 01100 

02692 OOJOO 
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PAGE 



21830 




B 


DMSERlvtt ERROR IF BRANCHt NO DIGITS 


11314 


49 


11462 


00000 


21840 




TFM 


INPUT2+lt 070f9 11 


1 1326 


16 


03035 


00-7- 


21850 




TF 


INPUT2+6* DIGITS 


11338 


26 


03040 


02692 


21860 




BNF 


•♦24, BSW 


11350 


44 


11374 


07319 


21870 




A 


ADDCOW, DIGITS,, UPDATE LOCATION COUNTER BY MESSAGE SIZE 


11362 


21 


02529 


02692 


21880 


DECLRN 


BTM 


CTEST,»+12 


U374 


17 


07426 


J1386 


21890 




TFM 


CFFA,NCDCF 


11386 


16 


02631 


J1410 


21900 




BTM 


CFF.LOLBL 


11398 


17 


02594 


^8390 


21910 


NCOCF 


DO A 


,0,A2DAD,A4SCT,INSTRN 


11410 




14 








0J88 


00-44J0132 










21920 




DC 


I , • 


11424 




1 




21930 




TFM 


DIGITS, 100,9, SET DIGIT COUNT TO 100 


11426 


16 


02 692 


OOJOO 


21940 




TFM 


EVALER-1,B0000,, ER 8 MESSAGE, DMES TOO LONG 


1 1438 


16 


07041 


QOOOO 


21950 




DC 


1 , • , » 


11449 




1 




21960 




B 


• ♦24 . 


1 1450 


49 


11474 


00000 


21970 


DMSERl 


TFM 


EVALER-1. 90000,, ER9 MESSAGE, NO DMES OPERAND 


11462 


16 


07041 


ROOOO 


21980 




DC 
( 


l,»f*, PRINT ERROR MESSAGE 


11473 




1 




21990 




BT 


EPRINT,EPRINT-l 


11474 


27 


07322 


07321 


22000 




80 


ERCOR , ERSTSW 


11486 


43 


07178 


02476 


22010 




B 


DMSRM+24,,, CONTINUE 


1 1498 


49 


11 326 


00000 


22020 


NMOAL 


DC 


2,0 


1 1511 




2 




22030 


DMSER2 


-0 
TFM 


EVALER-1 , 17500, , ALPHA IN NUMERIC FIELD 


1 1512 


16 


07041 


J7500 


22040 




DC 
« 


I,' 


1 1523 




1 




22050 




BT 


EPRINT,EPRINT-l,, PRINT ERROR MESSAGE 


1 1524 


27 


07322 


07321 


22060 




BD 


ERCOR, ERSTSW 


11536 


43 


07178 


02476 


22070 




AM 


DIGITS, 2, 10, UPDATE DIGIT COUNT BY 2 FOR END OF NESS 


11548 


1 1 


02692 


000-2 


22080 




B 


DMSNUM 


11560 


49 


10910 


00000 


22090 




DC 


5,0 


11576 




5 








-0000 










22100 


MODE 


TR 


INPUT+19,1NPUT*21,, MOVE INPUT RECORD LEFT I CHAR 


1 1578 


31 


02900 


02902 


221 10 




BNR 


•♦24,INPUT*20,,,N0T BLANK, CHECK FOR RM 


11590 


45 


11614 


02901 


22120 




B 


DMSRM,,, 


11602 


49 


11302 


00000 


22130 




CM 


INPUT+20,23,10, SEARCH FIELD, CHECK FOR COMMA 


1 1614 


14 


02901 


000K3 


22140 


MODEl 


BE 


t,, COMMA FOUND, BRANCH 


11626 


46 


00000 


01200 


22150 




CM 


INPUT^20, ,10, COMMA NOT FOUND, CHECK FOR BLANK 


1 1638 


14 


02901 


000-0 


22160 




BE 


MODE,,, BLANK, CHECK NEXT CHARACTER 


11650 


46 


11578 


01200 


22170 




TF 


•♦18,M0DE-l,,, ALPHA CHAR IN FIELD, RETURN, OR CHECK 


11662 


26 


11680 


11577 


22180 




B 


t,, NEXT CHAR. ACCORDING TO BRANCH 


11674 


49 


00000 


00000 


22190 


• SUBROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER 










22200 




OS 


5 


11690 




5 




22210 


DTR 


TR 


INPUT+19,INPUT+21,, MOVE OPERAND LEFT 1 CHAR ♦ SEARCH 


1 1692 


31 


02900 


02902 


22220 




CM 


DIGITS,100,9, CHECK DIGIT COUNT 


1 1 704 


14 


02692 


OOJOO 


22230 




BH 


DMSERl-36,,, BRANCH TO ERROR ROUTINE 


11716 


46 


11426 


01100 






BNR 


•♦20,INPUT*20,, FOR RM 


1 1 728 


45 


11 748 


02901 


22250 




B 


DMSEND,,, RECORD MARK FOUND, SCAN FINISHED 


1 1740 


49 


11278 


00000 


22260 




00 RG 


•-3 


11748 








22270 




CM 


INPUT<-20,4,10, CHECK FOR STRAY RT PAREN 


11748 


14 


02901 


000-4 


22280 




BNE 


•♦56,,, NOT A STRAY PAREN IF BRANCH 


11760 


47 


11816 


01200 


22290 




SF 


ANAL,t, SET SWITCH FOR STRAY PAREN FOUND 


11772 


32 


10190 


00000 


22300 




CM 


DTR-1,DMESC 


11784 


14 


11691 


J0850 


22310 




BE 


DMSBI*12 


11796 


46 


10818 


01200 
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22320 
22330 
22340 
22350 
22360 
22370 
223B0 
22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 
22470 
22480 
22490 
22500 
22510 
22520 
22530 
22540 
22550 
22560 
22570 
22580 
22590 
22600 



B 


0MSNUM^12,,, 


NUM 


DORG 


•-3 




CM 


INPUT+20,24, 


10, CHK FOR LEFT PAREN 


BNE 


•♦24,,, NOT A 


LEFT PAREN 


BB 




, LEFT PAREN FOUND 


TF 


•♦18,DTR-lf • 


NOT A (t 


B 


ff , t 


RETURN 



DEFINE VARIABLE LENGTH ADDRESS CONSTANT 



DVLC 



BTM 
TO 
TF 
CF 
BNF 
TDM 
OVASGN SF 
DVLC2 BTM 
TF 
BNF 
TF 
AH 
SM 
BNN 
A 

DVLP BNR 
TFM 

DC 



22610 
22620 
22630 
22640 
22650 
22660 
22670 
22680 

22690 OVEND 
22700 
22710 
22720 

22730 
22740 
22750 

22760 DVADB 

22770 

22780 

22790 

22800 

22810 

22820 DVCKL 
22830 DVSWl 
22840 • 
22850 ♦ 



BT 
BO 
BTM 
BNR 
B7 
BTM 
A 

B7 
CM 
BNP 
TFM 
DC 

BT 
BO 
TFM 
TFM 
BNF 
A 

TDM 
TFM 
BTM 
OS 
OS 



SCAN, •♦12 
LDABSWtRLOCSU 
OVAOB^ll, ADDRS 
DVSWl 

0VLC2, BSW 
LDABSW,1«11 
DVSWl 

TRSCAN,^^12 
DVCKL, ADDRS 
DVLP, DVSWl 
OVADB^ll, ADDCOW, • 
DVADB+11, 50 
ADDRS, 50 

• ♦24 

DVADB^ll, ADDRS 
•♦48, INPUT«20 
EVALER-1, 90000,, 
1,S» 

EPRINT, EPRINT-1 
ERCOR, ERSTSW 
TRSCAN,»+12,7 11 
•♦20, INPUT+20 

DVEND 

TRSCAN,^^12 
DVCKL, ADORS 
DVLP 

DVCKL, 00050 

• ♦60 

EVALER-1, 80000,, 
1,*,» 

EPRINT, EPRINT-1 
ERCOR, ERSTSW 
DVCKL, 50 
ADORS, 00000 
•♦24, DVSWl 
ADDCOW, DVCKL 
INPUT2, 8 
CFFA.NCDCF 
CFF,DAC3-32 
, DVASGN+11 
, DVASGN 

DEFINE OCTAL TABLE 



ADOR IS RT.-MOST POS OF 1ST CON. 



ER 9, CONSTANT NOT SPECIFIED 



ERB, TOTAL LENGTH TOO BIG 



11808 


49 


10922 


00000 


11816 








11816 


14 


02901 


0O0K4 


11828 


47 


11852 


01200 


11840 


42 


00000 


00000 


11852 


26 


11870 


11691 


11864 


49 


00000 


00000 


11876 


17 


05164 


J1888 


11888 


25 


07320 


07316 


11900 


26 


12251 


03293 


11912 


33 


11948 


00000 


11924 


44 


11960 


07319 


11936 


15 


07320 


OOOOJ 


11948 


32 


11948 


00000 


11960 


17 


05134 


J1972 


11972 


26 


11959 


03293 


11984 


44 


12056 


11948 


11996 


26 


12251 


02529 


12008 


11 


12251 


-0050 


12020 


12 


03293 


-0050 


12032 


46 


12056 


01300 


12044 


21 


12251 


03293 


12056 


45 


12104 


02901 


12068 


16 


07041 


ROOOO 


12079 




1 




12080 


27 


07322 


07321 


12092 


43 


07178 


02476 


12104 


17 


05134 


J2110 


12116 


45 


12136 


02901 


12128 


49 


12168 




12136 


17 


05134 


J2148 


12148 


21 


11959 


03293 


12160 


49 


12056 




12168 


14 


11959 


-0050 


12180 


47 


12240 


01100 


12192 


16 


07041 


QOOOO 


12203 




1 




12204 


27 


07322 


07321 


12216 


43 


07178 


02476 


12228 


16 


11959 


-0050 


12240 


16 


03293 


-0000 


12252 


44 


12276 


11948 


12264 


21 


02529 


11959 


12276 


15 


03034 


00008 


12288 


16 


02631 


J 1410 


12300 


17 


02594 


J 1972 


11959 




0 




1 1 948 




0 





1 16 
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22860 


* 
















22870 


DOT 




SuANt f t 


rUNcR NunBcK 


12312 


17 


05164' 




22880 




BL X 


ADIJK5I 3 1 




• off ^ 






nnn 1^ 


22890 




CM 


XRA3t i3t 10 




12336 


14 






22900 




BNH 


OOTl 




12348 


47 


12408 


01100 


22901 




TFM 


E VALER*-2 1 78000 




12360 


16 


07040 


P8000 


22902 




BT 


CrRlNTtCPRINT~i 




12372 


27 


07322 


07321 


22903 




BD 


ERCOR.ERSTSW 




12384 


43 


07178 


02476 


22910 




BLXM 


•♦12,13J3) 




12396 


66 


12408 


00-J3 


22920 


OOTl 


BTM 


TRSCANt*'*'12 1 f 


ASSIGNED ADORS 


12408 


17 


05134 


J2420 


22930 




TD 


LDABSWfRLOCSM 




12420 


25 


07320 


07316 


22940 




BL XM 


• ♦12f-2 f 1 ) f t 


SET TERM LENGTH 


12432 


66 


12444 


000— K 


22950 




TFM 


OUT-f 102t010t9t 


SET TERM 1 


1 2444 


16 


02320 


00—10 


22960 




DC 


It • »• 




12455 




1 




22970 




BL XM 


•♦12»-1 C2> » ff 


SET LcNbTH 


12456 


66 


12466 




22980 




CM 


XRA3t 0 




12468 


14 


00319 


— 0000 


22990 




BE 


DTEX 




12480 


46 


12584 


01200 


23000 


DTLOOP 


MM 


OUT'*-102(2I tOBtlO 




12492 


13 


02L20 


000-8 


23010 




BX 


•+12f XRA1(2) tt 


INCREMENT LENGTH 


12504 


61 


12516 


00L09 


23020 




BD 


•♦20»99t I) 




12516 


43 


12536 


000R9 


23030 




B7 


• ♦20 




12528 








23040 




BXM 


•♦12t-l { 1) 




12536 


62 


12548 


000— J 


23050 




SF 


100 ( 1 ) 




12548 


32 


223 ^2 


nnnnn 
UUUUU 


23060 




TF 


0UT-t'102(2) #99 




12560 


26 


02L20 


00099 


23070 




BCXM 


OTL00P»-l(3l 




12572 


64 


12492 


00— J 


23080 


OTEX 


BX 


**-lZt XHAl 12 1 1 1 


rlNAL LNIH INUR 


1 2584 


61 


12596 


00L09 


23090 




MA 


LNTHt XRA2 




12596 


70 


02387 


003 14 


23100 




BNF 


•♦48f BSH 




12608 


44 


12656 


07319 


23110 




A 


ADOCQWtLNTH 




12620 


21 


02529 


2^c ?Z 


23120 




TF 


ADDRS,ADDC0W 




12632 


26 


03293 


02529 


23130 




TDM 


LDABSMtltll 








23«?2 


0000 J 


23140 




TFM 


INPUT2«lff090»9 11 




12656 


• * 
16 


03035 


00—9— 


23150 




B7 


OECLRN 




12668 


49 


11374 




23160 


• 


HEADER ROUTINE 












231 70 


* 
















23180 


HEADER 


TFM 


HED.tlO 




1 2676 


16 


.10121 


000—0 


23190 




TDM 


HEAOER^T 




12688 


15 


12683 


00000 


23200 




BNR 


COMAt INPUT^20 




12700 


45 


12760 


02901 


23210 




TFM 


INPUT2^1» 030t9 11 




12712 


16 




00—3— 


23220 




TF 


INPUT2^6» HED 






26 


2o?^? 




23230 




TFM 


CFFA.NCDCF 




12736 


16 


0263 1 


J1410 


2 3240 




BTM 


CFF.SNDTCO 




12 748 


17 


02594 




23250 


COMA 


CM 


INPUT^20»23vl0 




12760 


14 


02901 


2?2«« 


23260 




BE 


HEADER436 




12772 


46 


12712 


01200 


23270 


» 


HEADER OPERAND GREATER THAN ONE CHARACTER 










23280 




BD 


ER12tHEADER«7 




12784 


43 


12920 


12683 


23290 




CM 


INPUT^20»»10 






14 


?^«2o 




23300 




BE 


• ♦60 




12808 


46 


12868 


01200 


23310 




CM 


INPUT^20>40,10 




12820 


14 


02901 


OOOMO 


23320 




SPECIAL CHARACTER USED AS 


HEADER 










23330 




BL 


ERll 




12832 


47 


12888 


01300 


23340 




TF 


HED,INPUT^20 




12844 


26 


10121 


02901 


23350 




TDM 


HEA0ER^7,1 




12856 


15 


12683 


00001 


23360 




TR 


INPUT^19,INPUT+21 




12868 


31 


02900 


02902 


23370 




B7 


HEA0ER^24 




12880 


49 


12700 














1 J 7 
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PAGE 


23380 


ERll 


TFM 


EVALER-lt 17100 




12888 


16 


07041 


J7100 


23390 




DC 
1 






12899 




1 




23400 




TFM 


HEO.tlO 




12900 


16 


10121 


000-0 


23410 




B7 


• ♦20 




12912 


49 


12932 




23420 


ER 12 


TFM 


£VALER-1»17200 




12920 


16 


07041 


J7200 


23430 




DC 
* 


l>*f» 




12931 




I 




23440 




BT 


EPRINT.EPRSNT-l 




12932 


27 


07322 


07321 


23450 




BD 


ERCORt ERSTSW 




12944 


43 


07178 


02476 


23460 




87 


HEA0ER^36 




12956 


49 


127 12 




23470 


F2 


34 


F2DCF, 00701 




12964 


34 


13072 


00701 


23480 




38 


F20CF, 00702 




12976 


38 


13072 


00702 


23490 




TR 


OUTAR-1, CLERER^3,2 




12988 


31 


J0132 


02696 


23770 


• 
















23500 




AM 


•-12^6,50,10 










uuuriu 


23510 




SM 


•♦23f 1,10 




13012 


12 


13035 




23520 




CM 


CLERER^l, 34«10 




13024 


14 


02694 


000L4 


23530 




BL 


•-48 




13036 


47 


12988 


01300 


23540 




TRA 






1 3048 


36 


UUOUU 
















49 


n/ynnn 


nnnnn 
UUUUU 


23550 


r20CF 


DDA 


tO»A40AOtA4SCT»INSTRN 




13072 




14 








0J8883-44J0132 












23560 




TCD 


F2 




12964 








23570 


• 
















23580 


* 


SYMBOL TABLE OUTPUT PHASE 












23590 


* 
















23600 




DORG 


INSTRN 




10132 








23610 


OUTAR 


DAS 


80 




1 n?o^ 




i»n 




23620 




DAC 


I,* 




10293 




1 


y 7 


23630 


ST 1 T 1 


OAS 


32 








32 


X 2 


23640 




DAC 


12, SYMBOL TABLE 




10359 




12 


X 2 






SYMBOL TABLE 












23650 




DAS 


36 




10383 




36 


X 2 


23660 


STIT2 


DAS 


32 




10455 




32 


X 2 


23670 




DAC 


09, BLOCK 01 




10519 




9 


X 2 






BLOCK 01 












23680 




DAS 


39 




• rt^f e 








23690 


OUTCL 


DAS 


80 




10615 




ftn 




23700 




DAC 
« 


If' 




10775 




1 




23710 


ALZR 


DAC 


5,00000 




1 n777 




_ 


7 






00000 












23720 




OAS 


1 




10787 




1 




23730 


NADD 


OS 


5 












23740 


LNCT 


DS 


2 




10794 








23750 


* 




















EVALUATE ADDRESS OF DENO 












23780 


DEND 


TFM 


INPUT2^1,30,10 11 




10796 


16 


03035 


OOOL- 


23790 




BTM 


SCAN, ♦♦12, 7 11 




10808 


17 


05164 


J082- 


23800 




TO 


INPUT2^6, lEPO+29 




10820 


25 


03040 


02329 


23810 




TD 


INPUT2^5, ZEPn^28 




10832 


25 


03039 


02328 


23820 




BD 


•♦24,ZEP0^29,, 


CHECK FOR TCD 


10844 


43 


10868 


02329 


23830 




BTM 


OUTPUT, CSTAT 




10856 


17 


09570 


J0892 



1 J6 
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23840 


TFM 


CFFA»NCDCFl 


10868 


16 


02631 


-7298 


23850 


BTM 


GFFfSNDTCD 


10880 


17 


02594 


-8414 


23860 


CSTAT BNF 


•♦24t2PSSH 


10892 


44 


10916 


02477 


23870 


BTM 


2PS0UTf *+l2 


10904 


17 


09862 


J0916 


23880 


CM 


SBOUTf 00,10 


10916 


14 


02645 


000-0 


23890 


BE 


CALLA3 


10928 


46 


11000 


01200 


23900 


TD 


DGSV, LOSYMB*! 


10940 


25 


03385 


19998 


23910 


TD 


LOSYMB+l, SPSGM 


10952 


25 


19998 


02561 


23920 


• WRITE 


DISK-WLRC-OUTPUT PARTIAL BLOCK 










23930 


TFM 


I0RT,*+23 


1 0964 


16 


00565 


J0987 


23940 


B 


I0RBC,S0EF1,7 


10976 


49 


00520 


J0023 


23950 


TO 


LOSYMB+1, OGSV 


10988 


25 


19998 


03385 


23960 


CALLA3 RCTY 




11000 


34 


00000 


00102 


23970 


A3STRT TFM 


A3BD+ll,ISTAf-l 


11012 


16 


11035 


-2559 


23980 


A3BD BD 


• 4-44* •>« 


11024 


43 


11068 


00000 


23990 


TDM 


A3BD+11,,6 


11036 


15 


1103N 


00000 


24000 


DC 
• 


l.»,» 


11047 




1 




24010 


SM 


A3BD+11,1,10 


11048 


12 


11035 


OOO-l 


24020 


B7 


A3BD 


11060 


49 


11024 




24030 


TO 


•♦23»HIA0D 


11068 


25 


11091 


02519 


24040 


TD 


•♦23tAJUST 


11080 


25 


11103 


02399 


24050 


AM 


HIADDfOOtlO 


11092 


11 


02519 


000-0 


24060 


TD 


•+23, PICKUP 


11104 


25 


11127 


02 52 9 


24070 


TO 


•+23, AJUST 


11116 


25 


11139 


02399 


24080 


AM 


PICKUP, ,10 


11128 


11 


02529 


000-0 


240<»n 


BNF 


•+20, ISTAT-30 


11140 


44 


11160 


02530 


24100 


B7 


• +20 


11152 


49 


11 172 




24110 


TF 


MOMADtHlADD 


11160 


26 


00415 


02519 


24120 


MACRIN BMF 


•+68,KILSUB 


11172 


44 


11240 


02484 


24130 


CM 


A3BD+ll»ISTAT--30 


11184 


14 


11035 


-2530 


24140 


BNH 


• +44 


11196 


47 


11240 


01100 


24150 


TD 


A3B0+ll,A3BD+23f6 


II208 


25 


1103N 


11047 


24160 


SM 


A3B0+11,1,10 


11220 


12 


11035 


000-1 


24170 


B7 


•-48 


11232 


49 


11184 




24180 


BO 


ASTOP.ASTSW 


11240 


43 


12588 


10125 


24190 


BMF 


•+84,2PSSW 


11252 


44 


11336 


02477 


24200 


BNF 


•♦36,PTINSW 


11264 


44 


11300 


02475 


24210 


RCTY 




11276 


34 


00000 


00102 


24220 


WATY 


PT2MES 


11286 


39 


12633 


00100 


24230 


BNF 


•+36,CDINSW 


11300 


44 


11336 


02474 


24240 


RCTY 




11312 


34 


00000 


00102 


24250 


MATY 


C02MES 


11324 


39 


12711 


OOlOO 


24260 


BO 


STBEGN, STPCSW 


11336 


43 


11360 


02470 


24270 


BNF 


CALLB1,STTYSW 


11348 


44 


12408 


02471 


24280 


STBEGN BNF 


STl, STPCSW 


11360 


44 


11396 


02470 


24290 


WACO 


STITl,,, PUNCH TITLE 


11372 


39 


10295 


00400 


24300 


WACD 


OUTCL 


11384 


39 


10615 


00400 


24310 


STl BNF 


ST2,STTYSW 


1 1396 


44 


1 1480 


02471 


24320 


TFM 


STITI+2»44,,, 


11408 


16 


10383 


-0000 


24330 


OAC 
« 


I f "t* 


11419 




1 


X 2 


24340 


RCTY 




1 1420 


34 


00000 


00102 


24350 


RC TY 




11432 


34 


00000 


00102 


24360 


WATY 


STITl 


11444 


39 


10295 


00100 


24370 


RCTY 




11456 


34 


00000 


00102 



no 
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24380 
24390 
24400 
24410 
24420 
24430 
24440 
24450 
24460 
24470 
24480 
24490 
24500 
24510 
24520 
24530 
24540 
24550 

24560 
24570 



ST2 



RC TY 
CM 
BE 
TFM 
TF 

STLOOP AM 
TD 



SB0Ur,00,10 
aSYM8-20,,, 
SBCNT,00,10, 
82DCF+5,Bl0CF+5 
SBCNT,1,10 
STIT2+40»2,SBCNT 
TO STIT2+39»2,SBCNT-l 
BNF ST3, STPCSW 
WACO OUTCL 
WACD OUTCL 
WACD STIT2 
WACD OUTCL 
BNF CRLO,STTYSW 
RCTY 
RC TY 

TFM STIT2+41»2 
OAC 1,»,» 

WATY STIT2 
RCTY 



OUTPUT BLOCK NO. IF MORE THAN ONE 
EXISTS 



24580 




RCTY 


24590 




TFM 


STIT2+4l»2tOO,10 


24600 


CRLD 


AM 


B2DCF+5,SPBL 


24610 




C 


SBCNT.SBOUT 


24620 




BH 


FLOAD 


24630 




TD 


DGSV,L0SYMB+1 


24640 




TO 


LOSYMB+1, SPSGM 


24650 


« 


READ 


DISK-WLRC-READ SYMI 


24660 




TFM 


I0RT,^+23 


24670 




B 


I0GT,SDEF2,7 


24680 




TFM 


LIMITS, L8LIM 


24690 




TFM 


LIMITS-5,MAXLIM 


24700 




TD 


LOSYMB+1, DGSV 


24710 




B7 


OSYMB-20 


24720 


FLOAD 


TO 


DGSV, LOSYMB+1 


24730 




TD 


LOSYMB+1, SPSGM 


24740 


• 


READ 


DISK-WLRC-PARTIAL 1 


24750 




TFM 


I0RT,«+23 


24760 




B 


I0GT,SDEF1,7 


24770 




TR 


LIMITS-9,PRTLIM-4 


24780 




TD 


LOSYMB+1, DGSV 


24790 




AM 


LIMITS-5,17,10 


24800 




B7 


ST5 


24810 


OSYMB 


TR 


0UTAR-1,0UTCL-1 


24820 




TFM 


LNCT,05,10 


24830 




TFM 


STLP+6,0UTAR+5»2 


24840 


STLP 


TF 


•-•,LIMITS-5,11 


24850 




AM 


STLP+6,14,10 


24860 




AM 


LIMITS-5,5,10 


24870 




TF 


NADD,L1MITS-5,11 


24880 




TO 


ALZR+8,NA0D 


24890 




TD 


ALZR+6,NADD-1 


24900 




TD 


ALZR+4,NADD-2 


24910 




TD 


ALZR+2,NA0D-3 


24920 




TD 


ALZR+0,NADD-4 



11468 


34 


00000 


00102 


11480 


14 


02645 


000-0 


11492 


46 


11920 


01200 


11504 


16 


02673 


000-0 


11516 


26 


10077 


10061 


11528 


11 


02673 


000-1 


11540 


25 


10535 


02673 


11552 


25 


10533 


02672 


11564 


44 


11624 


02470 


11576 


39 


10615 


00400 


11588 


39 


10615 


00400 


11600 


39 


10455 


00400 


11612 


39 


10615 


00400 


11624 


44 


11720 


02471 


11636 


34 


00000 


00102 


11648 


34 


00000 


00102 


11660 


16 


10537 


-0000 


11671 




1 


X 2 


11672 


39 


10455 


00100 


11684 


34 


00000 


00102 


11696 


34 


00000 


00102 


11708 


16 


10537 


000-0 


11720 


11 


10077 


-0040 


11732 


24 


02673 


02645 


11744 


46 


11848 


01100 


11756 


25 


03385 


19998 


I lt68 


25 


19998 


02561 


11780 


16 


00565 


J1803 


11792 


49 


00566 


J0031 


11804 


16 


03281 


K0009 


11816 


16 


03276 


J5997 


11828 


25 


19998 


03385 


11840 


49 


11920 




11848 


25 


03385 


19998 


11860 


25 


19998 


02561 


11872 


16 


00565 


J1895 


11884 


49 


00566 


J0023 


11896 


31 


03272 


02499 


11908 


25 


19998 


03385 


11920 


11 


03276 


000J7 


11932 


49 


12336 




11940 


31 


10132 


10614 


11952 


16 


10794 


000-5 


11964 


16 


11982 


J0143 


11976 


26 


00000 


03270 


11988 


11 


11982 


0OOJ4 


12000 


11 


03276 


000-5 


12012 


26 


10792 


03270 


12024 


25 


10785 


10792 


12036 


25 


10783 


10791 


12048 


25 


10781 


10790 


12060 


25 


10779 


10789 


12072 


25 


10777 


10788 



120 
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24930 




TFM 


ML£.K~ AUff UUf I U 






















12084 


16 


10787 


000—0 








'▼4o« NAUD 






















12096 


44 


12144 


10792 


24950 




TFM 
























12108 


16 


10787 


000N9 






80 
























12120 


43 


12144 


02478 






rc'* 
























12 132 


16 


10787 


OOOKO 


24960 






ALZR*9 






















12144 


33 


10786 


00000 


24990 




CF 


ALZR'^8 






















12156 


33 


10785 


00000 


25000 




CF 


ALZR 






















12168 


33 


10777 


00000 


25010 




\^ 
























12180 


26 


1198K 


10787 


25020 




AM 


STLP-*-6t 18tlO 






















12192 


11 


11982 


000J8 


25030 




AM 


LIMITS- 5* 12 tlO 






















12204 


11 


03276 


000J2 


25040 




C 


LIMI I5~5»L1MIT5 






















12216 


24 


03276 


03281 


25050 




BNL 


• ♦36 






















12228 


46 


12264 


01300 


25060 




SM 


L NC T 1 1 1 1 0 






















12240 


12 


10794 


000- 1 


2 5070 




5'* 


STLP 






















12252 


46 


11976 


01 100 


25080 




BNF 


ST4»STPCSW 






















12264 


44 


12300 


02470 


25090 




TFM 


I DRlt •♦23 






















12276 


16 


00565 


J2299 


25100 




8 


I UPTtUUTAD"~4tT 






















12288 


49 


00532 


J2624 


251 10 


ST4 


8NF 


ST5tSTTYSW 






















12300 


44 


12336 


02471 


25120 




WA TY 


OUTAR 






















12312 


39 


10133 


OOlOO 


25130 




RC TY 
























12324 


34 


00000 


00102 


25140 


ST5 


C 


LIMI 1 S— 5 t LI MI T5 






















12336 


24 


03276 


03281 


25150 




BL 
























12348 


47 


11940 


01300 


25 160 




CM 


SBOUT » OOf 10 






















12360 


14 


02645 


000-0 


9^1 In 




























12372 


46 


12408 


01200 






c 
























12384 


24 


02673 


02645 


251 90 




BMH 


STLOOP 






















12396 


47 


11528 


01100 


25200 


CALLB 1 


8NF 


• ♦60t 2PSSW 






















12408 


44 


12468 


02477 








m a DTtklCLi 

•♦HOiPl irlaN 






















12420 


44 


12468 


02475 






WA TY 


2STMES 






















12432 


39 


12775 


00100 


25230 




RC TY 
























12444 


34 


00000 


00102 


25240 




H 
























12456 


48 


00000 


00000 








• ♦▼Of o 1 ru jkN 






















12468 


44 


12564 


02470 








•♦o^t USwUSII 






















1 2480 


44 


1256A 


02479 


25270 




WACO 


OUTCL 






















12492 


39 


10615 


00400 


25280 




WACO 


OUTCL 






















12504 


39 


1061 5 


00400 


25290 




WACO 


OUTCL 






















12516 


39 


10615 


00400 


25300 




NOP 


UUTuL 1 1 ff ('HNGc lU 


WACO 


TO 


PUNCH 


1 


MORE 


BLNK 


LN 


AFTR 


SYM 


TABLE 


12528 


41 


1061 5 


00000 


25310 




NOP 


OUTCL t ( tCHNGE TO 


WACO 


TO 


PUNCH 


1 


MORE 


BLNK 


LN 


AFTR 


SYM 


TABLE 


12540 


41 


1061 5 


00000 


25320 




NOP 


niiTn . . .rMMf^P xn 
uu 1 v>L 1 1 tunPiuc lu 


NACD 


TO 




i 


MORE 






AFTR 












UUUUU 


25330 




TFM 


CFFA,CB1DCF 






















12564 


16 


02631 


J2898 


25340 




BTM 


CFF,4158 






















12576 


17 


02594 


-4158 


25350 


A STOP 


RCTY 
























12588 


34 


00000 


00102 


25360 




WATY 


ASMS 






















12600 


39 


12823 


00100 


25370 




B 


MONCALf ft 






CALL 1 


EXIT 












12612 


49 


00796 


00000 


25360 


OUTAO 


OS A 


OUTAR 






















12628 




5 


X 1 



25390 
25400 



DC 

J0» 

OGM 



3,10* 



25410 PT2MES DAC 39,RETHREAD SOURCE PAPER TAPE FOR PASS 2. 

RE THREAD SOURCE PAPER TAPE FOR PASS 2.* 
25420 C02NES DAC 32.REL0AD SOURCE CARDS FOR PASS 2.* 

RELOAD SOURCE CARDS FOR PASS 2.* 



12628 
12631 

12631 

12633 

12711 



J0133 
3 

1 

39 
32 
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1620 SPS II-D FOR MONITOR II PHASE A 

25430 2STMES DAC 24,PRESS START MHEN READY.* 

PRESS START WHEN READY. • 
25440 ASMS DAC 38.0ISC AREA TOO SMALL. ASSEMBLY DELETED* 

DISC AREA TOO SMALL. ASSEMBLY DELETED* 
25450 CBIDCF DDA t 0»BlDA0t81SCT» SBOUT^l 
0J918D-20-2646 
DC 1,* 



25460 

25470 F3 

25480 

25490 



34 
38 
TRA 



A5DCF,00701 
A50CF»00702 



25500 A5DCF ODA • 0, A5DA0* A5SCT, INSTRN 

0J8737-29J0132 
25510 TCD F3 



12775 




24 


X 2 


12823 




38 


X 2 


12898 




14 




12912 




1 




12914 


34 


12962 


00701 


12926 


38 


12962 


00702 


12938 


36 


00000 


00500 


12950 


49 


00000 


00000 


12962 




14 




12914 









DEND START 
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1620 SPS n-0 FOR MONITOR II PHASE A 



IPTSPB 


01500 


ERROIG 


03271 


PCALLl 


2PRTI0 


20000 


ERSTSW 


02476 


PCNUSW 


2PS0UT 


098 62 


EVALAD 


05960 


PHASEA 


2PTSPB 


00600 


EVALER 


07042 


PHCDAD 


2STMES 


12775 


EVALOP 


05536 


PHCSCT 


A3STRT 


11012 


FFIDCF 


11180 


PICKUP 


ADDCOW 


02529 


GETAST 


06758 


PROCON 


AOOSUB 


05BB0 


GOODS 3 


10168 


PROCRE 


BCMSPC 


06144 


HEADER 


12676 


PROSTM 


CA50CF 


12752 


1 NCOOE 


02492 


PRTLIM 


CALLA2 


12490 


INPUT2 


03034 


PT2MES 


CALLA3 


no 00 


INSTRN 


10132 


PTINSW 


CALLBI 


12408 


INTERM 


05800 


PUTSRJ 


CALLEX 


11746 


INTRSW 


02483 


RLOCSW 


CARDIN 


02666 


INTSAV 


14202 


RSYMSW 


CBIOCF 


12898 


lOAODR 


0263B 


2PASS 


C02MES 


12711 


IOC SAD 


19783 


2PBUF 


CDINSH 


02474 


KILSUB 


02464 


2 PRE 


CFFOEF 


02625 


LDABSW 


07320 


2PSSW 


CHVALD 


11704 


LOCHAR 


06386 


2PTR 


CLERER 


02693 


Loose Y 


08894 


2SECT 


CLLINK 


11618 


LIMITS 


03281 


2S 


CLLOAD 


11618 


LOPOUT 


03321 


5CHAR 


COMSPC 


06028 


LOSYMB 


19997 


6CHAR 


DECLRN 


11374 


LSCDSW 


02479 


AlCl 


OECTAB 


10152 


LSPRSH 


02481 


AIDAO 


DIGALF 


05588 


LSTYSW 


02480 


AlOCF 


DIGITS 


02692 


MACRIN 


11172 


AISCT 


DIMDAO 


04800 


MACR02 


10132 


A2DAD 


OIMDCF 


13338 


MACSHF 


11536 


A2SCT 


OIMSCT 


00001 


MAXLIM 


15997 


A3B0 


OIVCSW 


02485 


MCADCF 


14170 


A30AD 


DIVIDE 


05708 


HCAOEF 


14162 


A3DCF 


DMESII 


10966 


MCCALL 


11196 


A3SCT 


DMES21 


11134 


MESTAB 


13353 


A4DAD 


DMES22 


11182 


MOCTOC 


16023 


A4SCT 


OMESCL 


11156 


MOEXEC 


00426 


A5DAD 


DMSALF 


10710 


MOIONO 


16039 


A5DCF 


OMSENO 


11278 


MONAME 


16035 


A5SCT 


DMSERl 


11462 


MONCAL 


00796 


ADC 


0MSER2 


11512 


MQNOIS 


16044 


ADORS 


OMSMNI 


10874 


MOSBNO 


16043 


AENOX 


DMSNUM 


10910 


MOSDAD 


19663 


AJUST 


DOBOMK 


10528 


MSTOAD 


18962 


ALFLP 


DODISK 


11076 


NCOCFl 


07298 


ALFOP 


DOINST 


10296 


NC0CF2 


10658 


ALPHA 


DOLLAR 


06408 


NOSINE 


11876 


ALZR 


OOROWB 


10732 


QBJCRE 


02497 


ANALl 


DOS IOC 


10832 


OPINTB 


04663 


ANAL2 


DOSVRS 


10996 


OPLCTB 


04643 


ANAL 3 


DTLOOP 


12492 


OPLNTB 


04623 


ANAL4 


OVASGN 


1 1948 


0T20CF 


10104 


ANAL 


ElOOAC 


11728 


OUTDCF 


10088 


ANL14 


EPRINT 


07322 


OUTDFl 


10039 


A 


ER90AC 


11684 


0UTDF2 


10047 


ASMS 


ERLNTH 


06124 


OUTPUT 


09570 


ASTER 




. 1620 SPS 


II-D FOR MONITOR 


II PHASE A 


C9 


13571 


DOL 


06073 


HIADD 


CCN2 


12980 


DORDW 


10664 


IDMES 


CCN3 


13244 


DORG 


12552 


INKRN 


CCON 


12828 


OOTl 


12408 


INPUT 


CENOX 


1463^ 


DOT 


12312 


INSAV 


CFFA 


02631 


D 


14646 


INST 


CFF 


02594 


DSAl 


13308 


lOCAL 


CHKNO 


07090 


DSA2 


13344 


lOGET 


CLTBL 


114 79 


DSA 


13276 


I OCT 


CNTR 


10123 


DS6 


12048 


lOPT 


COLL 


02439 


DSDNB 


12284 


lORBC 


COMA 


12760 


DSS 


12532 


lORT 


CORM 


03341 


DTEX 


12584 


lOSK 


CRLD 


11720 


OTR 


11692 


I STAT 


C 


13933 


OVADB 


12240 


JSTBL 


CSTAT 


10892 


OVCKL 


11959 


K 


CTl 


074 74 


OVEND 


12168 


LABL 


CTEST 


07426 


0VLC2 


11960 


LAB 


CTVT 


02490 


OVLC 


11876 


LADDR 


CYLAV 


14187 


DVLP 


12056 


LB2 


DAC3 


12004 


DVSWl 


11948 


LBADO 


OACER 


11596 


EOAT 


11252 


LBC3 


DACR 


11828 


EQOAO 


00000 


LBCK2 


OAC 


11488 


EQSCT 


00004 


LBFND 


DAS 


11408 


EQSN 


08335 


LBLIM 


DCARO 


10674 


ERll 


12888 


LOLBL 


OCRN 


13040 


ER12 


12920 


LOSOK 


DC 


12768 


ER19 


09498 


LOSR 


DDA 


11826 


ERl 


07488 


LIN 


ODAX 


12042 


ER20 


09956 


LNCT 


DOWDD 


108 62 


ER22 


11406 


LNTH 


DECL2 


101 32 


ER2B 


09382 


LPNSM 


DECL 


04976 


ER2 


04156 


L 


DENOC 


12728 


ER3 


04680 


MACRO 


DEND 


10796 


ER4A 


09478 


MATCH 


DENOX 


15845 


ER4 


0^430 


MDRET 


DGM 


11236 


ER5 


07740 


MEXIT 


DGSV 


03385 


ERCOR 


07178 


MODEl 


DIM 


13330 


ERDSA 


13484 


MODE 


DISK 


050 80 


ERLAB 


03297 


MODOC 


OIVSW 


07318 


EVl 


07078 


MOMAD 


DMESl 


10626 


EVODO 


02469 


MOML 


DMES2 


11086 


F2DCF 


13072 


MOSCT 


DMESA 


10782 


F2 


12964 


MOVE 


DM ESC 


10850 


F3 


12914 


MURI 


OMES 


10530 


FDCF 


15894 


NADO 


0MS12 


11062 


FERRR 


06988 


NASS 


DM SB I 


10806 


FILE 


15846 


NCDCF 


OMSRM 


11302 


FLAl 


14204 


NIC 


DMSV 


03260 


FLGRM 


03339 


NMOAL 


DMSVW 


03265 


FLOAO 


11848 


NOISE 


DN82 


12464 


FMDCF 


12116 


NONEX 


OOADC 


10448 


FM 


12068 


NUMB 


DOB I 


10596 


GET 


065 38 


OK 


DOBS 


10404 


HCLIM 


02508 


ONEZ 


DOK 


10752 


HED 


10121 


OPl 
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11234 


ASTOP 


12588 


C15 


13771 


02482 


ASTSW 


10125 


C16P 


12050 


03392 


BIOAD 


19180 


C16 


13813 


19260 


BIDCF 


10056 


C17AP 


12090 


00040 


BISCT 


00020 


C17A 


13861 


02529 


B2DA0 


19200 


C17P 


12070 


10606 


B2DCF 


10072 


C17 


138 31 


02498 


B2SCT 


00056 


CI BP 


12110 


03804 


B30AD 


19000 


CI8 


I 388 ^> 


02503 


B3MAD 


09700 


C19P 


12154' 


12633 


B3SCT 


00063 


C19 


13915 


02475 


B40A0 


19063 


CIP 


11254 


10550 


B4SCT 


00056 


CI 


1 3355 


07316 


B5DA0 


19122 


C20P2 


12198 


07315 


85SCT 


00029 


C20P3 


12295 


09766 


B6DAD 


19151 


C20P4 


12282 


09946 


B6SCT 


00029 


C20P 


12174 


09934 


BBT 


10389 


C20 


1 3947 


02477 


BBTX 


14482 


C21P 


12314 


09826 


BENDX 


13924 


C21 


1 3983 


09710 


BETA 


02689 


C22P 


12334 


09746 


BI 


05044 


C22 


14007 


06682 


BLOP 


0 5844 


C23P 


12354 


06714 


BMK 


10397 


C23 


14035 


10418 


BMKX 


14491 


C24P 


12410 


18600 


BNI 


05044 


C24 


14045 


14264 


BOAT 


11112 


C25P 


12430 


00137 


BOLT 


10967 


C25 


14063 


18800 


BOMK 


05032 


C26P 


12450 


00058 


BP20K 


00005 


C26 


14073 


11024 


8 


13595 


C27P 


12470 


18861 


BSAV 


08366 


C27 


14127 


11220 


BSBF 


08360 


C2P1 


11378 


00022 


BSCYC 


08108 


C2P2 


1 1410 


18883 


BSENT 


08389 


C2P 


1 1 334 


00044 


BSHI 


08336 


C2 


13377 


18737 


BSIN 


05008 


C3PI 


1 1498 


12962 


BSNEQ 


08 304 


C3P2 


11530 


00029 


BS 


08096 


C3P3 


11566 


05020 


BSW 


07319 


C3P 


1 1454 


03293 


BTBL2 


04829 


C3 


13405 


13588 


BTBL3 


10180 


C41A 


12066 


02399 


BTBL 


04878 


C4P 


11634 


04576 


ClOP 


11814 


C4 


13435 


04472 


CIO 


13581 


C5P 


11654 


02684 


CHAP 


1 1854 


C5 


13457 


10777 


CllA 


13647 


C62S 


12062 


10250 


CUP 


1 1834 


C66W 


12064 


10342 


CU 


13613 


C6P 


11674 


10446 


C12P 


11874 


C6 


13477 


10262 


C12 


13681 


C70 


14161 


10190 


C13P 


11894 


C7P 


11694 


10310 


C13 


13701 


07 


13517 


13543 


C14P 


11950 


C8P 


11714 


12823 


C14 


13731 


C8 


13549 


06846 


C15P 


12006 


C9P 


11734 
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02519 


OPER 


06532 


SREL 


0544^1 


10943 


OP 


04228 


SSTDF 


12289 


02566 


OSYMB 


11940 


SSTSW 


12313 


02881 


OUTAD 


12628 


STl 


11396 


02749 


OUTAR 


10133 


ST2L 


10574 


04996 


OUTCL 


10615 


ST2 


11480 


00716 


OUT 


02218 


ST3 


11624 


10338 


PC ALL 


11074 


ST4 


12300 


00566 


PCC 


1 1350 


ST5 


12336 


00532 


PCK 


02365 


START 


10126 


00520 


PCLPl 


11314 


STCNT 


02514 


00565 


PCTR 


11214 


STi ri 


10295 


00554 


PLACE 


0 3270 


STI r2 


10455 


02560 


PUT 


10386 


STLP 


11976 


02459 


R2BE 


03672 


STSAV 


14197 


05092 


R3E 


03924 


SU8N0 


02524 


06075 


RCTR 


07314 


TAP IN 


02658 


03337 


RDBLK 


07872 


TEMPR 


02572 


07660 


RDWB 


05068 


TEMP 


03391 


07600 


ROW 


05056 


TOBB 


07102 


07580 


READl 


03568 


TRA 


10258 


08606 


READ2 


03600 


TSPEC 


10124 


08486 


REA03 


03428 


TYPIN 


02650 


08016 


RELSW 


02478 


X2 


03837 


20009 


RLOPl 


04112 


XB7 


13623 


08390 


RMRK 


02576 


XBB2 


14149 


09026 


RSCAN 


0 3744 


XDAS 


14230 


09014 


RTPN 


06882 


XDS 


13784 


08376 


SI 


06208 


XDSS 


14212 


10794 


SASl 


12802 


XFLAG 


06986 


02387 


SAS2P 


12902 


XHEAO 


15361 


07317 


SAS2 


13010 


XRAl 


00309 


02521 


SASC2 


12974 


XRA2 


00314 


11304 


SASC 


12766 


XRA3 


00319 


10956 


SASXl 


12870 


XRA5 


00329 


05656 


SASX2 


13078 


XRA6 


00334 


10622 


• SBCNT 


02673 


ZEPO 


02300 


11626 


SBMAX 


02671 


SAVRST 


05116 


11578 


SBOUT 


02645 


SBFADD 


15998 


16022 


SCANl 


05488 


SNDTCD 


08414 


00415 


SCAN2 


05224 


SSTDAD 


18927 


16041 


SCANA 


05304 


SSTDCF 


12298 


16000 


SCAN 


05164 


SSTSCT 


00035 


05676 


SCTAV 


14192 


START2 


10270 


02633 


SDEFl 


10023 


STBEGN 


11360 


10792 


SDEF2 


10031 


STCHAR 


11780 


12428 


SEEK 


10362 


STLOOP 


11528 


11410 


SIOC 


05104 


STPCSW 


02470 


07716 


SLC 


10886 


STPRSW 


02472 


11511 


SLP 


10738 


STTYSW 


02471 


02522 


SLPX 


10814 


SUBDAO 


04808 


00457 


SMOOE 


03384 


SUBENT 


03255 


02448 


SMPBL 


00235 


SYMTAD 


02643 


04740 


SPBL 


00040 


SYMTBL 


16003 


02587 


SPEC 


06176 


SYSCAL 


00475 


04364 


SPSGM 


02561 


TABFUL 


09230 
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1620 SPS II-O FOR MONITOR II 
THINGS 02420 TRNUNB 06802 

END OF ONE ASSEMBLY. 



! PHASE A 

TRSCAN 05134 



TYINSM 024T3 



PAGE 60 

TYPASS 13174 
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25540 




DQRG 2218 




02218 




25550 


• 




SYMBOL TABLE PARAMETERS 








25560 


SPBL 


OS 


f 40,, 


SECTORS PER BLOCK 


00040 


0 


25570 


SMP8L 


OS 


t 235,, 


SYMBOLS PER BLOCK 


00235 


0 


25580 


SYMTBL 


OS 


f 16003, 


HI-ORDER POSITION OF SYMBOL TABLE 


16003 


0 


25590 


LOSYMB 


OS 


, SYMTBL*SMPBL»17-1, 


LO-OROER POSITION OF SYMBOLIC BLOCK 


19997 


0 


25600 


SBFADD 


OS 


t L0SYMB*SPBL»1004>1, 


SYMBOLIC BLOCK OtSK ADDRESS 


15998 


0 


25610 


LBLIM 


OS 


, L0SYMB^12, 


LO-OROER BLOCK LIMIT 


20009 


0 


25620 


MAXLIM 


OS 


t SYMTBL-6, 


MAXIMUM LIMIT 


15997 


0 


25630 


• 




EMPIRICAL SECTOR ASSIGNMENT PARAMETERS 






25640 


IPTSPB 


OS 


•1500, 


1-PASS TOTAL SECTORS PER SYN. BLOCK 


01500 


0 


25650 


2PTSPB 


OS 


,600, 


2-PASS TOTAL SECTORS PER SYM« BLOCK 


00600 


0 


25660 


BP20K 


OS 


,5, 


SYMBOLIC BLOCKS PER 20K CORE 


00005 


0 


25670 


2PRTI0 


OS 


,20000, 


2-PASS RATIO>-INTERM./FINAL SECTORS 


20000 


0 


25680 


• 




INOEX REGISTER LOCATIONS 








25690 


XRAl 


OS 


,2644^1»40-f5»l 




00309 


0 


25700 


XRA2 


OS 


,2644-l«404>5«2 




00314 


0 


25710 


XRA3 


OS 


,2644-l*40«5«3 




00319 


0 


25720 


XRA5 


OS 


• 2644-l»40'f5»9 




00329 


0 


25730 


XRA6 


OS 


,264-t-l*404-5«6 




00334 


0 


25740 


• 




SPS DISC ASSIGNMENT PARAMETERS 






25750 


AIDAD 


OS 


,18600, 


CONTROL STATEMENTS, PH.A SUBROUTINS 


18600 


0 


25760 


AISCT 


OS 


.137 




00137 


0 


25770 


A2DAD 


OS 


,18800, 


NORMAL PROCESSING— FREQUENT STMTS. 


18800 


0 


25780 


A2SCT 


OS 


,58 




00058 


0 


25790 


A3DA0 


OS 


,18861, 


TRA, CALL, GET-PUT AND ASSOC OECL 


18861 


0 


25800 


A3SCT 


OS 


,22 




00022 


0 


25810 


A4DA0 


OS 


• 18883, 


0MES,0VLC,00T,HEA0 


18883 


0 


25820 


A4SCT 


OS 


,44 




00044 


0 


25830 


A50AD 


OS 


,18737, 


OENO, TCO, AND SYMBOL TABLE LIST 


18737 


0 


25840 


A5SCT 


OS 


,29 




00029 


0 


25850 


SSTDAO 


OS 


, 18927, 


SYSTEM SYMBOL TABLE 


18927 


0 


25860 


SSTSCT 


OS 


,35 




00035 


0 


25870 


MSTDAD 


OS 


,SSTDAD*SSTSCT, 


MASTER SYMBOL TABLE 


18962 


0 


25880 


MOSOAD 


OS 


,19663, 


MONITOR COMM SECTOR DISK AOORESS 


19663 


0 


25890 


BIOAD 


OS 


,19180, 


PHASE B INITIALIZATION 


19180 


0 


25900 


BISCT 


OS 


,20 




00020 


0 


25910 


B2DAD 


DS 


,19200, 


INPUT, BRANCH TABLE, SCAN 


19200 


0 


25920 


B2SCT 


OS 


,56 




00056 


0 


25930 


B30A0 


DS 


, 19000, 


L I NPRT , I NSTRN, DC , DSDNB, DAS , DORG 


19000 


0 


25940 


83SCT 


DS 


,63 




00063 


0 


25950 


B3MAD 


DS 


,09700, PHASE 83 MEMORY 


AOORESS 


09700 


0 


25960 


B40A0 


DS 


, 19063, 


RSTR,DAC,ALOM,OMES,OSB,OVLC,OGM 


19063 


0 


25970 


B4SCT 


OS 


,56 




00056 


0 


25980 


B5DAD 


DS 


,19122, 


DSA , MACRO, OOA, TRA, OENO 


19122 


0 


25990 


B5SCT 


DS 


,29 




00029 


0 


26000 


B6DAD 


DS 


, 19151, 


CALL LINK, LOAD, EXIT 


19151 


0 


26010 


B6SCT 


DS 


,29 




00029 


0 


26020 


DIMDAD 


OS 


,04800, 


DIM ENTRY FOR EQUIV. TABLE 


04800 


0 


26030 


DIMSCT 


DS 


,1 




00001 


0 


26040 


EQDAD 


DS 


,0, 


EQUIVALENCE TABLE 


00000 


0 


26050 


EQSCT 


DS 


,4 




00004 


0 


26060 


PHCDAD 


DS 


,19260 




19260 


0 


26070 


PHCSCT 


DS 


,40 




00040 


0 


26080 


SUBDAO 


DS 


,04808, 


SPS SUBROUTINE DIM ENTRIES 


04808 


0 


26090 


• 




MONITOR COMMUNICATION PARAMETERS 
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t l6000t 




MUIMITUK CUnn ^cV«TuK ncWURY ADUKc2»b 


16000 


0 




MODOC 


DS 


t MOSC T*22 1 




DISC OUTPUT CODE 


16022 


0 


26120 


MOC TOC 


DS 


t nu bU 1 ♦ £ 3 f 




LU— rP UUTPf CUUC 


16023 


0 


OAi In 






Mncr Tx tK 




NAME 


16035 


0 


261^0 




DS 


Mn cf~ Tjl 




ID NUMotR 


16039 


0 


26150 


MOML 


DS 


tM0SCT+4lf 




MANTa LENGTH 


16041 


0 


261 60 


MOSBNO 


DS 


f M0SCT4-43 1 




SUB. SET 


16043 


0 


261 70 


MONOI S 


DS 


»M0SCT+44t 




NOISE DIGIT 


16044 


0 


26180 


MOEXEC 


DS 


t426t 




EXECUTE CONTROL AND SPS INPUT 


00426 


0 


26 190 


MOMAD 


DS 


t415f 




MEMORY ADOR 


00415 


0 


26200 


SYSCAL 


DS 


t475t 




SYSTEM COMMON ACTION LOCATION 


00475 


c 


26210 


NONEX 


OS 


»457, 




NON-EXECUTE FOR JOB ERROR 


00457 


0 


26220 


PCK 


OS 


t 2365 






02365 


0 


26230 


* 




lORT ENTRIES 














OS 


t 565 






00565 


0 


26250 


1 OPT 


DS 


#532 






00532 


0 


26260 


1 OGT 


OS 


f 566 






00566 


0 


26270 


tORBC 


DS 


• 520 






00 520 


0 


26260 


lOSK 


DS 


• 554 






00554 


0 


26290 


I OCAL 


DS 


f 00716 






007 16 


0 


26300 


MONCAL 


DS 


• 00796 






00796 


0 


263 10 


tOCSAD 


DS 


t I9783t 




ADDR OF THE LOADER— CALLER 


19783 


0 


26320 


* 














26330 


• 




SPS COMMUNICATION 


AREA 








26340 
















26350 


OUT 


DS 


I 






02218 


1 


26360 




DS 


80 






02298 


80 


26370 


ZEPO 


DS 


2 






02300 


2 


26360 




OS 


81 






02381 


6 1 


26390 




DC 
• 


It' 






02382 


1 


26400 


LNTH 


DC 


5,0 














-0000 










26410 




DC 


l»» 






02388 


I 


26420 


AJUST . 


DC 


ll,212I2I212I,t 




INolKUulluN rAKIiT lAoLc 


02399 








-2121212121 










26430 


THINGS 


DC 


2 1 f 00 10203040506070000 * 




02420 


2 1 






-0010203040506070000 










26440 


COLL 


DS 


19 










26450 




DS 


2 








9 

z 


26460 


NUHB 


DC 


7,« 






02448 


7 






-00000 • 










26470 


JSTBL 


DC 


ll»3232323232f t 




ALPHA PARITY TABLE 


02459 


1 1 






-3232323232 










26480 


EVOOD 


DC 


lO.OIOlOlOlOlt. 




DMES PARITY TABLE 


02469 


10 






-lOlOlOlOl 










26490 






PROCESSOR CONTROL 


SWITCHES— FLAGGED l=ONf UNFLAGGEO 0«OFF 






26500 


STPCSW 


DS 


If. 




PUNCH SYMBOL TABLE 


02470 


I 


26510 


STTYSM 


DS 


Iff 




TYPE SYMBOL TABLE 


02471 


1 


26520 


STPRSM 


OS 


Iff 




PRINT SYMBOL TABLE 


02472 


1 


26530 


TYINSW 


DS 


Iff 




BEGIN TYPEWRITER INPUT 


02473 


I 


26540 


CDINSM 


DC 
J 


If Iff 




BEGIN CARD INPUT 


02474 


1 


26550 


PTINSW 


DS 


Iff 




BEGIN PAPER TAPE INPUT 


02475 


1 


26560 


ERSTSW 


DS 


Iff 




ERROR STOP ' 


02476 


I 
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26570 


2PSSW 


DS 


Iff 


TWO PASS MODE 


02477 






26580 


RELSW 


OS 


Iff 


ASSEMBLE RELOCATABLE 


02478 






26590 


LSCOSW 


DS 


iff 


LIST CARD 


02479 






26600 


LSTYSW 


OS 




LIST TYPEWRITER 


02480 






26610 


LSPRSW 


OS 


Iff 


LIST PRINTER 


02481 






26620 


PCNUSW 


DS 


Iff 


PUNCH RESEQUENCED SOURCE-DECK 


02482 






26630 


INTRSW 


DS 


Iff 


INTERRUPT 


02483 






26640 


KILSUB 


OS 


Iff 


NO SUBROUTINES 


02484 






26650 


DIVCSW 


DC 


1 f 1 » f 


NO SYMBOLIC DIVIDE 


02485 






26660 


CTVT 


J 

DC 


5,0 




02490 




5 






-0000 










26670 


INCODE 


DC 
-5 


2,5 




02492 




2 


26680 


OBJCRE 


DS 


5,, 


OBJECT MACHINE SIZE 


02497 




5 


26690 


PROCRE 


DS 


Iff 


PROCESSOR MACHINE SIZE 


02498 




1 


26700 


PRTLIM 


OS A 






02503 




5 












02503 




-0000 


26710 


HCLIM 


DSA 


LBLIM 




02508 




5 












02508 




K0009 


26720 




DC 
f 


If • 




02509 




1 


26730 


STCNT 


DC 


5,1, f 


STATEMENT COUNT 


02514 




5 






-0001 










26740 


HI ADD 


DC 


5,0,, 


HIGH ADDRESS 


02519 




5 






-0000 










26750 


L 


DS 


2., 


LENGTH OF MANTISSA 


02521 




2 


26760 


NOISE 


OS 


1 




02522 




1 


26770 


SU6N0 


DS 


2 




02524 




2 


26780 


PICKUP 


OS 


5 




02529 




5 


26790 




DC 
J 


1*1 




02530 




1 


26800 


I STAT 


DC 


30,0* 




02560 




30 






-0000000000000000000000000000* 








26810 


SPSGM 


OGM 






02561 




1 


26820 


INKRM 


OS 


5 




02566 




5 


26830 




DC 


If* 




02567 




1 


26840 


TEMPR 


DS 


5 




02572 




5 


26850 




DC 


If* 




02573 




1 


26860 


RMRK 


DS 


3 




02576 




3 


26870 




DC 


I,* 




02577 




1 


26880 


ONEZ 


DC 


10,1 




02587 




10 






-000000001 










26890 
















26900 




IOCS CALL-LOAD 


PROCESSOR SECTION-NO WLRC 








26910 


• 














26920 




DS 


5 




02592 




5 


26930 


CFF 


TFM 


I0RT,»+23 




02594 


16 


00565 


26940 




B 


lOGT.CFFOEF, 


7 


02606 


49 


00566 


26950 




B7 


CFF-1,,6 




02618 


49 


0259L 


26960 


CFFDEF 


DSC 


2,22,, 


ABSOLUTE DISK NOT WRONG LENGTH 


02625 




2 



22 
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26970 


CFFA 


OS A 




02631 




5 


X 1 










02631 




-0000 




26980 




DC 


If* 


02632 




1 




26990 


MURI 


OS 


1 


02633 




1 




27000 


lOAOOR 


DC 


5tO,,FILE ADDRESS OF INTERMEDIATE OUTPUT 


02638 




5 








-0000 










27010 


SYMTAD 


DC 


5,02600»,FILE ADDRESS OF SYMBOL TABLE 


02643 




5 








-2 600 










27020 


SBOUT 


OC 


2.0 


02645 




2 




27030 


• 


-0 












27040 


• 


END SPS COMMUNICATION AREA 










27050 


• 














27060 


TYPIN 


DSA 


INPUT-10 


02650 




5 


X 1 










02650 




-2775 




27070 




DC 


3.06* 


02653 




3 




27080 




-6« 

OGM 


• 


02653 




1 




27090 


TAP IN 


OSA 


INPUT-10 


02658 




5 


X 1 










02658 




-2775 




27100 




DC 


3.08* 


02661 




3 




27110 




-8« 

OGM 


• 


02661 




1 




27120 


CARDIN 


DSA 


INPUT-10 


02666 




5 


X 1 










02666 




-2775 




27130 




OC 


3.10* 


02669 




3 








J0« 












27140 




OGM 


• 


02669 




1 




27150 


SBNAX 


OC 


2tl0 


02671 




2 








JO 












27160 


AODCQW 


OS 


5 


02676 




5 




27170 


ALPHA 


OC 


10.0 


02686 




10 








-000000000 










27180 


BETA 


OC 


5.0 


02691 




5 








-0000 










27190 


NOPREC 


OC 


15,410000000000* 


02706 




15 








-0410000000000* 










27200 


TEMP 


OS 


5 


02711 




5 




27210 


CLERER 


OC 


ItO 


02712 




1 




27220 




osc 


26.0 


02713 




26 








00000000000000000000000000 










27230 




DSC 


27,* 


02739 




27 








oooooooooooooooooooooooooo • 










27240 




OS 


8 


02773 




8 




27250 




OAC 


5. , 


02775 




5 


X 2 


27260 




OAC 


6. • 
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27270 




DC 


8,0 


02803 




8 








-0000000 










27280 




00 


,,0246810 


02804 


-0 


-0-0- 


0-0-0 


27290 




00 


,,0246810 


02816 


-0 


-0-0- 


0-0-0 


27300 




00 


,,0246810 


02828 


-0 


-0-0- 


0-0-0 


27310 




00 


,,0246810 


02840 


-0 


-0-0- 


0-0-0 


27320 




00 


.,0246810 


02852 


-0 


-0-0- 


0-0-0 


27330 




00 


•,0246810 


02864 


-0 


-0-0- 


0-0-0 


27340 




00 


•,0246810 


02876 


-0 


-0-0- 


0-0-0 


27350 




00 


•,0246810 


02888 


-0 


-0-0- 


0-0-0 


27360 




00 


,,0246810 


02900 


-0 


-0-0- 


0-0-0 


27370 




00 


•,0246810 


02912 


-0 


-0-0- 


0-0-0 


27380 




00 


•,0246810 


02924 


-0 


-0-0- 


0-0-0 


27390 




00 


•,0246810 


02936 


-0 


-0-0- 


0-0-0 


27400 




00 


,,0246810 


02948 


-0 


-0-0- 


0-0-0 


27410 




00 


•,0246810 


02960 


-0 


-0-0- 


0-0-0 


27420 




OC 


2,0 


02973 




2 




27430 




-0 
DC 


2,0 


02975 




2 








-0 












27440 


PACK 


OSS 


300 


02976 




300 




27450 




OAS 


1 


03277 




1 


X 2 


27460 


INPUT2 


OAS 


1 


03279 




1 


X 2 


27470 




DSC 


50,0 


03280 




50 








00000000000000000000000000000000000000000000000000 










27480 




DSC 


50,0 


03330 




50 








00000000000000000000000000000000000000000000000000 










27490 




DSC 


50,0 


03380 




50 








00000000000000000000000000000000000000000000000000 










27500 




DSC 


50,* 


03430 




50 








00 OU 000000000000000000000000000000000000000000000* 










27510 


ADDRS 


OS 


11 


03490 




11 




27520 




OC 
• 


I,* 


03491 








27530 


LINK 


TFM 


PCK+10, 19,17 


03492 


10 


02375 


-0019 


27540 




B 


PCK ,,26 


03504 


49 


-236N 


00000 


27550 




DC 
t 


I** 


03516 




1 




27560 


DUMPl 


OS 


,LINK+14 


03506 




0 




27570 




OS 


1 


03517 




1 




27580 


DEFIN2 


DSC 


2,00 


03518 




2 








00 










X 1 


27590 




DSA 


SUBIN 


03524 




5 










03524 




-3534 




27600 




DC 
1 


1,* 


03525 








27610 


OEFIN 


OSC 


2,02 


03526 




2 








02 












27620 




DSA 


SUBIN 


03532 




5 










03532 




-3534 




27630 




OC 




03533 




1 




27640 


SUBIN 


00 A 




03534 




14 
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27650 




DC 
• 


I.* 


03548 


I 




27660 


D6F0UT 


DSC 


2,02 


03549 


2 








02 










27670 




OSA 


SUBOUT 


03555 


5 


X 










03555 


-3558 




27680 




DC 
f 


I,' 


03556 






27690 


SUBOUT 


00 A 


tO,«-»,3,PACK 


03558 


14 








0-0000-03-2976 








27700 




DC 


I.' 


03572 


L 




27710 


DEFSM 


DSC 


2,00 


03573 


2 








00 










27720 




OSA 


SUBSM 


03579 


5 


X 










03579 


-3582 








DC 
• 


If* 


03580 


I 




27740 


SUBSM 


DO A 


,0,»-*,SPBL,SBFADO 


03582 


14 








0- 0000-40 J5998 








27750 




DC 


1, • 


03596 


1 




27760 


MURIEL 


OS 


I 


03597 


1 




27770 


INTBUF 


DSC 


9,00000000* 


03598 


9 








00000000* . 








27780 




DSS 


191 


03607 


191 




27790 




DC 


I,* 


03798 


1 




2 7800 


ERLAB 


OAS 


6 


03801 


6 


X 


27810 




OAC 


2,** 


03813 


2 


X 


27820 


LOPOUT 


-»■• 
DC 


12,0 


03827 


12 








-00000000000 








27830 




DC 


4,* 


03831 


4 








-00* 










27840 


LIMTSP 


OS 


,HCLIH 


02508 


0 




27850 


L IM 


DC 


10,0 


03841 


10 








-000000000 








2 7860 




DC 
f 


l»* 


03842 


1 






LI 


OS 


10 


03852 


10 








DC 
t 


I,* 


03653 


1 








DS 


,SBOUT 


02645 


0 




97Qnn 


Men 


OS 


3 


03856 


3 




27910 


OMESW 


DS 


I 


03857 


1 




27920 


7TY5 


DC 


5,75 


03862 


5 








-0075 








27930 


IC 


DC 


2,0 


03864 


2 








-0 










27940 


FRSTAD 


DS 


5 


03869 


5 




27950 


STKLEN 


DS 


5 


03874 


5 




27960 


LSTAO 


DS 


5 


03879 


5 




27970 


FLGRM 


DC 


it* 


03880 


1 
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27980 


PACKAO 


OSA 


PACK,PACK*75,PACK*150,PACK*225 


03885 




5 


X 4 










03885 




-2976 












03890 




-3051 












03895 




-3126 












03900 




-3201 




27990 




DC 
i 


It* 


03901 




1 




28000 


PKMOD 


OSS 


26 


03902 




26 




28010 




DC 


6,0 


03933 




6 








-00000 










28020 


ISTTCD 


OS 


5 


03938 




5 




2tf030 




DC 


It* 


03939 




1 




28040 


SFA 


OS 


8 


03947 




8 




28050 




DC 


1,0 


03948 




I 




28060 


BLKADS 


OSS 


30 


03949 




30 




28070 




DSA 


SYMTBL-6 


03983 




5 


X I 










03983 




J5997 




28080 


LIMTSF 


OSA 


SYMTBL+17«SMPBL*ll 


03988 




5 


X I 










03988 




K0009 




28090 




DC 


lt« 


03989 




1 




28100 


BLKCTR 


DS 


2 


03991 




2 




28110 


DMPDIG 


DC 


5,0 


03996 




5 








-0000 










28120 


ABBA 


DC 


5,0 


04001 




5 








-0000 










28130 


FRSTMT 


DSC 


1,0 


04002 




1 




28140 


KLRLSH 


0 

DS 


I 


04003 




1 




28150 


X 


OS 


5 


04008 




5 




28160 


CAROLN 


DS 


I 


04009 




1 




28170 


VACANT 


DSS 


140 


04010 




140 




28200 


COPDEF 


DSA 


INPUT2 


04154 




5 


X I 










04154 




-3279 




28210 




DC 


3,10* 


04157 




3 








JO* 












28220 




OGM 


« 


04157 




1 




28230 


INITI 


TF 


ERLAB+lO,CLERER*ll 


04158 


26 


03811 


02723 


28240 




TFM 


HED,,10 


04170 


16 


03856 


000-0 


28250 




TFM 


SUBOUT+5,0 


04182 


16 


03563 


-0000 


28260 




TFM 


INKRM,99999 


04194 


16 


02 566 


R9999 


28270 




TFM 


SUBIN+13, INTBUF 


04206 


16 


03547 


-3598 


28280 




TF 


SUBIN+5,I0A0DR 


04218 


26 


03539 


02638 


28290 




SM 


SUBIN+5,2,10 


04230 


12 


03539 


000-2 


28300 




TFM 


A0DC0W,2401 


04242 


16 


02676 


-2401 


28310 




BNF 


•♦24,RELSW 


04254 


44 


04278 


02478 


28320 




TFM 


ADDCOW, 99999 


04266 


16 


02676 


R9999 


28330 




TO 


DMPDIG-4,PRaCRE 


04278 


25 


03992 


02498 


28340 




SM 


DMPDIG, 1,10 


04290 


12 


03996 


000- 1 



132 



28350 

28360 

28370 

28380 

28390 

28400 

28410 

28420 

28430 

28440 

28450 

28460 

28470 

28480 » 

28490 

28500 

28510 DCFB2 

28520 

28530 • 
28540 Fl 
28550 
28560 

28570 SUBO 



28580 

28590 
28600 

28610 PHASES 
28620 
28630 
28640 
28650 • 
28660 
28670 
28680 
28690 
28700 
28710 
28720 
28730 
28740 
28750 R2 
28760 
28770 
28780 

28790 R2SH 
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SF FLGRM 

BNR •♦48,ISTAT-29 

TR PKMOD.PACKAO-4 

TFM 7TY5,75 

B •♦48 

TR PKMOOfPACKAO^l 

AM PKM00^4.25 

TFM 7TY5»50 

TR LIM-9,LIMTSP-9 

TF SUBSM»5,SYMTA0 

TF SFA.SYMTAO 

TF ABBA ,PKM00*4 

TO tNTBUF4200«SPSGM 

CALL PHASE 82 
TFM CFFA,0CFB2 
BTM CFF,PHAS6B-12 
OOA •0,B2DA0,B2SCT,PHASEB-12 
OJ 92 00-56-4 I 58 
DC l,« 

LOAD PHASE Bl TO THE FILE 
34 SUBO, 701 
38 SUB0«702 
TRA 

OOA tO,BlDAO,B|SCT,SBOUT»l 

0J9180-20-2646 
TCD Fl 



OORG INITI 

BTM GEETt»*l2,,CALL PHASE 83 

BD 2PASS*2PSSW 

BD R2,R2SW 

TFM SUBrN*13,INPUT-19 

AM SUBIN+5,2,10 

READ SOURCE STATEMENT FROM THE FILE 

TFM I0RT,*^23 

B l06T»DEFINt7 

TR INTBUF,INPUT-I9 

BMG GOl .INPUT*80,,CHK.FOR FILE GRP.MRK 

BNG •♦32»INPUT>180 

TOM R2SW,l,ll 

B7 GOl 

SM SUBIN»5tlfflO 

B7 GOl 

TR INPUT-IUINPUT-IUIOO., PROCESS 20ND SHORT STMT 

TR INTBUF,INPUT~19*100,, DIRECTLY. NO DISK ACCESS. 

TDM R2SW,0 

B7 601 

DC 1,0 



28800 2PASS BNF SECRD.PTINSW,, CHK FOR CARD OR TAPE INPUT 
28810 • ACCEPT TAPE INPUT 
28820 TFM I0RT,*«23 

28830 B I0GT,TAPIN-4,7 

28840 B7 FORWD 



04302 


32 


03880 


00000 


04314 


45 


04362 


02531 


04326 


31 


03902 


03881 


04338 


16 


03862 


-0075 


043S0 


49 


04398 


00000 


04362 


31 


03902 


03886 




1 1 


03906 


-0025 


04366 


16 


03862 


-0050 


04398 


31 


03832 


02499 


04410 


26 


03587 


02643 


04422 


CO 


03947 


02643 


04434 


26 


04001 


03906 


04446 


25 


03798 


02561 


04458 


16 


02631 


-4482 


04470 


17 


02594 


-4158 


04482 




14 




04496 




1 








04546 


00701 


04510 


38 


04546 


00702 


04522 


36 


00000 


00500 


04534 


49 


00000 


00000 


04546 




14 




04498 








04158 








04158 


17 


09664 


-4170 


04170 


43 


04362 


02477 


04182 


43 


04318 


04361 


04194 


16 


03547 


-2766 


04206 


11 


03539 


000-2 


04218 


16 


00565 


-4241 


04230 


49 


00566 


-3526 


04242 


31 


03598 


02766 


04254 


55 


04502 


02865 


04266 


55 


04298 


02965 


04278 


15 


04361 


OOOOJ 


04290 


49 


04502 




04298 


12 




000— I 


04310 


49 


04502 










02874 


04330 


31 


03598 


02866 


04342 


15 


04361 


00000 


04354 


49 


04502 




04361 




1 




04362 


44 


04406 


02475 


04374 


16 


00565 


-4397 


04386 


49 


00566 


-2654 


04398 


49 


04430 
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28850 • ACCEPT CARD INPUT 



28860 


SECRD 


TFM 


I0RT,»>23 


04406 


16 


00565 


-4429 


28870 




B 


I0GT,CARDIN-4,7 


04418 


49 


00566 


-2662 


28880 


FORMD 


BNR 


•♦24,INPUT-10 


04430 


45 


04454 


02775 


28890 




TFM 


tNPUT-10,0,10 


04442 


16 


02775 


000-0 


28900 




CM 


INPUT-10,14,10 


04454 


14 


02775 


000 J4 


28910 




BE 


2PASS 


04466 


46 


04362 


01200 


28920 




TDM 


•-11,1 


04478 


IS 


04467 


00001 


28930 




BT 


RSCAN.RSCAN-1 


■ 04490 


27 


05860 


05859 


28940 


GOl 


AM 


INKRM,1,10 


04502 


11 


02566 


OOO-l 


28950 




BT 


CLOUT,CLOUT-1 


04514 


27 


08556 


08555 


28960 




TDM 


KLRLSM,1,11 


04526 


15 


04003 


OOOOJ 


28970 




TR 


INPUT2-1,INPUT-11 


04538 


31 


03278 


02774 


28980 




BNF 


•♦24,LSTYSW 


04550 


44 


04574 


02480 


28990 




RCTY 




04562 


34 


00000 


00102 


29000 


• 














29010 


• 


CHECK FOR COMMENT STATEMENT 










29020 


• 














29030 


CASTER 


BNR 


•♦20, INPUT 


04574 


45 


04594 


02785 


29040 




B7 


CHKIO 


04586 


49 


04710 




29050 




CM 


INPUT, 14, 10 


04594 


14 


02785 


000J4 


29060 




BNE 


CHKIO 


04606 


47 


04710 


01200 


29070 




BNF 


•♦24,LSTYSW 


04618 


44 


04642 


02480 


29080 




WATY 


INPUT-10,,,TYPE COMMENTS STATEMENT 


04630 


39 


02775 


00100 


29090 




BNF 


PHASEB,LSCDSW 


04642 


44 


04170 


02479 


29100 




BT 


REVSCN,REVSCN-1 


04654 


27 


05922 


05921 


29110 


• 


PUNCH COMMENTS CARD 










29120 


PCHCOM 


BNF 


PHASEB,LSCDSH 


04666 


44 


04170 


02479 


29130 




TFM 


IORT,»+23 


04678 


16 


00565 


-4701 


29140 




B 


I0PT,COPDEF-4,7 


04690 


49 


00532 


-4150 


29150 




B7 


PHASEB 


04702 


49 


04170 




29160 


CHKIO 


TFM 


RL0P^ll,INPUT-2 


04710 


16 


04769 


-2783 


29170 




AM 


RL0P^11,2,10 


04722 


11 


04769 


000-2 


29180 




CM 


RL0P^11,INPUT^12 


04734 


14 


04769 


-2797 


29190 




BE 


RL0P^24 


04746 


46 


04782 


01200 


29200 


RLOP 


BNR 


•-36,*-» 


04758 


45 


04722 


00000 


29210 




TF 


INPUT^10,CLERER^11 


04770 


26 


02795 


02723 


29220 




C 


CLERER^ll.INPUT^lO 


04782 


24 


02723 


02795 


29230 




BE 


• ♦36 


04794 


46 


04830 


01200 


29240 




TF 


ERLAB^10,INPUT^10 


04806 


26 


03811 


02795 


29250 




TFM 


INKRM,0 


04818 


16 


02566 


-0000 


29260 




TFM 


RM0P^ll,INPUT^10 


04830 


16 


04889 


-2795 


29270 




AM 


RM0P^11,2,10 


04842 


11 


04889 


000-2 


29280 




CM 


RM0P^ll,INPUT^20 


04854 


14 


04889 


-2805 


29290 




BE 


RM0P^24 


04866 


46 


04902 


01200 


29300 


RMOP 


BNR 


•-36,«-» 


04878 


45 


04842 


00000 


29310 




TF 


INPUT+18,CLERER+7 


04890 


26 


02803 


02719 


29320 




BNF 


NAST,2PSSW 


04902 


44 


05170 


02477 


29330 




BNF 


•♦32,INTBUF^7 


04914 


44 


04946 


03605 


29340 




TDM 


INTBUF+7,0 


04926 


15 


03605 


00000 


29350 




B7 


• + 20 


04938 


49 


04958 




29360 




TR 


INTBUF, INTBUF+8 


04946 


31 


03598 


03606 


29370 




BNR 


PULLIO, INTBUF 


04958 


45 


05018 


03598 


29380 




TFM 


SUBIN+13,INTBUF 


04970 


16 


03547 


-3598 


29390 




AM 


SUBIN+05,2,10 


04982 


11 


03539 


000-2 
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29410 




TFH 


I0RT,»«23 


04994 


16 


00565 


-5017 


29420 




B 


I0GT,DEFIN2, 7 


05006 


49 


00566 


— 3518 


29430 


PULLIO 


BNF 


NAST, INTBUF^T 


05018 


44 


051 70 


03605 


29440 




TFM 


EVALER-2, 67670 


05030 


16 


08014 


07670 


29450 




8T 


EPRINT,EPRtNT-i 


05042 


2 7 






29460 


ERRXX 


WATY 


MESS2 




39 


0842 1 




29470 




RCTY 






34 


nnnnn 


nni np 


29480 




BT 


FWDSCNtFMDSCN-1 




27 






29490 




TFM 


I ORT t •■♦■23 








— 5113 


29500 




B 


I0GT,TYPIN-4,7 




4q 






295 10 




BC4 


ERRXX 


05114 


46 




UOhUU 


29520 




CM 


INPUT, 14, 10 


05126 


14 


02785 




29530 




BNE 


• ♦24 


05 1 38 


47 


05 162 


01200 


29540 




TDM 


INTBUF+7,0 


05150 


1 5 




nnnnn 


29550 




B7 


CASTER-48 


05162 


49 


n^^9A 




29560 
















29570 




TYPE OUT SOURCE STATEMENT 










29580 
















29590 


NASI 




1 npniiT tMPiiT— 7 


05170 


26 


03827 




29600 






tMDIIT9_1 1 noniiT_o 
|iMrUI^—l, LUrUui— V 


05182 


31 


03278 




29610 






i nPDIIT. TMPKT-t-ln 




26 




02795 


29620 




TR 


T NPliT?'^ 11. 1 npnilT— 1 1 


05206 


3 J 


03290 


03816 


29630 




TF 


LOPOUT, INPUT+IS 


05218 


26 


03827 


02803 


29640 




TR 












29650 




TR 


INPUT2'*'35, INPUT't-19 


05242 


31 


03314 


02804 


29660 




TR 




0 5254 


31 


04010 


02804 


29670 




TDM 




05266 


15 


03857 


00000 


29680 




BNF 


• *9A. 1 CTVCy 


05278 


44 


05302 


02480 


29690 




WATY 




05290 


39 


03279 


00100 


29700 


MARKl 


jf 


PI ATF . Annrnu 


05302 


26 


09487 


02676 


29710 








05314 


45 


05336 


02805 


29720 




TFM 


INPUT422,tlO 


05326 


16 


02807 


000-0 


29730 




DC 
• 




05337 




1 




29740 




BT 


REVSCN,REVSCN-1 


05338 


27 


05922 


0592 1 


29750 




BNF 


•♦60f LSTYSW 


05350 


44 


054 10 


02480 


29760 




CM 


REVSCN+35, INPUT2«108 


05362 


14 


05957 


— 3387 


29770 




BL 


• ♦24 


05374 


47 


05398 




29780 




RCTY 




05386 


34 




00102 


29790 




TBTY 




05398 


34 


00000 


00108 


29800 




CM 


REVSCN-i-35, INPUT2>2»59 


05410 


14 


05957 


-3397 


29810 




BNH 


TLU 


05422 


47 


05482 


01 100 


29820 




BNF 


TLU, LSCOSW 


05434 


44 


05482 


02479 


29830 




TFM 


IORT,^4-23 


05446 


16 


00565 


— 5469 


29840 




B 


I0PT,C0PDEF-4,7 


05458 


49 


00532 


—4150 


29850 




BT 


CLOUT, CLOUT- I 


05470 


27 


08 556 


08555 


29860 


TLU 


BNF 


• ♦32tINTBUF4-l 


05482 


44 


05514 


03599 


29870 




BD 


INSTRN, INTBUF^l 


05494 


43 


13094 


03599 


29880 




B7 


TBLl 


05506 


49 


05664 




29890 




BNF 


INSTRN,INTBUF 


05514 


44 


13094 


03598 


29900 




BD 


INSTRN.INTBUF 


05526 


43 


13094 


03598 


29910 


TBL2 


TFM 


G00DB24-6,BTBL2 


05538 


16 


05580 


-5586 


29920 




TO 


600DB2+lltINTBUF>l 


05550 


25 


05585 


03599 


29930 




A 


G0O0B2^5»GO0DB2«ll 


05562 


21 


05579 


05585 


29940 


G00DB2 


B 


t,10 


05574 


49 


00000 


000-0 


29950 


BTBL2 


B 


MACRO,,* 0 


05586 


49 


15526 


00000 



135 



1620 SPS II-O FOR MONITOR It PHASE B PAGE 



29960 




DORG 


• -1 




05596 








29970 




B 


SAVE,,, 


♦ 1 


05596 


49 


15610 


00000 


29980 




DORG 


• -1 




05606 








29990 




8 


RSTR,,, 


♦2 


05606 


49 


15598 


00000 


30000 




OORG 


•-1 




05616 








30010 




B 


PCHCOM- 


12, ,,+3 


05616 


49 


04654 


00000 


30020 




DORG 


•-1 




05626 








30030 




B 


CALLEX, 


,,♦4 


05626 


49 


15502 


00000 


30040 




OORG 


•-1 




05636 








30050 




B 


MAC2,,, 


♦5 


05636 


49 


15658 


00000 


30060 




DORG 


• -1 




05646 








30070 




B 


PCHCOM- 


12,, •♦6 


05646 


49 


04654 


00000 


30080 




OORG 


•-1 




05656 








30090 




B 


LINKSF, 




05656 


49 


15490 


00000 


30100 




DORG 


• -3 




05664 








30110 


TBLl 


TFM 


Ga00B^6 


,8TBL 


05664 


16 


05706 


-5762 


30120 




TD 


G00DB+11,INTBUF 


05676 


25 


05711 


03598 


30130 




A 


G000B*5 


•GOODB+ll 


05688 


21 


05705 


05711 


30140 


G0006 


B 


t,10 




05700 


49 


00000 


000-0 


30150 




B 


TRA,,,- 


5 


05712 


49 


15514 


00000 


30160 




DORG 


•-1 




05722 








30170 




B 


OSDNB,, 


t -4 


05722 


49 


14002 


00000 


30180 




DORG 


•-1 




05732 








30190 




B 


DENO,,, 


-3 


05732 


49 


15550 


00000 


30^00 




DORG 


• -1 




05742 








30210 




B 


DC, 


-2 


05742 


49 


14546 


00000 


30220 




OORG 


• -1 




05752 








30230 




B 


DORG,,, 


-I 


05752 


49 


14406 


00000 


30240 




DORG 


•-1 




05762 








30250 


BTBL 


B 


DAC,,, 


0 


05762 


49 


15646 


00000 


30260 




DORG 


• -1 




05772 








30270 




B 


DSA,,, 


♦ I 


05772 


49 


15538 


00000 


30280 




OORG 


• -1 




05782 








30290 




B 


DAS,,, 


♦2 


05782 


49 


14210 


00000 


30300 




DORG 


•-1 




05792 








30310 




B 


HEAD, ,, 


♦ 3 


05792 


49 


06046 


00000 


30320 




DORG 


•-1 




05802 








30330 




B 


DSB,,, 


♦4 


05802 


49 


15478 


00000 


30340 




DORG 


•-1 




05812 








30350 




B 


D6M,, , 


♦5 


05812 


49 


15574 


00000 


30360 




DORG 


• -1 




05822 








30370 




B 


ODA,,, 


♦6 


05822 


49 


15562 


00000 


30380 




OORG 


•~1 




05832 








30390 




B 


DMES,,, 


♦ 7 


05832 


49 


15622 


00000 


30400 




DORG 


• -1 




05842 








30410 




B 


DVLC, 


♦ 8 


05842 


49 


15586 


00000 


30420 




DORG 


•-1 




05852 








30430 




B 


DOTCL,, 


, +9 


05852 


49 


15634 


00000 


30440 




DORG 


•-3 




05860 








30450 


RSCAN 


BLXM 


•+12,12211) 


05860 


66 


05872 


001K2 


30460 




TFM 


INPUT+1 


8(1) ,0200,8 9 


05872 


16 


028-3 


0-KOO 


30470 




DAC 
( 






05883 




1 


X 2 


30480 




BD 


RSCANl, 


INPUT+16(n 


05884 


43 


05920 


028-1 


30490 




BD 


RSCANl, 


INPUT+15( 1 ) 


05896 


43 


05920 


028-0 


30500 




BOX 


•-36,RSCAN+2l(l ) 


05908 


63 


05872 


058Q1 
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30510 


RSCANl 


BB2 






05920 


42 






30520 


REVSCN 


TFM 


• ♦■35t INPUT2'i-160 




05922 


16 


05957 


-3439 


30530 




SM 


•♦23t2tl0 




05934 


12 


05957 


000-2 


30540 




BNR 


•-12t«-» 




05946 


45 


05934 


00000 


30550 




TFM 


•-lt0»610 




0S958 


16 


0595P 


000-0 


30560 




BB2 






03970 


42 






30570 


FWDSCN 


TF 


INPUT-2tCLERER-f9 




05972 


26 


02763 


02721 


30580 




TF 


INPUT*10fCLERER*ll 




05984 


26 


02795 


02723 


30590 




TF 


INPUT*18»CLERER*7 




05996 


26 


02803 


02719 


30600 




BLXM 


•-•-12t-122(l) 




06008 


66 


06020 


OOIKK 


30610 




TFM 


INPUT«142(1)»0200»8 




0602t) 


16 


029K7 


0-200 


30620 




OAC 






06031 




1 


X 2 


30630 




BCX 


♦-12,»-3in 




06032 


63 


06020 


060K9 


30640 




BB2 






06044 


42 






30650 


• 
















30660 


• 


HEADER ROUTINE 












30670 


• 
















30680 


HEAD 


TF 


HE0.INTBUF4-6 




06046 


26 


03856 


03604 


30690 




TFM 


AOORS 




06058 


16 


03490 


-0000 


30700 




B7 


ECLATl 




06070 


49 


14466 




30710 


» 
















30720 


m 


THE FOLLOWING CLOSED SUBROUTINE EVALUATES 










30730 




THE STATEMENT OPERAND 












30740 


m 
















30750 




OS 


5 




06081 




5 




30760 


TRSCAN 


TR 




ELIMINATE LEADING , 


06082 


31 


02804 


02806 


30770 




BT 


SCAN.TRSCAN-l 




06094 


27 


06112 


06081 


30780 




OS 


5 




06110 




5 




30790 


SCAN 


TFM 


OPERtlOtlO 




06112 


16 


09501 


OOOJO 


30800 




TFM 


XFLAGtOOtlO 




06124 


16 


07956 


000-0 


30810 




TF 


0IVSW«CLERER«5«« 


CLEAR SWITCHES 


06136 


26 


08380 


02717 


30820 




TOM 


BSW,1,11 




06148 


15 


09502 


OOOOJ 


30830 




TF 


AD0RStCLERER49 




06160 


26 


03490 


02721 


30840 


SCAN2 


TO 


ALPHA, LNTH^l,, 


RECORD MARK—ALPHA EMPTY 


06172 


25 


02686 


02388 


30850 




BD 


•♦44, INPUT^19 




06184 


43 


06228 


02804 


30860 




BO 


•♦32,INPUT+20 




06196 


43 


06228 


02805 


30870 




TR 


INPUT*19,INPUT*21 




06208 


31 


02804 


02806 


30880 




B7 


• -36 




06220 


49 


06184 




30890 




BNR 


SCANl-24,INPUT*20 




06228 


45 


06412 


02805 


30895 




BD 


CHKNOfLPNSW 




06240 


43 


08100 


08379 


30900 


SCANA 


SF 


ADDRS-4 




06252 


32 


03486 


00000 


30910 




CM 


RCTR, 00,10 




06264 


14 


08376 


000-0 


30920 




BE 


SREL^12 




06276 


*6 


06404 


01200 


30930 




CM 


RCTR, 01,10 




06288 


14 


08376 


000- 1 


30940 




BNE 


• ♦24 




06300 


47 


06324 


01200 


30950 




BNF 


SREL, ADDRS 




06312 


44 


06392 


03490 


30960 




CM 


RCTR, -01,10 




06324 


14 


08376 


000- J 


30970 




BNF 


•♦24, ADDRS 




06336 


44 


06360 


03490 


30980 




BE 


SREL 




06348 


46 


06392 


01200 






TFM 


EVALER-2, 71770,, 


RELOCATION ERROR 


06360 


16 


08014 


P1770 


31000 




BT 


EPRINT,EPRINT-1. 




06372 


27 


08452 


08451 


31010 




B7 


EVl 




06384 


49 


08052 




31020 


SAEL 


TDM 


RL0CSW,1,11 




06392 


15 


08378 


OOOOJ 


31030 




B7 


TOBB 




06404 


49 


08112 




31040 




CM 


lNPUt^20,23,10 




06412 


14 


02805 


000K3 
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31050 




BE 


SCANA-12 




06424 


46 


06240 


01200 


31060 


SCANl 


CM 


INPUT^20tlO,10 




06436 


14 


02805 


OOOJO 


31070 




BNE 


• ♦44 




06448 


47 


06492 


01200 


31080 




TFM 


0PER,10,10 




06460 


16 


09501 


OOOJO 


31090 




TR 


INPUT^19,INPUT^21 




06472 


31 


02804 


02806 


31100 


eVALOP 


B7 


EVALAD 




06484 


49 


06908 




31110 




CM 


INPUT^20»20,10 




06492 


14 


02805 


OOOKO 


31120 




BNE 


EVALAD 




06504 


47 


06908 


01200 


31130 




TFM 


0PERf20,10 




06516 


16 


09501 


OOOKO 


31140 




B7 


SCAN1^36 




06528 


49 


06472 




31150 


DIGALF 


BNR 


•♦20, ALPHA 




06536 


45 


06556 


02686 


31160 




B7 


MOVE 




06548 


49 


06624 




31170 




BD 


OIVIDEtOIVSW 




06556 


43 


06656 


06380 


31180 




N 


ALPHA, BETA 




06568 


23 


02686 


02691 


31190 




SF 


90 




06580 


32 


00090 


00000 


31200 




TF 


ALPHA, 99 




06592 


26 


02686 


00099 


31210 


MDRET 


BD 


SREL-32»RSYMSM 




06604 


43 


06360 


08377 


31220 




B7 


M0VE^12 




06616 


49 


06636 




31230 


MOVE 


TF 


ALPHAfBETA 




06624 


26 


02686 


02691 


31240 




TDM 


OlVSWfO 




06636 


15 


08380 


00000 


31250 




B7 


6ET-ltt6 




06648 


49 


0749N 




31260 


DIVIDE 


CM 


BETAfO 




06656 


14 


02691 


-0000 


31270 




BE 


MDRET 




06668 


46 


06604 


01200 


31280 




LD 


99, ALPHA 




06680 


28 


00099 


02686 


31290 




D 


89,BETA 




06692 


29 


00089 


02691 


31300 




SF 


85 




06704 


32 


00085 


00000 


31310 




TF 


ALPHA, 94 




06716 


26 


02686 


00094 


31320 




BT 


MDRET 




06728 


49 


06604 




31330 




TDM 


DIVSW,1,11 




06736 


15 


08380 


OOOOJ 


31340 


INTERM 


BD 


SREL- 32, RSYMSfcf 




06748 


43 


06360 


08377 


31350 




B7 


SCAN1^36 




06760 


49 


06472 




31360 




TDM 


LPNSM,1,11 




06768 


15 


08379 


OOOOJ 


31370 




TR 


INPUT^19,INPUT^21 




06780 


31 


02804 


02806 


31380 


BLOP 


CM 


0PER,,10 




06792 


14 


09501 


000-0 


31390 




BE 


SCAN2 




06804 


46 


06172 


01200 


31400 




TO 


•♦13,0PER-1 




06816 


25 


06829 


09500 


31410 


AODSUB 


20 


ADDRS (ALPHA 




06828 


20 


03490 


02666 


31420 




TF 


ALPHA, CLERER^9 




06840 


26 


02686 


02721 


31430 




TFM 


OPERfl,10 




06852 


16 


09501 


000-0 


31440 




BNF 


•♦36,RSYMSW 




06864 


44 


06900 


08377 


31450 




TO 


•♦13, AODSUB^l 




06876 


25 


06889 


06829 


31460 




AM 


RCTR, 1,10 




06888 


11 


08376 


000-1 


31470 




B7 


SCAN2 




06900 


49 


06172 




31480 


EVALAD 


SF 


HED-2 




06908 


32 


03854 


00000 


31490 




SF 


DOLLAR 




06920 


32 


07368 


00000 


31500 




TDM 


BSW,0 




06932 


15 


09502 


00000 


31510 




TFM 


LABL, 1,10 




06944 


16 


07035 


000-1 


31520 




TFM 


DDL,, 10 




06956 


16 


07033 


000-0 


31530 




TR 


C0LL-l8,THINGS-20 




06968 


31 


02421 


02400 


31540 




B7 


BCMSPC 












31550 


« 


CHECK FOR SPECIAL CHARACTER 










31560 


COMSPC 


CM 


lNPUT+20,70,10 




06988 


14 


02805 


OOOPO 


31570 




BL 


SPEC 




07000 


47 


07136 


01300 


31580 




TF 


COLL, INPUT+20 




07012 


26 


02439 


02805 


31590 




CF 


COLL-1 




07024 


33 


02438 


00000 


31600 


LABL 


DS 


#• 




07035 




0 
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31610 


OOL 


OS ,•-2 






07033 




0 




31620 




AM OOL, 1,10 






07036 


11 


07033 


000-1 


31630 




TR C0LI.-17,C0LL-15 






07048 


31 


02422 


02424 


31640 




CM COLL-17,7,10 






07060 


14 


02422 


000-7 


31650 


• 


SYMBOL IN OPERAND CONTAINS 


MORE THAN 


SIX CHARACTERS 










31660 


• 


OR NUMBER IN OPERAND HAS MORE THAN FIVE DIGITS 










31670 




BNE •♦20 






07072 


47 


07092 


01200 


31680 


ERLNTH 


B7 CHKNO 






07084 


49 


08100 




31690 




TR INPUT+19,INPUT+2l 






07092 


31 


02804 


02806 


31700 


• 


CHECK TO SEE IF OPERAND IS 


PRESENT 












31710 


BCMSPC 


TFM GET-l,BLOP 






07104 


16 


07495 


-6792 


31720 




BNR C0MSPC,INPUT+20 






07116 


45 


06988 


02805 


31730 




B7 GET 






07128 


49 


07496 




31740 


• 


CHECK FOR ♦ OR - 














31750 


SPEC 


BD Sl,INPUT+20 






07136 


43 


07168 


02805 


31760 


• 


CHECK FOR BLANK 














31770 




BD GET,INPUT*19 






07148 


43 


07496 


02804 


31780 




87 BCMSPC-12 






07160 


49 


07092 




31790 


• 


CHECK FOR COMMA 














31800 


SI 


CM lNPUT+20,23,10 






07168 


14 


02805 


000K3 


31810 




BE GET 






07180 


46 


07496 


01200 


31820 


« 


CHECK FOR SLASH 














31830 




BNF •♦48,DIVCSW 






07192 


44 


07240 


02485 


31840 




CM INPUT+20,21,10 






07204 


14 


02805 


OOOKl 


31850 




BNE •♦24 






07216 


47 


07240 


01200 


31860 




BTM GET,INTERM>12 






07228 


17 


07496 


-6736 


31870 


♦ 


CHECK FOR ASTERISK 














31880 




CM INPUT+20,14,10 






07240 


14 


02805 


000J4 


31890 




BE ASTER 






07252 


46 


07804 


01200 


31900 


• 


CHECK FOR DOLLAR SIGN 














31910 




CM INPUT>20,13ttO 






07264 


14 


02805 


0O0J3 


31920 




BE DOLLAR 






07276 


46 


07368 


01200 


31930 


* 


CHECK FOR LEFT PAREN 














31940 




CM INPUT+20,24tlO 






07288 


14 


02805 


000K4 


31950 




BNE •♦24 






07300 


47 


07324 


01200 


31960 




BTM GET,BL0P-24 






07312 


17 


07496 


-6768 


31970 




CHECK FOR RIGHT PAREN 














31980 




CM INPUT^20,04,10 






07324 


14 


02805 


000-4 


31990 




BE RTPN 






07336 


46 


07840 


01200 


32000 


LDCHAR 


TDM LA8L 






07348 


15 


07035 


00000 


32010 




B7 C0MSPC^24 






07360 


49 


07012 




32020 


DOLLAR 


CF DOLLAR 






07368 


33 


07368 


00000 


32030 




BD •♦32,D0L 






07380 


43 


07412 


07033 


32040 




TFM COLL, ,10 






07392 


16 


02439 


000-0 


32050 




B7 ^^44 






07404 


49 


07448 




32060 




CM OOL, 1,10 






07412 


14 


07033 


000-1 


32070 




BNE LDCHAR 






07424 


47 


07348 


01200 


32080 




SF COLL-3 






07436 


32 


02436 


00000 


32090 




CF HED-2 






07448 


33 


03854 


00000 


32100 




TDM LABL 






07460 


15 


07035 


00000 


32110 




BD BCMSPC-12, DOL 






07472 


43 


07092 


07033 


32120 




87 BCMSPC-56 






07484 


49 


07048 




32130 


• 
















32140 




CLOSED ROUTINE TO EVALUATE 


COLLECTED 


SYMBOL OR INTEGER 










32150 


• 
















32160 




DS 5 






07495 




5 
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32170 


GET 


TDM 


RSYMSW.O 


07496 


15 


08377 


00000 


32180 




BD 


CHKNO,LPNSW 


07508 


43 


08100 


08379 


32190 




C 


•♦23,C0LL-2 


07520 


24 


07543 


02437 


32200 




BE 


GETAST, 14,10 


07532 


46 


07716 


012J4 


32210 




BO 


TRNUMB, LABL 


07544 


43 


07760 


07035 


32220 




CM 


COLL-17, 05,10 


07556 


14 


02422 


000-5 


32230 




BH 


6CHAR 


07568 


46 


07672 


01100 


32240 




BE 


5CHAR 


07580 


46 


07640 


01200 


32250 




TDM 


COLL,0 


07592 


15 


02439 


00000 


32260 




TR 


COLL-17, COLL-15 


07604 


31 


02422 


02424 


32270 




CM 


COLL-17, 05,10 


07616 


14 


02422 


000-5 


32280 




BNE 


• -36 


07628 


47 


07592 


01200 


32290 


5CHAR 


BNF 


LBADD-24. HED-2 


07640 


44 


08606 


03854 


32300 




TF 


COLL-12, HED 


07652 


26 


02427 


03856 


32310 




87 


LBAOO 


07664 


49 


08630 




32320 


6CHAR 


BNF 


LBAOO, HED-2 


07672 


44 


08630 


03854 


32330 




SF 


COLL-13 


07684 


32 


02426 


00000 


32340 




SF 


COLL-2 


07696 


32 


02437 


00000 


32350 




B7 


LBAOO 


07708 


49 


08630 




32360 


GETAST 


TF 


BETA,AODCOW 


07716 


26 


02691 


02676 


32370 




BNF 


DIGALF,RELSW 


07728 


44 


06536 


02478 


32380 




TDM 


RSYMSW,1,11 


07740 


15 


08377 


OOOOJ 


32390 




87 


DIGALF 


07752 


49 


06536 




32400 


TRNUMB 


CM 


C0LL~14,6060 


07760 


14 


0242 5 


-6060 


32410 




BH 


CHKNO 


07772 


46 


08100 


01100 


32420 




TNS 


COLL-2, BETA 


07784 


72 


02437 


02691 


32430 




B7 


DIGALF 


07796 


49 


06536 




32440 


ASTER 


CM 


00L,0,10 


07804 


14 


07033 


000-0 


32450 




BE 


LDCHAR 


07816 


46 


07348 


01200 


32460 




BTM 


GET, INTERN 


07828 


17 


07496 


-6748 


32470 


RTPN 


BNF 


CHKNO, LPNSW,, FORMAT ERROR 


07840 


44 


08100 


08379 


32480 




BNF 


SCANA,SCAN-l 


07852 


44 


06252 


06111 


32490 




TD 


XFLAG, COLL-2 


07864 


25 


07956 


02437 


32500 




MM 


XFLAG, 003, 9 


07876 


13 


07956 


00-03 


32510 




BLX 


•♦12,99(1) 


07888 


65 


07900 


000R9 


32520 




MA 


XTAB^3(1),A00RS 


07900 


70 


07901 


03490 


32530 




TD 


A0DRS-3,XTAB(1) 


07912 


25 


03487 


079N8 


32 540 




TD 


A0DRS-2,XTAB^Un 


07924 


25 


03488 


079N9 


32550 




TO 


ADDRS-1,XTAB^2(1) 


07936 


25 


03489 


07900 


32560 




87 


SCANA 


07948 


49 


06252 




32570 


XFLAG 


DC 
-0 


2,0 


07956 




2 




32580 


XTAB 


00 


,,5 7 10 11 


07958 


00 


000-0 


-00— 


32590 




00 


,,0 3 5 6 7 9 10 11 


07970 


-0 


0-0— 


-0 


32600 




00 




07982 


00 


00000 


00000 


32610 
















32620 


• 


EVALER IS THE ERROR ROUTINE 










32630 


• 














32640 




OAS 


5 


07995 




5 


X 2 


32650 




BNR 


59007 


08004 


45 


59007 


00000 


32660 




DC 
( 


1,S» 


08015 




1 




32670 


EVALER 


BT 


EPRINT,EPRINT-1 


08016 


27 


08452 


08451 


32680 




SPTY 




08028 


34 


00000 


00101 


32690 




WATY 


COLL- 12 


08040 


39 


02427 


00100 


32700 


EVl 


BD 


C0RER5 ,ERSTSW 


08052 


43 


08188 


02476 
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3271 0 




BNF 








08064 


^4 


08100 


02480 


32720 




RCTY 








08076 


34 


00000 


00102 






TBTY 








08088 


34 


ooooc 


00108 




CHKNU 


TF M 


ADDRS 






08100 


16 


03490 


-0000 




TOBB 


CF 


SCAN" 1 






08112 


33 


061 1 1 


nonnn 


-77n 












08124 


45 


08144 


02805 








SCAN" 1 1 16 








49 


0611J 








CM 








06144 


^4 




000K3 






BE 


S C A N"" 1 1 1 6 






08156 


46 


061 IJ 


01200 


^5ni n 






tnrui TiT/f 1 nful — c 4 






08168 


31 


02804 


02806 






R7 


rnnn^. i 7 

1 UDDt Vi. 






08180 


49 


08124 




^OQ5 1 




UATV 


RNMES S 








^' 










ftWP 








nn^nn 






04361 








R2S Wt Oft 






08212 


15 


04361 


nnnnn 

UUvlUU 














08224 


12 


03539 


000- 1 


32830 




TF 


AUUCUM t rL Ave 














32840 




RCTY 










34 


t\t\t\i\i\ 


00102 






TR 


INPUT 4^19»VACANT 






08260 


3^ 


02804 


04010 






WATY 


INPUT-10 






08272 


39 


02775 


00100 




OOPS 


RCTY 










34 


nnnnn 


00102 






BT 


FW0SCN^36,FW0SCN^35 






08296 


27 


06008 


06007 






WATY 


INPUT-10 






08308 


39 


02775 


00100 




• ACCEPT CORRECTION FROM TYPMRITER 












«oi n 




RATY 


INPUT*20 






08320 


37 


02805 


00100 






BC4 


OOPS 






06332 


46 


08284 


00400 


32940 




BTM 


6EET.«4^12 










09664 


—8356 






TDM 


INTBUF*7.1,ll 






08356 


15 


03605 








B7 


GOl+12 






08368 


49 


04514 






RCTR 


OS 


2». 


RELOCATION COUNTER 




08376 




2 






RSYMSW 


OS 


Ut 


ON FOR RELOCATABLE 


SYMBOL 


08377 










RLOCSW 


OS 


1ft 


ON FOR RELOCATABLE 




08378 










LPNSH 


OS 


1 






08379 




X 






OIVSW 


OS 


1 






08380 










RNMESS 


DAC 


19, RE-ENTER OPERANDS 






08383 




19 


X 2 






RE-ENTER OPERANDS* 














33030 


MESS2 


DAC 


16. RE-ENTER STMT* 






08421 




16 


X 2 






RE-ENTER STMT* 














33040 


• 




















• 


EPRINT PRINTS THE ERROR 


MESSAGE AND REFERENCE 


TO 












• 


INDICATE THE STATEMENT 


IN ERROR 












a*n7A 




















33080 


tPRINT 


RCTY 








08452 


34 




00102 


33090 




TF 


L0P0UT,INPUT-2 








26 


03827 


02783 


v»i ?n 




WATY 


LOPOUT-B 






08476 


39 


03819 


00100 






MATY 


ERLAB 






08488 


39 


03801 


00100 


33120 




WNTY 


INKRM-3 






08500 


38 


02563 


00100 


33130 




WATY 


EVALER-21 






08512 


39 


07995 


00100 


f ^1 En 




BD 


•4-24,ERSTSW 






08524 


43 


08548 


02476 


33150 




SF 


NONEX tttKILL OBJECT 


PROG. EXECUTION IF ERROR IS DETECTED 


08536 


32 


00457 


nnonn 


33160 




BB 








08548 


42 


00000 


00000 


33170 




00 RG 


•-3 






08556 








33160 


CLOUT 


TR 


INPUT2~ltCLERER 






08556 


31 


03278 


02712 


33190 




TR 


INPUT2^52«CLERER«1 






08568 


31 


03331 


02713 


33200 




TR 


INPUT24^104»CLERER«1 






08580 


31 


03383 


02713 


33210 




TR 


INPUT2«-l55tCLERER«27 






08592 


31 


03434 


02739 


33220 




BB2 








08604 


42 
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33230 • 

33240 • THE SYMBOL TABLE IS SEARCHED FOR EQUIVALENCE 

33250 • 



33260 




TOM 


COLLtO 


08606 


15 


02439 


00000 


33270 




TR 


COLL-l7,COLL-15 


08618 


31 


02422 


02424 


33280 


LBAOD 


TFM 


BLKCTR,0,10,INITIALIZE BLOCK COUNTER 


08630 


16 


03991 


000-0 


33290 




C 


SFAtSYMTAD *tCHK.TO SEE IF THIS IS PARTIAL BLOCK 


08642 


24 


03947 


02643 


33300 




BE 


PARTL 


08654 


46 


08710 


01200 


33310 




AM 


BLKCTR»1,10 


08666 


11 


03991 


OOO-l 


33320 




TR 


LIM-9,LlMTSF-9 


08678 


31 


03832 


039 79 


33330 




TF 


LIM.LIMTSP 


08690 


26 


03841 


02508 


33340 




87 


• ♦20 


08702 


49 


08722 




33350 


PARTL 


TR 


LlM-9,LIMTSP-9 


08710 


31 


03832 


02499 


33360 




BT 


BSERCH,BSERCH-1»>T0 BINARY SEARCH ROUTINE TO FIND SYMBOL 


08722 


27 


09206 


09205 


33370 




BD 


GOTIT •EOSW.,MAS SYMBOL IN TABLE 


08734 


43 


08830 


09433 


33380 




C 


BSBF-l.LIHTSF 


08746 


24 


09457 


03988 


33390 




BNL 


60TIT-24 


08758 


46 


08806 


01300 


33400 




CM 


BLXfOtlO 


08770 


14 


02645 


000-0 


33410 




BNE 


CFIL 


08782 


47 


08922 


01200 


33420 




TF 


SFAtSUBSM^S 


08794 


26 


03947 


03587 


33430 




TFM 


EVALER-2»75000, •CANNOT FIND SYMBOL IN SYMBOL TABLE 


08806 


16 


08014 


P5000 


33440 




BT 


EVALER,EVALER-1 


08818 


27 


08016 


08015 


33450 


GOT IT 


TF 


SFA»SUBSM-f5,,SAVE FILE ADR. OF BLOCK WHERE SYMBOL WAS FOUND. 


08830 


26 


03947 


03587 


33460 




AM 


BSBF-1 tStlO* MOVE SYMBOL ADDRESS 


08842 


11 


09457 


000-5 


33470 




TF 


BETA,BSBF-I,11, INTO BETA 


08854 


26 


02691 


0945P 


33480 




BNF 


•♦48, RELSW 


08866 


44 


08914 


02478 


33490 




BNF 


•♦36, BETA 


08878 


44 


08914 


02691 


33500 




TDM 


RSYMSWt 1*11 


08890 


15 


08377 


0000 J 


33510 




CF 


BETA 


08902 


33 


02691 


00000 


33520 




87 


DIGALF 


08914 


49 


06536 




33530 


CFIL 


TF 


•♦35fSyMTA0 .f INITIALIZE SUB-INSTR. TO READ FIRST FILE BLK 


08922 


26 


08957 


02643 


33540 




AM 


•♦23tSPBL 


08934 


11 


08957 


-0040 


33550 




TFM 


SUBSM^5 


08946 


16 


03587 


-0000 


33560 




TR 


LIM-9,LIMTSF-9»,INITIAL[ZE FOR FULL BLOCK 


08958 


31 


03832 


03979 


33570 




C 


SUBSM^5#SFAf tCHK.IF THIS BLOCK HAS ALREADY BEEN SEARCHED 


08970 


24 


03587 


03947 


33580 




BE 


CMPCNT 


08982 


46 


09090 


01 200 


33590 


• 


SAVE DIGIT AT LOSYMB^l 










33600 




TO 


MURI tLOSYMB^l 


08994 


25 


02633 


19998 


33610 




TO 


LOSYMB^lf SPSGM 


09006 


25 


19998 


02561 


33620 


• 


READ BLOCK OF SYMBOLS FROM FILE 










33630 




TFM 


I0RT«*^23 


09018 


16 


00565 


-9041 


33640 




B 


I06T»0EFSM«7 


09030 


49 


00566 


-3573 


33650 




TO 


LOSYMB^lfMURI 


09042 


25 


19998 


02633 


33660 




BT 


BSERCH,BSERCH-1 


09054 


27 


09206 


09205 


33670 




AM 


BLKCTR,1#10 


09066 


11 


03991 


OOO-l 


33680 




BO 


GOTIT, EQSW 


09078 


43 


08830 


09433 


33690 


CMPCNT 


C 


BLKCTR,BLX 


09090 


24 


03991 


02645 


33700 




BH 


GOTIT-36 


09102 


46 


08794 


01100 


33710 




BL 


CFIL^12 


09114 


47 


08934 


01300 


33720 




C 


SFA,SYMTAO 


09126 


24 


03947 


02643 


33730 




BE 


GOTIT-36 


09138 


46 


08794 


01200 


33740 




TF 


SUBSM+5,SYMTAD ,,MOVE FILE AOOR.OF PARTIAL BLOCK TO SUBIN 


09150 


26 


03587 


02643 


33750 




TR 


LlM-9,LIMTSP-9 


09162 


31 


03832 


02499 


33760 




TF 


LIM,LIMTSF 


09174 


26 


03841 


03988 


33770 




B7 


CFIL+48 


09186 


49 


08970 





33780 • BINARY SYMBOL TABLE SEARCH SUBROUTINE 
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41 


00000 


00000 


n 




ncnc. r*i cdcdxc 


09206 


26 








* 


6S6F9 LIM 


09218 


21 


09458 


0384 1 






Dour 9 1. 1 u 


noof 7 








33830 


TP 


DbAVt DoDr 




26 


09^64 


nOA^R 




* 


R<vRP. R<RP 

DoDrt Door 


oq?S4 


21 


09458 


noA^ft 






OCQC RCRC 

DoDr f DoDr 




21 








A 


ncnc BCAu 


09278 




09458 


09464 




BD 




09290 


43 


09314 


09458 








nQa?f 


1 1 


09457 






CM 


Q en c*. 1 Q 1 n 




12 




nnn-R 




r 


11 CD CI« 1 It M^K 






09457 


03836 




RMP 




not^n 


47 


09364 


01200 




THM 


cncu n 




1 5 


09433 


nnnnn 




BR 7 












33940 


C 


CDLL-Zto5or-lt il 




5A 

ft 


noAnl 




33950 


BNE 


BSNEQ 






noA^^ 


ni onn 






EQSWt l»ll 


noaan 


IK 




0000 J 




BB2 




no Ann 


A? 








BSNEQ BH 


BSHI 


nOAn? 


46 


09434 


01 100 




TF 


LIM, BSBF-1 


nOAIA 


26 


0384 1 


09457 


alni n 


B7 


BSERCH 












BSHI TF 


LIM-5, 8SBF-1 


nQ4^4 


26 


03836 


09457 




87 


BSERCH 


09446 


49 


09206 






EOSW OS 


♦ BSHl-l 


09433 








34040 


BSBF DC 


6.0 


09458 










-00000 










34050 


BSAV DC 


6*0 












-00000 






■ , 






TEST DS 


5 


09469 




5 




34070 


BB2 DC 


6,424272 


09475 










M242 72 












TYPE DS 


2 


09477 




2 






TESTAO DS 


5 


09482 




5 






PLACE DS 


5 


09487 




5 






SUBENT DS 


5 


09492 




5 






CNTR DS 


2 


09494 




2 






TBLEND DS 


5 


09499 




5 






OPER DS 


2 


09501 




2 






BSW OS 


1 


09502 




1 






DSABOX DSC 


lltO* 


09503 




11 






0000000000* 










an 


DS 


1 


09514 








on 


NMOAL DS 


I 


09515 










SMODE DS 


1 


09516 




I 




^49nn 


DMSV DS 


5 


09521 




5 




34210 


DIGITS DS 


5 


09526 




5 




34220 


INSTRUCTIONS TO BRING IN PHASE B6 










34230 


DC 


5,12345 


09531 




5 






J2 345 










34240 


GAT TFM 


CFFA,DFA0D3 


09532 


16 


02631 


-9556 


34250 


BT 


CFF,GAT-l 


09544 


27 


02594 


09531 


34260 


DFADD3 DOA 


•0,B60A0tB6SCT«INSTRN 


09556 




14 






0J9151-29J3094 










34270 


DC 


lt« 


09570 




1 
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34280 
34290 



34300 GIT 
34310 



INSTRUCTIONS TO BRING IN PHASE 85 
DC 5,12345 
J2345 

TFM CFFA,0FAD02 
BT CFF,GIT-1 
34320 DFAD02 DOA ,0,B50AD,B5SCT, INSTRN 

0J9122-29J3094 
34330 DC 1,« 

34340 INSTRUCTIONS TO BRING IN PHASE 84 

34350 DC 5,12345 

J2 34 5 

34360 GETT TFM CFFA.DFADD 
34370 BT CFF,GETT-l 

34360 OFAOO DOA • 0,B4DA0,B4SCT,LINPRT 

OJ 90 63- 5 6- 9722 
34390 DC l,« 

i 

34400 •* INSTRUCTIONS TO RESTORE PHASE 83 
34410 DC 5,12345 

J2345 

34420 GEET TFM CFFA.DFAOOl 

34430 TFM X, PHASES 

34440 BT CFF,GEET-1 

34450 OFADDl DDA ,0,B30AD,B3SCTf B3MAD 

OJ 9000-63-9700 
34460 DC 1 , • 



34470 • 
34480 F3 
34490 
34500 

34510 SUB3 

34520 

34530 
34540 • 
34550 • 
34560 • 
34570 

34580 » 
34590 • 
34600 • 
34610 LINPR 
34620 
34630 
34640 
34650 
34660 
34670 
34680 
34690 • 
34700 • 



TO LOAD PHASE B2 TO THE FILE 
34 SU83»70l 
38 SUB 3 ,702 
TRA 

DDA tO,B2DAO,B2SCT,PHA$EB-12 

0J920O-56-4158 

TCO F3 

OORG F3 

THE ROUTINE WHICH FOLLOWS TAKES CARE OF THE 
OUTPUT FOR THE PROCESSOR 



09576 
09588 
09600 



09620 
09632 
09644 



09663 

09664 
09676 
09688 
09700 

09714 



09716 
09728 
09740 
09752 
09764 

09716 



16 02631 
27 02594 
14 



16 02631 
27 02 594 
14 



16 02631 
16 04008 
27 02594 
14 



34 09764 
38 09764 
36 00000 
49 00000 
14 



-9600 
09575 



-9644 
09619 



-9700 
-4170 
09663 



00701 
00702 
00500 
00000 



DC 5,00000 


09720 




5 




-0000 










IF A TYPED LISTING IS TO BE MADE, TYPE ADDRESS 










BNF »>60,LSTYSW 


09722 


44 


09782 


02480 


CF AODRS-4 


09734 


33 


03486 


00000 


WNTY ADDRS-4 


09746 


38 


03486 


00100 


SF ADDRS-4 


09758 


32 


03486 


00000 


SPTY 


09770 


34 


00000 


00101 


CM LINPRT-1,00INST 


09782 


14 


09721 


J0750 


BE OOINST 


09794 


46 


10750 


01200 


BNF LINPRT-1,LSTVSW,6 


09806 


44 


0972 J 


02480 



IF A DECLARATIVE, ALSO TYPE LENGTH 
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34710 
















34720 




CF 




09818 


33 


02383 


OOOOO 


34 730 




HNTY 


LNTH-4 


09830 


38 


02383 


00100 






SF 


LNTH-4 


09842 


32 


02383 


oonoo 


34750 


RRMCH 
Di\riwn 


B 


LINPRT-1,,6 




49 


0972J 


oonno 




DODS 


BTM 


LST0Ur»»^l2 ..PUNCH OS OR ONB LIST DECK CARD 


09866 




12826 


~9878 


34770 




BD 


XtINTBUF4-6.6 


09878 


43 


0400Q 


03604 






















GENERATE OUTPUT FOR NUMERIC BLANKS 










i2ai n 




















AN 


ADDRSflflO 


n4A4n 




04490 


000— I 






TF 


FRSTAOt AOORS 


noon? 
nooif 


26 






^2ofn 




S 


FRSTAOfLNTH 








02387 






TFM 


TYPE .99. 10 




16 


09477 


000R9 






TFM 


LNTH2,0 


n99^R 


16 


10000 


—OOOO 






BTM 


RELOOG.4,1011 


nQQcn 












BTM 


STACKR.9.10 


naotf 


ia 




nnnZo 






B7 


X..6 




21 








DOCON 


BNF 


PCON.LSTYSW 


nooof 


!:2 


10086 








SPTY 






34 


nnnnn 


00101 


^4910 


LNTH2 


OS 


5.00CQN-(-18 


10000 












BD 


0UMP2-12,DUMP1*1I 


10006 


43 


10062 


03517 


34920 




BNR 


• «^20,2EPO»l 


10018 


45 


10038 


02301 


34930 




B7 


• ♦20 


10030 


49 


10050 








WNTY 


ZEPO+l 


10038 


38 


02301 


00100 






BNF 


0UMP2*12.0UMP1>11 














TO 


0MP0IG.LNTH>1.6 


10062 


25 


03990 


02388 






DNTY 


DMPOIG. .6 


10074 


35 


03990 


00100 




* 


















PUNCH THE CONSTANT CARDS 












* 














35010 




BTM 


LST0UT.«*12 


10086 


17 


12826 


J0098 






BLX 


•♦12.LNTH(1} 


10098 


65 


10110 


023Q7 






TO 


0UT*2(1I.LNTH*1 


10110 


25 


022K0 


02388 






BTM 


REL00G.2.10I1 


10 122 


17 


1 1036 


000-K 






BO 


MESOUT.OMESW 


10134 




10466 


03857 


35060 




BTM 


STACKR.9.10 


10146 


17 


11288 


000*~9 


35070 




B7 


X..6 














BTM 


CVACT.««12 


10166 


17 


12758 


J0178 






BTM 


LST0UT,»tl2 


10178 


17 


12826 


J0190 


^^1 in 




TR 


0UT4-2.ZEP0<«-1 


10190 


31^ 


02220 


02301 






TO 


0UT*7,LNTM*I 


10202 


25 


02225 


02388 






BNF 


•♦36.LSTYSM 


10214 


44 


10250 


02480 


asi an 




SPTY 




10226 


34 


www 


00101 


35140 




WNTY 


DUT*2 


10238 


38 


02220 


00100 


351 SO 




BTM 


REL0D6.2.I0U 


102S0 


17 


11036 


000— K 






AM 


CHSYM^il.l.IO 


10262 




10305 


OOO^l 


35170 




BNF 


CHSYM.IC 








03864 


35 180 




87 


CHSYM*24 


10286 


49 


10318 




35190 


CHSYM 


BNF 


•♦24.DSAB0X-1 


10294 


44 


10318 


09502 


35200 




BTM 


REL0D6.3.1011 


10306 


17 


11036 


000-L 


35210 




BTM 


STACKR.9.10 


10318 


17 


11288 


000-9 


35220 




TFM 


LNTH,5 


10330 


16 


02387 


-0005 


35230 




TR 


ZEP04l.ZEP0^6 


10342 


31 


02301 


02306 


35240 




BNR 


•♦32 .ZEPO^l 


10354 


45 


10386 


02301 


35250 




TDM 


INTBUF.O 


10366 


15 


03598 


OOOOO 



145 



1620 SPS II-D FOR MONITOR II PHASE B PAGE 



35260 




87 


X..6 


10378 


49 


0400Q 




35270 




TF 


FRSTAD.LSTAO 


10386 


26 


03869 


03879 


35280 




AM 


LSTAD.5.10 


10398 


11 


03879 


000-5 


35290 




AM 


AOORS t 5. 10 


10410 


11 


03490 


000-5 


35300 


DUDLEY 


BNF 


•♦36.LSTYSW 


10422 


44 


10458 


02480 


35310 




RCTY 




10434 


34 


OOOOO 


00102 


35320 




TBTY 




10446 


34 


OOOOO 


00108 


35330 




87 


LINPRT 


10458 


^9 


09722 




35340 


• 


THE FOLLOWING ROUTINE HANDLES OUTPUT FOR DMES 










35350 


MESOUT 


TO 


INPUT2^100,0UT^2. 27. MOVE DMES 


10466 


25 


-3379 


-2220 


35360 




AM 


•-6.1.10. DATA 


10478 


11 


10472 


OOO-l 


35370 




AM 


•-13. 1.10. FROM 


1 0490 


11 


10477 


000-1 


35380 




SM 


LNTH.1,10. 0UT^2 


10502 


12 


02387 


000-1 


35390 




BNN 


MESOUT. f« TO INPUT2^10a 


10514 


46 


10466 


01300 


35400 


OOMESS 


TR 


0UT^2.INPUT2^100 


10526 


31 


02220 


03379 


35410 




TFM 


BANAN^11.INPUT2^99 


10538 


16 


10633 


-3378 


35420 




SM 


MES0UT^6.2.10 


10550 


12 


10472 


000-2 


35430 




TFM 


LNTH.O 


10562 


16 


02387 


-0000 


35440 




AM 


LNTH.1,10 


10574 


11 


02387 


000-1 


35450 




AM 


BANAN+11.1.10 


10586 


11 


10633 


000-1 


35460 




C 


BANAN+ll.MES0UT^6 


10598 


24 


10633 


10472 


35470 




BNL 


BANANA 12 


10610 


46 


10634 


01300 


35480 


BANAN 


BNR 


• -48 


10622 


45 


10574 


OOOOO 


35490 




BNR 


•♦24.BANAN^11.11 


10634 


45 


10658 


1063L 


35500 




TDM 


DUMPl^ll.0.11 


10646 


15 


03517 


0000- 


35510 




BTM 


STACKR,9.10 


10658 


17 


11288 


000-9 


35520 




AM 


BANAN+11.1.10 


10670 


11 


10633 


000-1 


35530 




C 


BANAN^11.MES0UT^6 


10682 


24 


10633 


10472 


35540 




BH 


X.,6 


10694 


46 


0400Q 


01100 


35550 




TR 


0UT^2,BANAN^11.11 


10706 


31 


02220 


1063L 


35560 




TF 


FRSTAD.LSTAO 


10718 


26 


03869 


03879 


35570 




SM 


BANAN^ll.1.10 


10730 


12 


10633 


000-1 


355B0 




B7 


OOMESS+36 


10742 


49 


10562 




35590 
















35600 


♦ 


OUTPUT ROUTINE FOR INSTRUCTIONS AND LINKAGES 










35610 


» 














35620 


DOINST 


BTM 


LST0UT.»+12 


10750 


17 


12826 


J0762 


35630 




SF 


ADORS-4 


10762 


32 


03486 


OOOOO 


35640 




TF 


FRSTAO .ADORS 


10774 


26 


03869 


03490 


35650 




BNF 


NOTYPE. LSTYSW 


10786 


44 


10930 


02480 


35660 




TR 


OUT.ZEPO 


10798 


31 


02218 


02300 


35670 




TR 


0UT+3,ZEP0+2 


10810 


31 


02221 


02302 


35680 




TR 


0UT+9.ZEP0+7 


10822 


31 


02227 


02307 


35690 




TD 


0UT+2.LNTH+1 


10834 


25 


02220 


02388 


35700 




TO 


OUT^S.LNTH^l 


10846 


25 


02226 


02388 


35710 




TO 


0UT^14.LNTH^1 


10858 


25 


02232 


02388 


35720 




WNTY 


OUT 


10870 


38 


02218 


00100 


35730 


SPITY 


SPTY 




10882 


34 


OOOOO 


00101 


35740 




WNTY 


0UT^3 


10894 


38 


02221 


00100 


35750 




SPTY 




10906 


34 


OOOOO 


00101 


35760 




WNTY 


OUT+9 


10918 


38 


02227 


00100 


35770 


NOTYPE 


TO 


DIVSW.ZEP0^12 


10930 


25 


08380 


02312 


35780 




TD 


ZEP0^12,LNTH^1 


10942 


25 


02312 


02388 


35790 




TR 


0UT^2 .ZEPO 


10954 


31 


02220 


02300 


35800 




TFM 


LNTH.12 


10966 


16 


02387 


-0012 


35810 




BTM 


RELOOG. 1,1011 


10978 


17 


11036 


000-J 
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35820 




BTM 


STACKR,9,10 


10990 


17 


11288 


000-9 


35830 




TO 


ZEP0-i-12,DIVSU 


11002 


25 


02312 


08380 


35840 




BNR 


SECINS«ZEP04^12 


11014 


45 


11134 


02312 


35850 




B 


X,,6 


11026 


49 


0400Q 


00000 


35860 




DORG 


•-1 


11036 








35870 


RELODG 


TD 


iC»REL0D6-l 


11036 


25 


03864 


11035 


35880 




BNF 


• 4^36,KLRLSW 


11048 


44 


11084 


04003 


35890 




BNF 


•^24fRELSW 


11060 


44 


11084 


02478 


35900 




CF 


IC 


11072 


33 


03864 


00000 


35910 




BD 


•>48,RELSW 


11084 


43 


11132 


02478 


35920 




CM 


ICtltlOll 


11096 


14 


03864 


000- J 


35930 




BNE 


• ♦24 


11108 


47 


11132 


01200 


35940 




TDM 


IC,2,11 


11120 


15 


03864 


OOOOK 


35950 




BB2 




11132 


42 






35960 


SECI NS 


BT 


uLuUi tt'LlJUT-*'i 










35970 




TR 


ZEP0,ZEP0*12 


11146 


31 


02300 


02312 


35980 




AM 


A0DRS»12 


11158 


11 


03490 


-0012 


35990 




BTM 


LST0UTt»*l2 


11170 


17 


12826 


J1182 


36000 




TF 


FRSTAD.LSTAO 


11182 


26 


03869 


03879 


36010 




BNF 


D0INST^36*LSTYSU 


11194 


44 


10786 


02480 


36020 




RC TY 




11206 


34 


00000 


00102 


36030 




DC 

t ' 


lf«»»«4 


11213 




1 




36040 




TBTY 




11218 


34 


00000 


00108 


36050 




CF 


ADDRS-4 


11230 


33 


03486 


00000 


36060 




WNTY 


ADORS-4 


11242 


36 


03486 


00100 


36070 




SF 


AODRS-4 


11254 


32 


03486 


00000 


36080 




SPTY 




11266 


34 


00000 


OOlOl 


36090 




B 


OOINST+36 


11278 


49 


10786 


00000 


36100 




DORG 


•-1 


11288 








36110 


• 














36120 


» 


THE FOLLOWING ROUTINE ARRANGES THE OBJECT OUTPUT TO THE FILE 










36130 


* 















36140 


STACKR 


TO 


STNUCD*13»STACKR-1 


11288 


25 


12343 


11287 


36150 




TF 


LSTAOfFRSTAD 


11300 


26 


03879 


03869 


36160 




A 


LSTAD.LNTH 


11312 


21 


03879 


02387 


36170 




BNF 


NEHCARfFRSTMT,, GO TO NEWCAR IF THIS IS FIRST ENTRY 


11324 


44 


11978 


04002 


36180 




CM 


7TY5,75t«CHK.IF CARD IS EMPTY 


11336 


14 


03862 


-0075 


36190 




BE 


MODIFI 


11348 


46 


12186 


01200 


36200 




BD 


BRSEQ, IC>»CHK. FOR TCO 


11360 


43 


11380 


03864 


36210 




B7 


INOAOR 


11372 


49 


11810 




36220 


BRSEQ 


C 


TESTAO,FRSTA0,,TEST FOR BREAK IN ADDRESS SEQUENCE 


11380 


24 


09482 


03869 


36230 




BNE 


REMAIL 


11392 


47 


11854 


01200 


36240 




C 


TYPE, IC, TEST FOR KIND OF STATEMENT 


11404 


24 


09477 


03864 


36250 




BNE 


NEWU 


11416 


47 


11922 


01200 


36260 




TFM 


TEST,0 ,,DATA IS 


11428 


16 


09469 


-0000 


36270 




TFM 


TRDATA-m,0UT+2 ,, CONTIGUOUS, 60 DIRECTLY 


11440 


16 


11643 


-2220 


36280 




TDM 


OUT-7,0 ,,T0 SEE IF DATA FITS 


11452 


15 


02211 


00000 


36290 


FIT 


S 


7TY5,TEST,, TEST TO SEE IF ADDRS, IND, LEN ETC FITS 


11464 


22 


03862 


09469 


36300 




BNP 


SETFRM,,,NO,GO TO SET FLAG REC.MARK 


11476 


47 


12174 


01100 


36310 




S 


7TY5,LNTH,,N0W SEE IF DATA FITS 


11488 


22 


03862 


02387 


36320 




BNZ 


• ♦24 


11500 


47 


11524 


01200 


36330 




TFM 


7TY5,75 


11512 


16 


03862 


-0075 


36340 




BNL 


CHKRM 


11!>24 


46 


11572 


01300 


36350 




TD 


• ♦22, IC, NO, TEST 


11536 


25 


11558 


03864 


36360 




CM 


•♦8, 20000, 79, FOR 


11548 


14 


11556 


KO-00 
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36370 




BNE 


SETFRM,,, CONSTANT 


11560 


47 


12174 


01200 


36380 


CHKRM 


BNR 


TROATA, OUT-7 


11572 


45 


11632 


02211 


36390 




TD 


TRDATA*6,0UT-7,6 


11584 


25 


1163Q 


02211 


36400 




AM 


ABBA, 1,10 


11596 


U 


04001 


000-1 


36410 




TDM 


OUT-7,0 


11608 


15 


02211 


00000 


36420 




SM 


TEST, 1,10 


11620 


12 


09469 


000-1 


36430 


TROATA 


TR 


ABBA, ,6, MOVE DATA (PLUS AOOR. , INO.LEN, ETC ) TO OUTPUT BUFFER 


11632 


31 


0400J 


00000 


36440 




BNF 


•♦20,7TY5 


11644 


44 


11664 


03862 


36450 




B7 


SPLIT 


11656 


49 


12418 




36460 




A 


STKLEN.LNTH, 6, UPDATE LENGTH 


11664 


21 


0387M 


02387 


36470 




A 


ABBA, TEST 


11676 


21 


04001 


09469 


36480 




A 


ABBA.LNTH 


11688 


21 


04001 


02387 


36490 




TF 


TESTAD.LSTAD,, STORE ADDR.OF LAST POSN.^1 


11700 


26 


09482 


03879 


36500 




TF 


TYPE, IC, STORE INDICCODE. 


11712 


26 


09477 


03864 


36510 




BD 


♦♦36, IC 


11724 


43 


11760 


038 64 


36520 




TD 


TRDATA^6,FLGRM,6 


11736 


25 


1163Q 


03880 


36530 




TFM 


7TY5,75 


11748 


16 


03862 


-0075 


36540 




TDM 


FRSTMT,1,11 


11760 


15 


04002 


OOOOJ 


36550 




BNF 


•♦24,OUMP1^11,,CK.FOR CONST. WHOSE LAST POSN.IS A RECMRK. 


11772 


44 


11796 


03517 


36560 




TDM 


TYPE-I, 1,11, SET INDICATOR THAT CONST.HAS RECORD MARK 


11784 


15 


09476 


OOOOJ 


36570 




TDM 


OUMPl+11 


11796 


15 


03517 


00000 


36580 


REETRN 


BB2 




11808 


42 






36590 


• 


SET UP FOR INDICATOR AND ADDRESS— TCO 










36600 


INOAOR 


TOM 


HUB1^11,6 


11810 


15 


12045 


00006 


36610 




TDM 


HUB1^35,5 


11822 


15 


12069 


00005 


36620 




TFM 


HUB2^11, OUT-7 


11834 


16 


12081 


-2211 


36630 




B7 


HUBl 


11846 


49 


12034 




36640 


• 


SET UP FOR RECMRK. ,ADORESStINOICATOR AND LENGTH 










36650 


REMAIL 


TD 


OUT-7, LNTH^l 


11854 


25 


02211 


02388 


36660 




TDM 


HUBUll,9 


11866 


15 


12045 


00009 


36670 




TDM 


HUBU35,8 


11878 


15 


12069 


00008 


36680 




TFM 


HUB2^11,0UT-6 


11890 


16 


12081 


-2212 


36690 




TF 


0UT-2,FRSTA0 


11902 


26 


02216 


03869 


36700 




B 


HUB 


11914 


49 


12010 


00000 


36710 




DORG 


•-3 


11922 








36720 


• 


SET UP FOR NEW INDICATOR AND LENGTH 










36730 


NEWIL 


TDM 


TYPE-l,,ll,TURN OFF • INDICATOR 


11922 


15 


09476 


0000- 


36740 




TOM 


HUBl^ll,3 


11934 


15 


12045 


00003 


36750 




TOM 


HUB1^3S,2 


11946 


15 


12069 


00002 


36760 




TFM 


HUB2+ll,0UT-l 


11958 


16 


12081 


-2217 


36770 




B 


HUB 


11970 


49 


12010 


00000 


36780 




DORG 


•-3 


11978 








36790 




SET UP FOR NEW 75-DIGIT RECORD- NEW ADDRESS, IND, AND LENGTH. 










36800 


NEWCAR 


TOM 


HUB 1^1 1,8 


11978 


15 


12045 


00008 


36810 




TDM 


HUBl+35,7 


11990 


15 


12069 


00007 


36820 




B 


REMAIL^36 


12002 


49 


11890 


00000 


36830 




DORG 


»-3 


12010 








36840 


HUB 


TO 


OUT-l,IC 


12010 


25 


02217 


03864 


36850 




TFM 


OUT+1,0,10 


12022 


16 


02219 


000-0 


36860 


HUBl 


TFM 


TEST 


12034 


16 


09469 


-0000 


36870 




TF 


STKLEN.ABBA 


12046 


26 


03874 


04001 


36880 




AM 


STKLEN. 


12058 


11 


03874 


-0000 


36890 


HUB2 


TFM 


TRDATA+11, 


12070 


16 


11643 


-0000 


36900 




TD 


•♦22, IC 


12082 


25 


12104 


03864 


36910 




CM 


•+8,40000,79 


12094 


14 


12102 


MO-00 


36920 




BNE 


FIT 


12106 


47 


11464 


01200 
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36930 




A 


0UT4^1»LNTH 


12118 


21 


02219 


02387 


36931 




A 


0UT4^1»LNTH2 


12130 


21 


02219 


10000 


36932 




TF 


LNTH2,LNTH 


12142 


26 


10000 


02387 


36940 




TFM 


LNTH.O 


12154 


16 


02387 


-0000 


36950 




87 


FIT 


12166 


49 


11464 




36960 


• 


SET A FLAGGED RECORD MARK TERMINATING ONE CARD 










36970 


SETFRM 


TO 


TRDATA>6»FL6RM.6 


12174 


25 


11630 


03880 


36980 


MODIFI 


TFM 


7TY5, 75., INITIALIZE FULL CARD COUNTER 


12186 


16 


03862 


-0075 


36990 




TR 


PKM0D,PKM004-5 


12198 


31 


03902 


03907 


37000 




BNR 


STNUCD, PKMOD 


12210 


45 


12330 


03902 


37010 




C 


SUBIN4^5,SUB0UT4-S 


12222 


24 


03539 


03563 


37020 




BNH 


OVRLAP 


12234 


47 


12510 


01100 


37030 


• 


WRITE 3 SECTORS — 4 CARDS — TO THE FILE 










37040 




TFM 


IORT,«+23 


12246 


16 


00565 


J2269 


37050 




B 


I0RBC,0EF0UT*7 


12258 


49 


00520 


-3549 


37060 




BLXM 


• +12, INPUT2*99-PACK-2 U 1 • , CLEAR 


12270 


66 


12282 


004-0 


37070 




TF 


PACK42(l),CLERER4-52t, PACK AREA 


12282 


26 


029P8 


02764 


37080 




BC XH 


•-12,-50(11 


12294 


64 


12282 


OOON- 


37090 




AM 


SUBOUT+5,3,10 


12306 


11 


03563 


000-3 


37100 




TR 


PKM0D,PACKAD-4,, INITIALIZE BUFFER ADDRESSES 


12318 


31 


03902 


03881 


37110 


STNUCD 


TF 


ABBA, PKMOD+4, .ADDRESS OF NEW CARD MOVED TO ABBA 


12330 


26 


04001 


03906 


37120 




B 


•+8,,, BRANCH BACK OR CONTINUE 


12342 


49 


12350 


00000 


37130 




OORG 


•-3 


12350 








37140 




TDM 


OUT-7,0 


12350 


15 


02211 


00000 


37150 




BO 


NEWCAR,IC 


12362 


43 


11978 


03864 


37160 




TF 


ISTTCD.ADDRS 


12374 


26 


03938 


03490 


37170 




TO 


ISTTC0*5,IC 


12386 


25 


03933 


03864 


37180 




TR 


TRDATA46, ISTTCO-10,6 


12398 


31 


11630 


03928 


37190 




B7 


REETRN-60 


12410 


49 


11748 




37200 


• 


ROUTINE TO HANDLE THE CASE WHERE DATA OVERFLOWS FROM ONE 










37210 


* 


CARD TO ANOTHER 










37220 


SPLI T 


A 


LNTH,7TY5 ,, MOVE PARTIAL 


12418 


21 


02387 


03862 


37230 




BLX 


•♦12,LNTH(7},t DATA 


12430 


65 


12442 


0KLQ7 


37240 




TR 


0UT+2,0UT*2I7»,, INTO OUT ^2 


12442 


31 


02220 


OKKKO 


37250 




A 


FRSTAOfLNTH*, OBTAIN ADDRESS OF NEW FIRST DIGIT 


12454 


21 


03869 


02387 


37260 




CF 


7TY5 


12466 


33 


03862 


00000 


37270 




A 


STKLEN,LNTHf6 


12478 


21 


0387M 


02387 


37280 




TF 


LNTH,7TY5 


12490 


26 


02387 


03862 


37290 




87 


MODIFI 


12502 


49 


12186 




37300 


• ERROR ROUTINE — FINAL OUTPUT HAS OVERLAPPED INT. OUTPUT 










37310 


OVRLAP 


TFM 


EVALER-2, 72710 


12510 


16 


08014 


P2710 


37320 




BT 


EPRINT,EPRINT-1 


12522 


27 


08452 


08451 


37330 




B7 


MONCAL 


12534 


49 


00796 




37340 
















37350 


• 


NUMERIC TO ALPHA CONVERTER 










37360 


• 














37370 




OS 


5 


12545 




5 




37380 


FILL 


TR 


FILBUF,FILL-1,11 


12546 


31 


12802 


1254N 


37390 




TFM 


FCHBUF, 70,10 


12558 


16 


12819 


OOOPO 


37400 




TO 


FCHBUF, FtLBUF^4, 11 


12570 


25 


12819 


12800 


37410 




BNF 


•♦60, FCHBUF 


12582 


44 


12642 


12819 


37420 




TDM 


FCHBUF-l, 5»ll 


12594 


15 


12818 


OOOON 


37430 




CF 


FCHBUF 


12606 


33 


12819 


00000 


37440 




BD 


•♦24, FCHBUF 


12618 


43 


12642 


12819 


37450 




TOM 


FCHBUF-l, 2,11 


12630 


15 


12818 


OOOOK 


37460 




BNG 


•♦24, FCHBUF 


12642 


55 


12666 


12819 
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37470 




TFM 


FCHBUF, 47, 10, 


G FOR 


GROUP MARK 


12654 


16 


12819 


OO0M7 


37480 




BNR 


•♦24, FCHBUF 






12666 


45 


12690 


12819 


37490 




TFM 


FCHBUF, 34,10, 


• FOR 


RECORD MARK 


12678 


16 


12819 


000L4 


37500 




TF 


FILBUF+14, FCHBUF, 6 






12690 


26 


12810 


12819 


37510 




AM 


FILBUF+4, 1,10 






12702 


11 


12806 


000-1 


37520 




AM 


FILBUF+14, 2,10 






12714 


11 


12816 


000-2 


37530 




C 


FILBUF+4, FILBUF^9 






12726 


24 


12806 


12811 


37540 




BNH 


FILL+12 






12738 


47 


12558 


01100 


37550 




BB2 








12750 


42 






37560 




OS 


5 






12756 




5 




37570 


CVACr 


TFM 


ACTFIL+5,ZEP0 






12 758 


16 


13070 


-2300 


37580 




A 


ACTFIL+5,LNTH 






12770 


21 


13070 


02387 


37590 




BTM 


FILL,ACTFIL-4 






12782 


17 


12546 


J3061 


37600 




B 


CVACT-1,,6 






12794 


49 


1275P 


00000 


37610 




DORG 


• -3 






12802 








37620 


FILBUF 


OSS 


16 






12802 




16 




37630 


FCHBUF 


OS 


2 






12819 




2 




37640 




DS 


5 






12824 




5 





37650 • rHE FOLLOWING ROUTINE ARRANGES THE OUTPUT OF THE LISTING 

37660 • DECK 



37670 


LSTOUT 


BNF 


GOCL,LSCOSW 


12826 


44 


12978 


02479 


37680 




BTM 


FILL, AORF IL-4, , ADDRESS 


12838 


17 


12546 


J2997 


37690 




TOM 


INPUT2+2^6l-3,7 


12850 


15 


03398 


00007 


37700 




CM 


LINPRT-l,OOINST 


12862 


14 


09721 


J0750 


37710 




BNE 


LSTCON 


12874 


47 


12930 


01200 


37720 




BTM 


FILL, 0PFIL-4>, OP. CODE 


12886 


17 


12546 


J3013 


37730 




BTM 


FILL,PFIL-4,,P-FIEL0 


12898 


17 


12546 


J3029 


37740 




BTM 


FILL,QFIL-4,,Q-FIEL0 


12910 


17 


12546 


J3045 


37750 




B7 


PUNCH 


12922 


49 


12954 




37760 


LSTCON 


BTM 


FILL,LNTHFL-4 


12930 


17 


12546 


J3077 


37770 




TDM 


INPUT2^2^67-3,7 


12942 


15 


03410 


00007 


37780 


PUNCH 


TFM 


IORT,»+23 


12954 


16 


00565 


J2977 


37790 




B 


I0PT,C0PDEF-4,7 


12966 


49 


00532 


-4150 


37800 


GOCL 


BT 


CLOUT, CLOUT-l 


12978 


27 


08556 


08555 


37810 




87 


LSTOUT-1,,6 


12990 


49 


1282N 




37820 


AORFIL 


DSA 


AOORS-4 , AODRS, I NPUT2+2«61-2 


13001 




5 


X 3 










13001 




-3486 












13006 




-3490 












13011 




-3399 




37830 




DC 


l.« 


13012 




I 




37840 


OPFIL 


DSA 


ZEPO ,ZEP0+l,INPUT2>2»67-2 


13017 




5 


X 3 










13017 




-2300 












13022 




-2301 












13027 




-3411 




37850 




DC 


1,« 


13028 




1 




37860 


PFIL 


DSA 


2EP0+2,ZEP0+6,lNPUT2+2^70-2 


13033 




5 


X 3 










13033 




-2302 












13038 




-2306 












13043 




-3417 




37870 




DC 


I,* 


13044 




1 
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37880 


QFIL 


OS A 


2EP0*7,ZEP0*ll, INPUT2*2«76-2 


13049 




5 


X 3 










13049 




-2307 












13054 




-2311 












13059 




-3429 




37890 




DC 
• 


If* 


13060 




1 




37900 


ACTFIL 


OS A 


ZEPO*lt»-» tINPUT2>2»73-2 


13065 




5 


X 3 










13065 




-2301 












13070 




-0000 












13075 




-3423 




37910 




OC 




13076 




1 




37920 


LNTHFL 


OS A 


tNTH-4,LNTM, INPUT2>2»67-2 


13081 




5 


X 3 










13081 




-2383 












13086 




-2387 












13091 




-3411 




37930 




DC 
t 


If' 


13092 




1 




37940 


• 














37950 


• 


ASSEMBLE INSTRUCTION 










37960 


• 














37970 


INSTRN 


TD 


•♦23*ADDC0W 


13094 


25 


13117 


02676 


37980 




TO 


•♦23,AJUST 


• 13106 


25 


13129 


02399 


37990 




AM 


ADOCOMttlO 


13118 


11 


02676 


000-0 


38000 




TFM 


LINPRT-l.OOINST 


13130 


16 


09721 


J0750 


38010 




TO 


ZEPOflNTBUF 


13142 


25 


02300 


03598 


38020 




TD 


ZEPO^l.INTBUF*! 


13154 


25 


02301 


03599 


38030 




BTM 


SCAN, •♦12, 7 11 


13166 


17 


06112 


J317Q 


38040 




TR 


ZEP0+2.CLERER*43 


13178 


31 


02302 


02755 


38050 




TR 


ZEP042,ADDRS-4 


13190 


31 


02302 


03486 


38060 




CF 


ZEP0*2 


13202 


33 


02302 


00000 


38070 




BNF 


•♦24,RL0CSW 


13214 


44 


13238 


08378 


38080 




SF 


ZEPO 


13226 


32 


02300 


00000 


38090 




BTM 


tRSCAN,«+12f7 11 


13238 


17 


06082 


J325- 


38100 




TR 


Z£P0+7,ADDRS-4 


13250 


31 


02307 


03486 


38110 




CF 


ZEPO+7 


13262 


33 


02307 


00000 


38120 




BNF 


•♦24,RL0CSW 


13274 


44 


13298 


08378 


38130 




SF 


ZEPO+1 


13286 


32 


02301 


00000 


38140 




C 


INPUT*18,BMK*6 


13298 


24 


02803 


13513 


38150 




BE 


•+36 


13310 


46 


13346 


01200 


38160 




C 


INPUT«18fBBT«6 


13322 


24 


02803 


13505 


38170 




BNE 


• ♦36 


13334 


47 


13370 


01200 


38180 




BTM 


TRSCAN,^+12 


13346 


17 


06082 


J3358 


38190 




TO 


ZEP0*7,AD0RS 


13358 


25 


02307 


03490 


38200 


• 


SET THE Q-MOOIFIERS 








38210 


OPCODE 


BLXM 


•♦12,-5(11 


13370 


66 


13382 


000-N 


38220 




BNF 


•♦36,INTBUF+7(l) 


13382 


44 


13418 


036-5 


38230 




TD 


ZEPO+12 ( 1) , INTBUF+7U ) 


13394 


25 


023J2 


036-5 


38240 




CF 


ZEP0+12(1J 


13406 


33 


023J2 


00000 


38250 




BCXM 


OPCO0E+12fl(ll 


13418 


64 


13382 


000-1 


38260 


TYPINS 


TF 


ADDRSfADOCOW 


13430 


26 


03490 


02676 


38270 




AM 


AOOCOWfll 


13442 


11 


02676 


-0011 


38280 




C 


INPUT+16.BB2 


13454 


24 


02801 


09475 
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38290 




BNE 


CHKB7 


13466 


4T 


13514 


01200 


38300 




SM 


ADDCOWflOflO 


13478 


12 


02676 


OOOJO 


38310 




B7 


FLAGGR 


13490 


49 


13550 




38320 


BBT 


DAC 
BBT 


4fB8T 


13499 




4 


X 2 


38330 


BMK 


OAC 
BNK 


4fBMK ttf 


' 13507 




4 


X 2 


38340 


CHKB7 


CM 


INPUT*14,4277t8 


13514 


14 


02799 


0M277 


38350 




BNE 


FLAGGR 


I3S26 


47 


13S50 


01200 


38360 




SM 


ADOCOWt 5 


13538 


12 


02676 


-0005 


38370 


• 














38380 


• 


CHECK TO SEE IF THERE IS A FLAG OPERAND 










38390 


• 














38400 


FLAGGR 


TR 


INPUT*19»INPUT*21 


135S0 


31 


02804 


02806 


38410 




BNR 


•♦20,INPUT*20 


13S62 


45 


13582 


02805 


38420 




B7 


SEEIM 


13574 


49 


13626 




38430 




CM 


INPUT+20,23.10 


13582 


14 


02805 


000K3 


38440 




BE 


SEEIM 


13594 


46 


13626 


01200 


38450 




80 


MGRUDR, INPUT+19 


13606 


43 


13782 


02804 


38460 




87 


FLAGGR 


13618 


49 


13550 




38470 


• 














38480 


• 


SET FLAG IF IMMEDIATE INSTRUCTION 










38490 


• 














38500 


SEEIH 


TD 


•♦21,INTBUF 


13626 


25 


13647 


03598 


38510 




CM 


•♦9,1,810 


13638 


14 


13647 


0-0-1 


38520 




BNE 


LINPRT 


13650 


47 


09722 


01200 


38530 




C 


•♦23,INTBUF+1 


13662 


24 


13685 


03599 


38540 




BI 


LINPRT,1215flO 


13674 


46 


09722 


012J5 


38550 




SF 


ZEP04-7 


13686 


32 


02307 


00000 


38560 




BT 


LINPRT 


13698 


49 


09722 




38570 


• 












38580 


• 


SCAN FLAG OPERAND 










38590 


• 














38600 


TRANS 


TR 


INPUT+19,INPUT421 


13706 


31 


02804 


02806 


38610 




BNR 


•♦20,INPUT+20 


13718 


45 


13738 


02805 


38620 




87 


LINPRT 


13730 


49 


09722 




38630 




BO 


•♦20,INPUT*19 


13738 


43 


13758 


02804 


38640 




87 


TRANS 


13750 


49 


13706 


38650 




CM 


lNPUT+20,23tlb 


13758 


14 


02805 


O0OK3 


38660 


MGRUDR 


BE 


LINPRT 


13770 


46 


09722 


01200 


38670 


CM 


INPUT+20,71,10 


13782 


14 


02805 


OOOPl 


38680 




BNE 


ABLE 


13794 


47 


13950 


01200 


38690 




BNR 


•♦20, INPUT^22 


13806 


45 


13826 


02807 


38700 




87 


ABLE 


13818 


49 


13950 




38710 




C 


ZER0NE^9»INPUU22 


13826 


24 


13991 


02807 


38720 




BNE 


BAKR 


13838 


47 


13882 


01200 


38730 




SF 


ZEP0*10 


13850 


32 


02310 


00000 


38740 


Char 


TR 


INPUT+19fINPUT423 


13862 


31 


02804 


02808 


38750 




87 


TRANS+12 


13874 


49 


13718 


38760 


BAKR 


C 


ZER0NE+I1,INPUT*22 


13882 


24 


13993 


02807 


38770 




BNE 


ABLE 


13894 


47 


13950 


01200 


38780 




BNR 


•♦20,INPUT+24 


13906 


45 


13926 


02809 


38790 




87 


ZERONE 


13918 


49 


13982 




38800 




C 


ZER0NE^9,INPUT^2« 


13926 


24 


13991 


02809 


38810 




BNE 


ZERONC 


13938 


47 


13982 


01200 


38820 


ABLE 


TO 


•>18tlN^UT420 


13950 


25 


13968 


02805 



152 



38890 




SF 


lEPO 




13962 


32 


02300 


00000 


38840 




87 


TRANS 




13974 


49 


13706 




38850 


ZERONE 


SF 


ZEPO-fll»7071t8IO 




13982 


32 


02311 


OPOPl 


38860 




B7 


CHAR 




13994 


49 


13862 




38870 


CNT 


OS 


2tCHAR-l 




13861 




2 




38880 


• 
















38890 


• 


EVALUATE LENGTH OF 1 


DS OR DNB 










38900 


• 
















38910 


OSONB 


BTM 


CCAM. •4-12 




14002 


17 


06112 


J4014 


38920 




ff 






14014 


26 


02387 


03490 


38930 




BO 


•»48tlNTBUF«6 




14026 


43 


14074 


03604 


38940 




cn 


LNTHtlOO 




14038 


14 


02387 


-0100 


38950 




BN 


• ♦24 




14050 


47 


14074 


01300 


38960 




TFM 


LNTH,99 




14062 


16 


02387 


-0099 


38970 




TR 


INPUT^19,INPUT«21 




14074 


31 


02804 


02 6 06 


38980 




BTM 


SCANt««12 




14086 


17 


06112 


J4098 


38990 




BO 


•♦32.BSW 




14098 


43 


14130 


09502 


39000 




TD 


KLRLSWiRLOCSN 




14110 


29 


04003 


08378 


39010 




B7 


PROS 




14122 


49 


14198 




39020 


• 
















39030 


• 


ADDRESS ASSIGNED BY 


PROCESSOR 










39040 


• 
















39050 




TF 


ADDRS.ADDCOM 




14130 


26 


03490 


02676 


39060 




A 


AODCOW.LNTH 




14142 


21 


02676 


02387 


39070 




BD 


DSS.INTBUF^S 




14154 


43 


14186 


03603 


39080 




A 


AODRStLNTH 




14166 


21 


03490 


02387 


39090 




B7 


DSS*^12 




14178 


49 


14198 




39100 


DSS 


AM 


ADORS.ltIO 




14186 


11 


b3490 


000-1 


39110 


PROS 


BTM 


LINPRTtDOOS 




14198 


IT 


09722 


-9866 


39120 


















39130 


• 


EVALUATE LENGTH OF 1 


DAS 










39140 


• 
















39150 


DAS 


BTM 


SCAN, •♦12 




14210 


17 


06112 


J4222 


39160 




TF 


LNTH.AODRS 




14222 


26 


02387 


03490 


39170 




A 


LNTH,LNTH 




14234 


21 


02387 


02387 


39180 




TF 


TEMPRtLNTH 




14246 


26 


02972 


02387 


39190 




BNR 


NOADD, INPUT>20 




14258 


45 


14390 


02809 


39200 


• 
















39210 


• 


ADDRESS ASSIGNED BY 


PROCESSOR 










39220 


• 
















39230 




TO 


•♦23,ADDC0M 




14270 


29 


14293 


02676 


39240 




TD 


•♦23,JSTBL 




14282 


29 


14309 


02499 


39250 




AM 


A0DC0M,,10 




14294 


11 


02676 


000-0 


39260 




TF 


AOORS.ADOCOM 




14306 


26 


03490 


02676 


39270 




A 


ADOCOM.TEHPR 




1431B 


21 


02676 


02972 


39280 




SM 


ADOCOW,2,I0 




14330 


12 


02676 


000-2 


39290 




B7 


PROS 




14342 


49 


14198 




39300 


NOADD 


TR 


INPUT^19,INPUT>21 




14350 


31 


02804 


02806 


39310 




BTM 


SCAN, •♦12 




14362 


17 


06112 


J4374 


39320 




BD 


OAS^60,BSW 




14374 


43 


14270 


09902 


39330 




TD 


KLRLSU.RLOCSW 




14366 


29 


04003 


08378 


39340 




B7 


PROS 




14398 


49 


14198 




39350 


• 
















39360 


ft 


DEFINE ORIGIN 












39370 


• 
















39380 


DORG 


BTM 


SCAN, •♦12 




14406 


17 


06112 


J4418 










153 
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39390 




TF 


ADDCOU.ADORS 




14418 


26 


02676 


03490 


39400 


















39410 




SET ADDRESS COUNTER 


TO NEW VALUe 










39420 


















39430 




SM 


ADDC0W,1,10 




14430 


12 


02676 


000-1 


39440 




BNF 


•♦24,AD0C0M 




14442 


44 


14466 


02676 


39450 




TFM 


AODCOW, 99999 




14494 


16 


02676 


R9999 


39460 


ECLATl 


CF 


ADDRS-4 




144*6 


33 


03486 


00000 


39470 




BNF 


•♦24,LSTYSH 




1447B 


44 


14902 


02480 


39480 




MNTY 


ADDRS«4 




14490 


38 


03486 


00100 


39490 




BNF 


•♦36,LSCDSM 




14902 


44 


14938 


02479 


39500 




BTM 


FILL,ADRFIL->4 




14914 


17 


12946 


J2997 


39510 




MACD 


tNPUT2 




14926 


99 


03279 


00400 


39520 




B7 


PHASEB 




14938 


49 


04170 




39530 


















39540 




DEFINE CONSTANT AND 


DEFINE SPECIAL CONSTANT 










39550 


















39560 


DC 


TD 


DC ♦23,INTBUF»5 




14946 


29 


14969 


03603 


39570 




CF 


CCOMER 




14998 


33 


14698 


00000 


39580 




TFM 


SFLAOll, 00000 




14970 


16 


14897 


-0000 


39590 




BTM 


SCAN,*^12 




14982 


17 


06112 


J4594 


39600 




TF 


LNTH,ADORS 




14994 


26 


02387 


03490 


39610 




CM 


LNTH,51 




14606 


14 


02387 


-0051 


39620 




BL 


• ♦24 




14618 


47 


14642 


01300 


~ 39630 




TFM 


LNTH,50 




14690 


16 


02387 


-0050 


39640 




TR 


ZEP0-1,CLERER 




14642 


31 


02299 


02712 


39650 




TO 


ZEPO^Sl.LNTH^l 




14694 


29 


02391 


02388 


39660 




SF 


ZEPO 




14666 


32 


02300 


00000 


39670 




TFM 


SFLAG^l, 41,10, 


CHANGE SF TO NOP 


14678 


16 


14187 


OOOMl 


39680 




87 


TRREC^12 




14690 


49 


14874 




39690 


CCOMER 


CM 


INPUT^22, 23,10 




14698 


14 


02807 


000K3 


39700 




BE 


TRREC+24 




14710 


46 


14886 


01200 


39710 




BH 


TRREC-72 




14722 


46 


14790 


01100 


39720 




CM 


INPUT>22, 20,10, 


IF SF ON UNITS DIGIT Of CON 


14734 


14 


02807 


OOOKO 


39730 




BNE 


TRREC, 


IGNORE ♦ 


14746 


47 


14862 


01200 


39740 




SF 


CCOMER 




14798 


32 


14698 


00000 


39750 




TFM 


SFLAG^l, 32,10, 


CHANGE NOP TO SF 


14770 


16 


14887 


000L2 


39760 




87 


TRREC 




14782 


49 


14862 




39770 


















39780 


» 


COLLECT CONSTANT 












39790 


















39800 




TF 


SFLAG^11,INPUT^22 




14790 


26 


14897 


02807 


398 10 




TD 


ZEP04^51»INPUT«-22 




14802 


25 


02351 


02807 


39820 




CN 


INPUT^22, 60,10 




14814 


14 


02807 


00000 


39830 




BP 


•♦24 




14826 


46 


14850 


01100 


39840 




SF 


ZEPO+51 




16898 


32 


02351 


00000 


39850 




TR 


ZEP0,ZEP04^1 




16890 


31 


02300 


02301 


39860 


TRREC 


TR 


INPUT^19,INPUT421 




14t62 


31 


02804 


02806 


39870 




BNR 


CCOMER* INPUT^22 




14874 


49 


14698 


02807 


39880 


SFLAG 


SF 


ZEPO^SO 




14886 


32 


02350 


00000 


39890 




CM 


•-1,34,10 




14898 


14 


14897 


00OL4 


39900 




BNE 


•♦72 




14910 


47 


14982 


01200 


39910 




BNF 


•♦36,ZEP0«50 




14922 


44 


14958 


02350 


39920 




BNF 


•♦24, CCOMER 




14934 


44 


14958 


14698 


39930 




SF 


ZeP0^49 




14946 


32 


02349 


00000 


39940 




TD 


ZEP0450,I.NTH«1 




14998 


29 


02350 


02388 
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39950 




TOM 


0UMP1^11»,11 


14970 


15 


03517 


0000- 


39960 




SF 


ZEPO 


14982 


32 


02300 


00000 


39970 




C 


LNTH«INTBUF^4 


14994 


24 


02387 


03602 


39980 




BNN 


•♦24 


15006 


46 


15030 


01300 


39990 




TF 


LNTH»INTBUF«4 


15018 


26 


02387 


03602 


40000 




TFM 


•♦35«ZEP0»50 


15030 


16 


15065 


-2350 


40010 




S 


•♦23tLNTH 


15042 


22 


15065 


02387 


40020 




TR 


ZEPO 


15054 


31 


02300 


00000 


40030 




BO 


•♦24tOC ^23 


. 15066 


43 


15090 


14569 


40040 




SF 


ZEP0*1 


15078 


32 


02301 


00000 


40050 




BNR 


•♦24fZEP0«l 


15090 


45 


15114 


02301 


40060 




OF 


ZEP041 


15102 


33 


02301 


00000 


40070 




BNR 


CHECK .INPUT* 22 


15114 


45 


15306 


02807 


40080 


• 














40090 




AOORESS ASSIGNED BY PROCESSOR 










40100 


• 














40110 


GOAHD 


TF 


AOORStAOOCOW 


15126 


26 


03490 


02676 


40120 




A 


AOOCOWtLNTH 


15138 


21 


02676 


02387 


40130 




TF 


LSTAOvADOCOW 


15150 


26 


03879 


02676 


40140 




AM 


LSTAO .ItlO 


15162 


11 


03879 


000-1 


40150 




BD 


DSC .DC 423 


15174 


43 


15210 


14569 


40160 




A 


ADDRS.LNTH 


15186 


21 


03490 


02387 


40170 




B 


DSC*12 


15198 


49 


15222 


00000 


40180 


DSC 


AM 


AODRS.ltlO 


15210 


11 


03490 


000-1 


40190 




TR 


0UT*2tZEP04-l 


15222 


31 


02220 


02301 


40200 




TF 


FRSTAOt LSTAO 


15234 


26 


03869 


03879 


40210 




S 


FRSTAD tLNTH 


15246 


22 


03869 


02387 


40220 




BNF 


•♦36»DUNP1*11 


15258 


44 


15294 


03517 


40230 




BNR 


•♦24,ZEP0*1 


15270 


45 


15294 


02301 


40240 




TDM 


DUMPU11,1,11 


15282 


15 


03517 


OOOOJ 


40250 


PRDCSA 


BTM 


LINPRTtOOCON 


15294 


17 


09722 


-9982 


40260 


CHECK 


TR 


lNPUT*19f INPUT*23 


15306 


31 


02804 


02808 


40270 




BTM 


SCAN««*12 


15318 


17 


06112 


J5330 


40280 




BO 


6OAH0.BSW 


15330 


43 


15126 


09502 


40290 




TO 


KLRLSH»RLOCSW 


15342 


25 


04003 


08378 


40300 


• 














40310 


• 


AOORESS ASSIGNED BY PROGRAMMER 










40320 


• 














40330 




TF 


LSTAO .AODRS 


15354 


26 


03879 


03490 


40340 




BD 


•♦32, DC ^23 


15366 


43 


15398 


14569 


40350 




AM 


LSTAO ,1,10 


15378 


11 


03879 


,000-1 


40360 




87 


DSC^12 


15390 


49 


15222 




40370 




A 


LSTAO ,LNTH 


15398 


21 


03879 


02387 


40360 




B7 


0SC^12 


15410 


49 


15222 




40390 


••FLIP 


BRANCH TABLE 










40400 


DODSF 


BTM 


LINPRTtOOOS 


15418 


17 


09722 


-9866 


40410 


OOCONF 


BTM 


LINPRT.OOCON 


15430 


17 


09722 


-9982 


40420 


POSAF 


BTM 


LINPRT,PDSA 


15442 


17 


09722 


JO 166 


40430 


PCONF 


BTM 


LINPRTtPCON 


15454 


17 


09722 


J0086 


40440 


LINP 


BTM 


LINPRTtDOINST 


15466 


17 


09722 


J0750 


40450 


DSB 


BTM 


GETT,DSBF 


15478 


17 


09620 


-9722 


40460 


LINKSF 


BTM 


6ETT, LINKS 


15490 


17 


09620 


J4692 


40470 


CALLEX 


BTM 


6ETT,CALEXT 


15502 


17 


09620 


J4920 


40480 


TRA 


BTM 


GIT.MTRA 


15514 


17 


09576 


J4476 


40490 


MACRO 


BTM 


GIT.HACROF 


15526 


17 


09576 


J3722 


40500 


DSA 


BTM 


GIT.DSAF 


15538 


17 


09576 


J3406 
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40510 


□END 


BTM 


GIT.OENDF 


15550 


17 


09576 


J5136 


40520 


ODA 


BTM 


GIT.OOAF 


15562 


17 


09576 


J4030 


40530 


OGM 


BTM 


GETT.DGMF 


15574 


17 


09620 


-9914 


40540 


DVLC 


BTM 


GETT,0VLCF 


15586 


17 


09620 


J0070 


40550 


RSTR 


BTM 


GETT,RSTRF 


15598 


17 


09620 


J0686 


40560 


SAVE 


BTM 


6ETT,SAVEF 


15610 


17 


09620 


J0940 


405 70 


ONES 


BTM 


GETT,DMESF 


15622 


17 


09620 


J1602 


40580 


DOTCL 


BTM 


GET T, DOT 


15634 


17 


09620 


J3288 


40590 


DAC 


BTM 


GBTT.OACF 


15646 


17 


09620 


J3748 


40600 


MAC2 


BTM 


GAT,MACR2 


15658 


17 


09532 


J3406 


40610 


• 


LOAD PHASE B3 TO THE FILE 










40620 


F2 


34 


SUB2f701 


15670 


34 


15718 


00701 


40630 




WN 


SUB2f 702 


15682 


38 


15718 


00702 


40640 




TRA 




15694 


36 


00000 


00500 










15706 


49 


00000 


00000 


40650 


SUB2 


ODA 


tO.B3DAO,B3SCT.B3MAO 


15718 




14 








OJ 90 00- 63- 97 00 










40660 




TCO 


F2 


15670 








40670 




00 R6 


LINPRT 


09722 








40680 


• 














40690 


• 


EVALUATE LENGTH OF DSB 










40700 


• 














40710 


OSBF 


BTM 


SCAN,«^12 


09722 


17 


06112 


-9734 


40720 




TF 


LNTH»ADORS 


09734 


26 


02387 


03490 


40730 




TR 


INPUT^19,INPUT*21 


09746 


31 


02804 


02806 


40740 




BTM 


SCANt*^12 


09758 


17 


06112 


-9770 


40750 




BNF 


•♦24,BSU 


09770 


44 


09794 


09502 


40760 




TFM 


AODRS.l 


09782 


16 


03490 


-0001 


40770 




M 


LNTH.AODRS 


09794 


23 


02387 


03490 


40780 




SF 


95 


09806 


32 


00095 


00000 


40790 




TR 


INPUT^19,INPUT*21 


09818 


31 


02804 


02806 


40800 




BTM 


SCANf«^12 


09830 


17 


06112 


-9842 


40810 




BNF 


ASINE, BSW 


09842 


44 


09890 


09502 


40820 


• 














40830 


• 


AOORESS ASSIGNED BY PROCiSSOR 










40840 


• 














40850 




A 


LNTH.AOOCOW 


098S4 


21 


02387 


02676 


40860 




TF 


AOORSvLNTH 


09866 


26 


03490 


02387 


40870 




A 


A00C0W«99 


09878 


21 


02676 


00099- 


40880 


• 












40890 


• 


AOORESS ASSI6MC0 BY PROGRANNER 










40900 


• 














40910 


ASINE 


TF 


LNTH,99 


09890 


26 


02387 


00099 


40920 




BTM 


GEETtOOOSF 


09902 


17 


09664 


J5418 


40930 


• 














40940 


• 


DEFINE FILE GROUP NARK 










40950 


• 














40960 


DGMF 


TFM 


LNTH.l 


09914 


16 


02387 


-0001 


40970 




BTM 


SCAN.OI2 


09926 


17 


06112 


-9938 


40980 




TO 


RLRLSM.RtOCSM 


09938 


29 


04003 


08378 


40990 




BNF 


•♦48.BSM 


099S0 


44 


09998 


09502 


41000 




AM 


AOOCOW,! 


09962 


tl 


02676 


-0001 


41010 




TF 


AOORStAOOCOM 


09974 


H 


03490 


02676 


41020 




TOM 


KLRLSHcttll 


09986 


IS 


04003 


OOOOJ 


41030 




TF 


FRSTAO tAOORS 


09998 


26 


03869 


03490 



41040 




TF 


LSTAD (ADDRS 


10010 


26 


03879 


03490 


41050 




AM 


LSTAD tltTlO 


10022 


11 


03879 


-00- 1 


41060 




TD 


0UT-f2tSPS6M 


10034 


25 


02220 


02561 


41070 




TDM 


OUMPl^lltltll 


10046 


15 


03517 


OOOOJ 


41080 




BTM 


GEET.PCONF 


10058 


17 


09664 


J 5454 


41090 


• 














41100 


• DEFINE VARIABLE LENGTH ADDRESS CONSTANT 










41110 


* 














41120 


DVLCF 


BTM 


SCAN* •♦12 


10070 


17 


06112 


J0082 


41 1 30 




TO 


KLRLSWtRLOCSH 


10082 


25 


04003 


08378 


41140 




TF 


DVADBF^lIt ADDRS 


10094 


26 


10601 


03490 


41 1 50 




SF 


0VSW2 


10106 


32 


10491 


00000 


41160 




CF 


DVSWl 


10118 


33 


10490 


00000 


41170 




BNF 


• -*-36tBSW 


10130 


44 


10166 


09502 


41 180 


DVASGN 


SF 


DVSWlfft MACHINE ASSIGNS ADDRESS 


10142 


32 


10490 


00000 


41 190 




TDM 


KLRLSWtlfll 


10154 


15 


04003 


OOOOJ 


41200 




TR 


INPUT+19. INPUT*2l 


10166 


31 


02804 


02806 


41210 




BTM 


SCAN* •♦12 


10178 


17 


06112 


J0190 


41220 




TF 


LNTH* ADDRS 


10190 


26 


02387 


03490 


41230 




TR 


OUT* CLERER^l 


10202 


31 


02218 


02713 


41240 




TFM 


DVTR«'6* 0UT*2 


10214 


16 


10508 


-2220 


41250 


DVLP 


CM 


LNTH* 00050 


10226 


14 


02387 


-0050 


41260 




BMP 


• ♦48 


10238 


47 


10286 


01100 


41270 




SM 


LNTH*50»10 


10250 


12 


02387 


OOONO 


41280 




S 


ADDRS* LNTH 


10262 


22 


03490 


02387 


41290 




TF M 


LNTH* 50 


10274 


16 


02387 


-0050 


41300 




BN F 


•♦8*12* DVSH2 


10286 


44 


10382 


10491 


41310 




BNF 


•♦36* DVSWl 


10298 


44 


10334 


10490 


41320 




TF 


DVADBF^l 1 « ADDCOW 


10310 


26 


10601 


02676 


41330 




A 


DVADBF+ll* LNTH 


10322 


21 


10601 


02387 


4 1340 




TF 


LSTAD * DVAOBF^ll 


10334 


26 


03879 


10601 


41 350 




S 


LSTAD * LNTH 


10346 


22 


03879 


02387 


41360 




AM 


LSTAD * 1 


10358 


11 


03879 


-0001 


41370 




CF 


DVSW2 


10370 


33 


10491 


00000 


4 1380 




TR 


ZEPO* CLERER^2 


10382 


31 


02300 


02714 


41390 




TFM 


DVSF^6* ZEPO^Sl 


10394 


16 


10496 


-2351 


41400 




S 


DVSF^6» ADDRS 


10406 


22 


10496 


03490 


41410 




TF 


DVAD^ll* ADDRS 


10418 


26 


10525 


03490 


41420 




TR 


INPUT+19* INPUT^21 


10430 


31 


02804 


02806 


41430 




BTM 


SCAN* •♦12 


10442 


17 


06112 


J0454 


41490 




CF 


ADDRS-4 


10454 


33 


03486 


00000 


41500 




TF 


ZEPO+50* ADDRS 


10466 


26 


02350 


03490 






CF 


ZEPO^ 50-9 


10478 


33 


02341 


00000 


41 520 


DVSF 


SF 


00000* *2 


10490 


32 


.0000 


00000 


41530 


OVTR 


TR 


•-•♦ DVSF+6t211 


10502 


31 


-0000 


10490 


41540 


OVAD 


AM 


0VTR^6, 00000 


10514 


11 


10508 


-0000 


41550 




BNR 


• ♦20* INPUT4-20 


10526 


45 


10546 


02805 


41 560 




87 


DVADBF 


10538 


49 


10590 




41570 




TR 


INPUT^19> INPUT«21 


10546 


31 


02804 


02806 


41580 




BTM 


SCAN* •♦12 


10558 


17 


06112 


JO 5 70 


41590 




A 


LNTH* ADDRS 


10570 


21 


02387 


03490 


41600 




B7 


DVLP 


10582 


49 


10226 




41610 


DVADBF 


TFM 


ADDRS t 00000 


10590 


14 


03490 


-0000 


41620 




A 


LSTAD • LNTH 


10602 


21 


03879 


02387 


41630 




BNF 


•♦24* DVSWl 


10614 


44 


10638 


10490 


41640 




A 


ADDCOW, LNTH 


10626 


21 


02676 


02387 










1 a* 
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PAGE 


41650 




TR 


ZEPO^l. 0UT^2 


10638 


31 


02301 


02220 


41660 




TF 


FRSTAD*LSTAO 


10650 


26 


03869 


03879 


41670 




S 


FRSTAO>LNTH 


10662 


22 


03869 


02387 


41680 




BTM 


GEETvOOCONF 


10674 


17 


09664 


J5430 


41690 


OVSMl 


DS 


• DVSF 


10490 




0 




41700 


0VSW2 


DS 


t DVSF^l 


10491 




0 




41710 


RSTRF 


TO 


•♦23»ADDC0Wf • ADJUST 


10686 


25 


10709 


02676 


41720 




TD 


•♦23«AJUST*t LOCATION 


10698 


25 


10721 


02399 


41730 




AM 


ADDCOW* • 10 • COUNTER 


10710 


It 


02676 


000-0 


41740 




TF 


TEMP* ADDCOW 


10722 


26 


02711 


02676 


41750 




TF 


PRSTAD * ADDCOW 


10754 


26 


03869 


02676 


41760 




AM 


ADDC0W,23«, UPDATE LOC COUNTER BY MACRO EXPANSION 


10746 


11 


02676 


-0023 


41770 




TF 


LSTAD tAODCOW 


10758 


26 


03879 


02676 


41780 




TR 


ZEPO.RSINt* MOVE EXPANSION INTO WORK BUFFER 


10770 


31 


02300 


10914 


41790 




BTM 


SCAN, •♦12* • FIND NUMERIC EQUIV OF 1ST OPERAND 


10782 


17 


06112 


J0794 


41800 




BNF 


•♦24*BSW 


10794 


44 


10818 


09502 


41810 




TFM 


ADDRS, 80 


10806 


16 


03490 


-0080 


41820 




CF 


ADDRS-4,,, MOVE 1ST 


10818 


33 


03486 


00000 


41830 




TR 


ZEP0^2,ADDRS-4t, OPERAND INTO NACIIO EXPANSION. 


10830 


31 


02302 


03486 


41840 




TR 


INPUT^19,INPUT^21,, 60 ANO GET 


10842 


31 


02804 


02806 


41850 




BTM 


SCAN, •♦12, • NUMERIC EQUIVALENT OF NEXT OPERAND 


10854 


17 


06112 


J0866 


41860 




TF 


ZEPO^ll, ADDRS,* INTO MACRO EXPANSION 


10866 


26 


02311 


03490 


41870 




CF 


ZEPO+7 


10878 


33 


02307 


00000 


41880 




TF 


ADDRS, TEMP 


10890 


26 


03490 


02711 


41890 




BTM 


6EET*LINP 


10902 


17 


09664 


J 5466 


41900 


• MACRO EXPANSION FOLLOMS 










41910 


RSIN 


TR 


0*0 


10914 


31 


00000 


00000 


41920 




TOM 


100,0 


10926 


15 


00100 


00000 


41930 




DC 
« 


I*' 


10938 




1 




41940 


SAVEF 


TO 


•♦23*A0DC0W,, ADJUST 


10940 


25 


10963 


02676 


41950 




TD 


•♦23,AJUST,, LOCATION 


10952 


25 


10975 


02399 


41960 




AM 


ADDCOW* ,10, COUNTER 


10964 


11 


02676 


000-0 


41970 




TF 


TEMP (ADDCOW 


10976 


26 


02711 


02676 


41980 




TF 


FRSTAO * ADDCOW 


10988 


26 


03869 


02676 


41990 




AM 


ADDC0W*35,, UPDATE COUNTER BY NACRO EXPANSION 


11000 


u 


02676 


-0035 


42000 




TF 


LSTAD •ADDCOW 


11012 


26 


03879 


02676 


42010 




TR 


ZEPO, SAVIN,, MOVE MACRO EXPANSION INTO WORK BUFFER 


11024 


31 


02300 


11180 


42020 




BTM 


SCAN*^^12,* FIND NUMERIC EQUIV OF 1ST OPERAND 


11036 


17 


06112 


J1048 


42030 




CF 


AODRS-4**, MOVE 1ST 


11048 


33 


03486 


00000 


42040 




TR 


ZEP0^14, ADDRS-4** OPERAND INTO MACRO EXPANSION 


11060 


31 


02314 


03486 


42050 




TR 


lNPUT^19,tNPUT^21,, GO ♦ GET 


11072 


31 


02804 


02806 


42060 




BTM 


SCAN, •♦12** NUMERIC EQUIVALENT OF NEXT OPERAND 


11084 


17 


06112 


J1096 


42070 




BNF 


•♦24,BSW 


11096 


44 


11120 


09502 


42080 




TFM 


ADDRS *80 


1 1 108 


16 


03490 


-0080 


42090 




TF 


ZEP0^23, ADDRS,, OPERAND INTO MACRO EXPANSION 


11120 


26 


02323 


03490 


42100 




CF 


ZEP0^19 


11132 


33 


02319 


00000 


421 10 




TDM 


ZEPO^U.O,, MOVE RECORD MARK IN EXPANSION 


11144 


15 


02311 


00000 


42120 




DC 
• 


!,•,• 


11155 




1 




42130 




TDM 


0UMP1^11,1,1I 


11156 


IS 


03517 


OOOOJ 


42140 




B 


RSIN-24 


11168 


49 


10890 


00000 


42150 


• MACRO EXPANSION FOLLOWS 










42160 


SAVIN 


TOM 


100,0 


11180 


15 


00100 


00000 


42170 




TR 




11192 


31 


00000 


00000 


42180 




TDM 


100 . ;. " -- / 


11204 


15 


00100 


00000 



158 
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42190 




DC 


42200 


• SUBROUTIf 


42210 


ANAL 


CM 


42220 




BNE 


42230 




TF 


42240 




TR 


42250 




TFM 


42260 






42270 


ANALl 


BE 


42280 




CM 


42290 




BE 


42300 




SM 


42310 






42320 


ANAL2 


TF 


42330 




AM 


42340 




jp 


42350 




SM 


42360 


ANL IC 


TD 


42370 


ANLIB 


CM 


42380 




BE 


42390 


ANLIA 


BO 


42400 




B7 


42410 


ANAL 3 


BO 


42420 






42430 


ANAL4 


BO 


42440 




TF 


42450 




TOM 


42460 


ANAL41 


AM 


42470 




jft 


42480 




TOM 


42490 




DSC 
t 


42500 




CF 


42510 




B 


42520 




DSC 








42530 




DC 






N7 


42540 




DSC 






3 


42550 




DC 






M3 


42560 




DSC 








42570 




DC 






M2 


42580 




DSC 






5 


42590 




DC 






Ml 


42600 




DSC 


42610 




8 

DC 






N9 


42620 




DSC 






7 



If* 11216 

E TO PROCESS CONTROL CHARACTER PHA 

INPUT*24,4,l0f 1ST CHECK IF RT. PAREN. IS PRESENT 11218 

ANAL4,«, NO LEFT PAREN., ERROR 11230 

ANALl*llf INPUT+22,t MOVE CHAR TO ANOTHER LOCATION 11242 

INPUT*19,INPUT*23,, POSITION INPUT RECORD 11254 
»+23,CCHAR,, BEGIN CHECKING CONTROL CHAR. 1ST INITITIALIZE 11266 

ANALl^llttf ADDRESSES. CHECK CHARACTERS 11278 

ANAL2,,10, CHARACTER FOUND 11290 

ANALl-l,CCHAR-24,, SEE IF SEARCH IS FINISHED 11302 

ANAL4,,, YES, NO CONTROL CHARACTER FOUND 11314 

ANALl-1,3,10, NOT FINISHED, MODIFY ADDRESS 1132^ 

ANALl>12f,, BRANCH BACK TO CONtlNUE SEARCH 11338 

ANL1C«11,ANAL1-1,, PREPARE TO MOVE CONTROL CHARACTER 11350 

DIGITS, 1,10, SET ADDRESS TO MOVE 11362 

•♦30, DIGITS,, DIGIT INTO OUTPUT BUFFER 11374 
•♦23,2,10, PREPARE TO SET CONTROL CHARACTER IN OUTPUT BUFFER 11386 

f,, ,,t INSERT CONTROL DIGIT 11398 

ANAL1^11,54,10,SEE IF ITS A NODE CHANGE 11410 

ANAL3 11422 

OMSNUMrNMOAL,, SCANNING FOR NUM MODE 11434 

OMSdl*,, SCANNING FOR ALPHA NODE 11446 

0MES2,NM0AL,, CHANGE FROM ALPHA TO NUMERIC 114S4 

OMSNMl,,, CHANGE FROM NUMERIC TO ALPHA 11466 

ANAL41«NM0AL,. CHECK TO SEE IF ALPHA OR NUMERIC 11478 
•♦18, DIGITS, tPREPARE TO CLEAR LOCATION PREVIOUSLY SET MITH 7 11490 

ttf CLEAR LOCATION 11502 

DIGITS, 1,10* SET IN NEXT LOCATION 11514 

•♦18,0IGITS 11526 

.t, 11538 

1,«,» 11549 

ANAL,,, RESET STRAY PAREN SWITCH 11550 

ANLIA 11562 

1,1 11574 

2,57 11576 

1»3 11577 

2,43 11579 

1.4 11580 
2,42 11582 

1.5 11583 
2,41 11585 
1,8 11586 
2,59 11588 
lf7 11589 



14 02809 
47 11478 

11301 
02804 
11289 
11301 
11350 
11289 
11478 
11289 
11278 
11409 
09526 
11404 
11409 
00000 
11301 
11454 
12086 
11842 
12318 
12074 
11514 
11508 

15 00000 
11 09526 
26 11544 
15 00000 

1 



33 11218 
49 11434 
1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 



000-4 
01200 
02807 
02808 
J1600 
00000 
012-0 
J1576 
01200 
000-3 
00000 
11289 
000- 1 
09526 
000-2 
00000 
000N4 
01200 
09515 

09515 
00000 
09515 
09526 
00000 
000-1 
09526 
00000 



00000 
00000 



15a 
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-PHASE B 



42630 
42640 
42650 
42660 
42670 
42680 

42690 CCHAR 



DC 


2,62 


02 




DSC 


1.6 


6 




DC 


2,63 


03 




DSC 


1,2 


2 




DC 
N4 


2.54 


DSC 


1.9 


9 




DC 


2,46 


M6 





42700 
42710 
42720 
42730 
42740 
42750 
42760 
42770 
42780 
42790 
42800 
42810 
42820 
42830 
42840 
42850 
42860 
42870 
42880 
42890 
42900 
42910 
42920 
42930 
42940 
42950 
42960 
42970 
42980 



• PROGRAM TO PROCESS DMES. PHASEB 

OMESF BTM SCAN, •♦ 12 ,, EVALUATE ADDRESS OPERAND TO FIND NUM. VALUE 
TDM DMESW, 1,11, SET SWIVCH TO REPLACE - WITH 
TDM SMOOE,,, RESET STARTING MODE SWITCH 
TR OUT.CLERER,, CLEAR 
TR OUT*50,CLERER*1,, OUTPUT BUFFER 
TFM DIGITS, 0UT*1,, INITIALIZE 

BNR •♦24,INPUT^20,. CHECK TO SEE OF BREAKER A RM 

B OMSERl 

TFM M0DEU6,DMESDr.FIN0 STARTING MODE 
BTM MODE, •♦12 

BNF OMESA,BSW,. ALPHA CHAR. IN FIELD, ASSUME ALPHA MODE. CHECK 
TDM KLRLSM,1,11 

TD •♦23,ADDC0W.,T0 SEE IF ADDRESS OP PR6RAMMER OR PROCESSOR 
TD •♦23, JSTBL.. ASSIGNED PROCESSOR IF NO BRANCH FROM PREV INST. 
AM AODCOMf. 10. ADJUST LOCATION COUNTER 
TF AODRS.ADDCOW.. SET ADDRESS OF MESSAGE TO 2N0 OIOIT 
SM AD0C0W,2.10. SET LOC COUNTER TO LOC BEFORE MESSAGE 
TFM MODEU6.0MESB.. SEARCH FOR COMMA 
BTM MODE, MODE.. ENDING FIELD 

TDM NMOAL,,, SET SWITCH FOR ALPHA FIELD* 

BTM DTR.OMESC., SCAN MESSAGE OPERAND 
DIGITS, 1.10. 

•♦18, DIGITS., PREPARE TO MOVE IN 0 
•0MS82-2 

0IGITS,2,10, LEFT PAREN UPDATE DIGIT COUNT BY TWO 
•♦18, DIGITS.. ALLOW FOR CONTROL CHAR IN OUT PUT BUFFER 
... INSERT EVERYTHING EXCEPT FINAL CONTROL DIGIT 
2, •,•-2 



DMESA 



DMESB 
OMSBl 



42990 DMSB2 

43000 
43010 
43020 

43030 DMESC 

43040 

43050 

43060 

43070 

43080 

43090 



TF 
TR 
AM 

TF 
TDM 
DSC 
0« 
DSC 
7 

BNF 
B 



lt7,» 



ANAL.ANAL.. STRAY PAREN NOT FOUND IF BRANCH 
ANAL4.,. STRAY PAREN 

DORG ^-3 

AM DIGITS, 2.10, UPDATE DIGIT COUNT BY 2 

•♦18,DIGITS.. ALLOW FOR CHARACTER IN OUTPUT BUFFER 
• INPUT^20. , MOVE CHARACf Eft FBGM INPUT TO OUTPUT BUFF 

•«6.1.l0t SET UP AOORESSES TO CLEAB FLAG 
•♦IB.s-IB.. ♦ CLEAR 



t ft 

OMSBl.. 



CONTimiE SCAN 



11591 




2 




11592 




1 




11594 




2 




11595 




1 




11597 




2 




11598 




1 




11600 




2 




11602 


17 


06112 


J1614 


11614 


15 


03857 


OOOOJ 


11626 


15 


09516 


00000 


11638 


31 


02218 


02712 


11650 


31 


02268 


02713 


11662 


16 


09526 


-2219 


11674 


45 


11698 


02805 


11686 


49 


12902 


00000 


11698 


16 


13076 


J2026 


11710 


17 


13022 


J 1722 


11722 


44 


11806 


09502 


11734 


15 


04003 


OOOOJ 


11746 


25 


U769 


02676 


11758 


25 


11781 


02459 


11770 


11 


02676 


000-0 


11782 


26 


03490 


02676 


11794 


12 


02676 


000-2 


11806 


16 


13076 


J1830 


11818 


17 


13022 


J3022 


11830 


15 


09515 


00000 


11842 


17 


13136 


J 1946 


11854 


11 


09526 


000-1 


11866 


26 


11884 


09526 


11878 


31 


00000 


11923 


11890 


11 


09526 


000-2 


11902 


26 


11920 


09526 


11914 


15 


00000 


00000 


11923 




2 




11925 




1 




11926 


44 


11218 


11218 


11938 


49 


11478 


00000 


11946 








11946 


11 


09526 


000-2 


11958 


26 


11976 


09526 


11970 


26 


00000 


02805 


11982 


12 


11976 


OOO-l 


11994 


26 


12012 


11976 


12006 


33 


00000 


00000 


12018 


49 


11842 


00000 
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PAGE 



36 



43100 




00 RG 


•-3 


12026 








43110 


DNESD 


BNF 


OMESl.BSW.t IS IT A PROGRAMMER SPECIFIED ADDRESS 


12026 


44 


12062 


09502 


43120 




TF 


ADDRStADDCOW,, NOt MOVE LOC. COUNTER INTO ADDRESS LOC. 


12038 


26 


03490 


02676 


43130 




AM 


AOORStltIO 


12050 


11 


03490 


000-1 


43140 


DMESl 


TDM 


SMOOEtUlOt SET SWITCH FOR NUM STARTING MODE 


12062 


15 


09516 


000-1 


43150 


DMSNMl 


TDM 


MMDAi 1 t f\ CCr cut T#*LJ CnO kltliiCBV/* Mr^ffte 

NnUALtitlOi ScT 5Mll(.n rUK NUncKlC. nuDc 


12074 


15 


09515 


000-1 


43160 


DNSNUM 


BTM 


DTR.DMESllttSCAN MESSAGE OPERAND 


12086 


17 


13136 


J2154 


43170 




AM 


DIGITStlflOt LEFT PAREN FOUND* UPDATE DIGIT COUNT BY 2 


12098 


11 


09526 


000- 1 


43180 




TF 


• 4-l8»DIGITS*tALL0U FOR CONTROL CHAR. IN OUTPUT BUFFER 


12110 


26 


12128 


09526 


43190 




TDM 


ttt MOVE TO BUFFER 


12122 


15 


00000 


00000 


43200 




DSC 
t 




12133 




1 




43210 




BNF 


ANAL, ANAL •• STRAY PAREN NOT FOUND IF BRANCH 


12134 


44 


11218 


11218 


43220 




8 


ANAL4*tt STRAY PAREN 


12146 


49 


.11478 


00000 


43230 




DORG 


•-3 


12154 








43240 


DMESl 1 


CM 


INPUT4^20, 79,10. CHECK TO SEE IF CHAR IS NUMERIC 


12154 


14 


02805 


000P9 


43250 




BH 


0MSER2,,, NOT NUMERIC. ERROR 


12166 


46 


12306 


01100 


43260 




CM 


INPUT^20,69»10 


12178 


14 


02805 


00009 


43270 




BH 


DM512 .fftNUMERIC IF BRANCH 


12190 


46 


12262 


01100 


43280 




CM 


INPUT 4-2 0,50, 10, CHECK IF -0THRU>9 


12202 


14 


02805 


OOONO 


43290 




BL 


0MSER2,,, NON-NUMERIC IF BRANCH 


12214 


47 


12306 


01300 


43300 




CM 


INPUT«20,59,10 


12226 


14 


02805 


000N9 


43310 




BH 


DMSER2t*t NOT NUMERIC IF BRANCH 


12238 


46 


12306 


01100 


43320 




SF 


INPUT4-20 


12250 


32 


02805 


00000 


43330 


QMS 12 


AM 


DIGITS, 1,10, UPDATE DIGIT COUNT BY ONE 


12262 


11 


09526 


000-1 


43340 




TF 


•♦18, DIGITS,, ALLOM FOR DIGIT 


12274 


26 


12292 


09526 


43350 




TD 


•INPUT«20,, MOVE DIGIT TO OUT PUT BUFFER 


12286 


29 


00000 


02805 


43360 




B 


DMSNUM,,, BRANCH BACK TO CONTINUE SCAN 


12298 


49 


12086 


00000 


43370 




DORG 


•-3 


12306 








43380 


DMSER2 


BTM 


DMSR2, DMSNUM,, PUT END OF MESSAGE IN OUTPUT BUFFER 


12306 


17 


12920 


J2086 


43390 


DMES2 


TF 


•4^35,DI6irS,, NUMERIC TO ALFA MODE CHANGE, 


12318 


26 


12353 


09526 


43400 




SM 


•♦23,0UT«1,, SEE IF ALPHA STARTS IN EVEN LOCATION 


12330 


12 


12353 


-2219 


43410 




TFM 


DMSV,,, INIT. SAVE LOC WITH DIGIT COUNT 


12342 


16 


09921 


-0000 


43420 




BNF 


0MES21,BSW,, SEE IF THERE IS A PROGRAMMER SPEC AOORESS 


12394 


44 


12386 


09502 


43430 




A 


DMSV,ADDCOW,, NO, ADD LOC COUNTER FOR LOC OF LAST DIGIT 


12366 


21 


09921 


02676 


43440 




B7 


DMES22 


12378 


49 


12434 




43450 


DMES21 


A 


DMSV, ADDRS,, ADO PROG ADDRESS FOR LOC OF LAST DIGIT 


12386 


21 


09921 


03490 


43460 




SM 


DMSV, 1,10, ADJUST FOR NUMERIC STARTING NODE 


12398 


U 


09921 


000-1 


43470 




80 


•♦24,SM0DE>* CHECK STARTING MODE 


12410 


63 


12434 


09516 


43480 




SM 


DMSV, 1,10, ADJUST FOR ALPHA STARTING NODE 


12422 


12 


09921 


000-1 


43490 


DNES22 


TO 


•♦23, DMSV,, SEE IF CHAR MILL START IN EVEN LOC 


12434 


29 


12497 


09521 


43500 




TD 


EVODD«1,EVODO 


12446 


29 


02470 


02469 


43510 




BD 


DMESB,EVODD«l,, WILL START IN EVEN LOCATION 


124S8 


43 


11830 


02470 


43520 




AM 


DIGITS, 1,10, iNScRT 


12470 


11 


09926 


000-1 


43530 




TF 


•♦18, DIGITS,,- 


12482 


26 


12900 


09526 






TDM 


f til 


12494 


IS 


00000 


0000— 


43550 




B 


OMESB 


12506 


49 


11830 


00000 


43560 




DORG 


• ♦1 


12518 








43570 




DC 


2,-0, •-3 


12514 




2 




43580 




DC 
-2« 


3,2«,« 


12517 




3 




43590 


DMERIN 


TDM 


OUT^lOO,, PUT IN NUMERIC ' 


12518 


19 


02318 


00000 


43600 




DC 
• 


l.«,« 


12529 




1 




43610 




TOM 


OUT^lOl,,, END OF MESSAGE 


12530 


19 


02319 


OOODO 
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43620 




DC 




12541 




1 




43630 




B 


DMERIC 


12542 


49 


12602 


00000 


43640 


DMERLA 


TFM 


0UT^101,,8, CLEAR LAST FOUR DIGITS FOR END OF NESSAGt 


12594 


16 


02319 


0-000 


43650 




CF 


0UT>98 


12966 


31 


02316 


00000 


43660 




TDM 


0UT^99,,,N0VE RM FOR 


12978 


19 


02317 


00000 


43670 




DC 
• 


l.»,» 


12989 




-1 




43680 




TOM 


0UT*101 


12990 


19 


02319 


00000 


43690 




DC 
f 


l.«.« 


12601 




1 




43700 


OMERIC 


TFM 


DIGITS, 100,, SET DIGIT COUNTER TO 100 


12602 


16 


09926 


-0100 


43710 




B 


• ♦96 


12614 


49 


12710 


00000 


43720 


OMSENO 


CM 


DIGITS.OUT^l,, CHECK IF OPERAND PRESENT 


12626 


14 


09526 


-2219 


43730 




BNE 


• ♦60,,, ERROR IF NO MESSAGE OPERAND PllESENT 


12638 


47 


12698 


01200 


43740 




80 


DMSER1,SM0DE,, CHECK MODE 


12690 


43 


12902 


09516 


43750 




TFM 


0UT^5,,, MOVE IN ALPHA END OF MESSAGE 


12*62 


16 


02223 


-0000 


43760 




DC 


2, •,•-2 


12671 




2 




43770 




DSC 
0« 


2.«,«-l 


12672 




2 




43780 




CF 


OUT+2 


12674 


33 


02220 


00000 


43790 




TFM 


DIGITS, OUT^lOl 


12686 


16 


09526 


-2319 


43800 




SM 


OIGITStOUT^l,, SUBTRACT STARTING LOCATION OF 0/F BUFFER 


12698 


12 


09526 


-2219 


43810 




TF 


LSTAO ,01017$, .MOVE DIGIT COUNT FOR OUTPUT 


12710 


26 


03879 


09526 


43820 




AM 


LSTAD ,1,10, ADD 1 FOR RT LOC ♦I 


12722 


11 


03879 


000- 1 


43830 




BNF 


0MEND1,BSW,, CHECK FOR PROGRAMMER SPECIFIED ADDRESS 


12734 


44 


12782 


09502 


43840 




A 


LSTAD •A00C0W,,FQRM RT LQC^l 


12746 


21 


0)879 


02676 


43850 




A 


AODCOW.OIGITS,, UPDATE LOC COUNTER TO LAST DIGIT OF CONSTANT 


12798 


21 


02676 


09526 


43860 




8 


DMEND2 


12770 


49 


12830 


00000 


43870 


DMENOl 


A 


LSTAD .AODRS,, INITIALIZE LEFT MOST WITH PROG SPEC AOORESS 


12782 


21 


03879 


03490 


43880 




SM 


LSTAO .I.IO, ADJUST FOR NUMERIC STARTING MODE 


12794 


12 


03879 


000-1 


43890 




80 


•♦24,SM0DE,, CHECK IF STARTING MODE ALPHA 


12806 


43 


12830 


09516 


43900 




SM 


LSTAD ,1,10, UES, ADJUST FOR ALPHA STARTING NODE 


12818 


12 


03879 


000-1 


43910 


0MEND2 


TF 


FRSTAD .LSTAD ,, FORM LEFT MOST 


12830 


26 


03869 


03879 


43920 




S 


FRSTAO .DIGITS., ADDRESS 


12842 


22 


03869 


09526 


43930 




TF 


LNTH, DIGITS,, INITIALIZE LENGTH LOC 


12894 


26 


02387 


09526 


43940 




NOP 


MES0UT^6.INPUT2^5 


12866 


41 


10472 


03284 


43950 




NOP 


MES0UT^11,0UT^2 


12878 


41 


10477 


02220 


43960 




BTM 


GEET,PCONF 


12890 


17 


09664 


J5454 


43970 


OMSERl 


BTM 


DMSR2,DNSEN0^60,,,, PUT END OF MESSAGE IN OUTPUT BUFFER 


12902 


17 


12920 


J2686 


43980 




OS 


5 


12918 




5 




43990 


DMSR2 


AM 


DIGITS. 1,10 


12920 


11 


09526 


000-1 


44000 




TF 


•♦18,DIGITS 


12932 


26 


12950 


09526 


44010 




TDM 


,,, INSERT 


12944 


15 


00000 


00000 


44020 




DC 
« 




12995 




1 




44030 




AM 


DIGITS. 1.10 


12956 


11 


09526 


000-1 


44040 




TF 


•♦18.DIGITS 


12968 


26 


12986 


09526 


44050 




TDM 


*,, INSERT 


12980 


19 


00000 


00000 


44060 




DC 
• 


!#••• 


12991 








44070 




TF 


•♦18,DMSR2-| 


12992 


26 


13010 


12919 


44080 




B 




19004 




00000 


00000 


44090 




DC 


3,-0«,« 


13015 




3 





HZ 
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PAGE 



38 



44100 




DC 


5,0 


13020 




5 








-0000 










441 10 


MODE 


TR 


INPUT*l9,INPUT+21t, MOVE INPUT RECORD LEFT 1 CHAR 


1 3022 


31 


02804 


02806 


44120 




BNR 


•♦24,INPUT*20,,,N0T BLANK* CHECK FOR RM 


13034 


45 


13058 


02805 


44130 




B 


DMSEN0'*^36 


13046 


49 


12662 


00000 


44140 




CM 


INPUT-f20»23,10t SEARCH FIELD, CHECK FOR COMMA 


13058 


14 


02805 


000K3 


44150 


MOOEl 


BE 


,,, COMMA FOUND, BRANCH 


13070 


46 


00000 


01200 


44160 




CM 


INPUT4^20,,10, COMMA NOT FOUND, CHECK FOR BLANK 


13082 


14 


02805 


000-0 


44170 




BE 


MODE,,, BLANK, CHECK NEXT CHARACTER 


13094 


46 


13022 


01200 


44180 




TF 


•♦18,M00E*lt,, ALPHA CHAR IN FIELD, RETURN, OR CHECK 


13106 


26 


13124 


13021 


44190 




B 


• • , NEXT CHAR. ACCORDING TO BRANCH 


13118 


49 


00000 


00000 


44200 


• SUBROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER 










44210 




OS 


5 


13134 




5 




44220 


DTR 


TR 


INPUT4^19,INPUT^2I*, MOVE OPERAND LEFT 1 CHAR * SEARCH 


1 3 136 


31 


02804 


02806 


44230 




TF 


OMSV, DIGITS,, CHECK NUMBER OF DIGITS 


13148 


26 


09521 


09526 


44240 




SM 


0MSV,OUT+l 


13160 


12 


09521 


-2219 


44310 




CM 


INPUT^20,4,10, CHECK FOR STRAY RT PAREN 


13172 


14 


02805 


000-4 


44320 




BNE 


•♦44,,, NOT A STRAY PAREN IF BRANCH 


13184 


47 


13228 


01200 


44330 




SF 


ANAL,,, SET SWITCH FOR STRAY PAREN FOUND 


13196 


32 


U218 


00000 


44340 




BD 


0MSNUM*L2,NM0AL, .SCANNING IN NUMERIC NODE IF BRANCH 


13208 


43 


12098 


09515 


44350 




B7 


DMSB1«12,,, SCANNING IN ALPHA MODE 


13220 


49 


11854 




44360 




CM 


INPUT>20, 24,10, CHK FOR LEFT PAREN 


13228 


14 


02805 


000K4 


44370 




BNE 


•♦24,,, NOT A LEFT PAREN 


13240 


47 


13264 


01200 


44380 




BB 


tft t LEFT PAREN FOUND 


13252 


42 


00000 


00000 


44390 




TF 


• 4-18,0TR-l,, NOT A I, , OR ERROR 


13264 


26 


13282 


13135 


44400 




B 


f,, RETURN 


13276 


49 


00000 


00000 


44410 


« 














44420 


• 


DEFINE OCTAL TABLE 










44430 


• 














44440 


DOT 


BTM 


SCAN, •4^12 ,, POMER NUMBER 


13288 


17 


06112 


J 3300 


44450 




BLX 


•♦12,AD0RS(3} 


13300 


65 


13312 


03MR0 


44460 




CM 


XRA3, 13,10 


13312 


14 


00319 


000J3 


44470 




BNH 


OOTl 


13324 


47 


13348 


01100 


44480 




BLXM 


•♦12,13C3} 


13336 


66 


13348 


00-J3 


44490 


DOTl 


BTM 


TRSCAN,»4^12,, ASSIGNED AOORS 


13348 


17 


06082 


J 3 360 


44500 




TO 


KLRLSW,RLOCSW 


13360 


25 


04003 


08378 


44510 




BLXM 


•♦12,-2(1 )•• SET TERM LENGTH 


13372 


66 


13384 


000-K 


44S20 




TFM 


0UT4 102,010»9, SET TERN t 


13384 


16 


02320 


00-10 


44530 




OC 
• 


lf',» 


1339S 




1 




44540 




BLXH 


•♦12,-1(2) SET LENGTH 


13396 


66 


13408 


00-OJ 


44550 




CM 


XRA3tO 


13408 


14 


00319 


-0000 


44560 




BE 


DTEX 


13420 


46 


13524 


01200 


44570 


DTLOOP 


MM 


OUT>102(2),OB«IO 


13432 


13 


02L20 


000-8 


44580 




BX 


•♦12,XRA1(2),, INCREMENT LENGTH 


13444 


61 


13456 


00L09 


44590 




80 


•♦20,99(1) 


13456 


43 


13476 


000R9 


44600 




87 


• ♦20 


13468 


49 


13488 




44610 




BXM 


•♦12,-1(1) 


13476 


62 


13488 


000-J 


44620 




SF 


100(11 


13488 


32 


001-0 


00000 


44630 




TF 


0UT^102(2),99 


13500 


26 


02L20 


00099 






BCXM 


DTLOOP, -1(3) 


13512 


64 


13432 


00— J 


44650 


OTEX 


BX 


•♦12,XRA1(2),, FINAL LNTH INCR 


13524 


61 


13536 


00L09 


44660 




TR 


0UT^2,0UT^103C2) 


13536 


31 


02220 


02L2I 


44670 




MA 


LNTH,XRA2 


13548 


70 


02387 


00314 


44680 




BNF 


•♦48,BSW 


13560 


44 


13608 


09502 


44690 




A 


ADDCOW.LNTH 


13572 


21 


02676 


02387 



163 
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44250 


CM 


DMSV, 100,9, CHECK DIGIT COUNT 


13584 


14 


09521 


OOJOO 


44260 


BNH 


•♦36,,, LESS THAN 100, OKAY, ERROR 


IF NO BRANCH 13596 


47 


13632 


01100 


44270 


BD 


0MER1N,NM0AL,, TEST SWITCH FOR NUM 


OR ALPHA* NUN IF BR 13608 


43 


I2S18 


09515 


44200 


B 


OMERIA,,, ALPHA IF BRANCH FRM HERE 


13620 


49 


12554 


00000 


44290 


BNR 


•♦20,INPUT^20,, FOR RM 


13632 


45 


13652 


02805 


44300 


B7 


OMSEND 


13644 


49 


12626 




44700 


TF 


AOORS, AOOCOW 


13652 


26 


03490 


02676 


44710 


TOM 


KLRLSW,1,I1 


13664 


15 


04003 


OOOOJ 


44720 


TF 


LSTACADDRS 


13676 


26 


03879 


03490 


44730 


AM 


LSTA0,1,10 


13688 


U 


03879 


000-1 


44740 


TF 


FRSTAD,LSTAD 


13700 


26 


03869 


03879 


44750 


S 


FRSTA0,LNTH 


13712 


22 


03869 


02387 


44760 


TDM 


DUMPU11,1,11 


13724 


15 


03517 


OOOOJ 


44770 


BTM 


GEET,PCONF 


13736 


17 


09664 


J5454 



44780 • 



44790 • EVALUATE LENGTH OF OAC 

44800 • 



44810 DACF 


BTM 


SCAN, •♦12 


13748 


17 


06112 


J3760 


44820 


CM 


AOORS, 51 


13760 


14 


03490 


-0051 


44830 


BNN 


ERDAC 


13772 


66 


14428 


01300 


44840 


A- 


AOORS, AOORS 


13784 


21 


03490 


03490 


44850 


TF 


TEMPR,ADDRS 


13796 


26 


02572 


03490 


44860 


BNR 


•♦20,INPUT«-20 


13808 


45 


13828 


02805 


44870 


B7 


•♦20 


13820 


49 


13840 




44880 


BNR 


0AC2,INPUT^22 


13B28 


45 


13868 


02807 


44890 


CM 


ADORS,0 


13860 


16 


03490 


-0000 


44900 


BH 


ERDAC 1 


138S2 


46 


14576 


01100 


44910 


TFM 


INPUT^22 


13864 


16 


02807 


-0000 


44920 


DAC 
• 


lt«t» 


1387S 




1 


X 2 



44930 




TFM 


INPUT^20*23*I0 




I38T6 


16 


02805 


000K3 


44940 


0AC2 


BLX 


•♦12,TEMPR(1) 




13888 


65 


13900 


02SP2 


44950 




BNR 


•♦20,INPUT^20(1) 




' 13900 


6S 


13920 


028-5 


44960 




B7 


ERDAC^12 




13912 


69 


16660 




44970 




BNR 


•♦20,INPUT«22(1) 




13920 


6B 


13960 


028-7 


44980 




B7 


•♦32 




13912 


69 


13966 




44990 




CM 


INPUT^22( 11*23*10 




13960 


16 


028-7 


000K3 


45000 


STCHAR 


BNE 


ERDAC^ia 




I39S2 


67 


16460 


01200 


45010 




TO 


STCHAR^11,INPUT^22(1) 




13966 


25 


13963 


028-7 


45020 




TFM 


INPUT^22(1) 




13976 


16 


028-7 


-0000 


45030 




DAC 
■ 


l.«*« 




139B7 




1 


X 2 


45040 




CM 


lNPUT^20f 1I*S6«10« 


CHECK rat • 


13988 


16 


028-5 


000L4 


45050 




BNE 


STCHAl 




14000 


67 


16036 


01200 


45060 




TDM 


DUMPUI1,0*11 




16012 


15 


03517 


0000- 


45070 




TFM 


tNPUT^20(l) 




16026 


16 


028-5 


-0000 


45080 




OAC 
t 


l.».« 




16035 




1 


X 2 


45090 


STCHAl 


TR 


0UT^2,INPUT^21 




14036 


31 


02220 


02806 


45100 




TR 


INPUT^19,INPUT^23(1) 




14048 


31 


02804 


028-8 


45101 




CM 


TEMPR,0 




14060 


14 


02572 


-0000 


45102 




BNH 


• ♦36 




14072 


47 


14108 


01100 


45110 




CF 


0UT^2(1) 




16086 


33 


022K0 


00000 


45120 




BCXM 


•-12,-2(1) 




16096 


66 


16086 


000-K 


45130 




BNR 


0AC3,STCMAR«ll 




16108 


65 


16236 


13963 
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40 



45150 




















45160 


NOSINE 


TO 


• -i-23t ADDCOW 






14120 


25 


14143 


02676 


45170 




TO 


• ♦23t JSTBL 






14132 


25 


14155 


02459 


45180 




AM 


ADDCOW* 1 10 






14144 


11 


02676 


000-0 


45190 




TF 


ADDRS t ADDCOW 






14156 


26 


03490 


02676 


45200 




A 


AODCOWtTEMPR 






14168 


21 


02676 


02572 


45210 




SM 


AD0C0W»2f 10 






14180 


12 


02676 


000-2 


45220 




TF 


LNTH* ADDCOW 






14192 


26 


02387 


02676 


45230 




80 


*4'24« INTBUF'*'5 






14204 


43 


14228 


03603 


45240 




TF 


ADORSt ADDCOW 






14216 


26 


03490 


02676 


45250 




87 


0AC4 






14228 


49 


14284 




45260 


DAC3 


BTM 


SCANt •♦12 






14236 


17 


06112 


J4248 


45270 




BD 


NQSINEtBSW 






14248 


43 


14120 


09502 


45280 




TO 


KLRLSWfRLOCSW 






14260 


25 


04003 


08378 


45290 




TF 


LNTH« ADDRS 






14272 


26 


02387 


03490 


45300 


0AC4 


TF 


FRSTAO tAODRS 






14284 


26 


03869 


03490 


453 10 




SM 


FRSTAD tl 






14296 


12 


03869 


—0001 


45320 




TF 


LSTADfFRSTAO 






14308 


26 


03879 


03869 


45330 




A 


LSTAD tTEMPR 






14320 


21 


03879 


02572 


45340 




BD 


• ■f 72« INTBUF-f 5 






14332 


43 


14404 


03603 


45350 




TF 


LSTAD tADDRS 






14344 


26 


03879 


03490 


45360 




AM 


LSTAD tl 






14356 


11 


03879 


-0001 


45370 




TF 


FRSTADtLSTAD 






14368 


26 


03869 


03879 


45380 




s 


FRSTAO tTEMPR 






14380 


22 


03869 


02572 


45390 




TF 


ADDRS tLNTH 






14392 


26 


03490 


02387 


45400 




TF 


LNTHt TEMPR 






14404 


26 


02387 


02572 


45410 




BTM 


GEETt PCONF 






14416 


17 


09664 


J 54 54 


45420 


ERDAC 


TFM 


TEMPR 1 100 






14428 


16 


02572 


-0100 


4542 1 




BNF 


• -»'36t R2SW» t 


FORCE 


DISK ACCESS 


14440 


44 


14476 


04361 


45422 




TOM 


R2SWt0t t 


TO NEXT STATEMENT 


14452 


15 


04361 


00000 


45423 




SM 


SUBIN-»'5t 1 tlO 






14464 


12 


03539 


000-1 


45424 




BLXH 


• -*-12t-120( 1 i tt 


CLEAR 


TRAILING TRASH 


14476 


66 


14488 


OOIK- 


45425 




BNR 


• >20f INPUT-*-204-120 (lit* 


TO BLANKS FOR L 6T CONST 


14488 


45 


14508 


029K5 


45426 




B7 


• ♦20 






14500 


49 


14520 




45427 




BCXM 


•-20,2(1) 






14508 


64 


14488 


000-2 


45428 




TFM 


INPUT'*'20-*'L20( 1 ) tOOt 10 






14520 


16 


029K5 


000-0 


45429 




BCXM 


•-12,21 n 






14532 


64 


14520 


000-2 


45430 




BLX 


• ♦12t TEMPR( 1 ) 






14544 


65 


14956 


025P2 


45440 




TFM 


INPUT^22( 1} 






14SS6 


16 


028-7 


-0000 


45450 




DAC 
t 


1* • ,• 






14967 




1 


X 2 


45485 




B7 


0AC2 






14568 


49 


13888 




45490 


ERDACl 


BLX 


•♦12,TEMPR(1» 






14576 


65 


14588 


025P2 


45491 




BNF 


• ♦36, R2SW 1 1 


FORCE 


DISK ACCESS 


14588 


44 


14624 


04361 


45492 




TDM 


R2SW, 0, t 


TO NEXT STATEMENT 


14600 


15 


04361 


00000 


45493 




SM 


SUBIN^5tltl0 






14612 


12 


03539 


000-1 


45500 




TFH 


INPUT+22(1J 






14624 


16 


028-7 


-0000 


45510 




DAC 
t 


l,«t* 






14635 




1 


X 2 


45520 




TFM 


INPUT^20(l)t70tlO« 


FORCE 


ALPHA 


14636 


16 


028-5 


OOOPO 


45530 




BCXM 


•-12,-2(l)tt 


ZEROS 




14648 


64 


U636 


OOO-K 


45540 




B7 


DAC2 






14660 


49 


13888 




45550 


MIO 


DSC 


2,-16 






14667 




2 




45560 




10 
OS A 


IQRT .00023 






14673 




5 


X 2 
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14673 




-0965 














14678 




-0023 




45570 




OSC 
49 


2,49 




14679 




2 




45580 




OS A 


•-• ,00000 




14689 




9 


X 2 












14685 




-0000 














14690 




-0000 




45590 




DSC 


It* 




14691 




1 




45600 


•» GET PUT 


LINKAGE GENERATION 












45610 


LINKS 


TO 


•♦23f ADDCOW tt 


ADJUST AOOCOW 


14692 


29 


14719 


02676 


45620 




TO 


•♦23tAJUST 




14704 


25 


14727 


02999 


45630 




AM 


ADOCOWttlOt 




14716 


11 


02676 


000-0 


45640 




A 


MIO ♦lltAOOCOWr, 


RETURN ADDRESS 


14728 


21 


14678 


02676 


45650 




TF 


MIO ♦18tINTBUF«6,t 


SET UP BR TO I OR 


14740 


26 


14689 


03604 


45660 




BTM 


SCANt«+12t7 11 




14792 


IT 


06112 


J476M 


45670 




TR 


WI0^l9tAD0RS-4 




14764 


91 


14686 


09486 


45680 




BNF 


•♦24,RL0CSW 




14776 


44 


14800 


08378 


45690 




SF 


MIO ^13 




14788 


32 


14680 


00000 


45700 




TF 


FRSTAOtADDCOW 




14800 


26 


03869 


02676 


45710 




TF 


LSTAD • ADDCOW 




14812 


26 


03879 


02676 


45720 




AM 


LSTA0t24,10t 


SET TO TOTAL LENGTH 


14824 


11 


03879 


000K4 


45730 




AM 


ADDCOW* 23 t 10 • 


UP AOOGOW TOTAL LENGTH 


14896 


11 


02676 


000K3 


45740 




CF 


MIO *2 




14848 


33 


14669 


00000 


45750 




CF 


MIO ^14 




14860 


33 


14681 


00000 


45760 




TR 


ZEPO,MIO 




14872 


31 


02300 


14667 


45770 




TF 


AODRStFRSTAD 




14884 


26 


03,490 


03869 


45780 




TFM 


X*PHASEB 




14896 


16 


04008 


-4170 


45790 




BTM 


6EET*LINP 




14908 


17 


09664 


J9466 


45800 


•» GET PUT 


LINKAGE GENERATION END 












45810 


CALEXT 


TO 


•♦23»A00C0W 




14920 


25 


14943 


02676 


45820 




TO 


•♦23,AJUST 




14932 


25 


14995 


02399 


45830 




AM 


ADDCOW** 10 




14944 


11 


02676 


000-0 


45840 




TFM 


MIO ♦18*M0NCAL** 


BRANCH TO MONCALL IN lORT 


14956 


16 


14685 


-0796 


45850 




CF 


MIO +14 




14968 


33 


14681 


00000 


45860 




CF 


MI0^19 




14980 


33 


14686 


00000 


45870 




TR 


ZEPOtMIO ♦12tt 


BRANCH INSTRUCTION 


14992 


31 


02300 


14679 


45880 




TF 


ADORSt ADDCOW 




19004 


26 


03490 


02676 


45890 




AM 


ADDCOWt06tlO» 


B7 


19016 


11 


02676 


000-6 


45900 




BTM 


GEET.LINP 




15028 


17 


09664 


J5466 


45910 


m 


LOAD PHASE B4 TO THE FILE 












45920 


F4 


34 


SUB4,701 




19040 


34 


15088 


00701 


45930 




38 


SUB4t702 




19092 


38 


15088 


00702 


45940 




TRA 






19064 


36 


00000 


00500 












19076 


49 


00000 


00000 


45950 


SUB4 


00 A 


• 0* B4DA0t B4SCTtLlNPRT 




19088 




14 








0J9063-56-9722 












45960 




TCD 


F4 




19040 








45970 




00 RG 


INSTRN 




13094 








45980 


RCTAB 


BNF 


•♦36,LSTVSW 




13094 


44 


13130 


02480 


45990 




RCTY 






13106 


34 


00000 


00102 


46000 




TBTY 






13118 


94 


00000 


00108 


46010 




BB 






19130 


42 


00000 


00000 


46020 




00 RG 


•-9 




19132 
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46030 




DC 


5,12345 


13136 




5 








J234S 










46040 


LINKC 


TFM 




13138 


16 


09721 


-9982 


460S0 




BT 




13150 


27 


13282 


13137 


46060 








13166 




5 




46070 


LiNKCR 


BT 


Kv 1 AD f Kb 1 AO" 1 


13168 


27 


13094 


13093 


46080 








13180 


27 


13 138 


13167 


46090 




n« 




1 3196 








46100 


LINKD 


TCM 


L l NrR •—If rUiA 


1 3 198 


16 


09721 


ini 


46105 






vHo Tn-rlltUSAOUX'-I 




16 






46110 




It 


LNTHtS 


13222 




02387 


"o005 


46120 




nl 


1 tMvcB 1 tiiifn_i 
1. 1 Ni\e K f L 1 nRU'* i 


13234 


27 


13282 


13197 


46130 








13250 








46140 


LINKOR 


BT 


n u 1 Ad •jR V 1 JIB" I 


13252 


27 


13094 


13093 


46150 




BT 


LlnKUtLlrlRUR ft 


13264 


27 


13198 


1 325 1 


46160 




OS 


5 


13280 








46170 


LINKER 


TR 


ZEP0*1.GUT42 


13282 


31 


02301 


02220 


46180 




TF 


FRSTAD.LSTAO 


13294 


26 


03869 


03879 


46190 




A 


LSTAOtLNTH 


13306 


21 


03879 


02387 


46200 




TF 


AUIIK5 tr K> 1 All 


13318 


26 


03490 


03869 


46210 




jf 


V 1 tiiircB_i 
A t L. 1 NKcK"! 


13330 


26 


04008 


13281 


46220 






WVAt. 1 tL IflrRT 


13342 


17 


12758 


—9722 


46230 


MIOCS 


DSC 


2,-16 


13354 




2 




46240 




10 
OS A 


lORT ,00023 


13360 






X 2 










13360 




-0565 












13365 




-0023 




46250 




DSC 


2,49 


13366 




2 








49 












46260 




OSA 


lOGT ,00000 


13372 




5 


X 2 










13372 




-0566 












13377 




—0000 




46270 




DSC 
• 


lt« 


13378 




1 




46280 


MBUKl 




01234 


13383 




5 


X 1 










13383 




-1234 




46290 




OSC 


It* 


13384 




I 




46300 


MBUK2 


OSA 


01234 


13389 






X 1 










13389 




-1234 




46310 




DSC 
• 




13390 




1 




46320 


MBUK3 


DSC 


2,12 


13391 




2 








12 












46330 


NRM 


DSC 
« 


If* 


13393 




1 




46340 


MDIGIT 


DSC 
1 




13394 




1 




46350 


0P3SW 


DC 


ItO 


13395 




I 




46360 


ADDBKT 


DC 


5,12345 


13400 




5 
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46370 SVADD 
46380 M2DIG 



46390 
46400 
46410 
46420 
46430 
46440 
46450 
46460 
46470 
46480 
46490 
46500 
46510 
46520 
46530 
46540 
46550 
46560. 
46570 
46580 
46590 
46600 
46610 
46620 
46630 
46640 
46650 
46660 
46670 
46680 
46690 
46700 
46710 
46720 
46730 
46740 
46750 

46760 
46770 
46780 
46790 
46800 
46810 
46820 
46830 
46840 
46850 
46860 
46870 
46880 
46890 



MACR2 



DC 
J2 
DC 
J2 
CF 
C 
BI 
C 
BI 
C 

BNI 



2tl2 
2,12 



0P3SW 

•♦23tINPUT^14 
REG,01244,10, 
•♦23, INPUTS 16 
CAL,01253tlO» 
•♦23tINPUT^12 
LINKS, 01244,10, 
CARD TAPE TYPE DEFINERS 
BTM SCAN»«^12 
BO NQ0PP,BSW 
TO KLRLSW.RLOCSM 
TFM SVADD, 00, 10 
TF ADDBKT, A00RS,t 
87 60 
NOOPP TF ADDBKT, AOOCOU 
TFM SVAD0,08,10 
AN ADDBKT, 01 t 10 
GO BTM TRSCAN,»^12,7 11 
TR MBUKl-4,AD0RS-4 
TR 0UTV2,MBUKl-4 
TF LSTAO, ADDBKT 
TFM LNTH, 00005 
TO 0SABOX,RL0CSW 
TDM INTBUF,1 
TR ZEP04-1,0UT«2 
BTM LINKD, •♦12 
SF INTBUF>5,,, 
TF MBUK3>I,INTBUF>6 
TR 0UT«-2,MBUK3 
TFM LNTH, 00003, 
TOM DUMP1^11,0,11, 
TO LNTH^1,SPS6M 
TO 0UT*4,SPSGM 
A ADDCOW, SVADD 
BTM LINKCR, •♦U 
TOM LNTH* 1 

DC 1,«.» 
t 

BTM GEE T, PHASES 
END OF CARD TAPE TYPE DEFINERS 
DISK FILE DECLARATIVES NOT CALLS 
REG BTM SCAN, •♦12 

TO 0P3SW,BSW 

BO NOTOP,BSW 

TO KLRLSU,RLOCSW 

TFM SVADD, 00, 10 

TF A0DBKT,AD0RS,, 

B 60N0M 

DORG •-4 
NOTOP TF ADDBKT tAOOCOM 

TFM $VAD0,0affl0 

AM AQOBKTvOlttO 



0 DISK DEFINERS 
L CALL LINK LOAD 
D OTHER DEFINERS 



PROCRANIIER ASSIGNS ADDRESS 



START NO 6EIIEIIATI0N 



PRINT GN 



PROGRAHNEt ASSIGNS ADDRESS 



13402 




2 




13404 




2 




13406 


33 


13395 


00000 


13418 


24 


13441 


02799 


13430 


46 


13834 


012M4 


13442 


24 


13465 


02801 


13454 


46 


14564 


012N3 


13466 


24 


13489 


02797 


13478 


4? 


14692 


012N4 


13490 


17 


06112 


J3502 


13502 


43 


13558 


09502 


13514 


25 


04003 


08378 


13526 


16 


13402 


000-0 


13538 


26 


13400 


03490 


13550 


49 


13594 




13558 


26 


13400 


02676 


13570 


16 


13402 


000-8 


13582 


11 


13400 


000-1 


13594 


IT 


06082 


J3600 


13606 


31 


13379 


03486 


13618 


31 


02220 


13379 


13610 


26 


03879 


13400 


13642 


16 


02387 


-0005 


13654 


25 


09503 


08378 


13666 


15 


03598 


00001 


13678 


31 


02^301 


02220 


13690 


17 


13198 


J3702 


13702 


32 


03603 


00000 


13714 


26 


13392 


03604 


13726 


31 


02220 


13391 


13738 


16 


02387 


-0003 


13750 


15 


03517 


0000- 


13762 


25 


02388 


02561 


13774 


25 


02222 


02561 


13786 


21 


02676 


13402 


13798 


17 


13168 


J3810 


13810 


IS 


02388 


00000 


13821 




1 




13822 


17 


09664 


-4170 


13834 


17 


06112 


J3846 


13846 


25 


13395 


09502 


13858 


43 


13914 


09502 


13870 


25 


04003 


08378 


13882 


16 


13402 


000-0 


13894 


26 


13400 


03490 


13906 


49 


13950 


00000 


13913 








13914 


26 


13400 


02676 


13926 


16 


13402 


000-8 


13938 


tl 


13400 


000-1 
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46900 


GONOW TR 


INPUT*19,INPUT*21 




13950 


31 


02804 


02806 


46910 


SF 


iNTBUF-fS 




13962 


32 


03603 


00000 


46920 


TF 


MBUK34-ltINTBUF4^6,f 


CODE UM FLAG W 


13974 


26 


13392 


03604 


46930 


BTM 


SCAN»*-*^12f7 11 




13986 


17 


06112 


J399Q 


46940 


TR 


MBUKl-4,A00RS-4 




13998 


31 


13379 


03486 


46950 


TO 


MOIGIT.RLOCSW 




14010 


25 


13394 


08378 


46960 


BTM 


TRSCAN,«4^12 




14022 


17 


06082 


J4034 


46970 


BNF 


•♦36«0P3SM 




14034 


44 


14070 


13395 


46980 


BD 


•♦24,BSM 




14046 


43 


14070 


09502 


46990 


AM 


SVADO t05,10f 


UP ADOCOW FOR 3 OPERANDS 


14058 


11 


13402 


000-5 


47000 


TO 


0P3SW«BSW«t 


SET LONG LINK SWITCH 


14070 


25 


13395 


09502 


47010 


TR 


NBUK2-4,A00RS-4 




14082 


31 


13385 


03486 


47020 


•• TEST FOR 


ARM REPOSITION 












47030 


TR 


INPUT*19,INPUT»2l 




14094 


31 


02804 


02806 


47040 


BTM 


LSTCAR,«^12,, 


PICK UP 3RD OPERAND 


14106 


17 


15404 


J4118 


47050 


TF 


M20I6,LCHAR 




14118 


26 


13404 


15537 


47060 


TR 


INPUT+19,INPUT«21 




14130 


31 


02804 


02806 


47070 


TEST FOR 


ABSOLUTE SECTOR ADORESS 












47080 


BTM 


LSTCAR»*^12f f 


PICK UP 4TH OPERAND 


14142 


17 


15404 


J4154 


47090 


C 


•♦23fLCHAR 




14154 


24 


14177 


15537 


47100 


BNI 


•♦24,0124ltl0f 


TEST FOR A ABSOLUTE 


14166 


47 


14190 


012M1 


47L10 


TDM 


MBUK3«2tll 




14178 


15 


13391 


OOOOK 


47120 


C 


•«-23tM20IG 




14190 


24 


14213 


13404 


47130 


BI 


EN»01259,10 




14202 


46 


14226 


012N9 


47140 


CF 


MBUK3 




14214 


33 


13391 


00000 


47150 


EN TR 


0UT4-2«MBUK3», 


FIRST OPERAND TO LIST 


14226 


31 


02220 


13391 


47160 


TF 


LSTAO.AOOBKT 




14238 


26 


03879 


13400 


47170 


AM 


AO0BKT«02f 10 




14250 


11 


13400 


000-2 


47180 


TFM 


L NTH, 02 




14262 


16 


02387 


-0002 


47190 


BTM 


LINKC,«^12 




14274 


17 


13138 


J4286 


47200 


TR 


0UT-t-2,MBUKl-4,, 


SECNO OPERAND TO LIST 


14286 


31 


02220 


13379 


47210 


TFM 


LNTH,05 




14298 


16 


02387 


-0005 


47220 


TO 


0SAB0X,M0IGIT 




14310 


25 


09503 


13394 


47230 


TOM 


INTBUF.l 




14322 


15 


03998 


00001 


47240 


BTM 


LINK0R,*^12 




14334 


17 


13252 


J4346 


47250 


BO 


N0T3,0P3SW 




14346 


43 


14406 


13395 


47260 


TR 


0UT42,MBUK2-4,, 


THIRD OPERAND TO LIST 


14358 


31 


02220 


13385 


47270 


TOM 


INTBUF.l 




14370 


15 


03598 


00001 


47280 


TO 


DSABOXtRLOCSM 




14382 


25 


09503 


08378 


47290 


BTM 


LtNK0R,»>12 




14394 


17 


13252 


J4406 


47300 


N0T3 TR 


0UT4-2,MRM,, 


RECORD MARK 


14406 


31 


02220 


13393 


47310 


TFM 


LNTH,01 




14418 


16 


02387 


-0001 


47320 


TOM 


OUMPl+11,1,11 




14430 


15 


03517 


OOOOJ 


47330 


A 


A00COU,SVA00 




14442 


21 


02676 


13402 


47340 


BTM 


LtNKCR,»«12 




14454 


17 


13168 


J4466 


47350 


BTM 


GEET,PHASEB 




14466 


17 


09664 


-4170 


47360 


END OF 


DISK OEFINERS 












47370 


GENERATE CALL LINK ANO LOAO 












47380 


RM OC 
• 


1,« 




144TB 




1 




47390 


FLDATA OSS 


400,RM-400 




14078 




400 




47400 


ERROR 


2N0 OPERAND CALL NG 












47410 


OC 


5,12345 




14483 




5 






J2345 












47420 


ER TFM 


EVALER-2,71780 




14484 


16 


08014 


P1780 


47430 


BT 


EPRINT,EPRINT-1 




14496 


27 


08452 


08451 
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47440 


BD 


C0RER5,ERSTSW 




14S08 


43 


08188 


02476 


47450 


BNF 


• •i-36,LSTYSW 




14520 


44 


14556 


02480 


47460 


RCTY 






14532 


34 


00000 


00102 


47470 


TBTY 






14544 


34 


00000 


00108 


47480 


B 


ER-1, ,6 




14556 


49 


1448L 


00000 


47490 


00 RG 


•-4 




14563 








47500 


CAL TD 


• •^23,ADDC0W,, 


ADJUST ADOCOM 


14564 


25 


14587 


02676 


47510 


TO 


•♦23,AJUST 




14ST6 


25 


14599 


02399 


47520 


AM 


ADOCOW, ,10 




14588 


11 


02676 


000-0 


47530 


TF 


MI0CS4^11,ADDC0W,, 


RETURN ADDRESS 


14600 


26 


13365 


02676 


47540 


AM 


MIOCS^^ll, 19,10, 


ADJUST ADORESS 


14612 


11 


13365 


O00J9 


47550 


TFM 


MI0CS«^18,I0CAL,, 


SET UP BR TO lOR 


14624 


16 


13372 


-0716 


47560 


BTM 


LSTCAR,»+12 




14636 


17 


15404 


J4648 


47570 


TFM 


MBUK3«1,32,10, 


CODE FOR READ NO WLR 


14648 


16 


13392 


000L2 


47580 


C 


»<^23,LCHAR 




14660 


24 


14683 


15537 


47590 


BI 


• 4^24,01244,10, 


TEST FOR 0 IN LOAD 


14672 


46 


14696 


012M4 


47600 


SF 


MBUK3^1,, , 


EXECUTE 


14684 


32 


13392 


00000 


47610 


TR 


INPUT*19,INPUT*21,, 


SLIDE COMMA 


14696 


31 


02804 


02806 


47620 


BTM 


PCALL,«+12 




14708 


17 


15544 


J4720 


47630 


BNF 


F0UND^12,ALPHSW,* 


NO ALPHA INPUT 


14720 


44 


14990 


15883 


47640 


«• READ THE 


DIM ENTRY FOR EQUIV TABLE 










47650 


TFM 


I0RT,»«^23 




14732 


16 


00565 


J4755 


47660 


B 


I0GT,0EF0IM,7 




14744 


49 


00566 


J4763 


47670 


B7 


CONTU 




14T56 


49 


14786 




47680 


OEFOIM DSC 


2,22 




14763 




2 




47690 


22 
OS A 


DFADD6 




14769 




5 


X 1 










14769 




J4'770 




47700 


OFA006 ODA 


•0, 01 M0A0,DIMSCT, FLDATA 




14770 




14 






0-4800-0 IJ 40 78 












47710 


DC 
1 


l,« 




14784 




1 




47720 


CONTU TF 


0FADD4+5,FL0ATA+45, , 


EXTRACT EQUIV FILE AODR 


14786 


26 


14855 


14123 


47730 


TD 


DFADD4,FLDATAM0,, 


EXTRACT EQUIV FILEMOOULE 


14798 


25 


14850 


14118 


47740 


*• READ THE 


EQUIV TABLE FOR LOOK UP 












47750 


RDEQIV TFM 


I0RT,«+23 




14810 


16 


00565 


J4833 


47760 


B 


I0GT,OEFEQ,7 




14822 


49 


00566 


J4841 


47770 


B7 


GOON 




14834 


49 


14866 




47780 


DEFEQ DSC 


2,22 




14841 




2 




47790 


22 
OSA 


0FA0D4 




14847 




5 


X 1 










14847 




J4850 




47800 


OC 
t 


lt« 




14848 




1 




47810 


DFADD4 ODA 


.0,EQOAO,EQSCT,FLOATA 




14850 




14 






0- 0000-04 J4078 












47820 


OC 
• 


I," 




14864 




,1 




47830 


GOON BNR 


•♦44,FL0ATA«11,, 


TEST END OP TABLE 


14866 


45 


14910 


14089 


47840 


TFM 


IOENT-2,00000,, 


ZERO OUT EQUIV MlCRiT 


14878 


16 


15888 


-0000 


47850 


BTM 


ER,*>12,, 


OPERAND NOT FOUttO 


14890 


17 


14484 


J4902 


47860 


B 


F0UN0412 




14902 


49 


14990 


00000 


4T870 


00 RG 


•-4 




14909 








47880 


C 


FL0ATA^ll,C0LL-2 




14910 


24 


14089 


02437 



17ft 
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47890 




BE 


FOUND 




14922 


46 


14978 


01200 


47900 




TR 


FL0ATAtFLDATA*16 




14934 


31 


14078 


14094 


47910 




BNR 


GOONfFLOATAt , 


TEST END OF BLOCK 


14946 


45 


14866 


14078 


47920 




AM 


OFAOD4^5«04,10t t 


NEXT BLOCK 


14958 


11 


14855 


000-4 


47930 




B7 


RDEQI V 




14970 


49 


14810 




47940 


FOUND 


TF 


I DENT-2 * FLDATA-*-15 f f 


LOAD EQUIV NUM 


14978 


26 


15886 


14093 


47950 




SF 


IDENT-5 




14990 


32 


15885 


00000 


47960 




TF 


MBUKl , I DENT-2 




15002 


26 


13383 


15888 


47970 




CF 


MBUKl-4 




15014 


33 


13379 


00000 


47980 




BTM 


TRSCANt •■♦•12 




15026 


17 


06082 


J5038 


47990 




TR 


M8UK2-4t ADDRS-4 




15038 


31 


13385 


03486 


48000 


START TO 


OUTPUT 












48010 




TF 


FRSTADtAOOCQW 




15050 


26 


03869 


02676 


48020 




TF 


ADDRSfAOOCQW 




15062 


26 


03490 


02676 


48030 




TF 


LSTAOtADDCOH 




15074 


26 


03879 


02676 


48040 




AM 


LSTADt24tl0t 


SET TO TOTAL LENGTH 


15086 


11 


03879 


000K4 


48050 




AM 


ADDC0W,19,10 




15098 


11 


02676 


000J9 


48060 




CF 


MI0CS>2 




15110 


33 


13356 


00000 


48070 




CF 


MI0CS4-14 




15122 


33 


13368 


00000 


48080 




CF 


M10CS*19 




15134 


33 


13373 


00000 


48090 




TR 


ZEPOtMIQCS 




15146 


31 


02300 


13354 


48100 




TFM 


Xt«*24 




15158 


16 


04008 


J5182 


48110 




BTM 


LINPRTyOOINST 




15170 


17 


09722 


J0750 


48120 


OUT PUT 


CONSTANTS 












48130 




TF 


LSTADtAOOCOW 




15182 


26 


03879 


02676 


48140 




AM 


AOOCOW,07,10 




15194 


11 


02676 


000-7 


48150 




TFM 


LNTHtOT 




15206 


16 


02387 


-0007 


48160 




TR 


0UT*2,MBUK3 




15218 


31 


02220 


13391 


48170 




TR 


0UT*4,MBUKl-4 




15230 


31 


02222 


13379 


46180 




BTM 


LINKCR,«Hhl2 




15242 


17 


13168 


J5254 


48190 




BO 


N03f BSWy, 


TEST 3R0 OPERAND 


15254 


43 


15338 


09502 


46200 




TR 


0UT-f2,M8UK2-4, » 


OUTPUT 3R0 OPERAND 


15266 


31 


02220 


13385 


482 10 




TO 


OSABOXff RLOCSU 




15278 


25 


09503 


08378 


46220 




TOM 


INTBUF, 1 




15290 


15 


03598 


00001 


48230 




AM 


AOOCOW,05tlO 




15302 


11 


02676 


000-5 


48240 




TFM 


LNTH,05 




15314 


16 


02387 


-0005 


48250 




BTM 


LINK0R,»<-12 




15326 


17 


13252 


J5338 


48260 


N03 


TR 


0UT*2,MRM 




15338 


■ 31 


02220 


13393 


48270 




TDM 


OUMPl^lUl.ll 




15350 


15 


03517 


OOOOJ 


48280 




TFM 


LNTH,01 




15362 


16 


02387 


-0001 


48290 




BTM 


LINKCRf v+U 




15374 


17 


13168 


J5386 


48300 




BTM 


GEET.PHASEB 




15386 


17 


09664 


-4170 


48310 




DC 


5,12345 




15402 




5 








J2345 












48320 


LSTCAR 


TFM 


LCHAR,0,10, 


BLANK THE ONE CHAR BUCKET 


15404 


16 


15537 


000-0 


48330 




BNR 


•♦20, INPUT*20 




15416 


45 


15436 


02805 


48340 




B7 


NOCAR 




15428 


49 


15516 




48350 




C 


•♦23,INPUT*20,, 


TEST BLANK 


15436 


24 


15459 


02805 


48360 




BI 


■ 4^48, 01200, 10, 




15448 


46 


15496 


012-0 


48370 




C 


•♦23, INPUT*20,, 


TEST COMMA 


15460 


24 


15483 


02805 


48380 




BI 


NOCAR, 01223, 10, 




15472 


46 


15516 


012K3 


48390 




TF 


LCHAR,INPUT4-20,t 


SAVE LAST CHARACTER 


15484 


26 


15537 


02B0S 


48400 




TR 


INPUT+19,INPUT*21 




15496 


31 


02804 


02806 


48410 




B7 


LSTCAR+12 




15506 


49 


15416 




48420 


NOCAR 


TF 


•♦18,LSTCAR-1 




15516 


26 


1SS34 


15403 


48430 




B 


00000 




15S2B 


49 


00000 


00000 
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48440 




00 RG 


•-3 




15536 








48450 


LCHAR 


DC 
J2 


2,12,, 1 


LAST CHARACTER IN 


OPERAND 15537 




2 




48460 




DC 


5,12345 




15542 




5 








J2 345 












48470 


PCALL 


TR 


C0LL-18,THINGS-20 




15544 


31 


02421 


02400 


48480 




TR 


ALPHSW,ZER0S,t 


CLEAR BUCKET AND 


SWITCH OFF 15556 


31 


15883 


15891 


48490 




BNR 


•♦20, INPUT«20,t 


RM 


15568 


45 


15588 


02805 


48500 




87 


PCALLl 




15580 


49 


15808 




48510 




CM 


INPUT^20,23,10, 


COMMA 


15588 


14 


02805 


000K3 


48520 




BE 


PCALLl 




15600 


46 


15808 


01200 


48530 




CM 


INPUT^20, 00,10 




15612 


14 


02805 


000-0 


48540 




BE 


PCTR 




15624 


46 


15788 


01200 


48550 




TF 


COLL, INPUT420 




15636 


26 


02439 


02805 


48560 




CF 


COLL-1 




15648 


33 


02438 


00000 


48570 




TR 


C0LL-17,C0LL-15 




15660 


31 


02422 


02424 


48580 




TO 


I0ENT-1,INPUT^20 




15672 


25 


15889 


02805 


48590 




TR 


I0ENT-6,I0ENT-5 




15684 


31 


15884 


15885 


4B600 




CM 


INPUT^20,69,10, 


TEST FOR ALPHA 


15696 


14 


02805 


00009 


48610 




BH 


• ♦24 




15708 


46 


15732 


01100 


48620 




TOM 


ALPHSW, 1,11, 


SET ALPHA SW ON 


15720 


15 


15883 


OOOOJ 


48630 




CM 


COLL-17,7,10 




1S732 


14 


02422 


000-7 


48640 




BNE 


PCTR 




15744 


47 


15788 


01200 


48650 




TR 


ALPHSM, ZEROS 




1S7S6 


31 


15883 


15891 


48660 




BTM 


ER,«^12 




15768 


• 17 


14484 


J5780 


48670 




B7 


ZILCH 




1S780 


49 


15876 




48680 


PCTR 


TR 


INPUT^19,INPUT*21 




15788 


31 


02804 


02806 


48690 




B 


PCALL^24 




15800 


49 


15568 


00000 


48700 




OORG 


•-3 




1S80S 






48710 


PCALL 1 


CM 


COLL-17, 06,10 




15806 


14 


02422 


000-6 


48720 




BE 


•♦44 




15820 


46 


15864 


01200 


48730 




TDM 


COLL,0 




15832 


15 


02439 


ooobo 


48740 




TR 


COLL-17,COLL-I5 




15844 


31 


02422 


02424 


48750 




B7 


PCALLl 




15856 


49 


15808 




48760 




SF 


COLL-13 




15864 


32 


02426 


00000 


48770 


ZILCH 


B 


PCALL>ltt6 




15876 


49 


1554L 


00000 


48780 




OORG 


•-4 




15883 








48790 


ALPHSW 


OC 


1,0 




15883 




1 




48800 


I DENT 


DC 


7, 000000* 




15890 




7 








•OOOQO* 












48810 


ZEROS 


DSC 


8,0000000* 




158^1 




6 








0000000* 












48820 


• TO 


LOAD 1 


PHASE 86 TO THE DISK FILE 












48830 


F6 


34 


SUB6,701 




15900 


34 


15948 


00701 


48840 




38 


SUB6,702 




15912 


38 


15948 


00702 


48850 




TRA 






15924 


36 


00000 


00500 












15936 


49 


00000 


00000 


48860 


SUB6 


00 A 


• 0,B60AD,B6SCT,INSTIIN 




15948 




14 








0J915t-29J3O94 












48870 




TCD 


F6 




15900 








48880 




OORG 


NACR2 




13406 








48890 


OSAF 


TFM 


TRQSA^6,ZEP0-4 




13406 


16 


13572 


-2296 


48900 




TR 


DSAB0XtClLEIICfl«43 




13418 


31 


09503 


02755 


48910 




TFM 


RLOSA«»«eSA»aX-| 




13430 


16 


13504 


-9502 



« 9 'i 



48920 




B7 


• ♦20 


13442 


49 


13462 




48930 




TR 


INPUT«19,INPUT«21 


13450 


31 


02804 


02806 


48940 


• 














48950 


• 


COLLECT OPERANDS 










48960 


♦ 














48970 


COEVAL 


BTM 


SCAN»«^12.7 11 


13462 


17 


06112 


J347M 


48980 




AM 


TRDSA^6,5,10 


13474 


11 


13572 


000-5 


48990 




AN 


RL0SA^6»1(10 


13486 


11 


13504 


000-1 


49000 


RLDSA 


TO 


•RLOCSW 


13498 


25 


00000 


08378 


49010 




CH 


TRDSA«6,ZEP0«51 


13510 


14 


13572 


-2351 


49020 




BL 


TROSA 


13522 


47 


13566 


01300 


49030 




TFM 


TRDSA^6f ZEP04-46 


13534 


16 


13572 


-2346 


49040 




TFM 


RLDSA«6tDSAB0X49 


13546 


16 


13504 


-9512 


49050 




B7 


TR0SA*12 


13556 


49 


13578 




49060 


TROSA 


TR 


ZEP0,A00RS-4 


13566 


31 


02300 


03486 


49070 




BNR 


G0EVAL~12«INPUT-*-20 


13578 


45 


13450 


02805 


49080 




BNF 


NACl,INTBUF4l 


13590 


44 


13778 


03599 


49090 




TFM 


LNtH.S 


13602 


16 


02387 


-0005 


49100 




AM 


A0DC0Wt5*10 


13614 


11 


02676 


000-5 


49110 




TF 


AOORSfADDCOW 


13626 


26 


03490 


02676 


49120 




SM 


ADDC0W,ZEP0«1 


13638 


12 


02676 


-2301 


49130 




A 


AD0C0W»TRDSA«6 


136S0 


21 


02676 


13572 


49140 




TF 


FRSTAOtADORS 


13662 


26 


03869 


03490 


49150 




SM 


FRSTA0t4 


13674 


12 


03869 


-0004 


49160 




TF 


LSTAO.FRSTAO 


13686 


26 


03879 


03869 


49170 




AM 


LSTAD.5 


13698 


11 


03879 


-0005 


49180 


KATHY 


BTM 


GEETtPDSAF 


13710 


17 


09664 


J 5442 


49190 


• 














49200 


• 


SUBROUTINE LINKAGE FOR FUNCTIONAL MACROS AND ARITHMETIC MACR 










49210 


• 














49220 


MACROF 


TO 


• 4-23.AD0C0W 


13722 


2S 


13745 


02676 


49230 




TO 


•♦23,AJUST 


13734 


25 


13757 


02399 


49240 




AM 


ADDCOW.vlO 


13746 


11 


02676 


000-0 


49250 




TF 


SPQFLD^11«INTBUF«6 


13758 


26 


13897 


03604 


49260 




B7 


OSAFt««TO DSA ROUTINE TO PICK UP OPERANDS 


13770 


49 


13406 




49270 


• 














49280 


• 


ASSEMBLE LINKAGE 










49290 


• 














49300 


MACl 


TR 


0UT^2.ZEP0»1 


13778 


31 


02220 


02301 


49310 




TF 


ADORSfAOOCOW 


13790 


26 


03490 


02676 


49315 




SM 


A00COW«ZEPO-23 


13802 


12 


02676 


-2277 


49320 




A 


ADDCaW>TRDSA-*-6 


13814 


21 


02676 


13572 


49340 




TR 


ZEPO.LINK 


13826 


31 


02300 


03492 


49350 




A 


ZEPO^lltADORS 


13838 


21 


02311 


03490 


49360 




MM 


SPQFL04ll,S>1011 


13850 


13 


13897 


000-N 


49370 




TR 


ZEP0*25,0UT+2 


13862 


31 


02325 


02220 


49380 




S 


ZEP0*18,99 


13874 


22 


02318 


00099 


49390 


SPQFLO 


OF 


ZERO* 14 


13886 


33 


02314 


00000 


49400 




TFM 


X,»+24 


13898 


16 


04008 


J3922 


49410 




BTM 


LINPRT.OOINST 


13910 


17 


09722 


J0750 


49420 




TR 


0UT+2,2EP0-i-25 


13922 


31 


02220 


02325 


49430 




AH 


ADDRS,7tlO 


13934 


11 


03490 


000-7 


49440 




TF 


LSTAD,AOORS 


13946 


26 


03879 


03490 


49450 




BTM 


LINK0R,»*12 


13958 


17 


13252 


J3970 


49460 




TFM 


LNTH,1 


13970 


16 


02387 


-0001 


49470 




TO 


0UT«2tt-NTH^l.,M0VE REC.MRK. TO 0UT4'2 


13982 


2S 


02220 


02388 



173 



49480 




TDM 


0UMP14-11,1,11 


13994 


15 


03517 


OOOOJ 


49490 




BTM 


LINKCR.«4-12 


14006 


17 


13166 


J4018 


49500 




BTM 


GEET.PHASEB 


14018 


17 


09664 


-4170 


49510 
















49520 




DEFINE DISK ADDRESS 










49530 


• 














49540 


DDAF 


BTM 


SCAN, •♦12 


14030 


17 


06112 


J4042 


49550 




TO 


MURIEL, BSW 


14042 


25 


03597 


09502 


49560 




80 


ODASGN.BSW 


14054 


43 


14098 


09502 


49570 




TO 


KLRLSW, RLOCSW 


14066 


25 


04003 


06378 


49580 




TF 


LSTAOfADDRS 


14076 


26 


03879 


03490 


49590 




B7 


0DA2 


14090 


49 


14146 




49600 


DDASGN 


TF 


LSTAD,ADDCOW 


14098 


26 


03879 


02676 


49610 




TD 


•♦23,LSTAD 


14110 


25 


14133 


03679 


49620 




TO 


•♦23,AJUST 


14122 


25 


14145 


02399 


49630 




AM 


LSTAD,00,10 


14134 


11 


03879 


000-0 


49640 


00A2 


TR 


INPUT^19, INPUT+21 


14146 


31 


02804 


02606 


49650 




BTM 


SCAN, •♦12 


14158 


17 


06112 


J4170 


49660 




TD 


DAX-5,AD0RS 


14170 


25 


14458 


03490 


49670 




TR 


INPUT^19,INPUT«21 


14182 


31 


02804 


02806 


49680 




BTM 


SCAN, •♦12 


14194 


17 


06112 


J4206 


49690 




TF 


DAX,AD0RS 


14206 


26 


14463 


03490 


49700 




TR 


INPUT^19,INPUT^21 


14218 


31 


02804 


02806 


49710 




BTM 


SCAN, •♦12 


14230 


17 


06112 


J4242 


49720 




SF 


ADDRS-2 


14242 


32 


03488 


00000 


49730 




TF 


SCTX,A00RS 


14254 


26 


14467 


03490 


49740 




TR 


INPUT^19,!NPUT*21 


14266 


31 


02804 


02806 


49750 




BTM 


SCAN, •♦12 


14278 


17 


06112 


J4290 


49760 




TF 


MAXfAODRS 


14290 


26 


14473 


03490 


49770 




TR 


0UT^2, OAX-5 


14302 


31 


02220 


14458 


49780 




TFM 


LNTH,6 


14314 


16 


02387 


-0006 


49790 




BTM 


LfNKC,»^12 


14326 


17 


13138 


J4338 


49800 




TR 


0UT^2,SCTX-2 


14338 


31 


02220 


14465 


49810 




TFM 


LNTH,3 


14350 


16 


02387 


-0003 


49820 




BTM 


LINKCR,^^12 


14362 


17 


13168 


J4374 


49830 




TR 


0UT^2,MAX-4 


14374 


31 


02220 


14469 


49840 




TD 


DSABOX,RLOCSM 


14386 


25 


09503 


08378 


49850 




BTM 


LINKDR,>^12 


14398 


17 


13252 


J4410 


49860 




BNF 


•♦36, MURIEL 


14410 


44 


14446 


03597 


49870 




TF 


AOOCOM.LSTAD 


14422 


26 


02676 


03879 


49880 




SM 


AOOCOW.l 


14434 


12 


02676 


-0001 


49890 




BTM 


GEETtPHASEB 


14446 


17 


09664 


-4170 


49900 


DAX 


DS 


6 


14463 




6 




49910 




DC 
• 


1,« 


14464 




1 




49920 


SCTX 


DS 


3 


14467 




3 




49930 




DC 
t 


If* 


14468 




1 




49940 


MAX 


OS 


5 


14473 




5 




49950 




OC 


1,« 


14474 




1 




49960 


»♦ TRANSFER 


TO RETURN ADDRESS ROUTINE 










49970 


MTRA 


TD 


•♦23,A00C0W«, ADJUST AOOCOU 


14476 


25 


14499 


02676 


49980 




TD 


•♦23,AJUST . 


14488 


25 


14511 


02399 


49990 




AM 


AOOCOWttlO 


14500 


11 


02676 


000-0 


50000 




TFM 


MIOCS^l 1*00019 


14512 


16 


13365 


-0019 
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50010 


A 


MIOCS^'l 1 1 ADOCOMt t 


RETURN ADDRESS 


14524 


21 


13365 


02676 


50020 


TFM 


MI0CS*18i lOCALt t 




14536 


16 


13372 


-0716 


50030 


jf 


FRCTAD. Annrnu 

n\0 1 f AI#lilwUlf 












50040 


jf 






14560 


26 


03879 


02676 


50050 


AM 


C.oi Ai^f ^*rt Awf 




14572 




03879 


000K4 


50060 


CF 


n 1 o 




1 4^QA 




13356 


nnnnn 


50070 


CF 










1 ^^7^ 


uuuuu 


50080 


CF 


H t UUo A 7 




1 AAna 






nnnnn 


50090 


TR 


7FDn. MTfir c 




1 AA^? 


31 




n^AAQ 


50100 


TF 








26 


n^lon 




501 10 


TFM 


Xt*^24 




1 




04008 


lAAAA 


50120 


BTM 


1 TNPRT.nniM^T 




14 


17 


09722 


in7An 


50130 •* 


GENERATE 














50140 


TFM 




MnnF rnnp 




16 


1 ^•*<3? 


U vUf\lv 


50150 


CF 






1 2a09 


a? 


1 a»Ql 


uuuuu 


50160 


TR 






1 ^Tnf 




n?7?n 


nnn^o 


50170 


AM 




Mnyp Annrnu Tn cun np i tAiir 

nUVC AUUwUM lU CNU Ur LINK 


I ATI 2 




n^A-ya 




50180 




i CT An. Annrnu 




1 ^T^ft 


3A 




7A 


50190 


AM 


Annrnu. n? . i n 






II 


nOATA 






TFM 


LNTH«02 




14740 


16 


02387 


—0002 


50210 


BTM 






14752 




13168 


^^^^^ 


50220 


TF 


MBUK 1 f ADDCOW f t 


AnnRFCc HP nnA 


14764 


26 


13383 




50230 


AM 


MRiiK 1 .nA. 1 n 










000-6 


50240 


TR 






14788 


31 


02220 


13379 


50250 


AM 


AOOCOW»05t 10 




14800 




02676 


000—5 


50260 


TFM 


LNTHf 05 




14812 


16 


02387 


—0005 


50270 


TD 


ncAnnx.RFi ^u 




1 ^flaA 






nnnn? 






I NTBUF f 1 








ill A3 




50290 


BTM 


LINK0R,»^12 




ilflAn 


IT 




lAAAO 

1 ttoa 


50300 


TR 


0UT^2»MRM,, 


RPrnRD MARK 










503 10 


AM 


ADDCOW, OltlO 




14872 


11 


02676 


000 1 


50320 


TFM 


LNTH.Ol 




14884 


16 


02387 


—0001 


50330 


TDM 


0UMP14^1I,1,11» 


PRINT RM 


14896 


15 


03517 


nnnn i 


50340 


BTM 


LINKCR,»+12 




14908 


17 


13168 


J4920 


50350 ** 


GENERATE ODA 












50360 


TDM 


0UT>2.1,, 




14920 


15 


02220 


00001 


50370 


TFM 


MBUKltlOCSAO 




14932 


16 


13383 


J9783 


50380 


TR 


0UT*3,MBUKl-4 










nnn^A 


50390 


AM 


ADDCOW, 06, 10 




14956 




02676 






TFM 


LNTH,06 










nnoA 


50410 


BTM 


LINKCR,*^12 




1 Aoan 


17 


13168 


Iaoq? 
nnZnf 


50420 


TFM 


MBUK1,003,9« 




1 AOQ? 


16 


13383 




50430 


TR 


0UT*2,MBUK1~2 




1 cnn& 
1 ^ni A 


'J 




1 »aAi 
nnn t 




AM 


ADDCOW, 03,10 




1 ^n9A 




n9A7A 






TFM 


LNTH,03 






1 A 


n94AT 


0003 


50460 


BTM 


LINKCR,**12 




15040 


17 


13166 


J5052 


50470 


TFM 


MBUK1,0,, 


CORE ADDRESS 


15052 


16 


13383 


-0000 


50480 


TR 


0UT>2,MBUKl-4 




15064 


31 


02220 


13379 


50490 


AM 


ADOCOW,05,10 




15076 


11 


02676 


000-5 


50500 


TFM 


LNTH,06 




15088 


16 


02387 


-0006 


50510 


TOM 


OUMPl+11,0,11 




15100 


15 


03517 


0000- 


50520 


BTM 


LINKCR,»«12 




15112 


17 


13168 


J5124 


50530 


BTM 


6EET,PHASEB 




15124 


17 


09664 


-4170 



50540 • 

50550 • EVALUATE ADDRESS OF OEND 

50560 • 
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50570 


OENDF 


BTM 


SCAN, •♦12 


15136 


17 


06112 


J5148 


50580 




CF 


ADDRS-4 


15148 


33 


03486 


00000 


50590 




BNF 


•♦24,LSTYSW 


15160 


44 


15184 


02480 


50600 




WNTY 


ADORS-4 


15172 


38 


03486 


00100 


Li06i0 




BNF 


•♦36,LSCDSW 


15184 


44 


15220 


02479 


50620 




BTM 


FILL,ADRFIL-4 


15196 


17 


12546 


J2997 


50630 




WACD 


INPUT2 


1520B 


39 


03279 


00400 


50640 




SF 


AOORS-4 


15220 


32 


03486 


00000 


50650 




BD 


DOTCO, INTBUF^6,, CHECK FOR TCD 


15232 


43 


15484 


03604 


50660 




TFM 


TESTAO 


15244 


16 


09482 


-0000 


50670 




TF 


FRSTAO,HIADD 


152S6 


26 


03869 


02S19 


50680 




TFM 


LNTH 


15268 


16 


02387 


-0000 


50690 




TD 


0UT4^2,LNTH4-1,,RK.MRK. 


15280 


25 


02220 


02388 


50700 




BTM 


REL0DG«6tl0ll 


15292 


17 


11036 


000-0 


50710 




BTM 


STACKR,9,10 


15304 


17 


11288 


000-9 


50720 




TDM 


STNUC0^1392 


15316 


19 


12343 


00002 


50730 




BT 


M00IFI,M0DIFI-1 


15328 


27 


12186 


12185 


50740 




TR 


TR0ATA4^6,NINES-5,6 


15340 


31 


11630 


15471 


50750 




TFM 


410,999,9 


153S2 


16 


00410 


00R99 


50760 




TR 


416,A00RS-4 


15364 


31 


00416 


03486 


50770 


• 


WRITE FINAL 3 SECTORS TO FILE 










50780 


FINIS 


TFM 


I0RT,*4>23 


15376 


16 


00565 


J5399 


50790 




B 


I0RBC,DEF0UT,7 


15388 


49 


00520 


-3549 


50800 


• 


END OF PHASE B *CALL IN PHASE C 










50805 




TDM 


PICKUP4-1,1,11 


15400 


IS 


02530 


OOOOJ 


50810 




TFM 


CFFA, PHAZEC 


15412 


16 


02631 


J5436 


50820 




BTM 


CFF, PHASEC 


15424 


17 


02594 


JOOOO 


50830 


PHAZEC 


DO A 


• 0, PHCOAO.PHCSCTt PHASEC 


15436 




. I* 








OJ 92 60-40 JOOOO 










50840 




DC 
f 




15450 




1 




50850 


SIMPLE 


TOM 


TR0ArA4^6,6,611 


15452 


15 


1163Q 


00000 


50860 




B7 


FINIS-48 


15464 


49 


15328 




50870 


NINES 


DC 


6,99999* 


15476 




6 








R9999" 










50880 


OHSIX 


DC 


6,6 


15482 




6 








-00006 










50890 




DC 
• 


1,« 


15483 




1 




50900 


DOTCO 


BTM 


RELODG, 0,1011 


15484 


17 


11036 


000— 


50910 




TFM 


LNTH 


15496 


16 


02387 


-0000 


50920 




TD 


0UT-7,IC 


15508 


25 


02211 


03864 


50930 




TR 


OUT-6,AO0RS-4 


15520 


31 


02212 


03486 


50940 




BTM 


6EET,LUCK 


15532 


17 


09664 


J0146 


50950 


• TO 


LOAD 


PHASE 85 TO THE FILE 










50960 


F5 


34 


SUB5,701 


15544 


34 


15592 


00701 


50970 




38 


SU85,702 


15556 


38 


15592 


00702 


50980 




TRA 




15568 


36 


00000 


00500 










15580 


49 


00000 


00000 


50990 


SUB5 


ODA 


•0,B50AO,B5SCT,IN$TRN 


15592 




14 








0J9112-29J3094 










51000 




TCD 


F5 


15544 








51010 


PHASEC 


00R6 


10000 • RiAO SfCfOIIS 1^2 OF OajfCT PIIQ6Mli| 


10000 








51020 




TFM 


lORT t«*23 


10000 


16 


00565 


J0023 


51030 




B 


lOGT rJHB >? 


10012 


49 


00566 


J1594 



I 7fi 
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PAGE 



52 



51040 




BNR 


DO ,ISTAT-29 f. 


BR IF SUBRS REQD 


10024 


45 


10044 


02531 


51050 




B7 


SIZE 




10036 


49 


10340 




51060 


DO 


SF 


415 , tf 


INDICATE SUBRS REOO 


10044 


32 


00415 


00000 


51070 




IF 


BUF*5 tBUF«^105 


STORE FIRST AOR 


10056 


26 


12186 


12286 


51080 




TF 


BUF480 iBUF^5 




10068 


26 


12261 


12186 


51090 




SN 


BUF«5 tlOO t9t 


CONVERT TO 1 SECTOR BEFORE 


10080 


12 


12186 


OOJOO 


51100 




TDM 


BUF4-6 t2 




10092 


15 


12187 


00002 


51110 




BNF 


• ♦24 tBUF4^106 


RELOCATABLE 


10104 


44 


10128 


12287 


51120 




TOM 


BUF*6 ,-2 .» 


NON RELOCATABLE 


10116 


15 


12187 


OOOOK 


51130 




TF 


BUF+14 ,FRSTCD 


MOVE SPS ID CODE AND LENGTH 


10128 


26 


12195 


11593 


51140 






TO CARD 1 COLS 6-14 












51150 




TO 


BUF481 .BUF4-6 tt 


CONSTANT I NO FOR SECOND CARD 


10140 


25 


12262 


12187 


51160 




TR 


BUF*82 .SECCD-3 


LOADS SECOND CARD C0LS7-2S 


10152 


31 


12263 


11567 


51170 




TO 


BUF4-85 (R MARK ft 


INSERTS RECORD MARK 


10164 


25 


12266 


00421 


51180 




WRITE SECTOR I AND 2 AFTER SECTOR 1 IS UPDATED 










51190 




TD 


BUF«24 tRELSW 


-1 IF RELOCATABLE OBJ PGM 


10176 


25 


12205 


02478 


51200 




TR 


BUF^25 .COMOAT^DQt* 


MOVE COMMON DATA 


10188 


31 


12206 


02510 


51210 




TF 


BUF ^75 •! STAT 




10200 


26 


12256 


02560 


51220 




TFM 


lORT ,•♦23 




10212 


16 


00565 


J023S 


51230 




B 


lORBC ,JHB f7 




10224 


49 


00520 


J 1594 


51240 




RD DIM ENTRIES FOR SUBR INCL PICK 










51250 


ROOIM 


TFM 


lORT ,•♦23 




10236 


16 


00565 


J0259 


51260 




B 


lOGT ,JH82 f7 




10248 


49 


00566 


J 1602 


51270 


CKSET 


CM 


ISTAT-36 ,02 




10260 


14 


02524 


-0002 


51280 




BL 


CK DIM , 


BR IF FIXED L SPECIFIED 


10272 


47 


11356 


01300 


51290 




TFM 


MAP ,614^WA 




10284 


16 


11299 


J2795 


51300 




BE 


CK DIM • ,, 


BR IF VARIABLE L SPECIFIED 


10296 


46 


11356 


01200 


51310 




TFM 


MAP ffl44WA 




10308 


16 


11299 


J2195 


51320 




B7 


CK DIN 




10320 


49 


11356 




51330 




BNR 


CALC ,ISTAT-29 »7, 


BR IF LAST REQ SUB NOT PROCESSED 


10328 


45 


11156 


-2531 


51340 


INO 


DS 


#• f f 


I STAT POINTER 


10339 




0 




51350 


SIZE 


TFM 


lORT ••♦23 


SYS COMN SEC TO ZERO 


10340 


16 


00565 


J0363 


51360 




B 


lOGT tCSODOA ,7 




10352 


49 


00566 


J1610 


51370 




» PUNCH BLANK RECORDS AFTER 


LIST DECK 










51380 




BNF 


HIPICK .LSCDSW 




10364 


44 


10460 


02479 


51390 




TR 


CLERER^S4fCLERER 




10376 


31 


02766 


02712 


51400 




TDM 


CLERER^53»0 




10388 


15 


02765 


00000 


51410 




TR 


CLERER^108,CLERER 




10400 


31 


02820 


02712 


51420 




TDM 


CLERER^107 




10412 


15 


02819 


00000 


51430 




WACO 


CLERER^2 




10424 


39 


02714 


00400 


51440 




WACO 


CLERER^2 




10436 


39 


02714 


00400 


51450 




WACO 


CLERER^2 




10448 


39 


02714 


00400 


51460 


•••••• 


PLACE HIGHEST ADDRESS USED 


1 IN PICKUP ' 










51470 


HIPICK 


C 


HIADO fPICKUP 




10460 


24 


02519 


02529 


51480 




BNH 


• ♦24 




10472 


47 


10496 


01100 


51490 




TF 


PICKUP ,HIAOD 




10484 


26 


02529 


02519 


51500 




5 


CYLINDER CHECK 












51510 




CM 


SUBOUT^S ,1000 




10496 


14 


03563 


-1000 


51520 




BNH 


AOK 




10S08 


47 


10696 


01100 


51530 




BD 


•♦20 ,22^PHASEC 




10520 


43 


10540 


10022 


51540 




B7 


AOK 




10532 


49 


10696 




51550 




CF 


22^PHASEC 




10540 


33 


10022 


00000 


51560 




TDM 


23+PHASEC,0 til 




10552 


15 


10023 


0000- 


51570 




TO 


•♦20 ,73^PHASEC 




10564 


25 


10584 


10073 


51580 




CM 


•♦8 ,05 »710 




10576 


14 


10984 


-00-5 


51590 




BE 


• ♦24 




105S8 


46 


10612 


01200 



177 
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51600 




TDM 


23^PHASEC 


t-1 






10600 


15 


10023 


OOOOJ 


51610 




RCTY 










10612 


34 


00000 


00102 


51620 




WATY 


BARF 








10624 


39 


11995 


00100 


51630 




RCTY 










10636 


34 


00000 


00102 


51640 




WATY 


BARF2 








10648 


39 


12081 


00100 


51650 




H 










10660 


48 


00000 


00000 


51660 




BNC4 


AOK 








10672 


47 


10696 


00400 


51670 




TDM 


OUP-l 


t2 


f t 


INHIBIT DUP CALL 


10684 


15 


11111 


00002 


51680 


AOK 


SM 


STCNT 


• 1 


tlO 




10696 


12 


02914 


000-1 


51690 




TR 


O^PHASEC 


,403 






10708 


31 


10000 


00403 


51700 




BD 


ALL-12 


tSKIP 






10720 


43 


10840 


11510 


51710 




S 


OBJCRE 


, PICKUP 






10732 


22 


02497 


02929 


51720 




RCTY 










10744 


34 


00000 


00102 


51730 




TD 


PICKUP^l 


,R MARK 






10756 


25 


02930 


00421 


51740 




BNL 


•♦72 




t fl 


BR IF OBJCRE IS NOT EXCEEDED 


10768 


46 


10840 


01300 


51750 




WATY 


OVER 








10780 


39 


11759 


00100 


51760 




TD 


OBJCRE^l 


tPICKUP^l 






10792 


25 


02498 


02530 


51770 




CF 


OBJCRE 








10804 


33 


02497 


00000 


51780 




CF 


OBJCRE-4 








10816 


33 


02493 


00000 


51790 




WNTY 


OBJCRE-4 








10828 


38 


02493 


00100 


51800 




RCTY 










10840 


34 


00000 


00102 


51810 


ALL 


WATY 


END 








10852 


39 


11621 


00100 


51820 




BD 


• ♦60 


• SKIP 






10864 


43 


10924 


11510 


51830 




CF 


PICKUP-4 








10876 


33 


02525 


00000 


51840 




RCTY 










10888 


34 


00000 


00102 


51850 




WNTY 


PICKUP-4 








10900 


38 


02525 


00100 


51860 




WATY 


CORE 








10912 


39 


11655 


00100 


51870 




BNF 


• ♦24 


tRELSW 






10924 


44 


ia948 


02478 


51860 




WATY 


RELCRE 








10936 


39 


11705 


00100 


51890 




RCTY 










10948 


34 


00000 


00102 


51900 




TF 


AOORS 


• STCNT 






10960 


26 


03490 


02514 


51910 




CF 


ADORS-4 








10972 


33 


03486 


00000 


51920 




WNTY 


AODRS-4 








10984 


38 


03486 


00100 


51930 




WATY 


STPM 








10996 


39 


11951 


00100 


51940 




RCTY 










11008 


34 


00000 


00102 


51950 




BV 


• ♦12 








11020 


46 


11032 


01400 


51960 




TFM 


lORT 


• •♦23 






11032 


16 


00565 


J1055 


51970 




B 


lORBC 


•CSDODA 


,7 




11044 


49 


00520 


J1610 


51980 




RCTY 






f t 


FOLLOWING MACAO TERMINATiS PHASE C 


11056 


34 


00000 


00102 


51990 




BNF 


• ♦20 


U2^PHASEC 


t • 


BR IF DISK OUTPUT NOT REQD 


11068 


44 


11088 


10022 


52000 




B7 


DUP-12 








11080 


49 


11100 




52010 




BNF 


CALC-20 


,23^PHASEC 


f t 


BR IF OTHER OUTPUT NOT REQD 


11088 


44 


11136 


10023 


52020 




TDM 


SYSCAL 


,1 






11100 


15 


00475 


00001 


52030 


DUP 


NOP 






, t 


RESERVED FOR READING CARD TO ZERO 


11112 


41 


00000 


00000 


52040 




B 


MONCAL 








11124 


49 


00796 


00000 


52050 




TDM 


SYSCAL 


,2 


t , 


INHIBIT DUP CALL 


11136 


15 


00475 


00002 


52060 




B7 


DUP 








11148 


49 


11112 




52070 


CALC 


TFM 


CKMAP^54 


• USED 






11156 


16 


11446 


J1276 


52080 




BD 


USED 


,IN0 


tilt 


BR IF THIS SUSR USED 


11168 


43 


11276 


1033R 


52090 




AM 


INO 


,01 


tlOt 


ADJ ISTAT POINm FOR NEXT ENTRY 


11180 


11 


10339 


000-1 


52100 




AM 


CKMAP+42 


,01 


tlO 




11192 


11 


11434 


000-1 


52110 




SM 


NE 


,01 


tlO. 


AOJ NO OF ENTMES FOR SUM 


11204 


12 


11236 


000-1 


52120 




BH 


lND-11 




1 1 


BR IF MORE ENTRIES OF SUM AVAIL 


11216 


46 


10328 


01100 


52130 




AM 


MAP 


^20 


t7IO» 


OBTAIN NO OF INfRIES OF NEXT SUM 


11228 


11 


11299 


-OOKO 


52140 


NE 


DS 


2 


• •-3 


ft 


NO OF ENTmES LEFf FOR Oill ENfllV 


11236 




2 




52150 




TD 


NE 


•NAP 


tit 




11240 


25 


11236 


1129R 



\7b 
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S2160 




BD IND*11 tNE t» RETURN TO CHECK I STAT 


11252 


43 


10328 


11236 


52170 




B NE-8 


11264 


49 


11228 


00000 


52180 


USED 


SN MAP ,5 tlOt OBTAIN SUBR LENGTH ADD TO TOTAL L 


11276 


12 


11299 


000-5 


52190 




A PICKUP tUA>1214 ,7 


11288 


21 


02529 


J 3^95 


52200 


MAP 


DS •» POINTER FOR SUBROUTINE DIM ENTRY 


11299 




0 




52210 




AM MAP ,25 ,10, ADV SUBR PNTR FOR NEXT SUBR 


11300 


11 


11299 


00OK5 


52220 




A I NO ,NE ,, ADV tSTAT PNTR FOR BAL OF SUBR ENTS 


11312 


21 


10339 


11236 


52230 




A CKMAP»42 »NE 


11324 


21 


11434 


11236 


52240 




B NE«4 • BR TO SET NE FOR NEXT SUBROUTINE 


11336 


49 


11240 


00000 


52250 




DORG •-4 


11343 








52260 




SKIP BLANK DIM ENTRIES 










52270 




AM MAP ,20 


11344 


11 


11299 


-0020 


52280 


CKDtM 


TF •♦SS ,MAP 


11356 


26 


11391 


11299 


52290 




AM •♦23 ,6 


11368 


11 


11391 


-0006 


52300 




BNR CK OIM-12 


11380 


45 


11344 


00000 


52310 


CKMAP 


TF •♦42 ,MAP ,, INSURE PROPER DIM ENTRIES 


11392 


26 


11434 


11299 


52320 




AM ^+30 ,4 


11404 


11 


11434 


-0004 


52330 




TF •♦21 •ISTAT>36 


11416 


26 


11437 


02524 


52340 




CM ,00 ,, INIT AT 01 FOR SOFT DIV 


11428 


14 


opooo 


-0000 


52350 




BE USED^12 , ,, BR IF ENTRY OK 


11440 


46 


11288 


01200 


52360 




TFM DELETE^30, FAULT ,, CHANGE DELETE MESSAGE 


11452 


16 


11494 


J1895 


52370 


DELETE 


RCTY 


11464 


34 


00000 


00102 


52380 




SF NONEX , ,, PREVENTS EXECUTION 


11476 


32 


00457 


00000 


52390 




WATY OTHER 


11488 


39 


11823 


00100 


52400 




TOM SKIP ,-0l 


1 1500 


15 


11510 


0000 J 


52410 


SKIP 


DS 1 ,•-! SKIP OUTPUT REFERRG TO CORE I F-1 


11510 




1 




52420 




B7 SIZE 


11512 


49 


10340 




52430 


• FOR SUBROUTINE DIM ENTRIES 










52440 


OOAJB 


DDA ,l,SUBDAD,19,WA4l 


11520 




14 








1-48Q8-19J2182 










52450 




DC 1 •• 


11534 




1 




52460 


» FOR READING 2 SECTORS AND URT SECTOR 1 










52470 


OOAIJB 


DDA ,!,•-•, 2, BUF^l 


11536 




14 








1-0000-02J2182 










52480 




DC 1 , • 
* 


11550 




1 




52490 


CSDOA 




11552 




14 








IJ9663-01J0000 










52500 




DC I , • 
1 


11566 




1 




52510 


SECCD 


DC 4 ,100 ,, CONSTANT FOR SECOND CARD 


11570 




4 








— 1 00 










52520 




DC 6 ,-3002 


11576 




6 








-0300K 










52530 




DC 9 ,6012345* 


11585 




9 








-6012345* 










52540 


FRSTCD 


DC 8 ,67514842 ,, CONSTANT FOR FIRST CARD 


11593 




8 








07514842 










52550 


RMARK 


OS ,421 


00421 




0 




52560 


COMOAT 


DS •ISTAT-59 , HI ORDER POSITION OF COMMON DATA 


02501 




0 




52570 


CDIM 


DS ,tSTAT-30 


02530 




0 




52580 


JHB 


DSC 2 ^02 
02 


11594 




2 




52590 




DSA DDAIJB 

1 7 


11600 

9 




5 


X 1 
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11600 




J1S36 




52600 




DC I ,» 
1 


11601 




1 




52610 


JHB2 


DSC 2 ,22 


11602 




2 




52620 




22 

DSA DOAJB 


11608 




5 


X 1 








11608 




J1520 




52630 




DC 1 ,» 
• 


11609 




1 




52640 


CSODDA 


DSC 2 ,22 
22 


11610 




2 




52650 




DSA CSDOA 


11616 




5 


X 1 








11616 




J1552 




52660 




DC 1 •• 
t 


11617 




1 




52670 




DS 1 


11618 




1 




52680 


END 


DAC 17, END OF ASSEMBLY. • 


11621 




17 


X 2 






END OF ASSEMBLY.* 






52690 


CORE 


DAC 25, CORE POSITIONS REQUIRED* 


11655 




25 


X 2 






CORE POSITIONS REQUIRED* 








52700 


RELCRE 


DAC 27, PLUS RELOCATION INCREMENT* 


11705 




27 


X 2 






PLUS RELOCATION INCREMENT* 








52710 


OVER 


DAC 32, EXCEEDED SPECIFIED CAPACITY BY • 


11759 




32 


X 2 






EXCEEDED SPECIFIED CAPACITY BY • 








52720 


OTHER 


DAC 36, SUBROUTINES OTHER THAN PGM DIV USED* 


11823 




36 


X 2 






SUBROUTINES OTHER THAN PGM 01 V USED* 








52730 


FAULT 


DAC 28, NO DIN ENTRY FOR SUBROUTINE* 


11895 




' 28 


X 2 






NO DIM ENTRY FOR SUBROUTINE* 






52740 


STPM 


DAC 22, STATEMENTS PROCESSED* 


11951 




22 


X 2 






STATEMENTS PROCESSED* 






52750 


BARF 


DAC 4a,N0RE THAN 5 CVLINOCRS OF RELDAMBLE OUTPUT* 


11995 




43 


X 2 






MORE THAN 5 CYLINDERS OF RELOADABLE OUTPUT* 








52760 


BARF2 


DAC 50»SW4 ON TO DUMP OUTPUTt OFF TO COMTINUEt NO OUTPUT* 


12081 




50 


X 2 






SM4 ON TO DUMP OUTPUT^ OFF TO CONTINUE* NO OUTPUT* 








52770 




OS I 


12180 




1 




52780 


BUF 


DSS 1900 


12181 




1900 




52790 


MA 


OS .BUF , MOrtK AREA FOR SUBROUTINE NAP 


121S1 




0 




52800 




DORG MA 


12181 








52810 


CLOAD 


34 SUBC ,701 ,, SELF LOADER 


12182 


34 


12230 


00701 


52820 




38 SUB C ,702 


12194 


38 


12230 


00702 


52830 




TRA 


12206 


36 


00000 


00500 








12218 


49 


00000 


00000 


52840 


SUBC 


DDA •0,PHCDAD*PHCSCT,PHASEC 


12230 




14 






0J9260-40J0000 






52850 




TCD CLOAD 


12182 








52860 




OEND INITI 


041S8 
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IPTSPB 


01500 


OMSENO 


12626 


LSCOSH 


02479 


5CHAR 


07640 


BSAV 


09464 


ISTFCD 


09938 


DMSERl 


12902 


LSPRSW 


02481 


6CHAR 


07672 


BSBF 


09458 


2PRTI0 


20000 


0NSER2 


12306 


LSTCAR 


15404 


7TY5 


03862 


BSHI 


09434 


2PTSPB 


00600 


OMSNNl 


12074 


LSTCON 


12930 


AIDAO 


18600 


BSNEO 


09402 


ACTFIL 


13065 


OMSNUM 


12086 


LSTOUT 


12826 


AISCT 


00137 


BSW 


09502 


AOOBKT 


13400 


OOCONF 


15430 


LSTVSW 


02480 


A2DAD 


18800 


BTBL2 


05586 


AOOCOW 


02676 


DOINST 


10750 


MACROF 


13722 


A2SCT 


00058 


BTBL 


05762 


ADDSUB 


06828 


DOLLAR 


07368 


MAXLIM 


15997 


A30A0 


18861 


BUF 


12181 


ADRFIL 


13001 


DOMESS 


10526 


MDIGIT 


13394 


A3SCT 


00022 


CALC 


11156 


ALPHSH 


15883 


OSABOX 


09503 


MESOUT 


10466 


A4DAD 


18883 


CAL 


14564 


ANAL41 


11514 


OTLOOP 


13432 


MGRUDR 


13782 


A4SCT 
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,7 


(3) 


MOO P FLD AS REQO 


04934 


70 


04873 


00—7 


03120 




TD 


• ♦22 


,x 


(2) 




04946 


25 


04968 


00-00 


03130 




A 


SAVE 


, LOC 115+40 




04958 


21 


04873 


06355 


03140 




MA 


7 13) 


,SAVE 






04970 


70 


00—7 


04873 


03080 




BX 


ADJ Q 


,ONE 


(2),, 


STEP CTL PNT TO Q FLD 


04982 


61 


04994 


05J69 


03190 


ADJQ 


BO 


Q FLD 


tX 


(2).* 


BR IF MODFG Q FLO 


04994 


43 


05018 


00-00 


03105 




BX 


Q NO 


,ONE 


(2)». 


STEP CTL PNT TO NEXT P FLD 


05006 


61 


05078 


05J69 


03090 


OFLD 


MA 


SAVE 


.12 


(3),, 


MOD Q FLD AS REQD 


05018 


70 


04873 


00- J 2 


03100 




TD 


• ♦22 


,X 


(2) 




05030 


25 


05052 


00-00 


03101 




A 


SAVE 


,LOCI15+40 




05042 


21 


04873 


06355 


03140 




MA 


12 (3) 


• SAVE 






05054 


70 


00-J2 


04873 


03150 




BX 


• ♦12 


,ONE 


(2),, 


STEP CTL PNT TO NEXT P FLD 


05066 


61 


05078 


0SJ69 


03192 


OND 


BXM 


• ♦12 


.12 


(3),, 


STEP PNTR TO Qll OF THIS INST 


05078 


62 


05090 


00- J2 


03194 




BCXM 


INST 


.-12 


(1)., 


STEP DOWN LNG AVAIL BY 12 


05090 


64 


04886 


OOOJK 


03196 




B7 


NXT INO 








05102 


49 


04778 




03210 


PCONST 


BNF 


CONST 


.99998 


(3)., 


BR IF RELOCATABLE 


05110 


44 


04898 


99RR8 


03220 




CM 


99995 (31 


.3 


,9 




05122 


14 


99RR5 


00-03 


03230 




BNE 


CONST 








05134 


47 


04898 


01200 


03240 


PSUEDO 


TF 


CTLAR+59 


• RMS 






05146 


26 


06524 


06456 


03250 




TR 


TCP 


• 1 


(3),, 


MOVE PS CON ONLY 


05158 


31 


06525 


00—1 




ONE 


OS 




,PSUE00+23 




05169 




0 




03260 




TFM 


99997 (3) 


.X 




SET ADR TO ZERO 


05170 


16 


99RR7 


-0000 


03270 


PBOTH 


A 


319 


.X 


(3),, 


ADJ IX 3 BY L OF PSUEDO 


05182 


21 


00319 


00—0 


03280 




BNR 


2ND PC 


.1 


(3),, 


BR IF COL 75 OR CONTD 


05194 


45 


05254 


00—1 


03290 


PLOAO 


TR 


CTLAR 


. TCP 


• * 


LOAD COMPLETE PS CON TO CTL AREA 


05206 


31 


06465 


06525 
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03300 




TDM 


INST*l ,5 


05218 


15 


04887 


00005 




SIX 


OC 
-6 


2 >06 tPLOAD ^22 


05228 




2 






7FIVE 


DC 
P5 


2 .75 tPLOAD ^20 


05226 




2 




03305 




CF 


CTLAR 


05230 


33 


06465 


00000 


03310 




BLXM 


NXT IND fCTLAR 121 INIT 1X2 ♦ BR 


05242 


66 


04778 


06M65 


03320 


2NDPC 


BNF 


P NOT C •6 13) », BR IF PS CON COMP ON LAST CARD 


05254 


44 


05302 


00—6 


03330 




TR 


TCP UltTCP^B ll)t. CLOSE PS CON 


05266 


31 


065K5 


065L3 


03340 




TFM 


5 (3)*X ,» SET SECOND ADR TO ZERO 


05278 


16 


00—5 


-0000 


03345 




BXM 


•♦24 tB f3)t» STEP 1X3 


05290 


62 


05314 


00—8 


03360 


PNOTC 


TD 


TCP (l),RMS-60 ft INSERT RM AT END OF PS CON IN TCP 


05302 


25 


065K5 


06396 


03370 




BX 


•♦12 .TFIVE 14) 


05314 


61 


05326 


0N226 


03380 




BLX 


P LOAD 9324 (3) 


05326 


65 


05206 


00LK4 


03810 


•••••• 


FORM INFO REQD TO COMPLETE LOADING OF SUBROUTINE 










03820 


•••••• 


AOJ ENTRY POINTS IN SUBVEC AS IND BY OSA AT START OF SUBR. 










03830 


FORM 


A 


IND »NE t« AOJ IND FOR ALL ENTRY POINTS 


05338 


21 


04329 


04418 


03840 




A 


SUB NO tNE ft AOJ SUBR NO.FOR ALL ENTRIES 


05350 


21 


04537 


04418 


03850 


FILSV 


AM 


FIL SV+35,5 flO 


05362 


11 


05397 


000-5 


03860 




TF 


SV , PICKUP t6 


05374 


26 


0539K 


07443 


03870 




A 


PCK *M00«7 f2 


05386 


21 


-2365 


08007 


03880 


SV 


DS 


5 t«-5 •• CONTAINS ADR OF SUBR IN SUBVEC 


05392 




5 




03890 




SM 


SV ,5 • 10* AOJ SUB VECTOR ADR 


05398 


12 


05392 


000-5 


03900 




SM 


NE fl flOt REDUCE NO OF ENTRIES 


05410 


12 


04418 


000-1 


03910 




BH 


FIL SV 


05422 


46 


05362 


01100 


03920 




TF 


SCT fDDARS4-8 t6f RECORD SEC REQD FOR SUBR 


05434 


26 


0545P 


02763 


03930 




TF 


DDAH^B fSECLST f7f ENTER SEC-CNT FOR HRT SUBR TO SCRTC 


05446 


26 


02793 


-2644 


03940 


SCT 


DS 


5 ,• • SECTOR COUNT FOR MHOLE SUBROUTINE 


05457 




5 




03950 




TFM 


lORT ••♦23 ft WRITE MOD SUBR ON SCRATCH 


05458 


16 


00565 


-5481 


03960 




B 


lORBC tODDAM »7 


05470 


49 


00520 


-2824 


03970 




A 


DDAW>5 tDDAVI^B tt INCREASE DISK ADR BY NO SEC 


05482 


21 


02790 


02793 


03980 




AM 


PICKUP , INCREASE CORE ADR BY SUBR LENGTH 


05494 


11 


07443 


-0000 


03990 


PKUP 


DS 


5 ,» , TEMP STORE PROG TOTAL CORES 


05505 




5 




04000 




AM 


SCT ,3 tlOf AOJ FOR NEXT SUBR 


05506 


11 


05457 


000-3 






AM 


W .1 


05518 


11 


02483 


-0001 






B7 


AOJ DIM 


05530 


49 


04434 




04050 


CAPCK 


A 


SUBVEC> 5, PCK RM FOR ALPHA 


05538 


21 


02210 


02365 


04060 




TF 


SUBVEC tPCK •• RM FOR BETA 


05550 


26 


02215 


02365 


04070 




SM 


SUBVEC .1 


05562 


12 


02215 


-0001 


04080 




MAKE REQD AOJ TO READ OBJECT PROGRAM 










04120 




CF 


D0AR413 


05574 


33 


02578 


00000 


04130 


DISKCK 


BNF 


•♦48 , DSKSW ,» BR IF DISK PGM 


05586 


44 


05634 


05620 


04140 




TR 


EXIT-48 ,N0 DISK 


05598 


31 


02510 


02840 


04150 




SF 


DDDAR^l 


05610 


32 


02586 


00000 


01160 


DSKSW 


DS 


1 f»-l *• SM HAS -1 WHEN NON DISK INPUTINDI) 


05620 




1 




04160 




TR 


DDAR tNOODA 


05622 


31 


02565 


02896 


04170 


REDUCE 


SM 


PICKUP tCAP^IB ft ROC KR U2 FM KR AVLB 


05634 


12 


07443 


-3228 


04175 




BV 


• ♦12 


05646 


46 


05658 


01400 


04176 




BSNX 


• ♦12 


05658 


60 


05670 


00000 


04180 




BNH 


XEQ 


05670 


47 


02402 


01100 


04190 




INF 


SIZE^60 .PICKUP •• MOVE NO OF CORE TO SIZE MESSAGE 


05682 


73 


06715 


07443 


04240 




BTM 


DELETE .SIZE 


05694 


17 


04002 


-6655 


04270 




BELOW IS DUAL PURPOSE VECTOR. EVEN ADR FIELDS ARE ADR OF 










04280 


•••••• 


ROUTINES THAT ARE USED FO DECODING INDICATOR CODE 










04290 




ODD ADR FIELDS ARE SUBR ADJ FOR THE P AND Q OPERANDS OF INST 










04300 




DORG 


6296 
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04310 




DSA 


RM>12 , tINST 


06300 
















06300 




-4802 












06305 




-0000 












06310 




-4886 




04320 


L0CI15 


DSA 


OtPCONST »0 fCONST tOtNXTINDtOtNVET t OtFORM 


06315 




S 


X 10 










06315 




-0000 












06320 




-5110 












06325 




-0000 












06330 




-4898 












06335 




-0000 




























06345 




-0000 












06350 




-6918 












06355 




-0000 












06360 




-5338 




04330 




DSA 


0 tNVETtO tNYETfO tNYETtO 


0636S 




5 


X 7 










06365 




-0000 












06370 




-6918 




























06380 




-6918 












06385 




-0000 












06390 




-6918 












0639S 




-0000 




04340 




DC 


I !• 


06396 




1 




04350 


RMS 


DS 


60 tt 60 RECORD NARKS 


06456 




'60 




04360 


SPSTST 


DC 


8 t67SI4842 


06464 




8 








07514842 










04370 


CTLAR 


DSS 


188 ,t tt USED FOR SUBR CONTROL CONSTANT 


06465 




188 




04430 


TCP 


OS 


,CTLAR^60 t. TEMP STOR FOR PSUEDO CONSTANT 


06525 




0 




04460 


SIZE 


OAC 


43tC0RE CAPACITY EXCEEDED BY 00000 LOCATIONS. • 


06655 




43 


X 2 






CORE 


CAPACITY EXCEEDED BY 00000 LOCATIONS. • 










04470 


OELTED 


DAC 


23tPR0GRAM IS TERMINATED. • 


06741 




23 


X 2 






PROGRAM IS TERMINATED. • 










04480 


BOSETM 


DAC 


35, SUBR NOT LOCATED IN SUBROUTINE MAP* 


06787 




35 


X 2 






SUBR 


NOT LOCATED IN SUBROUTINE MAP* 










04490 


NYMES 


OAC 


31t IMPROPER IND CODE IN SUBR 0000* 


06857 




31 


X 2 






IMPROPER IND CODE IN SUBR 0000* 










04500 


NYET 


TNF 


NYMES^SS , SUB NO 


06918 


73 


06915 


04537 


04530 




BTM 


DELETE tNYMES 


06930 


17 


04002 


-6857 




XEQS 


DAC 


25, IMPROPER CONTROL RECORD. • 


06943 




25 


X 2 






IMPROPER CONTROL RECORD. • 










04540 




DORG 


FOREQ 


07280 








04550 


LORMKS 


AN 


•♦IB ,1 


07280 


11 


07298 


-0001 


04560 




TD 


RNS~59 ,RNS-60 t2 


07292 


25 


-6397 


06396 


04570 




CM 


•-6 ,R«S 


07304 


14 


07298 


-6456 


04580 




BL 


LORMKS 


07316 


47 


07280 


01300 


04590 




SP 


RMS-60 


07328 


32 


06396 


00000 


04600 




94 


ODAL tlOl ft LOAD SUM SUPER ON DISK 


07340 


34 


07388 


00701 


04610 




38 


DOAL ,702 


073S2 


38 


07388 


00702 


04620 




TRA 




07364 


36 


00000 


00500 










07376 


49 


00000 


00000 


04630 


00 AL 


OOA 


•t«SSLOC«S|fXtQ-i 


07188 




14 








1J7024-S 1-2400 


1 
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04670 



TCO L0RMKS4-L2 



04680 
04690 
04700 MA3 
04710 WAF 
04720 HA 
04730 L 
04740 PICKUP OS 
04750 I STAT OS 



DORG 
OS 
OSS 
DSS 
OS 
OS 



FOREQ 
20 
100 
100 



»f SYSTEM COMMUNICATION SECTOR 
>• FIRST SKTR OF OBJ PGM ( IND RECORD) 
(WAF 
,WA+35 
tWA443 
• MA-»74 



AOR OF SPEC MANT LENGTH 



07292 

07280 
07299 
07300 
07400 
07400 
07435 
07443 
07474 



20 
100 
100 
0 
0 
0 
0 



04760 



OEND SUPER 



02934 
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ADJDIM 


04434 


AOJQ 


04994 


DSKSW 


05620 


NOISY 


03606 


SSLOC 


17024 


BDSETM 


06787 


AOJ 


04910 


EXIT 


02S58 


NOTRM 


04826 


STPSV 


04398 


COMMON 


00401 


BASE 


01600 


FILSV 


05362 


NYET 


06918 


SUBNO 


04537 


DDOARS 


02816 


BUF 


07999 


FINAL 


04318 


NYMES 


06897 


SUBRO 


04670 


DDDASC 


02747 


CAPCK 


05538 


FOREQ 


07280 


ONE 


05169 


SUPER 


02934 


DELETE 


04002 


CAP 


03210 


FOREX 


03390 


PARAM 


03574 


SV 


05392 


DEL TED 


06741 


CKSET 


03682 


FORM 


05338 


PBOTH 


05182 


TCP 


06525 


DISKCK 


05586 


CKSUB 


04338 


GM 


02839 


PCX 


02365 


THREE 


04837 


FVLAFP 


04250 


CONST 


04898 


IND 


04329 


PFLO 


04934 


VLAFP 


04082 


LDRMKS 


07280 


CORIM 


03430 


INST 


04886 


PKUP 


05505 


WA2 


02934 


L0C115 


06315 


CTLAR 


06465 


lOCAL 


00716 


PLOAD 


05206 


MA 3 


07300 


MODIFY 


04754 


D0A2 


02770 


100 


03038 


PLUSL 


02398 


WAF 


07400 


MONCAL 


00796 


OOAL 


07386 


lOGT 


00566 


PNOTC 


05302, 


WA 


07400 


NODISK 


02840 


OOAP 


02593 


I0R8C 


00520 


QFLD 


05018 


W 


02483 


NXTIND 


04778 


ODAR 


02565 


lORT 


00565 


OND 


05078 


XEQ 


02402 


PCONST 


05110 


DOARS 


02755 


lOSK 


00554 


ROCTL 


03502 


XEQS 


06943 


PICKAD 


04561 


DOA 


02755 


ISTAT 


07474 


RODIM 


03786 


X 


00000 


PICKUP 


07443 


DDASC 


02732 


LNG 


04645 


RDSUB 


04490 


XX 


00000 


PSUEDO 


05146 


OOAW 


02785 


L 


07435 


RNARK 


00421 


SECLST 


02644 


ROFRST 


03126 


00DA2 


02808 


MANTL 


03626 


RM 


04814 


SETCOD 


03942 


REDUCE 


05634 


ODDAP 


02608 


MOO 


08000 


RMS 


06496 


SPSTST 


06464 


RELINC 


00434 


OODAR 


02S85 


NDDOA 


02836 


SAVE 


04873 


SUBSET 


03670 


RESTOR 


02621 


OOOA 


02800 


NE 


04418 


SCT 


05497 


SUBVEC 


02215 


2N0PC 


052 54 


OODAW 


02824 


NEMCO 


04766 


SIX 


05228 


SYSCAL 


00475 


7FIVE 


05226 


DIN 


04457 


NODOA 


02896 


SIZE 


06695 







END OF ONE ASSEMBLY. 
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SYMBOL TABLE 



UNDS YM 


1 3443 


TY I NSW 


02 473 


S TART2 


1 02 70 


SSTSCT 


0003 5 


ss tdcf 


12308 


SSTDAD 


18927 


PT INSW 


0247 5 


PRTL I M 


02503 


PROSTM 


03804 


PRDCON 


11036 


PHASE A 


03392 


OUTPUT 


09570 


OPLNtB 


04623 


OPLCTB 


04643 


OP INTB 


04663 


NOT I NM 


13413 


NOSP AC 


13090 


MSTDAD 


18962 


MODSPS 


12 636 


LOPOUT 


03321 


LIMITS 


0328 1 


INSTRN 


101 32 


EVALER 


07042 


ER5DET 


13110 


ENTCNT 


1 2294 


ENDC IP 


13038 


C20E C T 


12120 














ALRINM 


13339 


ADDRS 


03293 


^ALFLP 


04576 


ALFOP 


04472 


ALRIN 


13070 


AIDCF 


13306 


A2DAD 


18800 


A2DIS 


00034 


A2SCT 


00058 


BER4 


12796 


BER5 


12788 


BOP 


12772 


BPHA 


12764 


BST2 


12804 


COLL 


02439 


CI 


11509 


CIP 


11644 


C1P2 


11680 


C13P 


13142 


C14P 


13186 


CI5P 


13230 


C2 


11 535 


C2P 


11816 


C2P2 


11852 


C20EM 


12233 


C3 


11561 


C3P 


12324 


C4 


11609 


C4END 


12152 


C4P 


11920 


C4P02 


12016 


C4P1 


11944 


C5 


11623 


C5P 


12332 


C5P2 


12520 


C5P3 


12380 


ER3 


04680 


ER4A 


09478 


GTOP 


12452 


HCLIM 


02508 


INPUT 


02881 


LDLBL 


08390 


LIBST 


11000 


NOSPM 


13375 


NOTIN 


13018 


OK 


04 74 0 


OPSAV 


13336 


OPTAB 


13273 


OPTB 


13282 


PHAl 


13297 


RDCK 


12848 


SBNR 


11140 


SCAN 


05164 


SLP 


11128 


SLPX 


11260 


SST 


12300 


STR 


11232 


ST2C 


12812 


ST2L 


10574 


XC 


12580 


XCl 


12628 


XRA3 


00319 


ZERO 


02300 


60S 


13328 







00020 


SSTDAD 


DS 


,18927 


18927 


00000 




00030 


MSTDAD 


DS 


, 18962 


18962 


00000 




00040 


SSTSCT 


DS 


f 35 


00035 


00000 




onnf ^ 




DS 


♦ 18800 


18800 


00000 




00060 


A2SCT 






00058 


00000 






A2D I S 


DS 


f 34 


00034 


00000 




00080 


XR A3 


DS 


» 26 4+ 1* 40+5*3 




00000 




00090 


ZEPO 


DS 


,02300 


02300 


00000 




001 00 


COLL 


DS 


,02439 




00000 




00110 


TY I NSW 


DS 


,02473 


02473 


00000 




00120 


C 0 I N S W 


DS 


,02474 


02474 


00000 




00130 


PT INSW 


DS 


,02475 


02475 


00000 




00140 


PRTL IM 


DS 


,02503 


02503 


00000 




00150 


HCL IM 


DS 


,02508 


02508 


00000 




00160 


CLERER 


DS 


,02693 


02693 


00000 




00170 


INPUT 


DS 


,02881 


02 881 


00000 




00 180 


LIMITS 


D S 


, 0 328 1 




00000 




001 90 


ADDRS 


DS 


,03293 




00000 




00200 


LOPOUT 






n-a -71 


00000 




002 10 




DS 






00000 




00220 


PROSTM 


DS 


'o3804 




00000 




002 30 


ALFOP 


DS 


*04472 


^ cir 


00000 












045 76 


00000 




002 50 


OPLNTB 


DS 


'aa la 


0462 3 


00000 




00260 


OPLCTB 


DS 


,04643 


04643 


00000 












f Q ^ 

1 aa 








00270 


OP INTB 


DS 


,04663 


04663 


00000 




00280 


ER3 


DS 


,04680 


04680 


00000 




00290 


OK 


DS 


,04740 


04740 


00000 




00300 


SCAN 


DS 


,05 164 


05 164 


00000 




00310 


EVALER 


DS 


,07042 


07042 


00000 




00320 


LDLBI, 


DS 


,08390 


08390 


00000 




00330 


ER4A 


DS 


,09478 


09478 


00000 




00340 


OUTPUT 


DS 


,09570 


09570 


00000 




00350 


INSTRN 


DS 


, 10132 


10132 


00000 




00360 


START2 


DS 


,10270 


10270 


00000 




00370 


ST2L 


DS 


,10574 


10574 


00000 




00380 




DORG 


11000 


11000 








00390 


LIBST 


GET 


PHAI 


11000 


10 


00565 


J1023 










11012 


49 


00566 


J3297 


00400 




BTM 


MODSPS, PROCON 


11024 


17 


12636 


J1036 


00410 


PROCON 


BTM 


RDCK,*+20 


11036 


17 


12848 


J1056 


00420 




B7 


PHASEA 


11048 


49 


03392 


00000 


00430 




TFM 


*+30,I NPUT-11 


11056 


16 


11086 


-2870 


00440 




AM 




1 1068 


11 


11086 




00450 




CP 


«— « 


11080 


33 


00000 


00000 


00460 




CM 


^*-6,INPUT+151 


11092 


14 


11086 


-3032 


00470 




BL 


«-36 


11104 


47 


11068 


01300 


00480 




TFM 


SBNR+11,INPUT-10,, 


COMPRESS BLANKS 11116 


16 


11151 


-2,871 


00490 


SLP 


AM 


SBNR+ll,2t 10 


11128 


11 


11151 


000-2 


00500 


SBNR 


BNR 


«+20,*-« 


11140 


45 


11160 


00000 


00510 




B7 


SLPX 


11152 


49 


11260 


00000 


00520 




C 


CLERER+1,SBNR+11,1I 


11160 


24 


02694 


1115J 


00530 




BNE 


SLP 


11172 


47 


11128 


01200 


00540 




TP 


STR+11,SBNR+11 


11184 


26 


11243 


11151 


00550 




TP 


STR+6,SBNR+11 


11196 


26 


11238 


11151 


00560 




SM 


STR+6,1,10 


11208 


12 


11238 


000-1 


00570 




AM 


STR+11, 1, 10 


11220 


11 


11243 


000-1 


00580 


STR 


TR 


«-», »-* 


11232 


31 


00000 


00000 


00590 




87 


SBNR 


11244 


49 


11140 


00000 


00600 




87 


SBNR 


11252 


49 


11140 


00000 


00610 


SLPX 


CM 


SBNR+11,INPUT-10+2*13 


11260 


14 


11151 


-2897 


00620 




BL 


*+36 


11272 


47 


11308 


01300 


00630 




C 


INPUT-I0+2«12,CI-»-2«12 


11284 


24 


02895 


11533 


00640 




BE 


CIP 


11296 


46 


11644 


01200 


00650 




CM 


SBNR+11,INPUT-10+2*13 


11308 


14 


11151 


-2897 


00660 




BL 


* + 36 


11320 


47 


11356 


01300 


00670 




C 


INPUT-10+2»12,C2+2«12 


11332 


24 


02895 


11559 


00680 




BE 


C2P 


11344 


46 


11816 


01200 


00690 




CM 


SBNR+ll,INPUT-lO+2»24 


11356 


14 


11151 


-2919 


00700 




BL 


« + 36 


11368 


47 


11404 


01300 


00710 




C 


INPUT-10+2*23»C3+2*23 


11380 


24 


02917 


11607 


00720 




BE 


C4P 


11392 


46 


11920 


01200 


00730 




CM 


SBNR+1 1 » I NPUT-10+2*07 


11404 


14 


11151 


-2885 


00740 




BL 


♦ + 36 


11416 


47 


11452 


01300 


00750 




C 


INPUT-10+2*06tC4*2»06 


11428 


24 


02883 


11621 


00760 




BE 


C3P 


11440 


46 


12324 


01200 


00770 




CM 


SBNR+11,INPUT-10+2»11 


II#S2 


14 


11151 


-2893 


00780 




BL 


♦+36 


114*4 


47 


11500 


01300 
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00790 




C 


INPUT-10+2*10,C5+2»10 






114 76 


24 


02891 


1 1 643 


00800 




BE 


C5P 






11488 


46 


1233? 


01 ?00 


00810 




B7 


PHASEA 






11500 


49 


0339? 


oonoo 


00820 


CI 


DAC 


13, ^^DEFINE OPCODE 






11509 


00026 




00830 


C2 


DAC 


13,*DELETE0PC0DE 






11535 


00026 




00840 


C3 


DAC 


24,*DEFINESYSTEMSYMB0LTABLE 




11561 


00048 




00850 


C4 


DAC 


07 ,«ENDLIB 






11609 


00014 




00860 


C5 


DAC 


ll,*tLlSTOPCODE 






11623 


00022 




00870 


CIP 


GET 


□PTAB, , , 


DEFINE 


OP CODE 


11644 


10 


00565 


J1667 














11656 


49 


00566 


J3273 


00880 




BTM 


MODSPS, *+12 






11668 


17 


12636 


J1680 


00890 


C1P2 


BTM 


RDCK,ENDC1P 






11680 


17 


12848 


J3038 


00900 




BTM 


ALF0P,»+20 






11692 


17 


04472 


J1712 


00910 




B7 


ALR I N 






11704 


49 


13070 


00000 


00920 




TF 


□PSAV, ALFLP+6, 11 






11712 


26 


13336 


0458K 


00930 




TF 


ALF LP+6 , 60S , 6 






11724 


26 


0458K 


13328 


00940 




SF 


I NPUT+ 1 1 






11736 


32 


02892 


00000 


00950 




BTM 


ALFGP , NOSP AC 






11748 


17 


04472 


J3090 


00960 




BTM 


SCAN , »+ 1 2 , 7 11 






11760 


17 


05164 


J177K 


00970 




TF 


ZEPO+30,ADDRS 






11772 


26 


02330 


03293 


00980 




TF 


Z EPO+27 , OPSAV 






11784 


26 


02327 


13336 


00990 




TF 


ALFLP+11 ,ZEP0+30t6 






11796 


26 


0458P 


02330 


01000 




B7 


PHASEA 






11808 


49 


03392 


00000 


01010 


C2P 


GET 


OPTAB , t » 


DELETE 


DP CODE 


11816 


10 


00565 


J1839 














11828 


49 


00566 


J3273 


01020 




BTM 


M0DSPS»«+12 






11840 


17 


12636 


J1852 


01030 


C2P2 


BTM 


RDCK, ENDCIP 






11852 


17 


12848 


J3038 


01040 




BTM 


ALFOPtNOTIN 






11864 


17 


04472 


J3018 


01050 




TF 


INPUT+18»60S 






11876 


26 


02899 


13328 


01060 




TF 


ZEP0+27,ALFLP+6» 11 






11888 


26 


02327 


0458K 


01070 




TF 


ALFLP+11, ZEPO+30,6 






11900 


26 


0458P 


02330 


01080 




B7 


PHASEA 






11912 


49 


03392 


00000 


01090 


C4P 


TFM 


SSTDCF+5,MSTDAD, , , 


DEFINE 


SYSTEM SYMBOL TABLE 
















11920 


16 


12313 


J8962 


01100 




BTM 


MODSPS, »+12 






11932 


17 


12636 


J1944 


OHIO 


C4P1 


TF 


SSTDCF+13,HCLIM 






11944 


26 


12321 


02508. 


01120 




SM 


SSTDCF+13, SSTSCT* 100+11 






11956 


12 


12321 


-3511 


01130 




GET 


SST 






11968 


10 


00565 


J1991 














11980 


49 


00566 


J2300 


01140 




TF 


C4P02+11, SSTDCF+13 






11992 


26 


12027 


12321 


01150 




AM 


C4P02+11,4, 10 






12004 


11 


12027 


000-4 


01160 


C4P02 


S 


PRTLIM,*-* 






12016 


22 


02503 


00000 


01170 




TR 


LIMITS-9,PRTLIM-4 






120 28 


31 


03272 


02499 


01180 




TFM 


PHASEA-1,*+12 






12040 


16 


03391 


J2052 


01190 




BTM 


RDCK,C4END 






12052 


17 


12848 


J2152 


01200 




AM 


ENTCNT, 1, 10 






12064 


11 


12294 


000-1 


01210 






ENTCNT, 150,9 






12076 


14 


12294 


00 J 50 


01220 




BH 








12088 


46 


12120 


01100 


01230 




BTM 


SCANt»+12 






12100 


17 


05164 


J2112 


01240 




B7 


LDLBL 






12112 


49 


08 390 


00000 


01250 


C20ECT 


RCTY 








12120 


34 


00000 


00102 


01260 




WATY 


C20EM 






12132 


39 


12233 


00100 


01270 




CALL 


EXIT 






12144 


49 


00796 


00000 




















01280 


C4END 


TF 


C4P02+ 11 ,HCLIM,6 






12152 


26 


1202P 


02508 


01290 




S 


C4P02+11,PRTLIM,6 






12164 


22 


1202P 


02503 


01300 




SM 


C4P02+11, 17, 6 10 






12176 


12 


1202P 


000J7 


01310 




TFM 








12188 


16 


12313 


J8927 


01320 




PUT 


SST , RBC 






12200 


10 


00565 


J2223 














12212 


49 


00520 


J2300 


0 1330 




B7 


P ROCON+20 






12224 


49 


11056 


00000 


01340 


C20EM 


DAC 


30, LIMIT OF 150 SYMBOLS 


EXCEEDEDa 


12233 


00060 




01350 


ENTCNT 


DC 


3,0 






12294 


00003 




01360 




DS 


5 






12299 


00005 




01370 


SST 


DD 


, SSTDCF , , , A 






12300 


00002 22 
















12302 


00005 J2308 














12307 


00001 a 




01380 


SSTDCF 


DDA 


,0, SS T DAD, SSTSCT »«-* 






12308 


00006 0J8927 














12314 


00003 -35 














12317 


00005 -0000 


01390 




DC 


1,3 






12322 


00001 




01400 


C3P 


CALL 


EXIT 






12324 


49 


00796 


00000 


01410 


C5P 


GET 


OPTAB , , , 


LIST OP 


CODE 


12332 


10 


00565 


J2355 














12344 


49 


00566 


J3273 


01420 




TF 


L0P0UT,CLERER+9 






12356 


26 


03321 


02702 


01430 




TF 


XC+9 , CL ERER+ 1 






12368 


26 


12589 


02694 


01440 


C5P3 


BLXM 


*+12,-20^5n 






12380 


66 


12392 


0-OK- 


01450 




TF 


XRA3,0PLNTB+20?5n 






12392 


26 


00319 


0M6M3 


01460 




TF 


M0DSPS-l,0PLCTB+20?5n 






12404 


26 


12635 


0M603 


01470 




AM 








12416 


11 


12635 


000-3 


01480 




MA 


GTOP+1 1 , MODS PS-1 






12428 


70 


12463 


12635 


01490 




MA 


GTOP +3 5 ,0PlNTB+20^5n 






12440 


70 


12487 


0M6Q3 


01500 


GTOP 


TF 


Z E PO+30 , *-*%3n 






12452 


26 


02330 


00—0 


01510 




BT 


C5P2tC5P2-1 






12464 


27 


12520 


12519 


01520 




BCXM 


■!t-24, »-»^3n 






12476 


64 


12452 


00—0 


01530 




BCXM 


C5P 3+ 1 2 , 5%5n 






12488 


64 


12392 


0-0-5 


01540 




TFM 


PHASEA-1 jPROCON 






12500 


16 


03391 


J1036 


01550 




B7 


PHASEA 






12512 


49 


03392 


00000 


01560 


C5P2 


TF 


LOPOUT-2 , Z EPO+27 






12520 


26 


03319 


02327 


01570 




C 


60S-6,L0P0UT-2 






12532 


24 


13322 


03319 


01580 




BE 


XCl 






12544 


46 


12628 


01200 


01590 




BD 


*+24, *+24+9 






12556 


43 


12580 


12589 


01600 




RCTY 








12568 


34 


00000 


00102 


01610 


XC 


AM 


«+9,2,8 10 






12580 


11 


12589 


0-0-2 


01620 




WATY 


LOPOUT-8 






12592 


39 


03313 


00100 


01630 




WNTY 


ZEPO+28 






12604 


38 


02328 


00100 


01640 




SPTY 








12616 


34 


00000 


00 10 1 


01650 


XCl 


BB2 








12628 


42 


00000 


00000 


01660 




DS 


5 






12634 


00005 




01670 


MODSPS 


TF 


PR0STM+6,BPHA+6, , 


CONVERT 


INPUT ROUTINE 




















12636 


26 


03810 


12770 


01680 




TFM 


OK+25,42, 10, , 


CONVERT 


OP CODE 


12648 


16 


04765 


00OM2 


01690 




TF 


ER3+6, BOP+6, , 


LOOK-UP 


ROUTINE 


12660 


26 


046 86 


12778 


01700 




TF 


0UTPUT+6,BLDLBL+6, , 


CONVERT 


LDLBL ROUTINE 




















12672 


26 


09576 


12786 


01710 




TF 


ER4A+6,BER4+6 






12684 


26 


09484 


12802 


01720 




TF 


EVALER+6,BER5+6, , 


CONVERT 


EVALAD 


12696 


26 


07048 


12794 
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01730 




TF 


PHASEA-1 ,M0DSPS-1 


1 2708 


26 


03391 


1263 5 


01740 




TF 


ST2L+6,BST2+6 


12720 


26 


10580 


128 10 


01750 




TDM 


ZEPO+31 


12732 


15 


02331 


OOOOO 


01760 




DC 




12743 


00001 




01770 




TFM 


ALF0P+60+6,N0TIN 


1^744 


16 


04538 


J3018 


01780 




B7 


START2 


12756 


49 


10270 


OOOOO 


01790 


BPHA 


B7 


PHASEA-1,, 0 6 


12764 


M9 


0339J 


OOOOO 


01800 


BOP 


B7 


ALFOP-1, ,0 6 


12772 


M9 


044 7 J 


OOOOO 


01810 


BLDLBL 


B7 


PHASEA,,0 


12780 


M9 


0 3392 


OOOOO 


01820 


BER5 


B7 


ER5DET»,0 


12788 


M9 


13110 


OOOOO 


01830 


BER4 


B7 


ALRIN,, 0 


12796 


M9 


13070 


OOOOO 


01840 


BST2 


B7 


ST2G,,0 


12804 


M9 


12812 


OOOOO 


01850 


ST2C 


BL 


C15P 


12812 


47 


13230 


01300 


01860 




BE 


C14P 


12824 


46 


13186 


01200 


01870 




B7 


C13P 


128 36 


49 


13142 


OOOOO 


01880 




DS 


5 V . , ■ 


12847 


00005 




01890 


RDCK 


BNR 


*+24,INPUT-l0 


: 12848 


45 


12872 


02871 


01900 




TFM 


INPUT-10,00,10 


12860 


16 


02871 


000-0 


01910 




BD 


«+36,TYINSW 


> 12872 


43 


12908 


02473 


01920 




RCTY 




12884 


34 


00000 


00102 


01930 




WATY 


lNPUT-10 


12896 


39 


02871 


00100 


01940 




CM 


INPUT-10,14,10 


12908 


14 


02871 


000J4 


01950 




BE 


RDCK-01,,6 


12920 


46 


1284P 


01200 


01960 




SF 


INPUT-1 


12932 


32 


02880 


OOOOO 


01970 




SF 


INPUT+ll 


12944 


32 


02892 


OOOOO 


01980 




TFM 


»+30,INPUT+l7 


12956 


16 


12986 


-2898 


01990 




AM 


*+18,2,10 


12968 


11 


12986 


000-2 


02000 




SF 


»— • 


12980 


32 


ooooo 


OOOOO 


02010 




CM 


*-6,INPUT+151 


12992 


14 


12986 


-3032 


02020 




BL 


»-36 


13004 


47 


12968 


01300 


02030 




BB2 




13016 


42 


OOOOO 


OOOOO 


02040 


NOT IN 


WATY 


NOTINM 


13018 


39 


13413 00100 


02050 




B7 


PHASEA 


130 30 


49 


03392 


OOOOO 


02060 


ENDCIP 


PUT 


OPTAB, RBC 


13038 


10 


00565 


J3061 










13050 


49 


00520 


J3273 


02070 




B7 


PROCON+20 


13062 


49 


11056 


OOOOO 


02080 


ALRIN 


WATY 


ALRINM 


13070 


39 


13339 


00100 


02090 




B7 


PHASEA 


13082 


49 


0339.2 


OOOOO 


02100 


NOSPAC 


WATY 


NOSPM 


13090 


39 


13375 


00100 


02110 




B7 


PHASEA 


13102 


49 


03392 


OOOOO 


02120 


ER5DET 


WATY 


UNDSYM 


13110 


39 


13443 


00100 


02130 




WATY 


COLL-12 


13122 


39 


02427 


00100 


02140 




B7 


PHASEA 


13134 


49 


03392 


OOOOO 


02150 


C13P 


TDM 


CDINSWatll 


13142 


15 


02474 


OOOOJ 


02160 




TDM 


PTINSW,0 


13154 


15 


02475 


OOOOO 


02170 




TDM 


TYINSWtO 


13166 


15 


02473 


OOOOO 


02180 




87 


PHASEA 


13178 


49 


03392 


OOOOO 


02190 


CI4P 


TDM 


PTINSW,1,11 


13186 


15 


02475 


OOOOJ 


02200 




TDM 


COINSWfO 


13198 


15 


02474 


OOOOO 


02210 




TDM 


TYINSWfO 


13210 


15 


02473 


OOOOO 


02220 




87 


PHASEA 


13222 


49 


03392 


OOOOO 


02230 


C 1 5 P 


TDM 


TY INSW » 1 , 11 


13230 


15 


02473 


OOOOJ 


02240 




TDM 


CDINSWtO 


13242 


15 


02474 


OOOOO 


02250 




TDM 


PTINSWtO 


13254 


15 


02475 


OOOOO 


02260 




B7 


PHASEA 


13266 


49 


03392 


OOOOO 


02270 


OPTAB 


DD 


,OPTB,,,A 


13273 


00002 22 












13275 


00005 J3282 










13280 


00001 S 




02280 


OPTB 


DDA 


tO,A2DAD-«-A2DIS,A2SCT-A2DISi 


,tNSTRN+lO0»A20IS 
















13282 


00006 0J8834 










13288 


00003 -24 










13291 


00005 J3532 


02290 




DC 


ItS 


13296 


00001 




02300 


PHAl 


DD 


,AlDCF,t ,A 


13297 


00002 22 












13299 


00005 J3306 










13304 


00001 8 




02310 


AIDCF 


DDA 


,1,18600,87*2300 


13306 


00006 1J8600 










13312 


00003 -87 










13315 


00005 -2300 


02320 




DC 


i,a 


13320 


00001 




02330 


60S 


DC 


8,60606060 


13328 


00008 




02340 


GPSAV 


DC 


8,0 


13336 


00008 




02350 


ALRINM 


DAC 


18, ALREADY OEFlNEDfi 


13339 


00036 




02360 


NOSPM 


DAC 


19, NO ROOM IN TABLES 


13375 


00038 




02370 


NOTINM 


DAC 


15, NOT IN TABLES 


13413 


000 SO 




02380 


UNDSYM 


DAC 


20, UNDEFINED SYMBOL 8 


13443 


00040 




02390 




DEND 


LIBST 


XIOOO 
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00010* 

00020* 

00030* 

00040* 

00050* 

00060****** 

00070****** 

00080****** 

00090****** 

00100****** 

OOllO****** 

00120****** 

00130****** 

OOIAO****** 

00150****** 

OOl 60*»«**» 

00170****** 

00180* 

00190****** 

00200* 

00210****** 



IF 



FIXED LENGTH SET 01 SPSIID SUBROUTINES MONITOR II 



PICK ROUTINE FIXED 8 DIGIT MANTISSA LENGTH 
FOR OPERANDS A AND B ONLY 

PCK AREA MAY BE USED AS A WORK AREA IF SUBR NOT USED. 
SUBROUTINES REQUI RED, THEN THE AREA IS USED AS FOLLOWS 
02401 NOISE digit; SOURCE .SUBROUTINE SUPERVISOR 

PCK ADR OF PICK. SOURC E , SUB ROUT I NE SUPERVISOR 

PCK+5 ADR OF RETURN TO SUBR. SOURC E t SUBROUTI NE 

PCK+10 ADR OF RETURN TO MAINLINE. SOURCE , PRIMARY LINKAGE 
PCK+15 ADR OF A OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK+20 ADR OF B OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK+25 ADR OF A OPERAND MANTISSA. SOURCE, PICK 

PCK+30 ADR OF B OPERAND MANTISSA. SOURCE, PICK 

PCK+31 RESERVED FOR POSSIBLE RECORD MARK 
PCK+35 4 RESERVED CORE 

PCK-5 THRU PCK-89 SUBVEC FOR THE 17 FURNISHED SUBROUTINES 

ADRS ARE SUPPLIED BY THE SUBROUTINE SUPERVISJDR 
PCK-90 DOWN TO END OF lORT MAY BE USED IF NO ADDED SUBROUTS 



00220 


P 


OS 


»o 






00000 


00000 




00230 


XX 


DS 




>0, 




INDICATES FIELD IS MODIFIED BY 1 


PGM 


00240 












00000 


00000 




00250 


PCK 


DSB 


5 ,8 


,2365 




02365 


00040 




00260 




DSA 


PICK 






00004 


00005 -0100 


00270 


EDGAR 


DS 


,*-4 






00000 


00000 




00280 




DORG 


EDGAR 






00000 








00290 




DS 


46, , WASTE 






00045 


00046 




00300 


ALPHA 


DS 


21 






00066 


00021 




00310 


SAVE 


DS 


11 






00077 


00011 




00320 


BETA 


DS 


21 






00098 


00021 




00330 




DS 


1 






00099 


00001 




00340 


PICK 


TO 


401 


,BETA+1-P 




RESET ERROR INDICATOR 








00350 












00100 


2N 


00401 


00099 


00360 




TR 


PCK+U 


,PCK+10 


,11, 


MOVE OPERANDS FROM MAINLINE 




00370 












00112 


31 


02376 


0237N 


00380 




AM 


PCK+10 


.11 




CALC RETURN ADR 00124 


11 


02375 


-0011 


00390 




TFL 


BETA 


,PCK+20 


,llf 


MOVE B CHAR TO BETA 








00400 












00136 


-6 


00098 


0238N 


00410 




BV 


PCK+5 , 




t6. 


RETURN TO SUBROUTINE 








00420 












00148 


46 


0237- 


01400 


00430 




B 


PCK+5 




»6 


00160 


49 


0237- 


00000 


00440 


S IGN 


MF 


ALPHA-2 , 


,99 




00172 


PI 


00064 


00099 


00450 




AM 


ALPHA-2 


rOO 


,010, 


SET HP EZ INDICATORS 








00460 












00184 


Jl 


00064 


000-0 


00470 


STOKE 


TFL 


PCK+15 , 


, ALPHA 


,6 


00196 


00 


0238- 


00066 


00480 




B 


PCK+10, ,6 






00208 


49 


0237N 


00000 


00490 




MF 


NINES-2 . 


,99 




00220 


PI 


00373 


00099 


00500 




AM 


NINES-2 , 


,00 


,10 


00232 


Jl 


00373 


000-0 


00510 


OVFL 


TDM 


401 , 


r-1 




00244 


15 


00401 


OOOOJ 


00520 




TFL 


PCK+15 ! 
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KN 00067 


00099 


00660* 




CHECK FOR NEGATIVE X 








00670 




BNF 


XIT 


,D-2 




00456 


MM 00572 


00096 


00680 




C 


88 


,0NEZ-5 




00468 


2M 00088 


00384 


00690 




BNE 


♦+32 


» 


0 


00480 


M7 00512 


01200 


00700 




SM 


FAC 


fl 


10 


00492 


J2 00066 


000-1 


007 10 




B7 


ADJ 






00504 


M9 00548 


00000 


00720 




DC 


20 ,500505 50 5005000055 50,350 


00350 


00020 




00730 




TF 


SAVE 


t89 




00512 


K6 00077 


00089 


00740 




LD 


90 


,0NE Z-3 


, HARDWARE 


DIVIDE 00524 


2Q 00090 


00386 


00750 




D 


90 


,SAVE 




00536 


2R 00090 


00077 




AD 1 


SF 


FAC 


t 




00548 


L2 00066 


00000 


00770 




AM 


FAC 


»01 


10 


00560 


Jl 00066 


000-1 


00780 


X IT 


TF 


90 


,FAC 




00572 


20 00090 


00066 


00790 




TFL 


PCK+15 


,90 


6 


00584 


06 0238- 


00090 


00800 




B7 


PCK+10 




6 


00596 


49 0237N 


00000 


00810 


EROUT 


BNF 


0VFL,0-2 






00604 


HM 00244 


00096 


00820 




B7 


UNFL 






00616 


M9 00312 


00000 


00830 


EXCNl 


DC 


11 


, 9326 


427,, 








00840 












00633 


00011 




00850 




DC 


11 


, 2 5549 


180,, 








00860 












00644 


00011 




00870 




DC 


11 


, 17 4211 


199,, 








00880 












00655 


00011 




00890 




DC 


11 


, 72 9517 


367,, 








00900 












00666 


00011 




00910 




DC 


11 


, 254 3935 


748, , 








00920 












00677 


00011 




00930 




DC 


11 


, 662 7308 


843, , 








00940 












00688 


00011 




00950 




DC 


11 


,1151 2927 


760, , 








00960 














00011 




00970 


D 


DS 




,BETA 




00098 


00000 




00980 




DEND 


01102 






01102 




















217 




00010 








FLOATING LOG 








00020 


















00030 




DSA 


FLOGl 


,FLN1 




00004 


00005 -0000 


00040 












00009 


00005 -0020 


00050 




DORG 


EDGAR 






00000 






00060 


FLOGl 


TDM 


MULM-U 


t9 




00000 


J5 00501 


00009 


00070 




B7 


FLNl+12 


f 


0 


00012 


M9 00032 


00000 
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00080»»**** RELOCATABLE SPS FLOATING LN 



00090 


FLNl 


TDM 


MULM-11 


,1 


,0 




00020 


J5 


00501 


00001 


00100 




TFM 


PCK+5 


,»+20 


,17 




000 32 


10 


02370 


-0052 


OOllO 




87 


PCK 


» 


t6 




00044 


49 


0236N 


00000 


00120 




DC 


40,5005000000 0550000050 5000550000 


5555050550 ,350 




00130 














00350 


00040 




00140 




CF 


B-7 








00052 


L3 


00089 


00000 


00150 




BD 


»+44 


,B-7 




BR IF MANT NOT ZERO 








00160 














00064 


ML 


00108 


00089 


00170 




TFL 


PCK+15 


,NNlNES+2 


»6 




00076 


00 


0238- 


00855 


00180 




TDM 


401,0, 11 








00088 


15 


00401 


0000- 


00190 




B7 


PCK+10 


» 


»6 




00100 


49 


0237N 


00000 


00200 




BNF 


EVAL PN 


fB 


fO, 


BR IF MANT IS 


POSITIVE 








00210 














00108 


MM 


00144 


00096 


00220 




CF 


B 








00120 


L3 


00096 


00000 


00230 




TDM 


401,0 








00132 


15 


00401 


00000 


00240#**«*» 


EVALUATE X 


EQUAL PN 


SO THAT X IS GREATtR 


THAN 








00250* 




ONE HALF AND 


P EQUALS 


1, 2, 


4, 8 










00260 


EVALPN 


TFM 


LOOPL+107 


,CONST 


,017, 




00144 


JO 


00487 


-0801 


00270 




TDM 


B-8 


,1 


,11, 


SET X EQUAL X 


PLUS ONE 








00280 














00156 


J5 


00088 


OOOOJ 


00290 




CM 


B-7 


»15 


tlO 




00168 


J4 


00089 


000J5 


00300 




BNL 


« + 44 


» 


»o. 


BR MODIFIED X 


MORE THAN 3 


HALVES 


00310 














00180 


M6 


00224 


01300 


00320 




A 


B 


,B 




SET X EQUAL X 


PLUS X 








00330 














00192 


KJ 


00096 


00096 


00340 




AM 


LOOPL+107 


,11 


,07, 


STEP LN P FOR 


P EQUAL P+P 






00350 














00204 


Jl 


00487 


-0011 


00360 




B7 


«-60 




,0 




00216 


M9 


00156 


00000 


00370 




TF 


FAC-2 


,B 














00380 














00224 


KO 


00064 


00096 


00390 




S 


FAC-2 


,LCN5-1 




SET NUMERATOR 


EQUAL X-1 






004 00 














00236 


KK 


00064 


00448 


00410 




LD 


89 


, FAC-2 




HARDWARE DIVIDE 00248 


2Q 


00089 


00064 


00420 




D 


89 


,B 






00260 


2R 


00089 


00096 


00430 




TP 


B 


,90 






00272 


K6 


00096 


00090 


00440 




DC 


46,5050555055 5505005055 


5000000055 0550500005 050505,350 


00450 














00350 


00046 




00460 




SF 


B 








00284 


L2 


00096 


00000 


00470 




SF 


B-9 








00296 


L2 


00087 


00000 


00480 




M 


B 


,B 




Z TIMES Z 


00308 


KL 


00096 


00096 


00490 




TF 


SAVE 


,89 






00320 


K6 


00077 


00089 


00500 




A 


B 


,B 




Z PLUS Z 


00332 


KJ 


00096 


00096 


00510 




TF 


FAC 


,CZER0-1 






00344 


KO 


00066 


00469 


00520 




TFM 


LOOP L+11 


,LCN1 


,07 




00356 


JO 


00391 


-0409 


00530 




TFM 


*+9 


,6 


,010 




00368 


J6 


00377 


000-6 
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LOOPL 




FAC 


* 


* * 


LA LL ofcK 1 to 


USING Z SQUARED 




00550 
















00380 


Kl 


00066 


00000 


00560 






F AC 


,SAVE 








00392 


KL 


00066 


00077 


00570 




TF 


FAC 


,89 








00404 


K6 


00066 


00089 


00580 




AM 


LOOPL+11 


,10 


,07 






00416 


Jl 


00391 


-0010 


00590 




SM 


LOOPL- 3 


,1 


,010 






00428 


J2 


00377 


000-1 


00600 




BNZ 


LOOP I 


♦ 








00440 


M7 


00380 


01200 


00610 




M 


FAC 


,B 


, , 


CONVERT TO 


ODD 


POWERS 


OF 


Z 




00620 
















00452 


KL 


00066 


00096 


00630 




S 


89 


,B 








00464 


2K 


00089 


00096 


00640 




TF 


B 










00476 


K6 


00096 


00000 


00650. 




S 


B 


,89 








00488 


K2 


00096 


00089 


00660 




NOP 


MULLOG 






BR IF LOG CALC 


RATHER THAN LN CALC 


00670 
















005 00 


Ml 


00724 


00000 


00680 


MULM 


M 


LNTEN 


,B+2 


*o 






00512 


KL 


00845 


00098 


00690 




A 


99 


,B 








005 24 


2J 


00099 


00096 


00700 




C 


97 


,C ZERO 








00536 


2M 


00097 


00470 


00710 




TFL 


PCK+1 5 


,AZERO 


♦ 6 






00548 


00 


0238- 


00364 


00720 




BE 


PCK+10 




,6, 


BR IF X WAS 


ONE 


00560 


46 


0237N 


01200 


P0730 




TFM 


CHAR+11 


,03 


♦ 10 






00572 


J6 


00699 


000-3 


00740 




TO 


FLNl+7 


,99 


,0 






00584 


K5 


00027 


00099 


00750 




DC 


32 , 


0500 0000000000 0000000000 


55505055 


,338 




00760 
















00338 


00032 




00770 




TD 


99 


,BETA+1 








00596 


2N 


00099 


00099 


00780 




BD . 


♦+56 


,87 


,0 






00608 


M3 


00664 


00087 


00790 




TR 


87 


,88 








00620 


31 


00087 


00088 






SM 


CHAR+ 1 1 


,01 


,10 






00632 


J2 


00699 


000-1 


008 10 




TD 


98 


,NOS DIG 








00644 


25 


00098 


02401 


00620 




B7 


♦^48 










00656 


M9 


00608 


00000 


















00664 


32 


00087 


00000 


00840 




MF 


94 


,FLNl+7 


» t 


SET FLAG 




00676 


7J 


00094 


00027 


00850 


CHAR 


TFM 


96 










00688 


16 


00096 


-0000 


00860 




TFL 


PCK+15 


t96 


»6 






00700 


06 


0238- 


00096 


00870 




B 


PCK+IO 




,6 






00712 


49 


0237N 


00000 


00880 


MULLOG 


TDM 


79 


» 








00724 


15 


00079 


00000 


00890 




M 


LQGE 


,B 








00736 


KL 


00399 


00096 


00900 




TF 


B 


,89 








00748 


K6 


00096 


00089 


00910 




SF 


B 










00760 


L2 


00096 


00000 


00920 




M 


ONE 2-2 


,B-t-2 








00772 


KL 


00387 


00098 


00930 




B7 


MULM+12 


t 


tO 






00784 


M9 


00524 


00000 


00940 


CONST 


DC 


11 


♦ 0 








00601 


00011 




00950 




DC 


11,-6931471805 








00812 


00011 




00960 




DC 


llt-13862943611 








00623 


00011 




00970 




DC 


11,-20794415416 








008 34 


00011 




00980 


LNTEN 


DC 


11,23025850929 








00845 


00011 




00990 


NNINES 


DC 


8,-9999999f 








00853 


00006 




01000 




DC 


2 


,99 








0085S 


00002 




01010 


B 


DS 




♦BETA-2 








00096 


00000 




01020 




DEND 


01122 










01122 
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00010 FLOATING SHIFT RIGHT 

00020 



00030 




DSA 


FSRSl 








00004 


00005 -0000 


00040 




DORG 


EDGAR 








00000 








00050 


FSRSl 


TRNM 


PCK+11 


, PCK+10 


tU 




00000 


30 


02376 


0237N 


00060 




AM 


PCK+10 


,11 


,10 




00012 


11 


02375 


OOOJl 


00070 




DC 


4 ,5050 




»350 




00350 


00004 




00080 




TF 


ALPHA 


, PCK+20 


,11 




00024 


K6 


00066 


0238N 


00090 




MF 


ALPHA 


, PCK+15 


ai 




00036 


PI 


00066 


0238- 


00100 




S 


PCK+15 


, PCK+15 


t611, 


ZERO ALPHA FIELD 


00048 


22 


0238- 


0238- 


001 10 


PATTY 


TFM 


PCK+25 








00060 


16 


02390 


-0000 


00120 




BNF 


JOHNNY 


, PCK+20 






00072 


M4 


00140 


02385 


00130 




CF 


PCK+20 








00064 


33 


02385 


00000 


00140 




MA 


PCK+25 


, PCK+20 


,11 




00096 


70 


02390 


0238N 


00150 




TFL 


PCK+20 


, PCK+20 


»11 




00108 


06 


02385 


0238N 


00160 




TD 


PCK+16 


,PCK+21 






00120 


25 


02381 


02386 


00170 




B7 


PATTY+12 








00132 


M9 


00072 


00000 


00180 


JOHNNY 


MA 


PCK+25 


, PCK+20 






00140 


70 


02390 


02385 


00190 




SM 


PCK+25 


, 1 


»10 




00152 


12 


02390 


000-1 


00200 




MA 


PCK+20 


, PCK+25 






00164 


70 


02385 


02390 


00210 




BNF 


»*24 


, PCK+20 


,11 




00176 


M4 


00152 


0238N 


00220 




CF 


PCK+20 


» 


,6, 


REMOVE FLAG FROM 


B OPERAND 




00230 














00188 


33 


0238N 


00000 


00240 




DC 


2 


,05 


,350 




00350 


000Q2 




00250 




TF 


PCK+15 


,ALPHA 


,6 




00200 


20 


0238- 


00066 


00260 




B7 


PCK+10 


» 


t6. 


RETURN TO MAINLINE PROGRAM 




00270 














00212 


49 


0237N 


00000 


00280 




DEflD 


01141 








01141 
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OOOLO 








FLOATING 


SHIFT 




00020 














00030 




DSA 


FSLS 






f 


00040 




DQRG 


E DG AR 












TRNM 


PCK+ 1 1 


PCK+10 






0 0 U o U 














00070 




J p 


ALPHA 




ill 




00080 




AM 


PCK+ 10 


» 1 1 


» 10 




00090 




MF 


MK+2 


» ALPHA 




( 


00100 




TFM 


BKSC+35 


, ALPHA 






001 10 




TFM 


MK+11 


♦BLNK+1 






00120 


BKSC 


SM 


BKSC+35 


tl 


tIO 


( 


00130 




SM 


MK+U 


,1 


> 10 




00140 




BNF 


BKSC 


tXX 






00150 




TO 


PCK+20 


tBLNK 


»6 


( 


00160 




SM 


MK+11 


tl 


f 10 




00170 


MK 


TRNM 


PCK+15 


tXX 


f 6 




00180 




BD 


MK-12 


tPCK+20 


f u 


< 


00190 




TRNM 


PCK+15 


, BKSC+35 


»611 




00200 




MF 


PCK+20 


,MK+2 


t6 




00210 




B7 


PCK+10 


t 


t6 




00220 


BLNK 


DC 


46 


,oa 






00230 




DEND 


01151 







00004 


00005 -0000 


UUUUu 








00000 


30 


02376 


0237N 


00350 


00008 






K6 


00066 


0238N 


00024 


11 


02375 


000 J 1 


000 36 


PJ 


00134 


000 66 


00048 


JO 


00107 




00060 


JO 


00143 


-0233 


00072 


J2 


00107 


000-1 


00084 


J2 


00143 


000-1 


00096 


M4 


00072 


00000 


00108 


2N 


0238N 


00232 


00120 


J2 


00143 


000-1 


00132 


30 


0238- 


00000 


00144 


M3 


00120 


0238N 


00156 


3- 


0238- 


OOlOP 


00168 


7J 


0238N 


00134 


00180 


49 


0237N 


00000 


00232 


00046 




01151 
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00010* 
00020 
00030 
00040 

00050 TFLS 

00060 

00070 

00080 

00090 



TRANSMIT FIELD FLOATING ROUTINE 



OSA TFLS 
OORG EDGAR 
TRNM •+14 
TFL XX 
AM PCK+10 
87 PCK+10 
DEND 01161 



, PCK+10 

vXX 

til 



♦ a 



flO 
t6 



00004 00005 -0000 
00000 

00000 LO 00014 0237N 
00012 06 00000 00000 
00Q24 11 02375 OOOJl 
00036 49 0237N 00000 
01161 
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00010* 






FLOAT I NG 


BRANCH 


AND 


1 KAINoM 1 1 KUU 1 1 IMt 


00020 














00030 




DSA 


BTFSl 






00004 


00040 




OORG 


EDGAR 






00000 


00050 


BTFSl 


TRNM 


MOV+2 T 


PCK+10 


f 11 


, STORE A+B OPERANDS 


00060 












00000 


00070 




AM 


PCK+10 , 


11 


»10 


00012 


00080 




TF 


ND+6 , 


PCK+10 




00024 


00090 


MOV 


BTFL 


XX t 


XX 




MOVE EXP AND BR 000 36 


00100 


ND 


B7 


XX ♦ 






00048 


00110 




□ END 


01171 






01171 
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00010* VARIABLE LENGTH SET 02 SPSIID SUBROUTINES MONITOR II 



NOSDIG 02401 
LNIO 00591R 
P 00000 
UNFL 00334R 



ALPHA 00050R 
LOGE 00543R 
PCK 02365 
XX 00000 



SYMBOL TABLE 



BETA 
NINE 
PICK 
ZRES 



00196R 
00636R 
00I98R 
00346R 



CLR 00734R 
ONEZ 00449R 
PI0V2 00496R 



EDGAR OODOOR 
OVFL 0G266R 
SAVE OOlOOR 



*» spsi: 

02040****** 
01080****** 
01090****** 
«***«* 
OllOO****** 
OHIO****** 
01120****** 
01130****** 
01140****** 
01150****** 
01160****** 
01170****** 
01180****** 
01200****** 
02010* 
02020****** 



D SUBROUTINES - VARIABLE LENGTH JHB 31 JUL 1963 
FOR OPERANDS A AND B ONLY 

PCK AREA MAY BE USED AS A WORK AREA IF SUBR NOT USED. IF 
SUBROUTINES REQUIRED, THEN THE AREA IS USED AS FOLLOWS 
2398 MANTISSA LENGTH SOURCE, SUBROUTINE SUPERVISOR 

02401 NOISE DIGIT. SOURCE , SUBROUT INE SUPERVISOR 

PCK AOR OF PICK. SOURCE , SUBROUT INE SUPERVISOR 

PCK+5 ADR OF RETURN TO SUBR. SOURCE , SUBROUTI NE 

PCK+10 ADR OF RETURN TO MAINLINE. SOURCE, PRIMARY LINKAGE 
PCK+15 ADR OF A OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK+20 ADR OF B OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK+25 ADR OF A OPERAND MANTISSA. SOURCE, PICK 

PCK+30 ADR OF B OPERAND MANTISSA. SOURCE, PICK 

PCK+31 RESERVED FOR POSSIBLE RECORD MARK 

PCK-5 THRU PCK-89 SUBVEC FOR THE 17 FURNISHED SUBROUTINES 

ADRS ARE SUPPLIED BY THE SUBRCJUTIHE SUPERVISOR 
PCK-90 DOWN TO END OF lORT MAY BE USED IF NO ADDED SUBROUTS 







DSA 


PICK 




00004 00005 -0198 




EDGAR 


DS 

DORG 


,*-4 
EDGAR 




00000 00000 
00000 




02100 


ALPHA 


DS 


51 




00050 00051 






XX 


DS 




tO, 


INDICATES FIELD IS MODIFIED BY 1 
00000 00000 


PGM 


02110 


P 


DS 




, ALPHA-ALPHA,, 


ABS ZERO IND OPERD REFERENCES PICK 












00000 00000 




02130 


SAVE 


DS 


30 




00100 00050 




02140 


BETA 


OS 
DS 


96 
1 




00196 00096 

00197 00001 




02160 


PICK 


TD 


401 


,BETA+1-P ,1, 


RESET ERROR INDICATOR 

00198 2N 00401 


00197 


02170 




TR 


PCK+ll 


, PCK+10 ,11, 


MOVE OPERANDS FROM MAINLINE 

00210 31 02376 


02 37N 


03000 




AM 


PCk+10 


,11 ,10, 


CALC RETURN ADR 00222 11 02375 


OOOJl 


03130 




TFL 


BETA 


, PCK+20 ,11, 


MOVE B TO BETA 

00234 -6 00196 


0238N 


03150 




BV 


PCK + 5 


, ,6, 


RETURN TO SUBROUTINE 

00246 46 0237- 


01400 






B7 


PCK+5 


> «6 


00258 49 0237- 


00000 






DC 


16 


,0010011000000020 ,350 00350 00016 




04030 


OVFL 


TDM 


401 


♦ -1 


00266 15 00401 


OOOOJ 
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SF 


N IN E— 44 






+ L 


00278 L2 00592 


00000 






TFL 


PCK+15 


» NI NE-43 


• 6, 


, + L 


00290 00 0238- 


00593 






CP 


NINE-45 






+ L 


00302 L3 00591 


00000 






AM 


« + 9 


,9900 


,810 




00314 Jl 00323 


0R9-0 






B7 


PCK+10 




,6 




00326 49 0237N 


00000 


04090 


UNFL 


TDM 


401 


tl 






00334 15 00401 


00001 




ZRES 


SF 


CLR + 1 






-L 


00346 L2 00735 


00000 






TFL 


PCK+15 


tCLR +2 


,6 




00358 00 0238- 


00736 






CF 


*-18 




,6 




00370 L3 0035K 


00000 






AM 


* + ll 


tOO 


,10 




00382 Jl 00393 


000-0 


04120 




B7 


PCK+10 




,6 




00394 49 0237N 


00000 


04140»*»**« 


SHARED GUNSTANTS 










04150 


QNEZ 


DC 


49 


, 1000000000000 0000 ooooooooooooooooooooooooaooooooo 
















00449 00049 




04160 


PI0V2 


DC 


47 


,15707963267948966192313216916397514420985846996 
















00496 00047 




04170 


LOGE 


DC 


47 


,4342944819032 5182765112891891660508229439700580 
















00543 00047 




04180 


LNIO 


DC 


48 


,230258509299404568401799145468436420760110148862 
















00591 00048 




04190 


NINE 


DC 


45 


,999999999999999999999999999999999999999999999 


















00636 00045 








DC 


2 


,99 






00638 00002 




04200 


CLR 


DS 


96 


, , 




96 ZEROS 


00734 00096 




05010 




DC - 


48 


,0 






00734 00048 




05020 




DC 
DC 


49 
2 


,0 

,-99 


,•-47 




00687 00049 
00736 00002 




02080 


PCK 

NOSDIG 


DSB 
DS 

DEND 


5 ,8 
02001 


,2365 
,2401 






02365 00040 
02401 00000 
02001 





PAGE 3 



PROGRAM DIVIDE 



NOSDIG 02401 
EDGAR OOOOOR 
OVFL 00266R 
SAVE OOlOOR 



ALPHA 00050R 
LNIO 00591R 
P 00000 
UNFL 00334R 



SYMBOL TABLE 

BETA 00196R 

LOGE 00 543R 

PCK 02365 

XX 00000 



CLR 00734R 

NINE 00636R 

PICK 00198R 

2RES 00346R 



DIVHl OOOOOR 
ONEZ 00449 R 
PI0V2 00496R 





DORG 


EDGAR 






05050 DIVWl 


TR 


PCK+U 


, PCK+10 




05060 


AM 


PCK+10 


,21 


, » 




TF 


85 


,CLR-10 




05070 


LD 


PCK+25 


, PCK+15 


,611 


05080 


0 


PCK+30 


,PCK+20 


,611 


05090 


B7 


PCK+LO 








DEND 


02011 







00004 00005 -0000 
00000 

MOVES DIV OPERANDS INTO PCK AREA 

OOOOQ 31 02376 0237N 

CALC RETURN ADR 00012 11 02375 -0021 
00024 20 00085 00724 
00036 28 0239- 0238- 
00048 29 0239N 0238N 
00060 49 0237N 00000 
02011 
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FLOATING POINT ADD , SUBTRACT rMUlT IPLY AND DIVIDE. VARIABLE L 



NOSDIG 02401 
BETA 00196R 
FA3 00020R 
INADD 00140R 
NINE 00636R 
PCK 02365 
STORE 00532R 



BRANCH 00088R 

CHGE 009 16R 

FD3 00756R 

LNIO 00591R 

NORM 00 368 R 

PICK 00198R 

UNFL 00334R 



SYMBOL TABLE 

ADD 00320R 

CLR 00734R 

FIX 00652R 

LQGE 00543R 

ONEZ 00449R 

PI0V2 00496R 

XX OOOOO 



ADJ 00448R 

EDGAR OOOOOR 

FM3 00572R 

MOVE 00736R 

OVFL 00266R 

SAVE OOlOOR 

ZCK 00936R 



ALPHA 00050R 
EXIT 00496R 
FS3 OOOOOR 
MOVED 00896R 
P 00000 
SIGN 00508R 
ZRES 00346R 







DSA 


FS3 1 


rFA3 


,FM3 






DQRG 


EDGAR 






05130 


FS3 


TFM 


BRANCH'<'6 


,BRANCH+8 


»017, 


05140 










tO 


05160 


FA3 


TFM ' 


BRANCH+6 


t INADD 


♦ 017( 


05170 




TFM 


PCK+5 


,♦♦20 


1 17 


05180 




B7 


PCK 


t 


t6 


05200 




DC 


40 » 50 


7070 00055001 


06020 




TFL 


ALPHA-P 


,PCK+15 


»llf 


06040 




TDM 


ALPHA-2-P 


fO 




06050 




TDM 


BETA-2-P 


fO 


»Uf 


06D60 


BRANCH 


B7 


INADD>12 






06080 




BNP 


♦B6TA-2-P 


*o* 


06090 




CF 


BETA-2-P 






06100 




B7 


INADD 


t 


tO 


06120 




SF 


BETA-2-P 






06130 


INADD 


TDM 


ADD+l 


,1 


>o 


06140 




TFM 


ADD4-11 


,BETA-2-P 


t07 


06150 




C 


ALPHA-P 


♦BETA-P 




06160 




BH 


♦+4B 


» 


♦ » 


06170 




Be 


ADO 




fOt 


06180 




TR 


ALfHA-l-P 


,B6TA-l-P 


t f 


06190 




TFL 


BETA -P 


♦PCK+15 


til 


07010 




S 


BETA-P 


, ALPHA-P 




07020 




BV 


ST0R«-12- 


Pt 


♦ f 



,FD3 00004 00005 -0000 

00009 00005 -0020 
00014 00005 -0572 
00019 00005 -0756 
OOOOO 

SET UP FOR SUBTRACT 

OOOOO JO 00094 -0096 
00012 M9 00032 OOOOO 

SET UP FOR ADD 00020 JO 00094 -0140 
00032 10 02370 -0052 
00044 49 0236N OOOOO 
50 0005550000 7750 5500 510005 ,346 
00346 00040 

HOVE A OPERAND CHAR + MANTISSA 

00052 -6 00050 0238- 

-L PREPARE FOR LONGER FIELDS 

00064 J5 00048 0000- 

-L 00076 J5 00194 0000- 

00088 49 OOOOO OOOOO 

SWITCH SIGN OF B OPERAND 

00096 MM 00128 00194 
OOIOB L3 00194 OOOOO 
00120 M9 00140 OOOOO 
00128 L2 00194 OOOOO 
00140 J5 00321 00001 
00152 JO 00331 -0194 
00164 KM 00050 00196 

BR IF A CHAR LARGER THAN B CHAR 

00176 M6 00224 01100 

BR IF CHARS EQUAL 

00188 M6 00320 01200 
-L,-L EXCHANGE FIELDS 

00200 LJ 00049 00195 
00212 -6 00196 0238- 
00224 KK 00196 00050 
BR IF CHAR OIFF TOO LARGE 

00236 M6 00520 01400 
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07030 




CM 


BETA-P ,-99 ,10, 


,+L 00248 J4 00196 


OOORR 


07040 




BL 


ST0RE-12-P, ,, 


BR IF CHAR DIFF GREATER THAN L 










00260 M7 00520 


01300 


07050 




A 


ADP+11 , BETA-P ,0, 


SHIFT BY CHAR DIFF 












00272 KJ 00331 


00196 


07060 




DC 


50,0500705005 0050077077 


5550500055 70705000505005005550, 


»350 










00350 00050 




07070 




BNP 


•♦24 »BETA-2-P ,0 


00284 MM 00308 


00194 


07060 




TOM 


ADO'i'l t2 tO» 


CHANGE TO SUB IP NEC 












0Q296 J5 00321 


00002 


07090 




CF 


BETA-l-P t tt 


-L, CLEAR HI ORDER FLAG 












00108 L3 00195 


OOOOO 


07100 


ADD 


A 


ALPHA-2-P 


00320 Kl 00048 


OOOOO 


07110 




MF 


9» tALPHA-2-P,, 


STORE SIGN 00332 7J 00099 


00048 


07120 




BV 


ABJ t tO 


00344 M6 00448 


01400 


07140 




BZ 


2RES -Pf ft 


BR IF ZERO. SUM 












00356 M6 00346 


01200 


07150 


NORM 


BO 


EXIT f ALPHA-1-P,0, 


,-L BR IF NORMAL IZATN COMPLTE 










00368 ML 00496 


00049 


07160 




SF 


ALPHA -P, 


-L 00380 L2 00050 


OOOOO 


07170 




TR 


ALPHA-l-P, ALPHA -P,, 


-L,-L 00392 LJ 00049 


00050 


07180 




TF 


ALPHA -P, ALPHA- l-P 


00404 KO 00050 


00049 


07190 




TO 


ALPHA-2-P»N0S DIG f> 


ENTER NOISE DIGIT 












00416 K5 00046 


02401 


07200 




SM 


ALPHA -P,l ,10 


00428 J2 00050 


000-1 


08010 




B7 


NORM , ,0 


00440 M9 00368 


OOOOO 


08030 


ADJ 


TF 


ALPH A-2-P , ALPH A-3-P f » 


SHIFT RIGHT ONE POSITION 












• 00448 KO 0004B 


00047 


08040 




CF 


ALPHA -Pt tf 


-L, CLEAR EXTRA FLAG 












00460 L3 00050 


OOOOO 


08050 




TDM 


ALPHA-1-P,-1 


-L, INSERT HI ORDER ONE WITH FLAG 










00472 J5 00049 


OOOOJ 


08060 




AM 


ALPHA -P.Ol ,lOt 


ADJUST CHAR 00484 Jl 00050 


000-1 


08069»»»*»* 


STORE ALPHA AND AFFIX SIGN 






08070 


EXIT 


BV 


STORE+20 


00496 M6 00552 


01400 


08071 


SIGN 


MF 


ALPHA-2 ,99 


00508 PI 00048 


00099 


08073 




AM 


ALPHA-2 ,00 . ,10 


00520 Jl 00048 


000-0 


08075 


STORE 


TFL 


, PCK-i-15 , ALPHA ,6 


005 32 00 0238- 


00050 


08077 




B7 


PCK-flO , »6 


00544 49 0237N 


OOOOO 


08080 




BNF 


OVFL -P, ALPHA -P 


00552 MM* 0Q2fr6 


00050 


08090 




B7 


UNFL -P 


00564 N9 00334 


OOOOO 


08110 


FM3 


TFM 


BRANCH+6 ,#+32 ,017 


00572 JO 00094 


-0604 


08130 




TFM 


FIX+25 ,012 ,09 


00584 J6 00677 


00-12 


08140 




B7 


F 03+24 


00596 M9- 00780 


OOOOO 


08160 




DC 


48 ,5550040250 0050500040 5552000000 020800252500020450, 


r348 










00348 00048 




08170 




M 


ALPHA-2-P,BETA-2 -P,, 


MUL MANTISSAS 












00604 KL 00048 


00194 


0.8180 




BZ 


ZRES -P, ,, 


BR IF ZERO PRODUCT 












00616 M6 00346 


01200 


08190 




BD 


MOVE-12 ,100 ,0, 


,-2L BR IF NORM NOT REQ 












00628 M3 00724 


00100 


08200 




TFM 


MOVE+11 ,100 


-L 00640 J6 00747 


-0 100 
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09010 


FIX 


SM 


BETA -P^ 


,01 , 


, 10, 


09020 




BIMV 


* + 36 




,0 


09030 




SM 


ALPHA -P 


,01 


.10 


09040 




TFM 


BETA -P 


,-99 


,10 


09050 




BD 


CHGE 


, FI X+23 


,01 


09060 




SF 


101 




» » 


09070 




A 


ALPHA -P 


,BETA -P 




09080 


MOVE 


TF 


ALPHA-2-P 


,99 




09 090 




B7 


EXIT 




,0 


091 10 


FD3 


TFM 


BRArJCH + 6 


I* + 56 


,017 


09 1 20 




TFM 


F IX+25 


t 111 


»09 


09130 




TFM 


MOVE+ 11 


,099 


» » 


09140 




TF 


85 


,CLR-106-P 


, f 


09150 




B7 


FA3+12 






09170 




LD 


99 


,ALPHA-2-P 


» » 


09180 




D 


99 


,BETA-2 -P 




09190 




BV 


ZCK 


» 


,0 


09200 




ID 


99 


,99 


» » 


10010 




BD 


FIX 


,99 


,0, 


10020 




BZ 


ZRES -P 






10030 




DC 


8 






10040 




SF 


100 


t 


t , 


10050 


MOVED 


S 


ALPHA -P 


,BETA -P 




10060 




87 


MOVE 




,0 


10080 


CHGE 


TFM 


MOVE+U 


,98 




10090 




87 


MOVED 






10110 


ZCK 


TDM 


401 


,0 


ill, 






AM 


PCK+15 


,99 


,6, 






8V 


PCK+10 




,6 






DEND 


02024 







ADJUST CHAR BY ONE 





00652 


J2 


00196 


000-1 




00664 


M7 


00700 


01400 




00676 


J2 


00050 


000-1 




00688 


J6 


00196 


OOORR 




00700 


ML 


00916 


00675 


-2L 


00712 


32 


00101 


00000 




00724 


KJ 


00050 


00196 


,-L 


00736 


K6 


00048 


00099 




00748 


M9 


00496 


00000 




00756 


JO 


00094 


-0812 




00768 


J6 


00677 


OOJll 


,-L 


00780 


J6 


00747 


-0099 


,2L 


00792 


20 


00085 


00628 


00804 


M9 


00032 


00000 


-L 


00812 


20 


00099 


00048 


-L 


00824 


2R 


00099 


00194 




008 36 


M6 


00936 


01400 


,-L 


00848 


25 


00099 


00099 


,-^L 


00860 


M3 


00652 


00099 




00872 


M6 


00346 


01200 




00314 


00008 




-2L 


00884 


32 


00100 


00000 




00896 


KK 


00050 


00196 




00908 


M9 


00736 


00000 


,-L 


00916 


J6 


00747 


-0098 




00928 


M9 


00896 


00000 


SET 


ERROR INDICATOR 








00936 


15 


00401 


0000- 


SIMULATE 


HARDWARE DIV I 




FORCE 


OVE 




00948 


11 


0238- 


00099 




00960 


46 


0231k 


01400 




02024 
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FLOATING POINT SQUARE ROOT* VARIABLE LENGTH 



SYMBOL TABLE 



NOSDIG 02401 
FSQR3 OOOOOR 
NINE 00636R 
PICK 00198R 



ALPHA 00050R 
LNIO 00591R 
ONEZ 00449R 
PIQV2 00496R 



BETA 

LOGE 



00196R 
00543R 



OVFL 00266R 
SAVE OOlOOR 



CLR 
LSQ 



00734R 
00216R 
00000 
00424R 



EDGAR OOOOOR 
LSQM 00324R 
PCK 02365 
SQ2 001I2R 



SCJ3 


00368R 


UNFL 00334R XX 


00000 


ZRES 00346R 








DSA 


FSQR3 






00004 00005 -0000 






DORG 


EDGAR 






00000 




10160 


FSQR3 


TFM 


PCK + 5 


,* + 20 


,17 


00000 10 02370 


-0020 


10170 




87 


PCK 




,6, BR 


TO PICK AND RETURN 
















00012 49 0236N 


00000 


10150 




DC 


42 


,075050 0550000002 


00000805 040000560000000005,; 


350 














00350 00042 




10190 




BD 


* + 20 


,BETA-1 -P 


,0, t 


,~l 00020 ML 00040 


00195 


10200 




B7 


ZRES 


-P, 




BR IF RESULT ZERO 
















00032 M9 00346 


00000 


11020 




MM 


BETA 


-P,50 


,10, 


DIV CHAR BY 2 
















00040 J3 00196 


OOONO 


11030 




BNF 


»+36 


, BETA-2 -P 


,0, 


BR FOR POSITIVE ARG 
















00052 MM 00088 


00194 


11040 




CF 


BETA-2 


-P 




00064 L3 00194 


00000 


11050 




TDM 


401 


,0 




SET NEG ARG INDICATOR 
















00076 1$ 00^01 


00000 


11060 




BO 


SQ3 


,98 


,0, 


BR IF CHAR ODD 
















00088 MS 00368 


00098 


11070 




TFM 


SQ2+42 


,97 


» , 1 


>-L MOVE MANTISSA ADR 
















00 100 J6 00154 


-0097 


11090 


SQ2 


MF 


97 


,99 




00112 71 00097 


00099 






TF 


SQEX+47 


,97 




STORE RESULT CHAR 
















00124 K6 00471 


00097 


11110 




TF 


99 


,CLR-92-P 


, » 1 


,2L 00136 20 00099 


0O642 


11120 




TF 




, BETA-2 -P 


, » 


MOVE MANT INTO 97/98 MINUS 


L 














00148 20 00000 


00194 


11130 




TFM 


LSQ+18 


,97 


,-2L INITIAL MANT ADR HI ORDER 
















00160 J6 00234 


-0097 


11140 




TF 


LSQ+23 


,SQ3+18 


,01, 


INITIAL RESULT ADR 
















00172 KO 00239 


00386 


11150 




TF 


LSQM-6 


, LSQ+18 




INITIAL MANT ADR 
















00184 KO 00318 


00234 


11160 




TF 


BETA-2 


-P,0NEZ-48-P 


, t 1 


+L SET RESULT TO ONE- L+1 DIGITS 














00196 KO 00194 


00401 


11170 




B7 


LSQM 




,0, 


00208 M9 00324 


00000 


11200 


LSQ 


AM 


LSQ+23 


,2 


,0610, 


ADD 2 TO RESULT 
















00216 Jl 0023R 


000-2 


12010 




S 








SUB RESULT FROM MANTISSA 





23U 





12020 




BNN 


LSQ 


» 






»o» 




12030 
1204-0 




CM 
BNL 


LSQ+23 
SQEX 


» 


BETA- 


-2 - 


P,07 
fO , 




12050 




A 


LSQ+18 




LSQ+23 


,01611 » 




12060 
12070 




CF 
AM 


LSQ+18 
LSQM-6 




01 




,06 
tOlO, 




12080 
12090 


LSQM 


SF 
AM 


LSQ+18 




»02 




tOlOt 




12100 




AM 


LSQ+23 




rOl 




tOlOt 


f 


12110 




SM 


LSQ+23 




»09 




,06l0f 


f 


12120 




B7 


LSQ+12 


1 


r 




fO, 


( 


11190 
12140 


SQ3 


DC 
AM 


16 ,70700200065020,316 
99 f50 tlOt 




12150 




TDM 


BETA-2 


-P 


»0 




♦ 211t -1 




12X60 
12170 




CF 
TFM 


BETA-l 
SQ2+42 


-P 


« 

t98 




♦ t 


( 


12180 




B7 


SQ2 




t 




* t 


r 


12200 
13010 
13020 


SQEX 


TF 
MM 
SF 


80 

BETA-2 
98 


-P 


,CLR-100 

f50 

t 


-P»t 
♦ Id, 








TFM 


99 




* 




» * 


( 






TFL 


PCK+15 




♦ 99 




»6* 


( 


13040 




B7 

DEND 


PCK+IP 
02061 




♦ 




»6t 



00228 22 00000 00000 
CONTINUE UNTIL MANT IS NEG 

00240 M6 00216 01300 
00252 JM 00239 -0194 
BR IF TERMINAL RESULT ADR 

00264 M6 00424 01300 
RESTORE LAST SUB 

00276 KJ 0023M 0023R 
00288 L3 0023M 00000 
REDUCE MANT FIELD LENGTH ONE 

00300 Jl 00318 000-1 
00312 32 00000 00000 
STEP MANTISSA ADR,HI 0R0ER,+2 

00324 Jl 00234 000-2 
STEP RESULT ADR +1 

00336 Jl 00239 000-1 
STEP RESULT -9 

00348 J2 0023R 000-9 
CONT LOOP WITH NEXT 2 DIGITS 

00360 M9 00228 00000 
00316 00016 
ADD ,5 TO CHAR/2 

00368 11 00099 OOONO 
LENGTHEN MANT FOR ODD CHAR 

00380 J5 -0194 0000- 
, 00392 L3 00195 00000 

",-L MOVE MANT ADR 

00404 J6 00154 -0098 
BR TO STORE CHAR + INIT LOOP 

00416 M9 00112 00000 
00424 20 00080 00634 
RESULT/2 00436 J3 00194 OOONO 
., DEFINE FIELD 

00448 32 00098 00000 

INSERTS CHAR 

00460 16 00099 -0000 

STORE RESULT 

00472 06 0238- 00099 
RETURN TO MAINLINE 

00484 49 0237N 00000 
02061 



FLOATING SIN-COSINE 



SYMBOL TABLE 



231 



NOSOIG 


02401 


AAB 


009 lOR 


AB 


00914R 


ALPHA 


0005 OR 


BETA 


00196R 


BRD 


00208R 


CLF 


00088R 


CLR 


00734R 


DONE 


00S8BR 


EDGAR 


OOOOOR 


FC0S3 


OOOOOR 


FSIN3 


00032R 


H34 


OlOllR 


LNIO 


00591R 


LOGE 


00 54 3 R 


NINE 


00636R 


ONEZ 


00449R 


OVER 


00400R 


OVFL 


00266R 


P 


00000 


PCK 


02365 


PI 


00962R 


PICK 


00198R 


PI0V2 


00496R 


PLACE 


00716R 


POZCH 


00760R 


SAVE 


OOlOOR 


SUM 


00472R 


THOPI 


01009R 


UNFL 


00334R 


XX 


00000 


ZRES 


00346R 















DSA FC0S3 
00R6 EDGAR 



,FSIN3 



00004 00005 -0000 
00009 00005 -0032 
00000 



13100 


FC0S3 


TFM 


CLF+U 




f 010 


,09, 


INIT FOR COS 




















00000 J6 00099 


00-10 


13110 




TFM 


PCK+5 




,CLF 


,17 




00012 10 02370 


-0088 


13120 




B7 


PCK 






,6, 


GO 


TO PICK AND RETURN 

000 24 49 0236N 


00000 


13140 


FSIN3 


TFM 


CLF+11 




,-011 


,09, 


INIT FOR POSITIVE SIN 








Yfm 












00032 J6 00099 


00-lJ 


13150 




PCK+5 




,*+20 


,17 




00044 10 02370 


-0064 


13160 




B7 


PCK 




f 


,6, 


GO 


TO PICK AND RETURN 

00056 49 0236N 


00000 


13180 




DC 


46 »0500507056 


5000510007 


0507005651 0070510000 505608, 


348 


















00348 00046 




13190 




BNF 


•+36 




,BETA-2 


-P 




00064 MM 00100 


00194 


13200 




TDM 


CLF+10 




tO 


,0, 


ADJUST FOR NEG SIN 




















00076 J5 00098 


00000 


14010 


CLF 


CF 


BETA-2 


-P 








00088 L3 00194 


00000 


14020 




CF 


BETA-l 


-P 




»» -L 




00100 L3 00195 


00000 


14030 




TF 


SAVE 


-P 


IcLR-94 


-P ♦» , 


r + L 


MOVE L+2 ZEROS TO SAVE 


















00112 KO 00100 


00640 


14040 




CM 


BETA 


-P 


,00 


»10 




00124 J4 00196 


000-0 


14050 




BNL 


POZCH 




» ' .. 


,0, 


BR 


IF POSITIVE OR ZERO CHAR 


















00136 M6 00760 


01300 


14060 




CM 


BETA 


-P 


,00 


,1011, , 


r+L 


00148 J4 00196 


000— 


14070 




BL 


BRD 






,0, 


BR 


IF CHAR LESS THAN -L 

00160 M7 00208 


01300 


14080 




TFM 


•+30 




tSAVE 


-P,07, 


r-L 


CHAR BETWEEN 0 AND -L 
00172 JO 00202 


-0100 


14090 




S 


• + 18 




,BETA 


-P,0 




00184 KK 00202 


00196 


14100 




TR 






, BETA-l 


-P,, 1 


r-L 


00196 3J 00000 


00195 


14110. 


BRD 


BD 


•+24 




,CLF+11 


,01, 


BR 


IF SIN ROUTINE 

00208 ML 00232 


00099 


14120 




A 


SAVE-P 




,PI0V2- 


45-P,, , 


,+LCONVERT TO SIN 




















00220 KJ 00100 


00451 


14130 




S 


SAVE 


-P 


,TW0PI~ 


45 ,1, 




00232 KK 00100 


00964 
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14140 




BH 


*-12 






»o, 


SUB 2 PI FROM WANT UNTIL NEG 
















00244 M6 00232 


01100 


14150 




SF 


SAVE-1 


-P 




t » 


-L 00256 L2 00099 


00000 


1 41 AO 






SAVE 


-P 


,PI-45 




,+L 00268 KJ 00100 


00917 


14170 




BN 


*+36 






,0 


00280 M7 00316 


01300 


14180 






CLF+10 




»01 


,010 


00292 J2 00098 


000-1 


14190 




SF 


SAVE 


-P 






00304 L2 00100 


00000 


14200 




A 


SAVE 


-P 


,PIOV2-45-P, , 


♦+L 00316 KJ 00100 


00451 


15010 




TF 


80 




,CLR-106 


-p, » 


,2L 00328 20 00080 


00628 


15020 




DC 


48,5552705600 0002202000 


5055000000 0008550000 00560050 , 


, 348 
















00348 00048 




1 5030 




M 


SAVE 


-P 


, SAVE 


-p 


00340 KL 00100 


00100 






T F 


SAVE 


-P 


,98 


♦ t 


,-L 00352 K6 00100 


00098 








SAVE-1 


-P 






-L 00364 L2 00099 


00000 


1 RAAn 




TP 


BETA 


-P 


,0NEZ-47 


-p, , 


,+LSET BETA EQUAL 1 PLUS L+1 ZERO 
















00376 KO 00196 


00402 








AAB-3 




,H34-1 


,01 


00388 LJ 00907 


01010 






TDM 


SUM+1 




,2 


,011, 


SET FOR SUBTRACTION 


















00400 J5 00473 


OOOOK 


15090 




jp 


99 




r98 


, , 


,-L 00412 26 00099 


00098 


1 51 00 




TFM 


97 




fOOOO 


t8. 


-L 00424 16 00097 


0-000 


15110 




Q 


98 




rAB 




-L 00436 2R 00098 


00914 


15120 




BZ 


DONE 






tO, 


BR IF QUOTIENT ZERO 


















00448 M6 00588 


01200 


1 5130 




_ 


ALPHA 


-P 


► 95 




00460 K6 00050 


00095 








BETA 


-P, 


►ALPHA 


-P 


00472 KK 00196 


00050 






AM 


AAB 




r2 


,010 


00484 Jl 00910 


000-2 


1 K1 to 

1 CI ^rt 




AM 


AAB-2 




,2 


,010 


00496 Jl 00908 


000-2 


15170 




M 


AAB 




r AAB-2 


tOl, 


4DIGIT PRODUCT 


















00508 KL 00910 


00908 


15180 




TF 


AB 




r99 


,0 


00520 K6 00914 


00099 


15190 




TF 


80 




rCLR-106 


-p,, 


,2L 00532 20 00080 


00628 


15200 




M 


SAVE 


-Pi 


rALPHA 


-p 


00544 KL 00100 


00050 


16010 




BNF 


OVER 




r SUM+1 


,01 


00556 MM 00400 


00473 


1 6020 




TDM 


SUM+1 




r 1 


»o, 


SET TO ADD 00568 J5 00473 


00001 


16030 




B7 


OVER+12 , 




tO 


00580 M9 00412 


00000 


1 6050 


DONE 


C 


BETA-1 


-Pi 


rCLR-95- 


p tt 


,+L 00588 KM 00195 


00639 


16060 




BE 


POZCH+60 t 


,0, 


BR IF L+1 ZEROS 


















00600 M6 00820 


01200 






TFM 


SAVE 


-Pi 


rOl 


♦ 10 


00612 J6 00100 


000-1 


16080 




DC 


48,0750775070 0000505505 


5000500051 0000505000 05057005, 


350 
















00350 00048 




16090 




BD 


PLACE-24 1 


»BETA-1 


-P,0, 


,-LBR IF NORMALIZATION NOT REQ 
















00624 ML 00692 


00195 


16100 




SM 


SAVE 


-Pi 


,01 


f LO 


00636 J2 00100 


000-1 


16110 




TR 


BETA-1 


-Pi 


»BETA 


-Pt. 


-L,-L 00648 LJ 00195 


00196 


16120 




TD 


BETA-1 


-P. 


»NOS DIG 


1 1 


ENTER NOISE DIGIT 


















00660 K5 00195 


02401 


16130 




SF 


BETA-1 


-Pi 




♦ 1 


-L 00672 L2 00195 


00000 


16140 




B7 


• -60 








00684 M9 00624 


00000 


16160 




BD 


PLACE 




,CLF+10 


,01 


00692 ML 00716 


00098 


16170 




SF 


BETA-2 


-P 






00704 L2 00194 


00000 




PLACE 


TF 


BETA 


-Pi 


SAVE 


-p»» 


STORE CHAR 00716 KO 00196 


00100 
















233 








TFL 


PCK+15 




,BETA 


-P,6, 


STORE RESULT 


















00728 00 0238- 


00196 


16200 




TD 


ALPHA+1 


-Pi 


rH34+7 


tit 


RESTORE RM 00740 KN 00051 


01018 


17010 




B7 


PCK+10 


1 


t 


t6. 


RETURN TO MAINLINE PROGRAM 


















00752 49 0237N 


00000 


17030 


POZCH 


CM 


BETA 


-P 


,03 


»10 


00760 J4 00196 


000-3 


17040 




BL 


• •1-60 




» 


tOt 


BR IF CHAR SMALLER THAN 03 


















00772 M7 00852 


01300 


17050 




CM 


BETA 


-Pi 


,00 


tlOt 


,+L 00784 J4 00196 


000-0 


17060 




BNH 


• + 44 




t 


tOt 


BR IF CHAR LESS OR EQUAL L 


















00796 M7 00840 


01100 


17070 




TQM 


401 




lO 


tilt 


CHAR TOO LARGE 


















00808 15 00401 


0000- 


1 7 08 0 




To 


ALPHA+I 


-p. 


,H34+7 . 




RESTORE RM 00820 KN 00051 


01018 


17100 




B7 


ZRES 








00832 M9 00346 


00000 


17120 




TDM 


401 




>o 




00840 15 00401 


00000 


17130 




TFM 


•+42 


1 


r SAVE-1 


"-Pt07t 


'ADJ TO SUB TWO PI FROM MANT 
















00852 JO 00894 


-0099 


17140 




S 


•+30 




rBETA 


-PtO, 


UNTIL REDUCED TO NEG NUMBER 
















00864 KK 00894 


00196 


17150 




TDM 


BETA-2 


-P. 


tO 


,llt 


-L 00876 J5 00194 


0000- 


17160 








1 


»BETA-2 


-P 


00888 20 00000 


00194 


1 Zi In 






BRD 




r 


tO 


00900 M9 00208 


00000 


17180 




DORG 


•-4 








00907 




17190 


AAB 


DS 


4 








00910 00004 




17200 


A6 


DS 


4 








00914 00004 




18010 




DS 


1 








00915 00001 




18020 


PI 


DC 


47 




(31415926535897932384626433832795028841971693993 
















00962 00047 




18030 


TWOPI 


DC 


47 




,62831853071795864769252867665590057683943387987 
















01009 00047 




18040 


H34 


DC 


2 


1 


»01 




010 11 00002 




18050 




DC 


2 




r02 




01013 00002 




18060 




DC 


5 




r 00023 




01018 00005 








DEND 


02072 








02072 
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FLOATING ARC TANGENT 



VARIABLE LENGTH 



NOSDIG 02401 
CLR 00734R 
LOGE 00543R 
PCHAR 00836R 
SAVE OOIOOR 
TEST2 00652R 



ALPH 00196R 
EDGAR OOOOOR 
NINE 00636R 
PCK 02365 
SIX 01235R 
UNFL 00334R 



SYMBOL TABLE 

ALPHA 00050R 

EOD 01040R 

ONEZ 00449R 

PICK 001 98R 

TAN6 01281R 

XX oaooo 



ATNl 00424R 
FAfN3 OOOOOR 
OVFL 00266 R 
PI0V2 00496R 
TEST 00064R 
ZRES 00346R 



BETA 00196R 
LNIO 00591R 
P 00000 
PI0V4 01326R 
TESTl 00792R 







DSA 


FATN3 










00004 00005 -0000 






PORG 


EDGAR 










00000 






18090 


FATN3 


TFM 


PCK+5 


,•+20 


,17 






00000 10 


02370 


-0020 


18100 




87 


PCK 


t 


t6. 




BR TO PICK 


AND RETURN 




















00012 49 


0236N 


00000 


18130 




DC 


50 ,0700055050 0000510005 


0576705070 7000065020 51500825, 


,350 


















003 50 00050 




18120 




TFM 


TEST+U 


» 


,08, 




SET INDICATORS 






















00020 J6 


00075 


0-000 


18140 




BD 


*+20 


♦BETA-l 


-PtO, 




,-L 


00032 ML 


00052 


00195 






B7 


TESTl+24 








00044 M9 


00816 


00000 


18170 




TD 


TEST+9 


, BETA-2 


-P»0, 




SAVE MANT 


SIGN 

00052 KN 


00073 


00194 


18180 


TEST 


CF 


BETA-2 


-P 








00064 L3 


00194 


00000 


18190 




CM 


BETA 


-P» 


,10 






00076 J4 


00196 


000-0 


18200 




BH 


PCHAR 


t 


,0, 




BR IF CHAR 


POSITIVE 
00088 M6 


00836 


01100 


19010 




BE 


ALPH 


, 


,0, 




BR IF CHAR 


ZERO 
00100 M6 


00196 


01200 


19020 




CM 


BETA 


-P» -99999 


,10, 




+ L 


00112 J4 


00196 


999RR 


19030 




BL 


EOD 


f 


»0, 




BR IF CHAR 


LESS THAN 


-ti-lQ 


















00124 M7 


01040 


01300 


19040 




TFM 


ALPH^l 


,flETA-2 


-P,07 






00136 JO 


00195 


-0194 


19050 




A 


ALPH- I 


• BETA 


-P,0 






00148 KJ 


00195 


00196 


19060 




TF 


BETA-2 


-f ,CLR-96- 


P ♦» 


-L, 


•♦L CLEAR 


AREA LEFT 


OF BETA 


















00160 KO 


00194 


00638 


19070 




CF 


BETA-l 






-L 


EXPAND BETA BY REMOVING FLAG 


















00172 L3 


00195 


00000 


19080 




TF 


BETA-2 


-P, 






ADJUST BETA FIELD FOR CHAR 




















00184 K6 


00194 


00000 


19090 


ALPH 


SF 


BETA-l 


-P, 




-L 


CONTRACT BETA BY RESETTNG 1 


= LAG 


















00196 L2 


00195 


00000 


19100 




CM 


BETA 


-P,29 


,10, 


-L 




00208 J4 


00196 


000 K9 


19110 




BL 


ATNW2 t 


fO, 




BR IF MANT 


LESS THAN 


.29 




















00220 M7 


00352 


01300 


19120 




TF 


79 


,CLR-100 


-Pt, 






00232 20 


00079 


00634 


19130 




MM 


BETA-2 


-P,6 


,10, 




6»MANT 


IN 99 







00244 J3 00194 000-6 



235 



19140 


TDM 


98 


♦ ,, 


-1. 




1+6#MANT IN 99 




















00256 


15 


00098 


ODOOJ 


19150 


S 


BETA-2 


-P,SlX-45 ,1, 




+ L 


MANT-. 6 L DIGITS 


















00268 


KK 


00194 


01190 


19160 


TF 


ALPHA 


-P,99 






10+6«MANT MOVED TO ALPHA. L+2D6 














00280 


K6 


00050 


00099 


19170 


TF 


99 


,CLR-94-P ,, 




,2L 


2L+2 ZEROS 




















00292 


20 


00099 


00640 


19180 


LO 


98 


, BETA-2 -P,, 


-L 




L DIGITS 1 




















00304 


2Q 


00098 


00194 


19190 


DC 


48 ,2552000855 5256030106 


2020055008 5552000000 


56550855, 


.348 


19200 












00348 


00048 




D 


100 


, ALPHA -P,, 


-L 




L+2 DIGITS 00316 


2R 


00100 


00050 


20010 


TF 


BETA-2 


-P,97 ,, 




,-L 


MANT IS «MANT-.6a/«10+6*MANTD 














00328 


K6 


00194 


00097 


20020 


SF 


TEST+U 


♦ ,0, 






IND THIS CALC MADE 


















00340 


L2 


00075 


00000 


20030 


TF 


80 


,CLR-106-P,, 




,2L 


ZEROS 




















00352 


20 


00080 


00628 


20040 


M 


BETA-2 


-P, BETA-2 -P,, 




SQUARE MANT 00364 


KL 


00194 


00194 


20050 


TF 


SAVE 


-P,99 ,, 






SAVE IS MANT«MANT.L DIGITS 














00376 


K6 


00100 


00099 


20060 


TF 


ALPHA 


-P,CLR-95 -P,, 




, + L 


INIT ALPWA TO 00 L+1 ZEROS 














00388 


KO 


00050 


00639 


20070 


TFM 


ATNl+35 


,99999 ,10, 




,2L 


00400 


J6 


00459 


999R9 


20080 


TFM 


ATNl-3 


,99999 ,10, 




,+L 


00412 


J6 


00421 


999R9 


20090 ATNl 


TF 


99 


,CLR-92-P ,, 




, + L 


L+4 ZEUOS 




















00424 


20 


00099 


00642 


20100 


TFM 


98 


,10 ,lOt 


-L 




00436 


16 


00098 


OOOJO 


20110 


DM 


98 




-L 




00448 


19 


00098 


-0000 


20120 


S 


96 


, ALPHA -P 






00460 


2K 


00096 


00050 


20130 


TF 


ALPHA 


-P,96 ,, 






L+1 DIGITS 




















00472 


K6 


00050 


00096 


20140 


TF 


80 


,CLR*i«6-P,, 




,2L 


00484 


20 


00080 


00«28 


20150 


M 


ALPHA 


-P»SAVE -Pf» 






2L+1 DIGITS 




















00496 


KL 


00050 


00100 


20160 


TF 


ALPHA 


-P,99 ,, 




,-L 


L+l DIGITS 












ATNI+35 








00508 


K6 


00050 


00099 


20170 


SM 


,2 ,010 






00520 


J2 


00459 


000-2 


20180 


SM 


ATNl-3 


,1 ,010 






00532 


J2 


00421 


000-1 


20190 


BNZ 


ATNl 


, ,0, 






BR IF LESS THAN L-1 


PASSES 














00544 


M7 


00424 


01200 


20200 


TF 


SAVE 


-P,0NEZ-47-P, , 




, + L 


L+2 DIGITS 




















00956 


KO 


00100 


00402 


21010 


S 


SAVE 


-P, ALPHA -P,, 




ONE MINUS SUM 0FtC0EF«MANT««2n 














00568 


KK 


00100 


00050 


21020 


TF 


80 


,CLR-106-P, , 




,2L 


00580 


20 


00080 


00628 


21030 


M 


SAVE 


-P, BETA-2 -P,, 






2L+2 DIGIT PRODUCT 
















^ 00592 


KL 


00100 


00194 



21050 
21060 



DC 48 ,0000202100 2026502504 5044200040 5200500500 00084025,348 

00348 00048 

BNF TEST2 ,TEST+11 ,01 00604 MM 00652 00075 

BNN TEST2-12 , ,0 00616 M6 00640 01300 



23 ft 
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21070 




SF 


99 






f » 


-L 


00628 32 00099 


00000 


21080 




A 


99 




T TAN6-45 


fit 


-L,+L L+1 


DIGITS 




















00640 2J 00099 


01236 


21090 


TEST2 


BNF 


* + 36 




,TEST+10 


,01 




00652 MM 00688 


00074 


21100 




SF 


99 




t 




-L 


00664 32 00099 


00000 


21110 




A 


99 




,PI0V2-45- 


P» , 


-L,+L L+2 


DIGITS 




















00676 2J 00099 


00451 


21120 




TFM 


BETA 


-P 


«1 


tlO 




00688 J6 00196 


000-1 


21130 




TD 


100 




,BETA+1 -P 




-L INSERT 


RM AT 100-L 




















00700 2N 00100 


00197 






BD 


TESTl-24 


t98 


, , 


,-2L BR IF 1 


MORMALIZATION NOT REQD 


















00712 M3 00768 


00098 


21150 




SM 


BETA 


-P 


»1 


,10 




00724 J2 00196 


000-1 


21160 




TR 


98 




t99 


t » 


-2L,-2L 


00736 31 00098 


00099 


21170 




TD 


99 




tNOS DIG 


t » 


-L INSEAT 


NOISE DIGIT 




















00748 25 00099 


02401 


21180 




B7 


*-48 




» 


»o 




00760 M9 00712 


00000 


21200 




SF 


98 






t » 


-2L 


00768 32 00098 


00000 






TF 


BETA-2 


-P 


»97 


» 1 




00780 K6 00194 


00097 


22030 


TESTl 


BNF 


* + 24 




,TEST+9 


»01 




00792 MM 00816 


00073 






SF 


BETA-2 


-P 








00804 L2 00194 


00000 






TFL 


PCK+15 




,BETA -P 


,6 




00816 DO 0238- 


00196 


22050 




B7 


PCK+10 






t6 




00828 49 0237N 


00000 


22070 


PCHAR 


TDM 


TEST+10 




.-1 


tO, 


INDICATE 


POSITIVE CHAR 




r 
















00836 J5 00074 


OOOOJ 


22080 




TF 


99 




,CLR-9 5-P 


t f 


,2L 


00848 20 00099 


00639 


22090 




TDM 


100 




»-l 


» » 


-2L DIVIDEND 


EQUALS ,1 




















00860 15 00100 


OOOOJ 


22100 




D 


99 




♦BETA-2 -P 




-L, DIVISOR 


IS MANT 




















00872 2R 00099 


00194 


22U0 




DC 


44 ,0440525000 5250000050 


i 0050510000 


555670 70510005, 


r348 


















00348 00044 




22120 




BD 


*+56 




,99 


tO, 


,-2L BR 


IF MANT IS 100000.. 




















00884 M3 00940 


00099 


22130 




SF 


100 




» 


1 1 


-2L REDUCE TO L DIGITS 




















00896 32 00100 


00000 


(' 22140 




TF 


BETA-2 


-P 




♦ » 


»-L 


00908 K6 00194 


00099 


22150 




SM 


BETA 


-P 


♦ 1 


tlO, 


REDUCE CHAR BY 1 




















00920 J2 00196 


000-1 


' 22160 




87 


♦ + 32 






»o, 


THESE 3 


00932 M9 00964 


00000 


22180 




TF 


BETA-2 


-P 


^98 


» f 


,-L INSTRUCTIONS GO 




















00940 K6 00194 


00098 


22190 




SM 


BETA 


-P 


»2 


,10t 




WITH BD ABOVE 




















00952 J2 00196 


000-2 


22200 




BL 


♦+44 






»o. 


BR IF OPERAND IS ONE 




















00964 M7 01008 


01300 


23010 




BE 


ALPH 




» 


,0, 


BR IF CHAR REDUCED TO ZERO 




















00976 M6 00196 


01200 


( 23020 




SF 


BETA 


-P 




t » 


CHAR STILL POS IT I VE ,MAKE NEG 


















00988 L2 00196 


00000 


23030 




B7 


TEST+48 










01000 M9 00112 


00000 






TFM 


BETA 


-P 


f 


»io, 


STORE CHAR 01008 J6 00196 


000-0 






TF 


BETA-2 


-P 


♦PI0V4-45 


t » 


t + L 


01020 KO 00194 


01281 



i, 



"237 
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23070 




B7 


TESTl 






01032 


M9 00792 


00000 




EOD 


BNF 


TESTl 




,TEST+10 BR 


IF RESULT MORE 


THAN PI0V2 














01040 


MM 00792 


00074 


23130 




TF 


ALPHA 


-P 


,BETA-2 -P 


01052 


KO 00050 


00194 


23140 




TF 


BETA-2 


-P 


,PlOV2-46-P,, ,+L 


L+2 DIGITS 






23150 












01064 


KO 00194 


00450 




CF 


ALPHA- 


1-P 


t tf -L 


01076 


L3 00049 


00000 


23160 




TOM 


ALPHA 


-P 


f til. -L 


01088 


J5 00050 


0000- 


23170 




CM 


BETA 


-P 


I 00 ,10llt ,+L 


01100 


J4 00196 


000 — 


23180 




BNH 


♦ + 48 




> tO 


01112 


M7 01160 


01100 


23190 




TFM 


♦+35 




jALPHA -P,07 


01124 


JO 011-59 


-0050 






DC 


10 




,0550555000 ,350 


00350 


00010 




24010 




A 


♦+23 




rBETA -P,0 


01136 


KJ 01159 


00196 


24020 




S 


BETA-2 


-P 




01148 


K2 00194 


00000 






TF 


BETA-2 


-P, 


►BETA-3 -P 


01160 


KO 00194 


00193 






TFM 


BETA 


-Pi 


rOl ,10 


01172 


J6 00196 


000-1 


24050 




B 


TESTl 




} »o 


01184 


M9 00792 


00000 


24060 




DORG 


•-4 






01191 






24070 


SIX 


DC 


45 




» 600000000000000000000000000000000000000000000 
















01235 


00045 




24080 


TAN 6 


DC 


46 


1 


r 5404195002705841554435783646085999 101 3514825 14 
















01281 


00046 




24090 


PI0V4 


DC 


45 


1 


•78 5398163397448309615660845819875721049292349 
















01326 


00045 








DEND 


02091 






02091 







24100***»*» FLOATING EXPONENTIAL . VARIABLE LENGTH 











SYMBOL 


TABLE 










NOSDIG 


02401 


GOBACK 


01028R 


ALPHA 


00050R 


BETA 


00196R 


CALC 


00468R- 


CLR 


007 34R 


EDGAR 


OOObOR 


E12 


00436R 


FACT 


00740R 


FEXT3 


00020R 


FEX3 


OOOOOR 


• GORD 


00608R 


LNIO 


00591R 


LOGE 


00543R 


NINE 


00636R 


ONEZ 


00449R 


GVFL 


002 66R 


■■• P 


poooo 


PCK 


02365 


PICK 


00198R 


PI0V2 


004 96 R- 


;v RECIP 


00888R 


SAVE 


OOlOOR 


SETUP 


00144R 


TEN34 


01O93R 


UNFL 


00334R 


V.XX 


00000 


..ZRES 


00346R 













DSA 


FEXT3 


,FEX3 




24110 FEX3 


DORG 
TDM 


EDGAR 
SETUP+1 






24120 

24140 FEXT3 


B7 
TDM 


FEXT3+12 
SETUP+1 


■f. 

»9 ■, 


.0 
tOr 


24150 
24160 


TFM 
B7 


PCK+5 
PCK 


* ■ 


tl7 
t6t 



ALLOW 



DC 46,0056070005 5020250008 



24200 



25010 
25020 



25050 
25060 
25070 

25080 SETUP 

25100 
25110 



25130 
25140 
25150 

25160 
25180 



TFM 
TF 



.BD 
87 



CF 

TFM 

TF 

B 

TF 



SM 

SF 
TF 

B7 
TF 



GOBACK-1 tOl »10 
ALPHA^2«P,0NEZ-45-P,, 

♦+20 ♦BETA-1 -P,0, 

60BACK-12> If 

RECIP~1 ,BeTA-2 -P,0, 

BETA-2 -P 
101 , 

97 ♦BETA-2 -Pt t 



80 »CLR-106-P» 
BETA-2 -P,L0GE-45-P, 



«+56 t98 

BETA -P,l 
99 , 

BETA-2 -P,102 

•+20 , 
BCTA-2 -P,101 



tOt 
»10 



t-L 



0<J004 00005 -0020 
00009 00005 -0000^1 

doooo 

MUL By Lt^Q E FOR EXP 

OOOOd J5 00145 00001 
„ 00012 M9 00032 00000 
PREVENT iMUL bY. LOO E FOR EXT 

^ 00020 J5 00145 00009 
00032 10 02370 -0052 
BR TO PICK AND RETURN 

00044 49 0236N 00000 
5604504052 0052510050 000050 ,348 
00348 00046 
00052 J6 01027 000-1 
,+L ONE. L+4 DIGIT MANTISSA 

00064 KO 00048 00404 
00076 ML 00096 00195 
BR IF MANT ZERO 

00088 M9 01016 00000 
NON ZERO MANTISSA 

00096 KN 00887 00194 
00108 L3 00194 00000 
00120 16 00101 -0000 
L+4 DIGITS IN 101-L 

00132 20 00097 00194 
MUL BY LOG E IF EXP 

00144 M9 00236 00000 
00156 20 00080 00628 
2L+2 DIGIT PRODUCT 

00168 KL 00194 00498 
BR IF ftlORDER NOT ZERO 

^ 00180 M3 00236 00098 
00192 J2 00196 000-1 
00204 32 00099 OOOOG 
MOVE L+4 DIGITS 

00216 K6 00194 00102 
00228 M9 00248 00000 
MOVE L+4 DIGITS 



,2L 



♦ -2L 



-2L, 
»-L 



23S 



25190 
25200 



26010 
26020 



26040 
26050 



26070 
26060 



26100 
26120 

26130 

26150 

26160 

26170 E12 

26180 
26200 

27010 CALC 

27020 
27030 

27040 

27050 

27060 

27080 

27090 
27100 

27110 
27120 



CM 

BNH 



CM 
BE 



BETA -P,-00 
GOBACK-12, 



BETA 
CALC 



CM 
BH 

BL 

DC 
A 

TR 

87 
TOM 

CF 
A 

TR 

BNV 

BNF 

B7 
SF 
TFM 

CM 
BL 

SM 

AM 

B7 

TFM 

A 

TF 

CF 
TF 



BETA 
E12 



-P»2 



,1011 



,10, 
f 0, 



tO, 
tlO 



46, 07770070 7007770050 
GOBACK-l ,BETA-4 -P,, 
BETA-5 -P,BETA-3 -Pi, 



El 2-1 2 
BETA-6 -P, 



flit 



BETA-5 -P, ,, 
GOBACK-l , BETA-5 -P,, 
BETA-5 -P,BETA-4 -P,, 



-L 

-L 

-L,-L 



♦+32 , 

OVFL -P,RECIP-1 

UNFL -P 

BETA-5 -P, 

♦ +9 , 

BETA-4 -P,34 

GORD t 

'BETA-4 -P,34 

CALC+9 ,1 

CALC+12 , 



fOt 
f 1» 



flO, 

*o, 

tlOf 
tOlOi 
♦ 0, 



♦+59 



, BETA-4 -P,07, 



*+47 ,BETA -P,0. 

BETA-6 -P,CLRt-9 6-P 



BETA-5 -P, 
BETA-4 -P, 



00236 K6 00194 00101 
, + L 00248 J4 00196 000— 

BR IF CHAR LESS THAN -L 

00260 M7 01016 01100 
00272 J4 00196 000-0 
BR IF CHAR ZERO 

00284 M6 00468 01200 
BR IF CHAR BETWEEN -L AND ZERO 

00296 M7 00536 01300 
00308 J4 00196 000-2 
BR IF CHAR LARGER THAN 2 

00320 M6 00436 01100 
BR IF CHAR BETWEEN 0 AND +2 

00332 M7 00376 01300 
5090007000 7000000505 76705070, 348 
00348 00046 
,-L CHAR EQUALS P2 

00344 KJ 01027 00192 
-L,-L SHIFT LEFT 2 POSITIONS 

00356 LJ 00191 00193 
00368 M9 00424 00000 
CHAR EQUALS +1 

00376 J5 00190 0000- 
00388 L3 00191 00000 
00400 KJ 01027 00191 
SHIFT LEFT 1 POSITION 

00412 LJ 00191 00192 
BR IF AOJ CHAR DOES NOT OVFLOW 

00424 M7 00456 01400 
BR IF MANT P0S1TIV6 

00436 MM 00266 00887 
00448 M9 00334 00000 
-2L 00456 L2 00191 00000 

, INIT SIZE IND 

00468 J6 00477 0-0-0 
-L 00480 J4 00192 000L4 

BR IF BETA LESS THAN .34 +CHAR 

00492 M7 00608 01300 
-L ADJ BETA BY ^,34 

00504 J2 00192 000L4 
STEP SIZE INO 

00516 Jl 00477 000-1 
CONTINUE REDUCTION OF BETA ; 

(10528 M9 00480 00000 
PROCESS IF CHAR NEG 

00536 JO 005*5 *0192 
00548 KJ 005^.5 00196 
-L,+L L+4 DIGIT FIELD 

00560 KO 00190 00638 
-L 00572 L3 00191 00000 

SHIFT RIGHT W R T CHAR SIZE 

00584 K6 00192 00000 
-L 00596 L2 00191 OOOOO 



^40 
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27140 




DC 


44,0856405252 0055085502 


2020005000 0000000851 4052 , 


i348 














00348 00044 






27150 


GORD 


TF 


80 


rCLR-106-P, , 


,2L 00608 20 00080 


00628 




27160 




M 


3ETA-4 -p. 


,LN10-46-P, , 


,+L 2L+4 DIGIT PRODUCT 
















00620 KL 00192 


00545 




27170 




SF 


97 1 


1 » » 


-2L 00632 32 00097 


00000 




27180 




TF 


SAVE -P' 


r99 , , 


,-L L+4 DIGIT FIELDS 
















00644 K6 00100 


00099 




27190 




TF 


BETA-2 -p. 


r99 ,, 


,-L 00656 K6 00194 


00099 




27200 




TFM 


FACT+11 , 


,2 ,010 


00668 J6 00751 


000-2 




28010 




A 


ALPHA-2-P, 


fSAVE -P 


00680 KJ 00048 


00100 




28020 




TF 


80 , 


,CLR-106-P, , 


,2L 00692 20 00080 


00628 




28030 




M 


SAVE -P, 


rBETA-2 -P,, 


2L+8 DIGIT PRODUCT 
















00704 KL 00100 


00194 




28040 




TF 


99 


,9b ,, 


,-L L+6 DIGIT DIVIDEND 




' 












00716 26 00099 


00096 




28050 




TFM 


96 


r tlOt 


-L 00728 16 00096 


000-0 




28060 


FACT 


DM 


97 


r » t 


-L 2 DIGIT DIVISOR. L+4 QUOTIENT 


r 












00740 19 00097 


-0000 




28070 




BZ 


FACT+56 


, fO, 


BR WHEN TERM REDUCES TO ZERO 














00752 M6 00796 


01200 




28080 




TF 


SAVE -P 


.97 , , 


L+4 DIGIT FIELD 
















00764 K6 00100 


00097 




28090 




AM 


FACT+11 


,1 ,010 


00776 Jl 00751 


000-1 


' 


28100 




B7 


FACT-60 


, tO, 


CALC NEXT TERM 
















00788 M9 00680 


00000 




28120 




CM 


CALC+9 


t tOlO 


00796 J4 00477 


000-0 




28130 




BE 


RECIP 


> tOt 


BR IF FURTHER ADJ NOT REQUIRED 














00808 M6 00888 


01200 




28140 




TF 


80 


,CLR-106-P,, 


,2LADJUST FOR REDUCTNS BY .34 
















00820 20 00080 


00628 




28150 




M 


ALPHA-4-P, 


,TEN34-45 ,1 


,L 2L+4 DIGIT PRODUCT 
















00832 KL 00046 


01048 


i 


28160 




SF 


97 , 


t » t 


-2L 2L+3 DIGITS 00844 32 00097 


00000 




28170 




TF 


ALPHA-4-P! 


f9S 


,-L L+2 DIGITS 
















00856 K6 00046 


00098 


( 


28180 




SM 


CALC+9 , 


tl fOlO, 


REDUCE INDICATOR 
















00868 J2 00477 


000-1 




28190 




B7 


*-84 1 


, tO 


00880 M9 00796 


00000 


' 


29010 




DC 


26, 0000084025 0000000200 005005 ,350 00350 00026 






29020 


RECIP 


BNF 


GOBACK-12, 


rREClP-1 ,01, 


BR IF MANT WAS POSITIVE 
















00888 MM 01016 


00887 








SF 


GOBACK-1 , 


r » t 


MAKE CHAR NEGATIVE 
















00900 L2 01027 


00000 




29040 




TF 


99 , 


rCLR-94-P ,, 


,2LCALC RECIPROCAL IF NEG MANT 














00912 20 00099 


00640 




29050 




TFM 


99 , 


,10 ,10, 


-2L, 2L+2 DIGIT DIVIDEND 
















00924 16 00099 


OOOJO 


( 


29060 




D 


100 1 


►ALPHA-4-P,, 


-L, L+2 DIGIT DIVISOR 
















00936 2R 00100 


00046 




29070 




BV 


GOBACK-24, 


, .0, 


BR IF ORIG OPER 1 OR 1/LOGE 














00948 M6 01004 


01400 








AM 


GOBACK-1 , 


,01 flO 


00960 Jl 01027 


000-1 
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TF »+23 , GOBACK-1 ,6 00972 KO 0099N 01027 

TFL PCK+15 ,99 ,6, ,-L STORE RESULT 

00984 06 0238-' 00099 

29100 B7 PCK+10 , ,6, RETURN TO MAINLINE 

00996 49 0237N 00000 

29101 AM GOBACK-1, 2, 10 01004 Jl 01027 000-2 
TFM ALPHA-4-P 01016 J6 00046 -0000 

GOBACK TFL PCK+15 , ALPHA-4-P, 6, STORE RESULT 

01028 00 0238- 00046 
B7 PCK+10 , ,6, RETURN TO MAINLINE 

01040 49 0237N 00000 
29150 TEN34 DC 47 ,21877616239495525622261149163841873167118056246 

01093 00047 

DEND 02102 02102 
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29160****** FLOATING POINT LOG AND LN. VARIABLE LENGTH 



NOSDIG 0 2401 
COUN 00368R 
GOAL 00832R 
ONEZ 00449R 
PI0V2 00496R 
ZRES 00346R 



ALPHA 00050R 
CZERO 00959R 
LNIO 00591R 
OVFL 00266R 
PLUS 00 68 OR 



SYMBOL TABLE 

BETA 00I96R 
EDGAR QGGOOR 
LOGE 00543R 
P 00000 
SAVE OOlOOR 



CLR 00734R 

FLN3 00020R 

NINE 00636R 

PCK 02365 

UNFL 00334R 



CORN 00596R 
FL0G3 OOOOOR 
NLG 00876R 
PICK 00198R 
XX 00000 



29190 FL0G3 



29200 

30020 FLN3 



30030 
30040 



30110 

30120 

30130 , 

30140 
30150 
30160 

30170 
30180 
30190 

30200 

31010 



DORG 
TDM 

B7 
TDM 

TFM 
B7 

DC 

BD 

TDM 

SF 

B7 

BNF 

TDM 

CF 

TFM 

IF 

CF 

TDM 

CM 

BNL 

A 

AM 



EDGAR 
CORN+1 



» + 20 
CORN+1 



PCK+5 
PCK 



f FLN3 
t 1 

t»+20 



tl7 
»6, 



DSA FL0G3 fFLN3 00004 00005 -0000 

00009 00005 -0020 
00000 
SET FOR COMMON LOG 

00000 J5 00597 00001 
00012 M9 000 32 00000 
SET FOR NATURAL LOG 

00020 J5 00597 00009 
00032 10 02370 -0052 
BR TO PICK AND RETURN 

00044 49 0236N 00000 
28 ,0700 6050 0500500105 7070700055 ,350 

00350 00028 
L BR IF NON ZERO ARG 

00052 ML 00096 00195 
11, SET IND FOR LOG OR LN OF ZERO. 

00064 15 00401 0000- 
, PL . SET UP TO STROE NEG NINES 

00076 L2 00591 00000 
, BR TO STORE AND RTN TO MAINLIN 

00088 M9 00278 00000 
BR IF MANT POSITIVE 

00096 MM 00132 00194 
SET IND FOR NEGATIVE 

00108 15 00401 00000 
MAKE POSITIVE 

00120 L3 00194 00000 
+L INITIALIZE 00132 JO 00571 -0914 
SAVE CHAR 00144 KO 00819 00196 
f, -L, EXPAND FIELD TO L+1 DIGITS 

00156 L3 00195 00000 
,11, -L, ADD 1.0 00168 J5 00194 OOOOJ 
,10, -L, 00180 J4 00195 00OJ5 

,0, BR If= MOD MANT NOT LESS 1.5 

00192 M6 00236 01300 
-P,, DOUBLE MANT. L+1 DIGITS 

00204 KJ 00194 00194 
,010, ADJ FOR NEXT CONSTANT 



*+44 ,BETA-1 -P,, 
401 ,0 

NINE-45-P, ,, 

0VFL+12-P, ,, 

«+36 ,BETA-2 -P,0 

40 1 ,0 , , 

BETA-2 -P, ,, 



CORN-25 

GOAL-13 fBETA 
BETA-I -P, 



,CZER0-45 ,017, 
PfO, 



BETA-2 -P,l 
BETA-1 -P,15 
♦ + 44 , 

BETA-2 -P, BETA-2 

CORN-25 ,48 
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00216 Jl 00571 000M8 



31020 


B7 . 


•»60 




» 


fO 






00228 M9 00168 00000 


31070 


DC 


42,567055082525520855 52550103 


5106202050 085552, 350 


















00350 00042 


31040 


IF 


ALPHA 


-P 


,0NEZ-48-P 






r+L 


L+1 DIGITS 


















00236 KO 00050 00401 


.31050 


TDM 


ALPHA 


-P 


»2 


rllf 


-L, 




. CONVERT TO TWOZ 


















00248 J5 00050 OOOOK 


31060 


S 


ALPHA 


-P 


, BETA-2 -P 








2.0 MINUS MOD MANT f2.0-Za 


















00260 KK 00050 00194 


31080 


TF 


99 




,CLR-93-P 






r2L 


00272 20 00099 00641 


31090 


LD 


97 




,ALPHA -P 


t t 


-L, 




00284 2Q 00097 00050 


31100 


D 


98 




,BETA-2 -P 


» » 


-Li 




«2.0-Zn/Z EQUALS Y 


















00296 2R 00098 00194 


31110 


TF 


BETA 


-P 


,98 




1 


»-L 


L+2 DIGITS 


















00308 K6 00196 00098 


31120 


TF 


80 




,CLR-106-P 


» ♦ 


1 


r2L 


00320 20 00080 00628 


31130 


M 


BETA 


-P 


,BETA -P 


» t 






2L+4 DIGITS 


















00332 KL 00196 00196 


31140 


TF 


SAVE 


-P 


r97 


» t 


1 




Y»#2 L+2 DIGITS 


















00344 K6 00100 00097 


31150 


A 


BETA 


-P 


,BETA -P 


r t 






DOUBLE Y 00356 KJ 00196 00196 


31160 COUN 


TFM 


#+9 




,99999 


fOlO, 




,+LINITlALlZE COUNT TO L-1 TERMS 


















00368 J6 00377 999R9 


31170 


TFM 


COUN+71 




,99999 


rOlO, 




>2L 


00380 J6 00439 999R9 


31180 


TF 


ALPHA 


-P 


,CZER0-46 


f f 


t 


r + L 


L+2 DIGITS. ZERO ALPHA 


















00392 KO 00050 00913 


31190 


TF 


99 




,CLR-92-P 




1 


r + L 


00404 20 00099 00642 


31200 


TFM 


98 




,10 


Iio, 


-L, 


r 


OBTAIN RECIPROCAL TERM 


















00416 16 00098 OOOJO 


32010 


DM 


98 




» 


» » 


-L, 




00428 19 00098 -0000 


32020 


A 


ALPHA 


-P 


t97 








L+2 DIGITS TO PREV TOTAL 


















00440 Kl 00050 00097 


32030 


TF 


80 




,CLR-106-P 






r2L 


PRODUCT OF Y*»2 AND TOTAL OF 


















00452 20 00080 00628 


32040 


M 


ALPHA 


-P 


,SAVE -P 








PREVIOUSLY CALC TERMS 


















00464 KL 00050 00100 


32050 


TF 


ALPHA 


-P 


»97 




1 




L+2 DIGITS STORED TOTAL 


















00476 K6 00050 00097 


32060 


SM 


COUN+71 




t2 


,010, 






REDUCE DIVISOR 


















00488 J2 00439 000-2 


32070 


SM 


COUN+9 




, 1 


,010, 






REDUCE NO OF UNCALC TERMS 


















00500 J2 00377 000-1 


32090 


BNZ 


COUN+36 






»o» 


BR 


IF 


L-1 TERMS NOT CALC 


















00512 «7 00404 01200 


320 


DC 


46, 08552550 5052000865 


5250066005 5050605000 07770050,350 


















00350 00046 


32100 


TF 


80 




,CLR-106-P 








00524 20 00080 00628 


32110 


M 


ALPHA 


-P 


,BETA -P 








2Y * SUM OF L-1 TERMS 


















00536 KL O0050 00196 


32120 


A 


97 




,BETA -P 


» , 


-L 




ADD 2Y TO ABOVE PRODUCT. L+2 


















00548 2J 00097 00196 


32130 


TF 


BETA 


-P 










SET WITH PROPER CONSTANT L+3 



244 



32140 




SF 


BETA 


-P 




00572 L2 00196 


00000 


32150 




S 


BETA 


-P 


»97 ,, 


,-L SUB ACCUM TOTAL FROM CONSTANT 














00584 K2 00196 


00097 


32160 


CORN 


B 


NLG 




1 ,0, 


BR IF FINDING NATURAL LOG 
















00596 M9 00876 


00000 


32170 




TF 


80 




,CLR-106-P, , 


,2L 00608 20 00080 


00628 


32180 




M 


LOGE-45 


-p! 


rBETA -P,, 


+L, 00620 KL 00498 


00196 


32190 




TF 


BETA 


-p 


»97 


,-L L+3 DIGITS 00632 K6 00196 


00097 


32200 




SF 


BETA 


-p 




00644 L2 00196 


00000 


33010 




TF 


80 




,CLR-100-P, , 


,+L 00656 20 00080 


00634 


33020 




M 


ONE Z -46 


-p! 


rGOAL-13 ,1, 


+L, ORIG CHAR * ONE. L+5 DIGITS 














00668 KL 00403 


00819 


33030 


PLUS 


A 


99 




rBETA -P 


00680 2J 00099 


00196 


33040 




TF 


BETA 


-p 


f99 ,, 


PREPARE FOR NORMALIZATION 
















00692 K6 00196 


00099 


33050 




CF 


BETA 


-p 




00704 L3 00196 


00000 






C 


CLR-92 


-p, 


r98 ,, 


,+L 00716 K4 00642 


00098 


33060 




BE 


ZRES 


-p. 




BR IF L+5 ZEROS 00728 M6 00346 


01200 






TFM 


GOAL-1 




r03 ,10, 


SET CHAR EQUAL 3 
















00740 J6 00831 


000-3 


33080 




BD 


GOAL-24 




rBETA-4 -P,0, 


,-L BR IF HI ORDER DIGIT NON-ZERO 














00752 ML 00808 


00192 


33090 




TR 


BETA-4 


-Pi 


rBETA-3 -P,, 


-L,-L 00764 LJ 00192 


00193 






SM 


GOAL-1 




,01 ,10, 


REDUCE CHAR 00776 J2 00831 


000-1 


33110 




TD 


BETA 


-Pi 


rNOS DIG ,t 


INSERT NOISE DIGIT 
















00788 K5 00196 


02401 


33120 




B7 


«-48 




t ,0, 


CONTINUE NORMALIZATION 
















00800 M9 00752 


00000 






DC 


16 




r7050005005000660 ,350 00350 00016 




■33150 




SF 


BETA~4 


-Pi 


t 1 f 


-L, SET FIELD DEFINITION 
















00808 L2 00192 


00000 






TFM 


BETA-3 






00820 J6 00193 


-0000 




GOAL 


BNF 


*+24 




p99 ,, 


AFFIX SIGN AND RTN TO MAINLINE 
















00832 M4 00856 


00099 






SF 


BETA-5 


-p 




00844 L2 00191 


00000 






TFL 


PCK+15 




,BETA-3 -P,6 


00856 00 0238- 


00193 






B7 


PCK+10 




r t6 


00868 49 0237N 


00000 


33190 


NLG 


TF 


80 


1 


>CLR-100-P, , 


,+L CONVERSION FOR LN 
















00876 20 00080 


00634 


33200 




M 


LNlO-45 


-pi 


,60AL-13 ,, 


+L, L+5 DIGITS 00888 KL 00546 


00819 


34010 




B 


PLUS 




, fOf 


RETURN TO COMMON SECTION 
















00900 M9 00680 


00000 


34030 


CZERO 


DC 


48 




>o 


00959 00048 




37090 




DC 


48 t-6931 471805599453094172321 2 1458 17656807 5500 13436 
















01007 00048 




37100 




DC 


48,-138629436111989061883446424291635313615100026872 
















01055 00048 




37110 




DC 


48,-207944154167983592825169636437452970422650040308 
















01103 00048 








OEND 


02122 






02122 
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FLOATING SHIFT RIGHT 



NOSDIG 02401 
EDGAR OOOOOR 
ONEZ 00449R 
PICK 00198R 
ZRES 00346R 



JOHNNY 00140R 
FSRSl OOOOOR 
OVFL 00266R 
PI0V2 00496R 



SYMBOL TABLE 

ALPHA 00050R 
LNIO 00591R 
P 00000 
SAVE OOlOOR 



BETA 00196R 
LOGE 00543R 
PATTY 00060R 
UNFL 00334R 



CLR 00734R 

NINE 00636R 

PCK 02365 

XX 00000 







DSA 


FSRSl 






00004 


00005 -0000 






DORG 


EDGAR 






00000 






34030 


FSRSl 


TRNM 


PCK+U , 


,PCK+10 


» 11 


00000 


30 02376 


0237N 


34040 




AM 


PCK+10 , 


» 11 


,10 


00012 


11 02375 


000 J 1 


34055 




DC 


4 ,50 50 




,350 


00350 


00004 


34060 




TF 


ALPHA , 


rPCK+20 


»11 


00024 


K6 00050 


0238N 


34070 




MF 


ALPHA , 


r PCK+15 


til 


000 36 


PI 00050 


0238- 


34070 




S 


PCK+15 , 


.PCK+15 


f611, 


ZERO ALPHA FIELD 00048 


22 0238- 


0238- 


34020 


PATTY 


TFM 


PCK+25 






00060 


16 02390 


-0000 


34072 




BNF 


JOHNNY , 


iPCK+20 




00072 


M4 00140 


02385 


34074 




CF 


PCK+20 






00084 


33 02385 


00000 


34075 




MA 


PCK+25 , 


,PCK+20 


fll 


00096 


70 02390 


0238N 


34076 




TFL 


PCK+20 , 


.PCK+20 


tU 


00108 


06 02385 


0238N 






TD 


PCK+16 , 


.PCK+21 




00120 


25 02381 


02386 


34078 




B7 


PATTY+12 






00132 


M9 00072 


00000 


34079 


JOHNNY 


MA 


PCK+25 , 


PCK+20 




00140 


70 02390 


02385 


34080 




SM 


PCK+25 , 


1 


f 10 


00152 


12 02390 


000-1 


34090 




MA 


PCK+20 , 


PCK+25 




00164 


70 02385 


02390 


34094 




BNF 


*-24 , 


PCK+20 


til 


00176 


M4 00152 


0238N 


34100 




CF 


PCK+20 , 




f6, 


REMOVE FLAG FROM B OPERAND 






DC 








00188 


33 0238N 


00000 






2 


05 


,350 


00350 


00002 




34150 




TF 


PCK+15 , 


ALPHA 


r6 


00200 


20 0238- 


00050 




B7 


PCK+10 , 




t6, 


RETURN TO MAINLINE PROGRAM 








DEND 


02141 






00212 


49 0237N 


00000 










02141 
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PAGE 24 



FLOATING SHIFT LEFT 



NOSDIG 02'=^01 
CLR 00734R 
MK 00132R 
PCK 02365 
XX 00000 



ALPHA 00050R 
EDGAR OOOOOR 
NINE 00636R 
PICK 00198R 
ZRES 00346R 



SYMBOL TABLE 

BETA 00I96R 
FSLS OOOOOR 
ONEZ 00449R 
PrOV2 00496R 



BKSC 00072R 

LNIO 00591R 

OVFL 00266R 

SAVE OOlOOR 



BLNK 00232R 

LOGE 00543R 

P 00000 

UNFL 00334R 







DSA 


FSLS 






00004 


00005 -0000 






DORG 


EDGAR 






00000 








40010 


FSLS 


TRNM 


PGK+il 


, PCK+10 


tU 


00000 


30 


02376 


.0237N 


40015 




DC 


08 


,50000505 


t350 


00350 


00008 




40020 




TF 


ALPHA 


, PCK+20 


tU 


00012 


K6 


00050 


0238N 


40030 




AM 


PCK+10 


tU 


,10 


00024 


11 


02375 


OOOJl 


40040 




MF 


MK+2 


, ALPHA 




00036 


PJ 


00134 


00050 


40050 




TFM 


BKSC+35 


,ALPHA 




00048 


JO 


00107 


-0050 


40070 




TFM 


MK+11 


»BLNK+1 




00060 


JO 


00143 


-0233 


40080 


BKSC 


SM 


BKSC+35 


il 


tio 


00072 


J2 


00107 


000-1 


40090 




SM 


MK+11 


tl 


»10 


00084 


J2 


00143 


000-1 


40100 




BNF 


BKSC 


tXX 




00096 


M4 


00072 


00000 


40110 




TD 


PCK+20 


fBLNK 


»6 


00108 


2N 


0238N 


00232 


40120 




SM 


MK+11 


tl 


»io 


00120 


J2 


00143 


000-1 


40130 


MK 


TRNM 


PCK+15 


,XX 


t6 


00132 


30 


0238- 


00000 


40140 




BO 


MK-12 


, PCK+20 


f 11 


00144 


M3 


00120 


0238N 


40150 




TRNM 


PCK+15 


, BKSC+35 


,611 


00156 


3- 


0238- 


OOlOP 


40160 




MF 


PCK+20 


,MK+2 


♦ 6 


00168 


7J 


0238N 


00134 


40170 




B7 


PCK+10 




f6 


00180 


49 


0237N 


00000 


40180 


BLNK 


DC 


46 


!os 




00232 


00046 








DEND 


02151 






02151 
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TRANSMIT FIELD FLOATING ROUTINE 



SYMBOL TABLE 



NOSDIG 02401 
LNIO 00591R 
P 00000 
TFLS OOOOOR 



ALPHA 00050R 
LOGE 00543R 
PCK 02365 
UNFL 0O334R 



BETA 00196R 

NINE 00636R 

PICK 00198R 

XX 00000 



CLR 00734R 

ONEZ 00449R 

PI0V2 00496R 

ZRES 00346R 



EDGAR OOOOOR 
OVFL 00266R 
SAVE OOlOOR 



40110 

40120 TFLS 
40130 
40140 
40150 



DSA TFLS 
DORG EDGAR 
TRNM *+14 
TFL XX 
AM PCK+10 
B7 PCK+10 
DEND 02161 



,PCK+10 

,xx 

♦ 11 



00004 00005 -0000 
00000 

00000 LO 00014 0237N 
00012 06 00000 00000 
00024 11 02375 OOOJl 
00036 49 0237N 00000 
02161 
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37020- 



FLOATING BRANCH AND TRANSMIT ROUTINE 



SYMBOL TABLE 



NOSDIG 02401 
EDGAR OOOOOR 
NINE 00636R 
PICK 00I98R 
ZRES 00346R 



ALPHA 00050R 
LNIO 00591R 
ONEZ 00449R 
PI0V2 00496R 



BETA 00196R 

LOGE 00543R 

OVFL 00266R 

SAVE OOlOOR 



BTFSl OOOOOR 
MOV 00036R 
P 00000 
UNFL 00334R 



CLR 00734R 

ND 00048R 

PCK 02365 

XX 00000 



36020 BTFSl 



36090 MOV 
36100 ND 



DSA BTFSl 
□ORG EDGAR 
TRNM MOV+2 



AM 
TF 

BTFL 
B7 

DEND 



PCK+10 
ND+6 



XX 
02171 



ill 

,PCK+10 



00004 00005 -0000 

00000 
STORE A+B OPERANDS 

00000 LO 00038 0237N 

00012 11 02375 OOOJl 

00024 K6 00054 02375 
MOVE EXP AND BR 000 36 07 00000 00000 

00048 49 00000 00000 

02171 
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AUTO FLOATING PT SET 03.SPSIID SUBROUTINES MONITOR II 



SYMBOL TABLE 



NOSDIG 02401 
LNIO 00567R 
P 00000 
UNFL 00322R 



ALPHA 00050R 
LOGE 00519R 
PCK 02365 
XX 00000 



BETA 00196R 

NINE 00612R 

PICK 00198R 

ZRES 00334R 



CLR 00710R 
ONEZ 00425R 
PI0V2 00472R 



EDGAR OOOOOR 
OVFL 00266R 
SAVE OOlOOR 



02040»»»*»» 
0ld80**«**« 
01090»»***« 
««««*'» 
01100«*»»»» 
01110**««»* 
01120»»»»*« 
01130»»«««* 
OL140*»*»*« 
01150»*»«** 
01160»»»»** 
01170****** 
01180»«»»«* 
01200*««»#* 
02010* 
02020»«»*»* 



FOR OPERANDS A AND B ONLY 

PCK AREA MAY BE USED AS A WORK AREA IF SUBR NOT USED. 
SUBROUTINES REQUIRED, THEN THE AREA IS USED AS FOLLOWS 



IF 



2398 
02401 
PCK 
PCK+5 
PCK+10 
PCK+15 
PCK+20 
PCK+25 
PCK+30 
PCK+31 



MANTISSA LENGTH SOURCE » SUBROUT INE SUPERVISOR 

NOISE DIGIT. SOURCE, SUBROUTINE SUPERVISOR 

ADR OF PICK. SOURCE, SUBROUTINE SUPERVISOR 

ADR OF RETURN TO SUBR. SOURC E , SUBROUT I NE 

ADR OF RETURN TO MAINLINE. SOURC E , PR IMARY LINKAGE 



ADR OF A OPERAND CHARACTERISTIC. SOURCE, PICK 
ADR OF 8 OPERAND CHARACTERISTIC. SOURCE, PICK 
ADR OF A OPERAND MANTISSA. SOURCE, PICK 

ADR OF B OPERAND MANTISSA. SOURCE, PICK 

RESERVED FOR POSSIBLE RECORD MARK 
PCK-5 THRU PCK-89 SUBVEC FOR THE 17 FURNISHED SUBROUTINES 

ADRS ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR 
PCK-90 DOWN TO END OF lORT MAY BE USED IF NO ADDED SUBROUTS 







DSA 


PICK 






00004 00005 -0198 




EDGAR 


DS 


,«-4 






00000 00000 








DORG 


EDGAR 






' 00000 




02100 


ALPHA 


DS 


51 






00050 00051 




02110 


P 


DS 




,ALPHA- 


ALPHA,, 


ABS ZERO IND OPERD REFERENCES PICK 














00000 00000 






XX 


DS 




tOf 




INDICATES FIELD IS MODIFIED BY PGM 














00000 00000 




02130 


SAVE 


DS 


-50 






00100 00050 




02140 


BETA 


DS 


96 






00196 00096 








DS 


1 






00197 00001 




02160 


PICK 


TD 


401 


,BETA+1 


-P tl. 


RESET ERROR INDICATOR 
















00198 2N 00401 


00197 


02170 




TR 


PCK+11 


, PCK+10 


tll» 


MOVE OPERANDS FROM MAINLINE 
















00210 31 02376 


0237N 


03000 




AM 


PCK+10 


»11 


,10, 


CALC RETURN ADR 00222 11 02375 


OOOJl 


03130 




TFL 


BETA 


, PCK+20 


1 11» 


MOVE B TO BETA 
















0023^ -6 00196 


0238N 


03150 




BV 


PCK+5 




t6. 


RETURN TO SUBROUTINE 
















00246 46 0237- 


01400 






B7 


PCK+5 




t6 


00258 49 0237- 


00000 






DC 


14 


,00100110000020 


,350 00350 00014 




04030 


OVFL 


TDM 


401 


»-l 




00266 15 00401 


OOOOJ 






SF 


NINE-44 






+L 00278 L2 00568 


00000 



25 0 







TFL 


PCK+15 


,NINE-43 


»6, ,+L 


00290 00 0238- 00569 






CF 


NINE-45 




♦ » +L 


00302 L3 00567 00000 






B7 


PCK+10 




♦ 6 


00314 49 0237N 00000 


04090 


UNFL 


TDM 


401 


,1 




00322 15 00401 00001 




ZRES 


SF 


CLR+1 




» » -L 


00334 L2 00711 00000 






TFL 


PCK+15 


,'CLR +2 


»6 


00346 00 0238- 00712 






CF • 


*-18 


t 


t6 


00358 L3 0034- 00000 


04120 




B7 


PCK+10 




,6 


00370 49 0237N 00000 


04140»**»»« 


SHARED CONSTANTS 






04150 


ONEZ 


DC 


49 


, lOOOOOOOOOOOOOOOOOdOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 














00425 00049 


04160 


PI0V2 


DC 


47 


,15707963267948966192 313216916397514420985846996 














00472 00047 


04170 


LOGE 


DC 


47 


,43429448190325182765112891891660508229439700580 














00519 00047 


04180 


LNIO 


DC 


48 


,230258509299404568401799145468436420760110148862 














00567 00048 


04190 


NINE 


DC 


45 


,999999999999999999999999999999999999999999999 














00612 00045 






DC 


2 


f99 




00614 00002 


04200 


CLR 


OS 


96 


» t 


96 ZEROS 


00710 00096 


05010 




DC 


48 


tO 


, « 


00710 00048 


05020 




DC 


49 


fO 


,•"47 


00663 00049 






DC 


2 


t-99 




00712 00002 


02080 


PCK 


DSB 


5 t8 


t2365 




02365 00040 




N0SDI6 


DS 

OEND 


03001 


,2401 




02401 00000 
03001 
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PROGRAM DIVIDE 



NOSDIG 02401 
EDGAR OOOOOR 
OVFL 00266R 
SAVE OOlOOR 



ALPHA 00050R 
LNIO 00567R 
P 00000 
UNFL 00322R 



SYMBOL TABLE 

BETA 00196R 

LOGE 00519R 

PCK 02365 

XX 00000 



CLR 00710R 

NINE 00612R 

PICK 00198R 

ZRES 00334R 



DIVWl OOOOOR 
ONEZ 00425R 
PI0V2 00472R 





DSA 


DIVWl 






00004 00005 -0000 




DORG 


EDGAR 






00000 


05050 DIVWl 


TR 


PCK-m 


, PCK+10 


»llf 


MOVES DIV OPERANDS INTO PCK AREA 












00000 31 02376 0237N 


05060 


AM 


PCK+10 


»21 


» t 


CALC RETURN ADR 00012 11 02375 -0021 




TF 


85 


,CL R-10 




00024 20 00085 00700 


05070 


LD 


PCK+25 


, PCK+15 


,611 


000 36 28 0239- 0238- 


05080 


D 


PCK+30 


,PCK+20 


,611 


00048 29 0239N 0238N 


05090 


B7 


PCK+10 


» 


,6 


00060 49 0237N 00000 




DEND 


03011 






03011 



252 



FLOATING ARITHMETICS 



ZRODIV 00I96R 
EDGAR OOOOOR 
FS3 OOOOOR 
ONEZ 00425R 
PI0V2 00472R 
ZRES 00334R 



NOSDIG 02^01 
FA3 00020R 
LNIO 00567R 
OVFL 00266R 
SAVE OOlOOR 



SYMBOL TABLE 

ALPHA 00050R 

FD3 00060R 

LOGE 00519R 

P 00000 

UNFL 00322R 



BETA 00196R 
FLOP 00116R 
MOVE 00072R 
PCK 02365 
UNFLO 00176R 



CLR 00710R 

FM3 00040R 

NINE 00612R 

PICK 00198R 

XX 00000 



DSA FS3 ,FA3 » FM3 ,FD3 00004 0OOO5 -0000 

00009 00005 -0020 
00014 00005 -0040 
00019 00005 -0060 





DORG 


EDGAR 






00000 








FS3 


TDM 


FLOP+1 


t2 




00000 


J5 


00117 


00002 




B7 


MOVE+12 






00012 


M9 


00084 


00000 


FA3 


TDM 


FLOP+1 


tl 




00020 


J5 


00117 


00001 




B7 


MOVE+12 






000 32 


M9 


00084 


00000 


FM3 


TDM 


FLOP+1 


»3 




00040 


J5 


00117 


00003 




B7 


MOVE 






00052 


M9 


00072 


00000 




DC 


4t0005» 


350 




00350 


0OOO4 




FD3 


TDM 


FLOP+1 


f 9 




00060 


J5 


00117 


00009 


MOVE 


TF 


79 


tCL R-17 




00072 


20 


00079 


00693 




TFM 


PCK+5 


tFLOP-12 




00084 


10 


02370 


-0104 




B7 


PCK 




t6 


00096 


49 


0236N 


00000 




8XV 


* + 12 






00104 


M6 


00116 


01500 


FLOP 


FADD 


PCK+15 


,PCK+20 


t611 


00116 


01 


0238- 


0238N 




BV 


ZRODIV 






00128 


M6 


00196 


01400 




BNXV 


PCK+10 




t6 


00 140 


47 


0237N 


01500 




TDM 


401 






00152 


15 


00401 


OOOOJ 




BNF 


PCK+10 


, PCK+15 


»6LL 


00164 


44 


0237N 


0238- 


UNFLO 


CF 


401 


tOOOO 


tSlO 


00176 


33 


00401 


0-0-0 




87 


PCK+10 




»6 


00188 


49 


0237N 


00000 


ZRODIV 


TDM 


401 


tO 


til 


00196 


15 


00401 


0000- 




FADD 


PCK+15 


iUNFLO+ll 


t6 


00208 


OJ 


0238- 


00187 




BNZ 


PCK+10 


t 


t6 


00220 


47 


0237N 


01200 




TFM 


PCK+15 


t99 


f61011 


00232 


16 


0238- 


OOORR 




B7 


PCK+10 


t 


t6 


00244 


49 


0237N 


00000 




DEND 


03024 






03024 
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FLOATING SQUARE ROOT 



SYMBOL TABLE 



NOSDIG 


02401 


ALPHA 


00050R 


BETA 


00196R 


CLR 


007 IDR 


EDGAR 


OOOOOR 


FSQR3 


OOOOOR 


LNIO 


00567R 


LOGE 


00519R 


LSQ 


002 16R 


LSQM 


00 324R 


NINE 


00612R 


ONEZ 


0042 5R 


OVFL 


00266R 


P 


00000 


PCK 


02365 


PICK 


00198R 


PI0V2 


00472R 


SAVE 


OOlOOR 


SQEX 


00424R 


SQ2 


00I12R 


SQ3 


00368R 


UNFL 


00322R 


XX 


00000 


ZRES 


00334R 











DSA 


FSQR3 








00004 00005 -0000 






DORG 


EDGAR 








00000 




10160 


FSQR3 


TFM 


PCK*5 




f«t20 , 


^17 


00000 10 02370 


-0020 


10170 




B7 


PCX 




t ( 


,bt BR 


TO PICK AND RETURN 


















00012 49 0236N 


00000 


10150 




DC 


42 


t 075050 0550000002 


00000B05 040000560000000005* 350 
















00350 00042 




10190 




BD 


*+20 




♦BETA-1 -P, 


»0, 1 


•-L 00020 ML 00040 


00195 


10200 




B7 


ZRES 


-P 




» » 


BR IF RESULT ZERO 


















00032 M9 00334 


00000 


11020 




MM 


BETA 


-P 


»50 , 


rlO, 


DIV CHAR BY 2 


















00040 J3 00196 


OOONO 


11030 




BNF 


♦+36 




,BETA-2 -Pi 


fOf 


BR FOR POSITIVE ARG 


















00052 MM 00088 


00194 


11040 




CF 


BETA-2 


-P 






00064 L3 00194 


00000 


11050 




TDM ■ 


401 




,0 , 




SET NE6 ARG INDICATOR 


















00076 15 00401 


00000 


11060 




BD 


SQ3 




,98 , 


fO, 


BR IF CHAR ODD 


















00088 M3 00368 


00098 


11070 




TFM 


SQ2+42 




,97 , 


1 1 1 


•-L MOVE MANTISSA ADR 


















00100 J6 00154 


-0097 


11090 


SQ2 


MF 


97 




,99 




00112 71 00097 


00099 






TF 


SQEX+47 




,97 ! 




STORE RESULT CHAR 


















00124 K6 00471 


00097 


11110 




TF 


99 




,CLR-92-P , 


' ♦ 1 


,2L 00136 20 00099 


00618 


11120 




TF 






,BETA-2 -P, 


1 1 


MOVE MANT INTO 97/98 MINUS 


L 
















00148 20 00000 


00194 


11130 




TFM 


LSQ+18 




.97 , 




■2L INITIAL MANT ADR HI ORDER 


















00160 J6 00234 


-0097 


11140 




TF 


LSQ+23 




,SQ3+18 , 


rOl, 


INITIAL RESULT ADR 


















00172 KO 00239 


00386 


11150 




TF 


LSQM-6 




, LSQ+18 , 




INITIAL MANT ADR 


















00184 KO 00318 


00234 


11160 




TF 


BETA-2 


-P 


,0NEZ-48-P, 


t , 1 


,+L SET RESULT TO ONE L+1 DIGITS 
















00196 KO 00194 


00377 


11170 




B7 


LSQM 






rO, 


00208 M9 00324 


00000 


11200 


LSQ 


AM 


LSQ+23 




,2 t 


>0610, 


ADD 2 TO RESULT 


















00216 Jl 0023R 


000-2 


12010 




S 






♦ 1 


t t 


SUB RESULT FROM MANTISSA 





254 

















00228 22 


00000 


00000 


12020 




BNN 


LSQ 






,0, 


CONTINUE UNTIL MANT 1 


[S NEG 


















00 240 M6 


00216 


01300 


12030 




CM 


LSQ+23 




, BETA-2 


-P,07 


00252 JM 


00239 


-0194 


12040 




BNL 


SQEX 






tO, 


BR IF TERMINAL RESULT ADR 


















00264 M6 


00424 


01300 


12050 




A 


LSQ+18 




, LSQ+23 


,01611, 


RESTORE LAST SUB 




















00276 KJ 


0023M 


0023R 


12060 




CF 


LSQ+18 




» 


,06 


00288 L3 


0023M 


00000 


12070 




AM 


LSQM-6 




,01 


,010, 


REDUCE MANT FIELD LENGTH ONE 
















00300 Jl 


00318 


000-1 


12080 




SF 










00312 32 


00000 


00000 


12090 


LSQM 


AM 


LSQ+18 




»02 


»010, 


STEP MANTISSA ADR, HI 


ORDER 


.+2 
















00324 Jl 


00234 


000-2 


12100 




AM 


LSQ+23 




»01 


fOlO, 


STEP RESULT ADR +1 




















00336 Jl 


00239 


000-1 


12110 




SM 


LSQ+23 




t09 


,0610, 


STEP RESULT -9 




















00348 J2 


0023R 


000-9 


12120 




B7 


LSQ+12 






.0, 


CONT LOOP WITH NEXT 2 DIGT 


rs 
















00360 M9 


00228 


00000 


11190 




DC 


16 ,70700200065020,316 


00316 00016 




12140 


SQ3 


AM 


99 




,50 


tlO, 


ADD .5 TO CHAR/2 




















00368 11 


00099 


OOONO 


12150 




TDM 


BETA-2 


-P 


tO 


,211, -Li 


f LENGTHEN MANT FOR ODD CHAR 


















00380 J5 


-0194 


0000- 


12160 




CF 


BETA-l 


-P 


» 


»» -L, 


, 00392 L3 


00195 


00000 


12170 




TFM 


SQ2+42 




f98 


♦ » 1 


r-L MOVE MANT ADR 




















00404 J 6 


00154 


-0098 


12180 




B7 


SQ2 








BR TO STORE CHAR + 


INIT 1 


.OOP 
















00416 M9 


00112 


00000 


12200 


SQEX 


TF 


80 




,CLR-IOO 


-Pt, , 


»+L 00424 20 


00080 


00610 


13010 




MM 


BETA-2 


-P 


f50 


tlO, 


RESULT/2 00436 J3 


00194 


OOONO 


13020 




SF 


98 




f 


ft -L, 


, DEFINE FIELD 




















00448 32 


00098 


00000 






TFM 


99 




» 




INSERTS CHAR 




















00460 16 


00099 


-0000 






TFL 


PCK+I5 




t99 , 


»6, 


STORE RESULT 




















00472 06 


0238- 


00099 


13040 




B7 


PCK+10 




» 


♦ 6, 


RETURN TO MAINLINE 




















00484 49 


0237N 


QOOOO 






DEND 


03061 








03061 







«5 



FLOATING SIN-COSINE . 



NOSDIG 02401 
BRD 00208R 
FC0S3 OOOOOR 
NINE 00612R 
PCK 02365 
POZCH 00760R 
XX 0000b 



AAB 009 lOR 

CLF 00088R 

FSIN3 00032R 

ONEZ 00425R 

PI 00962R 

SAVE OOlOOR 

ZRES 00334R 



SYMBOL TABLE 

AB 00914R 

CLR 00710R 

H34 OlOllR 

OVER 00400R 

PICK 00198R 

SUM 00472R 



ALPHA 00050R 
DONE 00588R 
LNIO 00567R 
OVFL 00266R 
PI0V2 00472R 
TWOPI 01009R 



BETA 00196R 
EDGAR OOOOOR 
LOGE 00519R 
P 00000 
PLACE 00716R 
UNFL 00322R 



DSA FC0S3 fFSlN3 00004 00005 -0000 

00009 00005 -0032 
DORG EDGAR 00000 



13100 


FC0S3 


TFM 


CLF+ll 




,010 


♦ 09f 


iNiT FOR COS 




















00000 J6 00099 


00-10 


13110 




TFM 


PCK+5 




,CLF 


♦ 17 




00012 10 02370 


-0088 


13120 




B7 


PCK 




t 


«6, 


GO 


TO PICK AND RETURN 

00024 49 0236N 


00000 


13140 


FSIN3 


TFM 


CLF + U 




♦ -Oil 


t09. 


INIT FOR POSITIVE SIN 




















00032 J6 00099 


00-lJ 


13150 




TFM 


PCK+5 




,♦ + 20 


,17 




00044 10 02370 


-0064 


13160 




B7 


PCK 




♦ 


♦ 6, 


GO 


TO PICK AND RETURN 

00056 49 0236N 


00000 


13180 




DC 


46 ,0500507056 


5000510007 


0507005651 0070510000 505608i 


>348 


















00348 00046 




13190 




BNF 


♦ ♦36 




,BETA-2 


-P 




00064 MM 00100 


001f4 


13200 




TDM 


CLF+10 




,0 


♦ 0^ 


ADJUST FOR NEG SIN 




















00076 J5 00098 


00000 


14010 


CLF 


CF 


BETA-2 


-P 








00088 L3 00194 


00000 


14020 




CF 


BETA-l 


-P 




♦ ♦ -L 




00100 L3 00195 


00000 


14030 




TF 


SAVE 


-P 


,CLR-94 


-P ♦♦ 


i + L 


MOVE L+2 ZEROS TO SAVE 


















00112 KO 00100 


00616 


14040 




CM ' 


BETA 


-P 


,00 


,10 




00124 J4 00196 


000-0 


14050 




BNL 


POZCH 






fO, 


BR 


IF POSITIVE OR ZERO CHAR 


















00136 M6 00760 


01300 


14060 




CM 


BETA 


-P 


,00 


,1011, 


»+L 


00148 J4 00196 


000— 


14070 




BL 


BRD 






tO, 


BR 


IF CHAR LESS THAN -L 

00160 M7 00208 


01300 


14080 




TFM 


*+30 




,SAVE 


-Pf07, 


r-L 


CHAR BETWEEN 0 AND -L 
00172 JO 00202 


-0100 


14090 




S 


» + 18 




,BETA 


-P,0 




00184 KK 00202 


00196 


14100 




TR 






,BETA-1 


-Ptf 1 


f-l 


00196 3J 00000 


00195 


14110 


BRD 


BD 


*+24 




,CLF+11 


,01, 


BR 


IF SIN ROUTINE 

00208 ML 00232 


00099 


14120 




A 


SAVE-P 




,PI0V2- 


^5-P,, , 


r+LCONVERT TO SIN 




















00220 KJ 00100 


00427 


14130 




S 


SAVE 


-P 


,TW0P1-' 


^5,1, , 


, + L 


00232 KK 00 100 


00964 



256 
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14140 




BH 


#-12 


» »o, 


SUB 2 PI FROM MANX UNTIL NEG 












00244 M6 


00232 


01100 


14150 




SF 


SAVE-1 


-P» t » 


-L 00256 L2 


00099 


00000 


14160 




A 


SAVE 


-P,PI-45 


,+L 00268 KJ 


00100 


00917 


14170 




BN 


»+36 


, »o 


00280 M7 


00316 


01300 


14180 




SM 


CLF+10 


,01 ,010 


00292 J2 


00098 


000-1 


14190 




SF 


SAVE 


-P 


00304 L2 


00100 


00000 


14200 




A 


SAVE 


-P,PIQV2-45-P, , 


,+L 00316 KJ 


00100 


00427 


1 5010 




TP 


80 


,CLR-106-P, , 


,2L 00328 20 


00080 


00604 


15020 




DC 


48,5552705600 0002202000 


5055000000 0008550000 00560050 


,348 












00348 00048 




15030 




M 


SAVE 


-P,SAVE -P 


00340 KL 


00100 


00100 


15040 




TF 


SAVE 


-P,98 ,, 


,-L 00352 K6 


00100 


00098 


15050 




SF 


SAVE-1 


-P» , » 


-L 00364 L2 


00099 


00000 


15060 




TF 


BETA 


-P ,0NEZ-47-P, , 


,+LSET BETA EQUAL 1 PLUS L+1 ; 


lERO 












00376 KO 


00196 


00378 


15070 




TR 


AAB-3 


,H34-1 ,01 


00388 LJ 


00907 


01010 


15080 


OVER 


TDM 


SUM+1 


,2 ,011, 


SET FOR SUBTRACTION 
















00400 J5 


00473 


OOOOK 


15090 




TF 


99 


»98 ,, 


,-L 00412 26 


00099 


00098 


15100 




TFM 


97 


,0000 ,8, 


-L 00424 16 


00097 


0-000 


151 10 




D 


98 


f AB ,, 


-L 00436 2R 


00098 


00914 


15120 




BZ 


DONE 


» tO, 


BR IF QUOTIENT ZERO 
















00448 M6 


00588 


01200 


15130 




TF 


ALPHA 


-P,95 


00460 K6 


00050 


00095 


15140 


SUM 


S 


BETA 


-P, ALPHA -P 


00472 KK 


00196 


00050 


15150 




AM 


AAB 


,2 ,010 


00484 Jl 


00910 


000-2 


15160 




AM 


AAB-2 


t2 ,010 


00496 Jl 


00908 


000-2 


1 5170 




M 


AAB 


, AAB-2 ,01, 


4DIGIT PRODUCT 
















00508 KL 


00910 


00908 


15180 




TF 


AB 


,99 ,0 


00520 K6 


00914 


00099 


15190 




TF 


80 


,CLR-106-P, , 


,2L 00532 20 


00080 


00604 


1 5200 




M 


SAVE 


-P, ALPHA -P 


00544 KL 


00100 


00050 


16010 




BNF 


OVER 


, SUM+1 ,01 


00556 MM 


00400 


00473 


16020 




TDM 


SUM+1 


,1 .0, 


SET TO ADD 00568 J5 


00473 


00001 


16030 




B7 


OVER+12 


: f tO 


00580 M9 


00412 


00000 


16050 


DONE 


C 


BETA-1 


-P,eLR-95-P ,, 


,+L 00588 KM 


00195 


00615 


16060 




BE 


POZCH+60 , tO, 


BR IF L+l ZEROS 
















00600 M6 


00820 


01200 


16070 




TFM 


SAVE 


-P,01 ,10 


00612 J6 


00100 


000-1 


16080 




DC 


48,0750775070 0000505505 


5000500051 0000505000 05057005, 


r350 












00350 00048 




16090 




BD 


PLACE-24 , BETA-1 -P,0, 


♦-LBR IF NORMALIZATION NOT REQ 












00624 ML 


00692 


00195 


16100 




SM 


SAVE 


-P,01 ,10 


00636 J2 


00100 


000-1 


16110 




TR 


BETA-1 


-P,BETA -P,, 


-L,-L 00648 LJ 


00195 


00196 


16120 




tD 


BETA-1 


-P»NOS DIG ft 


ENTER NOISE DIGIT 
















00660 K5 


00195 


02401 


16130 




SF 


BETA-1 


-P » t ♦ 


-L 00672 L2 


00195 


00000 


16140 




B7 


*-60 




00684 M9 


00624 


00000 


16160 




BD 


PLACE 


, CLF+10 ,01 


00692 ML 


00716 


00098 


16170 




SF 


BETA-2 


-P 


00704 L2 


00194 


00000 




PLACE 


TF 


BETA 


-P,SAVE -P»f 


STORE CHAR 00716 KO 


00196 


00100 




















■ 

TFL 


PCK+15 


,BETA -P,6, 


STORE RESULT 
















00728 00 


0238- 


00196 


16200 




TD 


ALPHA+1 


-P,H34+7 ,1, 


RESTORE RM 00740 KN 


00051 


01018 


17010 




B7 


PCK+10 


t t6. 


RETURN TO MAINLINE PROGRAM 














00752 49 


0237N 


00000 


17030 


POZCH 




BETA 


-P,03 ,10 


00760 J4 


00196 


000-3 


.17040 




BL 


**B0 


f tO, 


BR IF CHAR SMALLER THAN 03 














00772 M7 


00852 


01300 


17050 




CM 


BETA 


-P,00 ,10* 


,+L 00784 J4 


00 196 


000-0 


17060 




BNH 


• •••44 


f »o. 


BR IF CHAR LESS OR EQUAL L 














00796 M7 


00840 


01100 


17070 




TDM 


401 


fO ,11, 


CHAR TOO LARGE 
















00808 15 


00401 


0000- 


17080 




TD 


ALPHA+1 


-P,H34+7 ,, 


RESTORE RM 008 20 KN 


00051 


01018 


171 00 




B7 


ZRES 




00832 M9 


00334 


00000 


17120 




TOM 


401 


fO 


00840 15 


00401 


00000 


17130 




TFM 


•+42 


, SAVE-1 -P,07f 


ADJ TO SUB TMO PI FROM MANT 












00852 JO 


00894 


-0099 


17140 




S 


•+30 


,BETA -P,0, 


UNTIL REDUCED TO NEG 


NUMBER 












00864 KK 


00894 


00196 


171 50 




TDM 


BETA*2 


-PfO . ,11, 


-L 00876 J5 


00 194 


0000- 


17160 




TF 




, BETA-2 -P 


00888 20 


00000 


00194 


17170 




B • 


BRD 


t .0 


00900 M9 


00208 


00000 


17180 




DORG 


»-4 




00907 






17190 


AAB 


DS 


4 




00910 00004 




17200 


AB 


DS 


4 




00914 00004 




18010 




DS 


1 




00915 00001 




18020 


PI 


DC 


47 


,31415926535897932384626433832795028841971693993 












00962 00047 




18030 


TWOPI 


DC 


47 


,62831653071795864769252867665590057683943387987 












01009 00047 




18040 


H34 


DC 


2 


tOl 


01011 00002 




18050 




DC 


2 


,02 


01013 00002 




18060 




DC 


5 


,00028 


01018 00005 








DEND 


03072 




03072 
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SYMBOL TABLE 






INUO U i\y 


02401 




ALPH 00196R ALPHA 00050R 


ATNl 00424R BETA 00196R 


CLR 


007 lOR 


EDGAR OOOOOR EOD 01040R 


FATN3 OOOOOR LNIO 00567R 


LOGE 


005 19R 


NINE 00612R ONEZ 00425R 


OVFL 00266R P 00000 


PCHAR 


00836R 


PCK 02365 PICK 00198R 


PI0V2 00472R P10V4 01326R 


SAVE 


OOlOOR 


SIX 01235R TAN6 01281R 


TEST 00064R TESTl 00792R 


TEST2 


00652R 


UNFL 00322R XX 00000 


ZRES 00334R 








DSA 


FATN3 






00004 00005 -0000 






DORG EDGAR 






00000 




18090 


FATN3 


TFM 


PCK+5 , 


♦+20 ,17 




00000 10 02370 


-0020 


1 81 00 




B7 


PCK , 


*6t 




BR TO PICK AND RETURN 
















00012 49 0236N 


00000 


1 Ri •^n 




DC 


50 ,0700055050 0000510005 


0576705070 7000065020 51500825, 


,350 














00350 00050 




18120 




TFM 


TEST+11 1 


,08, 




SET INDICATORS 
















00020 J6 00075 


0-000 


18140 




BD 


•♦20 , 


BETA-l -P,0, 




,-L 00032 ML 00052 


00195 






B7 


TESTl+24 






00044 M9 00816 


00000 






TD 


TEST+9 , 


,BETA-2 -P,0, 




SAVE MANT SIGN 
















00052 KN 00073 


00194 


18180 


TEST 


CF 


BETA-2 -P 






00064 L3 00194 


00000 


18190 




CM 


BETA ~P, 


,10 




00076 J4 00196 


000-0 


1 8200 




BH 


PCHAR 1 


1 »0, 




BR IF CHAR POSITIVE 
















00088 M6 00836 


01100 


19010 




BE 


ALPH 1 


tO, 




BR IF CHAR ZERO 
















00100 M6 00196 


01200 


19020 




CM 


BETA -Pi 


-99999 ,10» 




+L 00112 J4 00196 


999RR 


19030 




BL 


EOD - , 


f 0, 




BR IF CHAR LESS THAN -XL-la 














00124 M7 01040 


01300 


19040 




TFM 


ALPH-1 1 


, BETA-2 -P,07 




00136 JO 00195 


-0194 


19050 




A 


ALPH-1 , 


BETA -P,0 




00148 KJ 00195 


00196 


19060 




TF 


BETA-2 -P, 


.CLR-96-P , , -L. 


r+L CLEAR AREA LEFT OF BETA 














00160 KO 00194 


00614 


19070 




CF 


BETA-1 -P, 


> ♦ » 


•L 


EXPAND BETA BY REMOVING FLAG 














00172 L3 00195 


00000 


19080 




TF 


BETA-2 -P, 






ADJUST BETA FIELD FOR CHAR 
















00184 K6 00194 


00000 


19090 


ALPH 


SF 


BETA-1 -P, 


♦ t -L 


CONTRACT BETA BY RESETTNG FLAG 














00196 L2 00195 


00000 


19100 




CM 


BETA -P, 


,29 ,10, -L 


00208 J4 00196 


000K9 


19110 




BL 


ATNl-72 , 


tO, 




BR IF MANT LESS THAN .29 
















00220 M7 00352 


01300 


19120 




TF 


79 , 


,CLR-100-P, , 




,+L 00232 20 00079 


00610 


19130 




MM 


BETA-2 -P, 


,6 ,10, 




6 •MANT IN 99 
















00244 J3 00194 


000-6 


















19140 




TDM 


98 , 


-I ♦! - 


L 


l+6^MANT IN 99 
















00256 15 00098 


OOOOJ 


19150 




S 


BETA-2 -P, 


SlX-45 ,1, 




+L MANT-. 6 L DIGITS 
















00268 KK 00194 


01190 


19160 




TF 


ALPHA -P, 


99 ,, 




10+6^MANT MOVED TO ALPHA. L-t-2DG 














00280 K6 00050 


00099 


19170 




TF 


99 ♦ 


CLR-94-P ,, 


1 


,2L 2L+2 ZEROS 
















00292 20 00099 


00616 


1 Ql Rn 




LD 


98 , 


BETA-2 -Pff 


L, 


L DIGITS 1 
















00304 2Q 00098 


00194 


1 91 90 




DC 


48 ,2552000855 5256030106 


2020055008 5552000000 56550855, 


348 














00348 00048 




19200 




D 


100 t 


ALPHA -P,, 


Li 


, L+2 DIGITS 00316 2R 00100 


00050 


20010 




TF 


BETA-2 -P, 


97 




,-L MANT IS «MANT-.6n/X10+6^MANTn 












00328 K6 00194 


00097 


20020 




SF 


TEST-Hl , 


*0, 




IND THIS CALC MADE 














00340 L2 00075 


00000 


20030 




TF 


80 t 


CLR-106-P,, 




,2L ZEROS 
















00352 20 00080 


00604 


20040 




M 


BETA-2 -P, 


BETA-2 -P,, 




SQUARE MANT 00364 KL 00194 


00194 


20050 




TF 


SAVE -P » 


99 ,, 




»-L SAVE IS MANT*MANT.L DIGITS 














00376 K6 00100 


00099 


20060 




TF 


ALPHA -P, 


CLR-95 -P,, 




f+L INIT ALPHA TO 00 L+1 ZEROS 














00388 KO OOOSO 


00615 


20070 




TFM 


ATNl+35 , 


99999 ,10t 




^2L 00400 J6 00459 


999R9 


20080 




TFM 


ATNl-3 , 


99999 ,10, 




^•t-L 00412 J6 00421 


999R9 


20090 


ATM 


TF 


99 , 


CLR-92-P 




,+L L+4 ZEROS 
















00424 20 00099 


00618 


20100 




TFM 


98 , 


10 ,10» - 


L 


00436 16 0009S 


000 JO 


201 10 




DM 


98 , 


♦ t 


•L 


00448 19 00098 


-0000 






S 


96 • 


ALPHA -P 




00460 2K 00096 


00050 


20130 




TF 


ALPHA -P, 


,96 ,, 




L+1 DIGITS 
















00472 K6 00050 


00096 


20140 




TF 


80 1 


CLR-106-P,, 




,2L 00484 20 00080 


00604 


20150 




M 


ALPHA -Pf 


SAVE -P,, 




2L+1 DIGITS 
















00496 KL 00050 


00100 


20160 




TF 


ALPHA -Pi 


,99 ,, 




,-L L+1 DIGITS 
















00508 K6 00050 


00099 


20170 




SM 


'aTNI+35 , 


2 fOlO 




00520 J2 00459 


000-2 


20180 




SN 


ATNl-3 , 


,1 ,010 




005 32 J2 00421 


000-1 


20190 




BNZ 


ATNl , 


,0, 




BR IF LESS THAN L-X PASSES 














00544 M7 00424 


01200 


20200 




TF 


SAVE -Pi 


,0NEZ-47-P», 




,+L L+2 DIGITS 
















0.0556 KO 00100 


00378 


21010 




S 


SAVE -Pi 


.ALPHA -P,, 




ONE MINUS SUM 0F«C0EF^MANT^»2n 












00568 KK 00100 


00050 


21020 




TF 


80 , 


,CLR-106-P,, 




,2L 00580 20 00080 


00604 


21030 




M 


SAVE -P, 


rBETA-2 -P,, 




2L+2 DIGIT PRODUCT 














00592 KL 00100 


00194 


21040 




DC 


48 ,0000202100 2026502504 


5044200040 5200500500 00084025 


,348 












00348 00048 




21050 




BNF 


TEST2 , 


»TEST+11 ,01 




00604 MM 00652 


00075 


21060 




BNN 


TEST2-12 , 






00616 M6 00640 


01300 
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2L070 




SF 


99 








21080 




A 


99 




, TAN6-45 


f If 


21090 


TEST2 


BNF 


* + 36 




TEST+ 10 


01 


21100 




SF 


99 






!, 


21110 




A 


99 




,PlOV2-45- 


Pt» 


21120 




T FM 


BETA 


-P 


t 1 


» 10 


21130 




TD 


100 




BET A+ 1 — P 








BD 


TESTl-24 


1 98 




21150 




SM 


BETA 


-P 


t 1 


1 10 


21160 




TR 


98 




»99 




21170 




TD 


99 




,NOS DIG 


.1 


21180 




B7 


«-48 






,0 


21200 




SF 


98 












TF 


BETA-2 


-P 


»97 


t » 


22030 


TESTl 


BNF 


* + 24 




,TEST+9 


,01 






SF 


BETA-2 


-P 










TFL 


PCK+15 




,BETA -P 


t6 


22050 




B7 


PCK+10 




» 


t6 


22070 


PCHAR 


TDM 


TEST+10 


,-1 


f 0, 


22080 




TF 


99 




,CLR-9 5-P 










100 




f-l 




22100 




D 


99 




fBETA-2 -P 


» » 


22110 




DC 


44 ,0440525000 5250000050 


22120 




BD 


»+56 




»99 


.0, 


22130 




SF 


100 






f t 


22140 




TF 


BETA-2 


-P 


,99 




22150 




SM 


BETA 


-P. 


»1 


»10, 


22160 




B7 


* + 32 




t 


fO, 


22180 




TF 


BETA-2 


-P 


,98 


» » 


22190 




SM 


BETA 


-P 


»2 


f lOt 


22200 




BL 


•+44 






tOt 


23010 




BE 


ALPH 






fO, 


23020 




SF 


BETA 


-P 


t 


♦ f 


23030 




B7 


TEST+48 










TFM 


BETA 


-P 


* 


flOf 






TF 


BETA-2 


-P 


,PlOV4-45 


t f 



-L 00628 32 00099 00000 

-L»+L L+1 DIGITS 

00640 2J 00099 01236 

00652 MM 00688 00074 

-L 00664 32 00099 00000 

-L,+L L+2 DIGITS 

00676 2J 00099 00427 

00688 J6 00196 000-1 
-L INSERT RM AT 100-L 

00700 2N 00100 00197 

,-2L BR IF NORMALIZATION NOT REOD 

00712 M3 00768 00098 

00724 J2 00196 000-1 

-2L,-2L 00736 31 00098 00099 

-L INSEAT NOISE DIGIT 

00748 25 00099 02401 

00760 M9 00712 00000 

-2L 00768 32 00098 00000 

,-L 00780 K6 00194 00097 

00792 MM 00816 00073 

00804 L2 00194 00000 

00816 00 0238- 00196 

00828 49 0237N 00000 
INDICATE POSITIVE CHAR 

00836 J5 00074 OOOOJ 

,2L 00848 20 00099 00615 

-2L DIVIDEND EQUALS .1 

00860 15 00100 0000 J 
-L, DIVISOR IS MANT 

00872 2R 00099 00194 
0050510000 555670 70510005,348 

00348 00044 
,-2L BR IF MANT IS 100000,. , 

00884 M3 00940 00099 
-2L REDUCE TO L DIGITS 

00896 32 00100 00000 

,-L 00908 K6 00194 00099 

REDUCE CHAR BY 1 

00920 J2 00196 000-1 

THESE 3 00932 M9 00964 00000 

,-L INSTRUCTIONS GO 

00940 K6 00194 00098 
WITH BO ABOVE 

00952 J2 00196 000-2 
BR IF OPERAND IS ONE 

00964 M7 01008 01300 
BR IF CHAR REDUCED TO ZERO 

00976 M6 00196 01200 
CHAR STILL POS IT IVE ,MAKE NEG 

00988 L2 00196 00000 

01000 M9 00112 00000 

STORE CHAR 01008 J6 00196 000-0 

,+L 01020 KO 00194 01281 
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23130 
23140 

23150 
23160 
23170 
23180 
23190 

24010 
2402O 



24050 
24060 
24070 SIX 

24080 TAN6 

24090 PI0V4 



B7 
BNF 

TF 
TF 

CF 

TDM 

CM 

BNH 

TFM 

DC 

A 

S 

TF 

TFM 

B 

DORG 
DC 

DC 

DC 

DENO 



TESTl 
TESTl 

ALPHA 
BETA-2 ■ 

ALPHA-1- 
ALPHA ■ 
BETA 
«+48 
*+35 
10 

»+23 
BETA-2 - 
BETA-2 - 
BETA 
TESTl 
•-4 

45 
46 
45 
03091 



350 



01032 M9 00792 00000 
BR IF RESULT MORE THAN PI0V2 

01040 MM 00792 00074 
01052 KO 00050 00194 
,+L L+2 DIGITS 

01064 KO 00194 00426 
01076 L3 00049 00000 
01088 J5 00050 0000- 
♦ + L 01100 J4 00196 000 — 

01112 M7 01160 01100 
01124 JO 01159 -0050 
00350 00010 
01136 KJ 01159 00196 
01148 K2 00194 00000 
01160 KO 00194 00193 
01172 J6 00196 000-1 
01184 M9 00792 00000 
01191 

,600000000000000000000000000000000000000000000 

01235 00045 

,5404195002705841554435783646085999101351482514 

01281 00046 

» 7853981633974483096156608458 19875721049292349 

01326 00045 
03091 



, TEST+10 ,, 

-P, BETA-2 -P 
-P,PlOV2-46-P,, 

•P, ,t 

•P» »lli 

•Pt 00 ,1011 

t tO 

, ALPHA -P,07 
,0550555000 

,BETA -P,0 

P 

P,BETA-3 -P 

P,01 ,10 

» »0 
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FLOATING EXPONENTIAL 



NOSDIG 02401 
CLR 007 lOR 
FEX3 OOOOOR 
ONEZ 00425R 
PI0V2 00472R 
UNFL 00322R 



GOBACK 01028R 
EDGAR OOOOOR 
GORD 00608R 
OVFL 00266R 
RECIP 00888R 
XX 00000 



SYMBOL TABLE 

ALPHA 00050R 

E12 00436R 

LNIO 00567R 

P 00000 

SAVE OOlOOR 

ZRES 00334R 



BETA 00I96R 
FACT 00740R 
LOGE 00519R 
PCK 02365 
SETUP 00144R 



CALC 0046BR 
FEXT3 00020R 
NINE 00612R 
PICK 00198R 
TEN34 01093R 







DSA 


FEXT3 ,FEX3 








00004 00005 -0020 
















00009 00005 -0000 






DORG 


EDGAR 








00000 


24110 


FEX3 


TDM 


SETUP+1 fl 




tO, 




ALLOW MUL BY LOG E FOR EXP 
















00000 J5 00145 00001 


24120 




B7 


FEXT3+12 f 




tO 




00012 M9 00032 00000 


24140 


FEXT3 


TDM 


SETUP+1 t9 




tO, 




PREVENT MUL BY LOG E FOR EXT 
















00020 J5 00145 00009 


24150 




TFM 


PCK+5 ,»+20 




»17 




00032 10 02370 -0052 


24160 




B7 


PCK » 




»6, 




BR TO PICK AND RETURN 
















00044 49 0236N 00000 


24180 




DC 


46,0056070005 


5020250008 


5604504052 0052510050 000050 , 348 
















00348 00046 






TFM 


GOBACK-1 fOl 




, 10 




00052 J6 01027 000-1 


24200 




TF 


ALPHA- 2-P, ONEZ 


-45 


-P» » 




+L ONE. L+4 DIGIT MANTISSA 














00064 KO 00048 00380 


25010 




80 


•+20 ,BETA 


-I 


-PtO, 




-L 00076 ML 00096 00195 


25020 




B7 


G0BACK-12» 








BR IF MANT ZERO 
















00088 M9 01016 00000 


25040 




TD 


REClP-1 tBETA 


-2 


-PfO, 




NON ZERO MANTISSA 
















00096 KN 00887 00194 


25050 




CF 


BETA-2 -P 








00108 L3 00194 00000 


25060 




TFM 


101 , 






-L 


00120 16 00101 -0000 


25070 




TF 


97 ,BETA 


-2 


-p» , 


-L 


L+4 DIGITS IN 101-L 














00132 20 00097 00194 


25080 


SETUP 


B 


*+92 f 




»o, 




MUL BY LOG E IF EXP 
















00144 M9 00236 00000 


25100 




TF 


80 ,CLR- 


106 


-Pt t 




2L 00156 20 00080 00604 


25110 




M 


BETA-2 -PiLOGE 


-45 


-p» ♦ 




+L 2L+2 DIGIT PRODUCT 














00168 KL 00194 00474 


25120 




BD 


»+56 ,98 




tO, 




■2L BR IF HIORDER NOT ZERO 
















00180 M3 00236 00098 


25130 




SM 


BETA -P,l 




tio 




00192 J2 00196 000-1 


25140 




SF 


99 , 






-.2L, 00204 32 00099 00000 


25150 




TF 


BETA-2 -P,102 




1 1 




,-L MOVE L+4 DIGITS 
















00216 K6 00194 00102 


25160 




B7 


• + 20 , 




tO 




00228 M9 00248 00000 


25180 




TF 


BETA-2 -P,10l 








,-L MOVE L+4 DIGITS 
































00236 K6 00194 00101 


25190 




CM 


BETA -P,-00 




tlOU 


t 


+ L 00248 J4 00196 000— 


25200 




BNH 


GOBACK-12, 




tO, 




BR IF CHAR LESS THAN -L 
















00260 M7 01016 01100 


26010 




CM 


BETA -Pt 




tlOt 




00272 J4 00196 000-0 


26020 




BE 


CALC , 




♦ 0, 




BR IF CHAR ZERO 
















00284 M6 00468 01200 


26030 




BL 


CALC+68 , 




»o, 




BR IF CHAR BETWEEN -L AND ZERO 
















00296 M7 00536 01300 


2 6 04 0 




CM 


BETA -P,2 




flO 




00308 J4 00196 000-2 


26050 




BH 


E12 , 




»o, 




BR IF CHAR LARGER THAN 2 
















00320 M6 00436 01100 


26070 




BL 


•+44 , 




fO, 




BR IF CHAR BETWEEN 0 AND +2 






■ . 










00332 M7 00376 01300 


26060 




DC 


46, 07770070 


7007770050 


5090007000 7000000505 76705070, 348 
















00348 00046 






A 


GOBACK-1 ,BETA 


-4 


-p»t 


t 


-L CHAR EQUALS P2 
















00344 KJ 01027 00192 


26090 




TR 


BETA-5 -P tBETA 


-3 


-Ptf 


-L, 


-L SHIFT LEFT 2 POSITIONS 
















00356 LJ 00191 00193 


26100 




B7 


E12-12 








00368 M9 00424 00000 


26120 




TDM 


BETA-6 -P, 




»11, 


tL 


CHAR EQUALS +1 
















00376 J5 00190 0000- 


26130 




CF 


BETA-5 -P, 




t t 


-L 


00388 L3 00191 00000 






A 


GOBACK-1 »BETA 


-5 


-Pf f 




-L 00400 KJ 01027 00191 


26150 




TR 


BETA-5 -P,BETA 


-4 


-p,, 


-L, 


-L SHIFT LEFT 1 POSITION 
















00412 LJ 00191 00192 


26160 




BNV 


•+32 , 




fO, 




BR IF ADJ CHAR DOES NOT OVFLOW 
















00424 M7 00456 01400 


26170 


E12 


BNF 


OVFL -P,RECIP-l 


tit 




BR IF MANT POSITIVE 
















00436 MM 00266 00887 


26180 




B7 


UNFL -P 








00448 M9 00322 00000 


26200 




SF 


BETA-5 -P, 






-2L 


00456 L2 00191 00000 


27010 


CALC 


TFM 


•+9 , 




,0810, 




INIT SIZE IND 
















00468 J6 00477 0-0-0 


27020 




CM 


BETA-4 -P,34 




tlO, 


-L 


00480 J4 00192 000L4 


27030 




BL 


GORD , 




tO, 




BR IF BETA LESS THAN .34 +CHAR 
















00492 M7 00608 01300 


27040 




SM 


'BETA-4 -P,34 




,10, 


-L 


ADJ BETA BY -.34 
















00504 J2 00192 000L4 


27050 




AM 


CALC+9 ,1 




tOlO, 




STEP SIZE IND 
















00516 Jl 00477 000-1 


27060 




B7 


CALC+12 , 




,0, 




CONTINUE REDUCTION OF BETA 
















005 28 M9 0O48O 00000 


27080 




TFM 


♦+59 ,BETA- 


-4 


-P»07i 




PROCESS IF CHAR NEG 
















00536 JO 00595 -0192 


27090 




A 


*+47 ,BETA 




-P,0 




00548 KJ 00595 00196 


27100 




TF 


BETA-6 -P,CLR-< 


?6- 


p ,, 


-L, 


+L L+4 DIGIT FIELD 



27110 
27120 



CF 
TF 



BETA-5 
BETA-4 



00560 KO 00190 00614 
00572 L3 00191 00000 
SHIFT RIGHT W R T CHAR SIZE 

00584 K6 00192 00000 
00596 L2 00191 00000 



204 



\ 
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27140 




DC 


44,0856405252 0055085502 


2020005000 0000000851 4052 , 


,348 










00348 00044 




27150 


GORD 


TF 


80 ,CLR-106-P,, 


,2L 00608 20 00080 


00604 


27160 




M 


BETA-T4 -P,LN10-46-P, , 


i+L 2L+4 DIGIT PRODUCT 












00620 KL 00192 


00521 


27170 




SF 


97 , , , 


-2L 00632 32 00097 


00000 


^ 27180 




TF 


SAVE -P,99 ,, 


,-L L+4 DIGIT FIELDS 












00644 K6 00100 


00099 


27190 




TF 


BETA-2 -P,99 


,-L 00656 K6 00194 


00099 


^ 27200 




TFM 


FACT+11 ,2 ,010 


00668 J6 00751 


000-2 


28010 




A 


ALPHA-2-P,SAVE -P 


00680 KJ 00048 


00100 


28020 




TF 


80 ,CLR-106-P,, 


,2L 00692 20 00080 


00604 


' 28030 




M 


SAVE -P, BETA-2 -P,, 


2L+8 DIGIT PRODUCT 












00704 KL 00100 


00194 


28040 




TF 


99 ,96 ,, 


,-L L+6 DIGIT DIVIDEND 












00716 26 00099 


00096 


28050 




TFM 


96 , ,l0f 


-L 00728 16 00096 


000-0 


28060 


FACT 


DM 


97 , , , 


-L 2 DIGIT DIVISOR. L+4 QUOTIENT 










00740 19 00097 


-0000 


28070 




BZ 


FACT+56 , ,0, 


BR WHEN TERM REDUCES TO ZERO 










00752 M6 00796 


01200 


28080 




TF 


SAVE -P,97 ,, 


L+4 DIGIT FIELD 












00764 K6 00100 


00097 


28090 




AM 


FACT+11 ,1 ,010 


00776 Jl 00751 


000-1 


28100 




B7 


FACT-60 , ,0, 


CALC NEXT TERM 












00788 M9 00680 


00000 


28120 




CM 


CALC+9 , ,010 


00796 J4 00477 


000-0 


28130 




BE 


RECIP , ,0, 


BR IF FURTHER ADJ NOT REQUIRED 










00808 M6 00868 


01200 


28140 




TF 


80 ,CLR-106-P,, 


,2LADJUST FOR REDUCTNS BY .34 




i 








00820 20 00080 


00604 


28150 




M 


ALPHA-4-P,TEN34-45 ,1 


,L 2L+4 DIGIT PRODUCT 












00832 KL 00046 


01048 


( 28160 




SF 


97 , ,, 


-2L 2L+3 DIGITS 00844 32 00097 


00000 


28170 




TF 


ALPHA-4-P,98 ,, 


,-L L+2 DIGITS 












00856 K6 00046 


00098 


( 28180 




SM 


CALC+9 ,1 tOlOt 


REDUCE INDICATOR 












00868 J2 00477 


OOO-I 


28190 




B7 


»o84 , ,0 


00880 M9 00796 


00000 


r 29010 




DC 


26, 0000084025 0000000200 


005005 t350 00350 00026 




29020 


RECIP 


BNF 


G0BACK-12,RECIP-I ,01, 


BR IF MANT WAS POSITIVE 












00888 MM 01016 


00887 






SF 


GOBACK-1 , 


MAKE CHAR NEGATIVE 












00900 L2 01027 


00000 


29040 




TF 


99 ,CLR-94-P t, 


,2LCALC RECIPROCAL IF NEG MANT 


( 








00912 20 00099 


00616 


29050 




TFM 


99 ,10 ,10, 


-2L, 2L+2 DIGIT DIVIDEND 












00924 16 00099 


OOOJO 


( 29060 




D 


100 ,ALPHA-4-P,, 


-L, L+2 DIGIT DIVISOR 












00936 2R 00100 


00046 


29070 




BV 


GOBACK-24, ,0, 


BR IF ORIG OPER 1 OR 1/LOGE 










00948 M6 01004 


01400 






AM 


GOBACK-1 ,01 ,10 


00960 Jl 01027 


000-1 



PAGE 17 

TF *+23 ,GOBACK-l ,6 00972 KO 0099N 01027 

TFL PCK+15 ,99 ,6, ,-L STORE RESULT 

00984 06 0238- 00099 

29100 B7 PCK+10 , ,6, RETURN TO MAINLINE 

00996 49 0237N 00000 

29101 AM GOBACK-1,2,10 01004 Jl 01027 000-2 
TFM ALPHA-4-P 01016 J6 00046 -0000 

60BACK TFL PCK+15 , ALPHA-4-P, 6, STORE RESULT 

01028 00 0238- 00046 
87 PCK+10 , ,6, RETURN TO MAINLINE 

01040 49 0237N 00000 
29150 TEN34 DC 47 ,21877616239495525622261149163841873167118056246 

01093 00047 

DEND 03102 03102 
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FLOATING LQG 



NOSDIG 02401 
COUN 00368R 
GOAL 00832R 
ONEZ 00425R 
PI0V2 00472R 
ZRES 00334R 



ALPHA 00050R 
CZERO 00959R 
LNIO 00567R 
OVFL 00266R 
PLUS 00680R 



SYMBOL TABLE 

BETA 00196R 

EDGAR OOOOOR 

LOGE 00519R 

P 00000 

SAVE OOlOOR 



CLR 

FLN3 

NINE 

PCK 

UNFL 



0071 OR 
00020R 
006 12R 
02365 
00322R 



CORN 00596R 
FL0G3 OOOOOR 
NLG 00876R 
PICK 00198R 
XX 00000 







DSA 


FL0G3 


» 


FLN3 






00004 00005 -0000 


















00009 00005 -0020 






DORG 


EDGAR 










00000 


29190 


FL0G3 


TDM 


CORN+1 




1 


,0, 


SET 


FOR COMMON LOG 


















00000 J5 00597 00001 


29200 




B7 


*+20 






,0 




00012 M9 00032 00000 


30020 


FLN3 


TDM 


CORN+1 




9 


,0, 


SET 


FOR NATURAL LOG 


















00020 J5 00597 00009 


30030 




TFM 


PCK+5 




♦+20 


f 17 




00032 10 02370 -0052 


30040 




B7 


PCK 






,6, 


BR 


TO PICK AND RETURN 


















00044 49 0236N 00000 


29180 




DC 


28 ,0700 




6050 


0500500105 


; 7070700055 ,350 


















00350 00028 






BD 


♦+44 


1 


BETA- 


•1 -P,, 




-L BR IF NDN ZERO ARG 


















00052 ML 00096 00195 


30060 




TDM 


401 




0 


,11, 




SET IND FOR LOG OR LN OF ZERO. 


















00064 15 00401 GOOD- 






SF 


NlNE-45- 


Pi 




t , 


PL 


SET UP TO STRO^ NEG NINES 


















00076 L2 00567 00000 






B7 


OVFL+12- 


Pi 




t , 




BR TO STORE AND RTN TO MAINLIN 
















00088 M9 00278 00000 


30110 




BNF 


•+36 




, BETA-2 -P,0, 


BR 


IF MANT POSITIVE 


















00096 MM 00132 00194 


30120 




TDM 


401 


1 


,0 


» » 




SET IND FOR NEGATIVE 


















00108 15 00401 00000 


30130 




CF 


BETA-2 - 


Pi 








MAKE POSITIVE 


















00120 L3 00194 00000 


30140 




TFM 


CORN-25 


1 


,CZER0-45 ,017, 


+L INITIALIZE 00132 JO 00571 -0914 


30150 




TF 


GOAL-13 


1 


,BETA 


-P»0, 




SAVE CHAR 00144 KO 00819 00196 


30160 




CF 


BETA-1 - 


Pi 




t ♦ 




EXPAND FIELD TO L+1 DIGITS 


















00156 L3 00195 00000 


30170 




TDM 


BETA-2 - 


Pi 


I 


tilt 


-L, 


ADD 1.0 00168 J5 00194 OOOOJ 


30180 




CM 


BETA-1 - 


Pi 


15 


,10, 


-L, 


00180 J4 00195 000J5 


30190 




BNL 


♦ + 44 






,0, 




BR IF MOD MANT NOT LESS 1.5 


















00192 M6 00236 01300 


30200 




A 


BETA-2 - 


Pi 


,BETA- 


■2 -P,, 




DOUBLE MANT. L+1 DIGITS 


















00204 KJ 00194 00194 


31010 




AM 


CORN-25 




,48 


,010, 




ADJ FOR NEXT CONSTANT 
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00216 Jl 00571 000M8 



31020 


87 


♦ -60 




t tO 






00228 M9 00168 00000 


31070 


DC 


42,56705508252 552085552 550103 


5106202050 085552, 350 
















00350 00042 


31040 


TF 


ALPHA 


-P 


,0NEZ-48-P,, 




r+L 


L+1 DIGITS 
















00236 KO 00050 00377 


31050 


TDM 


ALPHA 


-P 


t2 ,11, 


-Li 




CONVERT TO TWOZ 
















00248 J5 00050 OOOOK 


31060 


S 


ALPHA 


-P 


,BETA-2 -P,, 






2.0 MINUS MOD MANT X2.0-Zn 
















00260 KK 00050 00194 


310^0 


TF 


99 




,CLR-93-P ,, 


1 


,21 


00272 20 00099 00617 


31090 


LP 


97 




,ALPHA -P,, 


-L, 




00284 2Q 00097 00050 


31100 


0 


98 




,BETA-2 -P,, 


-Li 


1 ■ 


382.0-Zn/Z EQUALS Y 
















00296 2R 00098 00194 


31110 


TF 


BETA 


-P 


,98 ,, 




,-L 


L+2 DIGITS 
















00308 K6 00196 00098 


31120 


TF 


80 




,CLR-106-P,, 


1 


>2L 


00320 20 00080 00604 


31130 


M 


BETA 


-P 


,BETA -P,, 






2L+4 DIGITS 
















00332 KL 00196 00196 


31140 


TF 


SAVE 


-P 


,97 ,, 




r-L 


Y^^2 L+2 DIGITS 
















00344 K6 00100 00097 


31150 


A 


BETA 


-P 


,BETA -P,, 






DOUBLE Y 00356 KJ 00196 00196 


31160 COUN 


TFM 


• +9 




,99999 ,010, 




»+LINITlALIZE COUNT TO L-1 TERMS 
















00368 J6 00377 999R9 


31170 


TFM 


COUN+71 




,99999 ,010, 




r2L 


00380 J6 00439 999R9 


31180 


TF 


ALPHA 


-P 


,CZER0-46 ,, 


1 


» + L 


L+2 DIGITS. ZERO ALPHA 
















00392 KO 00050 00913 


31190 


TF 


99 




,CLR-92-P ,, 




r + L 


00404 20 00099 00618 


31200 


TFM 


98 




tlO ,10, 


-L, 




OBTAIN RECIPROCAL TERM 
















00416 16 00098 000 JO 


32010 


DM 


98 




, 1 1 


-L, 




00428 19 00098 -0000 


32020 


A 


ALPHA 


-P 


t97 t. 






L+2 DIGITS TO PREV TOTAL 
















00440 Kl 00050 00097 


32030 


TF 


80 




,CLR-106-P,, 




,2L 


PRODUCT OF Y^^2 AND TOTAL OF 
















00452 20 00080 00604 


32040 


M 


ALPHA 


-P 


,SAVE -P,, 






PREVIOUSLY CALC TERMS 
















00464 KL 00050 00100 


32050 


TF 


ALPHA 


-P 


,97 ,, 




r-L 


L+2 DIGITS STORED TOTAL 
















00476 K6 00050 00097 


32060 


SM 


COUN+71 




,2 ,010, 






REDUCE DIVISOR 
















^0488 J2 004-39 000-2 


32070 


SM 


COUN+9 




,1 ,010, 






REDUCE NO OF UNCALC TERMS 
















00500 J2 00377 000-1 


32090 


BNZ 


COUN+36 


, ,0, 


BR 


IF 


L-1 TERMS NOT CALC 
















00512 M7 00404 01200 


320 


DC 


46, 08552550 5052000865 


5250066005 5050605000 07770050,350 
















00350 00046 


32100 


TF 


80 




,CLR-106-P, , 




»2L 


00524 20 00080 00604 


32110 


M 


ALPHA 


-P 


,BETA -P,, 






2Y » SUM OF L-1 TERMS 
















00536 KL 00050 00196 


32120 


A 


97 




,BETA -P,, 


-L 




ADD 2Y TO ABOVE PRODUCT. L+2 
















00548 2J 00097 00196 


32130 


TF 


BETA 


-P 








SET WITH PROPER CONSTANT L+3 



00560 K6 00196 00000 



32140 




SF 


BETA 


-P 








00572 L2 00196 


00000 


32150 




S 


BETA 


-P 


»97 




1 


>-L SUB ACCUM TOTAL FROM CONSTANT 


















00584 K2 00196 


00097 


32160 


CORN 


B 


NLG 






tO, 


BR 


IF FINDING NATURAL LOG 




















00596 M9 00876 


00000 


32170 




TF 


80 




,CLR-106-P 


♦ » 




.2L 00608 20 00080 


00604 


32180 




M 


LOGE-45 


-P 


,BETA -P 


» » 


+L, 


, 00620 KL 00474 


00196 


32190 




TF 


BETA 


-P 


,97 






,-L L+3 DIGITS 00632 K6 00196 


00097 


32200 




SF 


BETA 


-P 








00644 L2 00196 


00000 


33010 




TF 


80 




,CLR-100-P 






r+L 00656 20 00080 


00610 


33020 




M 


0NEZ~46 


-P 


,G0AL-13 


!i, 


+ L, 


, ORIG CHAR » ONE. L+5 DIGITS 


















00668 KL 00379 


00819 


33030 


PLUS 


A 


99 




,BETA -P 






00680 2J 00099 


00196 


33040 




TF 


BETA 


-P 


»99 






PREPARE FOR NORMALIZATION 




















00692 K6 00196 


00099 


33050 




CP 


BETA 


-P 








00704 L3 00196 


00000 






C 


CLR-9 2 


-P 


»98 






>+L 00716 K4 00618 


00098 


33060 




BE 


ZRES 


-P 






br' 


IF L+5 ZEROS 00728 M6 00334 


01200 






TFM 


GOAL-1 




Io3 


tlOt 




SET CHAR EQUAL 3 




















00740 J6 00831 


000-3 


33080 




BD 


GOAL-24 




,BETA-4 -P 


,0, 




,-L BR IF HI ORDER DIGIT NON-ZERO 


















00752 ML 00808 


00192 


33090 




TR 


BETA-4 


-P 


,BETA'3 -P 




-L, 


,-L 00764 LJ 00192 


00193 






SM 


GOAL-1 




tOl 


Iio, 




REDUCE CHAR 00776 J2 008 31 


000-1 


33110 




TD 


BETA 


-P 


tNOS DIG 






INSERT NOISE DIGIT 




















00788 K5 00196 


02401 


33120 




B7 


»-48 






»o, 




CONTINUE NORMALIZATION 




















00800 M9 00752 


00000 






DC 


16 




,7050005005000660 


,350 00350 00016 




33150 




SF 


BETA-4 


-P 


» 




-Li 


. SET FIELD DEFINITION 




















00808 L2 00192 


00000 






TFM 


BETA-3 










00820 J6 00193 


-0000 




GOAL 


BNF 


»+24 




,99 




AFFIX SIGN AND RTN TO MAINLINE 




















00832 M4 00856 


00099 






SF 


BETA-5 


-P 








00844 L2 00191 


00000 






TFL 


PCK+15 




rBETA-3 -P 


*6 




00856 00 0238- 


00193 






67 


PCK+10 






f 6 




00868 49 0237N 


00000 


33190 


NLG 


TF 


80 




,CLR-100-P 






,+L CONVERSION FOR LN 




















00876 20 00080 


00610 


33200 




M 


LNlO-45 


-P 


,G0AL-13 


t » 


+ L, 


. L+5 DIGITS 00888 KL 00522 


00819 


3A010 




B 


PLUS 




t 


.0, 




RETURN TO COMMON SECTION 




















00900 M9 00680 


00000 


34030 


CZERO 


DC 


48 




,0 






00959 00048 





37100 
37110 



DC 48,-69314718055994530941723212145817656807550013436 

01007 00048 

DC 48,-138 629436111989061883446424291635313615100026872 

01055 00048 

DC 48,-207944154167983592825169636437452970422650040308 

01103 00048 

DEND 03122 03122 



FLOATING DATA TRANSMISSION ROUTINES 



261i 



NOSDIG 02401 
EDGAR OOOOOR 
LOGE 00519R 
PCK 02365 
UNFL 00322R 



ALPHA 00050R 
FLOAT 00052R 
NINE 00612R 
PICK 00198R 
XX 00000 



SYMBOL TABLE 

BETA 00196R 

FSLS 00020R 

ONEZ 00425R 

PI0V2 00472R 

ZRES 00334R 



BTFS 
FSRS 
OVFL 
SAVE 



00096R 
OOOOOR 
00266R 
OOlOOR 



CLR 

LNIO 

P 

TFLS 



00710R 
00567R 
00000 
00040R 



DSA FSRS ,FSLS ,TFLS ,BTFS 





DORG 


EDGAR 




FS-RS 


TDM 


FLOAT+25 


,8 




B7 


FLOAT 




FSLS 


TDM 


FLOAT+25 


,5 




87 


FLOAT 




TFLS 


TDM 


FLOAT+25 . 


,6 


FLOAT 


TR 


PCK+U 


, PCK+10 




AM 


PCK+10 , 


) 11 




FSR 


PCK+15 , 


,PCK+20 




87 


PCK+10 , 




BTFS 


TR 


PCK+U, PCK+10, 11 




AM 


PCK+10, 11 






TF 


•+30, PCK+10 




BTFL 


PCK+15, PCK+20, 611 




B7 








DEND 


03144 





,611 
t6, 



00004 00005 -0000 
00009 00005 -0020 
00014 00005 -0040 

00019 00005 -0096 
00000 

00000 J5 00077 00008 
00012 M9 00052 00000 

00020 J5 00077 00005 
00032 M9 00052 00000 
00040 J5 00077 00006 
00052 31 02376 0237N 
00064 11 02375 -0011 
00076 08 0238- 0238N 

RETURN TO MAINLINE 

0O0B8 49 0237N 00000 
00096 31 02376 0237N 
00108 11 02375 -0011 
00120 K6 00150 02375 
00132 07 0238- 0238N 
00144 49 00000 00000 
03144 
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PAGE 1 



000 10 
00020 
00030 

00040 

00050 

00060 

00070 

00080 

00090 

00 1 00 

00110 
00120 
00130 
00140 
00150 

00160 



1620 FORTRAN II-D 
DORG 02218 
DC 5 ,-100 



PHASE 1-A 



-0 lo- 
ose 1 

2 

DC 2 
07 

DC 6 
R87898 
DC 2 
-0 

DC 5 
-0000 
DC 2 
-0 

DC 3 
-00 
SAVSYM DS 
LENGTH OS 
FLN6 OS 
KLNG OS 
PROGST DC 

-0000 
COMAOO DC 5 

J9999 
USEDFS DSC 30 



.67 



Nl 



RECLG 



12 

5 

2 

2 

5 



• 000 
•RECLG 



•00000 



000000000000000000000000000000 



00180 


SUBFCT 


DC 


1 


00190 


PUSTSN 


DSC 


1 


00200 


WW 


0 
OS 


2 


00210 


FP2 


OS 


2 


00220 


TEND 


DS 


5 


00230 


LSTAO 


DS 


5 


00240 


P2PTR 


DS 


5 


00250 


FCTEND 


DS 


5 


00260 




DS 


5 


00270 


FMON 


TF 


•♦42, 


00280 




TFH 


lORT, 


00290 




B 


lOGT, 


00300 




B 


• » t 


00310 




DORG 


•-4 


00320 


JAY 


DSC 


1 


00330 


NXLOC 


2 

DC 


5 






J5999 


00340 


STBL 


OS 


5 


00350 


COM ST 


OS 


9 


00360 


DISKSW 


DSC 


1*0 






0 




00370 


MULOEF 


DC 


1*0 


00380 


INTOPl 


DSC 


1*0 



SETUP ROUTINE ENTRY 

GO TO EXECUTE CALLED ROUTINE 



.2 



02218 








02222 




5 




02223 




1 




02225 




2 




02231 




6 




02233 




2 




02238 




5 




02240 




2 




02243 




3 




02243 




12 




02248 




■5 




02250 




2 




02252 




2 




02257 




5 




02262 




5 




02263 




30 




02293 




1 




02294 




1 




02296 




2 




02298 




2 




02303 




5 




02308 




5 




02313 




5 




02318 




5 




02323 




5 




02324 


26 


02366 


02323 


02336 


16 


00565 


-2359 


02348 


49 


00566 


-0000 


02360 


49 


00000 


00000 


02367 








02367 




1 




02372 




5 




02377 




5 




02382 




5 




02383 




1 




02384 




1 




02385 




1 
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00390 




DC 


5*00600 






02390 




5 








-0600 














00400 




DC 


3t002 






02393 




3 








-02 
















00410 




DSA 


CARD 






02398 




5 


X 1 














02398 




J4936 




00420 




DC 
• 


I,' 






02399 




1 




00430 


CALLP2 


TFM 


FM0N*35, 


BLK8 




02400 


16 


02359 


-2461 


00440 




BTM 


FM0N,CALLP2 




02412 


17 


02324 


-2400 


00450 


INDIV 


OS 


1 






02424 




1 




00460 


• 


INOIV * 0 


FOR CARDS, 


1 FOR TYPEWRITER* 










00470 


• 




FLAGGED 3 FOR 


PAPER TAPE 










00480 


JUMP 


OS 


5 






02429 




5 




00490 


ENTLN 


DS 




•RECL6>5 




02248 




0 




00500 


AFTBL 


DS 


•14935 






14935 




0 




00510 


CHI 


OAS 


430 


•I5I39 




15139 




430 


X 2 


00520 


CHI5 


OS 




•CHU700 




15839 




0 




00530 


CHI END 


DS 




•CHU860 




15999 




0 




00540 


CARD 


DS 


•CHI-203 






14936 




0 




00550 


lOCAL 


OS 


• 716 






00716 




0 




00560 


I OCT 


OS 


• 566 






00566 




0 




00570 


lORBC 


OS 


• 520 






00520 




0 




00580 


I OPT 


OS 


• 532 






00532 




0 




00590 


lOSK 


OS 


• 554 






00554 




0 




00600 


ERRET 


OS 


• 602 






00602 




0 




00610 


lORT 


DS 


• 565 






00565 




0 




00620 


MONCAL 


OS 


• 796 






00796 




0 




00630 


E86440 


TFM 


FM0N«35t 


••BLK7 




02430 


16 


02359 


-0000 


00640 




BTM 


FMON 


•E86440 




02442 


17 


02324 


-2430 


00650 


BLK8 


OS 


•E86440«31 




02461 




0 




00660 


PRSCAN 


TFM 


FM0N«35 


•PHBDAT 




02454 


16 


02359 


-2478 


00670 




BTM 


FMON 


•PRSCAN 


•• CALL IN PHASE B 


02466 


17 


02324 


-2454 


00680 


PHBDAT 


OSC 


2,22 






02478 




2 








22 
















00690 




OS A 


PHBDOA 






02484 




5 


X 1 














02484 




-2486 




00700 




DC 
• 








02485 




1 




00710 


PHBDOA 


OSC 


1,0 






02486 




1 




00720 




0 
DC 


5,17200 






02491 




5 








J7200 














00730 




DC 


3 ,082 




02494 




3 








-82 
















00740 




DSA 


E86440 






02499 




5 


X 1 














02499 




-2430 




00750 




DC 


If* 






02500 




1 




00760 


Nil 


BV 


• ♦12 






02502 


46 


02514 


01400 


00770 




BSIA 


•♦12 






02514 


60 


02526 


00009 


00780 




BSBA 


• ♦12 






02526 


60 


02538 


00001 


00790 




TOM 


475 


• 2 


,, SYSCAL 


02538 


15 


00475 


00002 
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PAGE 



3 



00800 




SF 


457 






00810 


MOVE 


TFM 


iORT 


#•♦23 




00820 




B 


lOGT 


•ABOEF 


,7 


00830 




TFM 


IORT 


#•♦23 




00840 




B 


lOPT 


rWCOEF 


,7 


00850 




AM 


A60DA«-5 


1 100 


,9 


00860 




AM 


WCDDA4-5 


,100 


,9 


00870 




CM 


WCDDA'fS 


• 200 


, 7 


00880 




BNH 


MOVE 






00890 


MQVEJ 


TFM 


IORT 


• •♦23 


f 7. 


00900 




B 


lOGT 


• AB JOEF 


, 7 


00910 




TFM 


IORT 


• •♦23 




00920 




B 


I OPT 


t WC JDEF 


,7 


00930 




TFM 


ABJD0A4-8 


« 100 


,9 


00940 




TFM 


NCJ0DA-»'8 


• 100 


,9 


00950 




AM 


ABJ0QA45 


• 124 


,9 


00960 




AM 


MCJ0DA-*>5 


• 124 


,9 


00970 




CM 


WCJDDA4-5 


• 1600 


,7 


00980 




BE 


MOVEJ 






00990 




SM 


ABJDDA't-5 


• 24 


.10 


01000 




SM 


MCJODA-fS 


• 24 


• 10 


01010 




CM 


NCJODA-f 5 


• 1700 


,7 


01020 




BE 


MOVEJ 






01030 




TDM 


00000 


• 0 




01040 




AM 


• ♦18 


•20000 


,7, 


01050 




TR 


1 


•ALPHRM~1 


• 26 


01060 




BNR 


•'-24 


• 0 




01070 




TF 


STBL 


• •-18 




01080 




IF 


INDDA«13 


• STBL 




01090 




SM 


IN00A«13 


• 999 


,9 


01100 




TFM 


IORT 


• •♦23 




OHIO 






I OCT 


•INDATA 


• T. 


01120 




SM 


IN00A4-10 


• 1 


.10 


01130 




c 


IN00A>13 


•NXLOC 




01140 




BNL 


•-48 






01150 




TDM 


BUFSCS^100»*-» 




01160 


GRMK 


06M 


• 






01170 




TD 


BUFEQT^800»6RNK 




01180 




TD 


BUFOIM^lOOtGRMK 




01190 




TF 


Till 


• STBL 




01200 




TF 


FCTEND 


• STBL 




01210 




TFM 


IORT 


• •♦23 




01220 




B 


lOGT 


•DIMDAT 


.7, 


01230 




TF 


DIMDOA^S 


,BUFDIH^4S 


'• • 


01240 




TD 


DIMDDA 


,BUFDIM^40 


01250 




TFM 


0IMD0A4^8 


;oo8 


• 9 


01260 




TFM 


DIM00A4l3tBUFEQT 




01270 




TFM 


IORT 


• •♦23 




01280 




B 


tOGT 


• Of MOAT 


• ?• 


01290 


N114 


AM 


• ♦18 


• 16 


• 10^ 


01300 




C 


BUFEQT-5 


•12N1NE 


• 2^ 


01310 




BE 


RDONE 




• • 


01320 




TF 


• ♦30 


!n114^18 


• • 


01330 




AM 


• ♦18 


.04 


• 10 


01340 




SM 


DUMMY 


• 09 


• 10^ 


01350 




MM 


•-6 


.09 


• 610 



EXECUTE SET 



MOVE PHASE 2-B BLOCKS TO WORK CYC, 



CALCULATE MEMORY SIZE 



INITIALIZE SYMBOL TABLE 



GET FIRST 5 DIM ENTRIES 

IN EQUIVAIENCE TABLE DIM ENTRY 



GET 8 SECTORS OF EQUIV. TABLE 

LOAD SYM TABLE FROM EOUIV TABLE 

IS ENTRY ALL NINES 

YES 

NO 

DETERMINE SUBROUTINE ADDRESS 



02550 


32 


00457 


00000 


02562 


16 


00565 


-2585 


02574 


49 


00566 


-6006 


02586 


16 


00565 


-2609 


02598 


49 


00532 


-6029 


02610 


11 


06019 


OOJOO 


02622 


11 


06042 


OOJOO 


02634 


14 


06042 


-0200 


02646 


47 


02562 


01100 


02658 


16 


00565 


-2681 


02670 


49 


00566 


-6052 


02682 


16 


00565 


-2705 


02694 


49 


00532 


-6075 


02706 


16 


06066 


OOJOO 


02718 


16 


06091 


OOJOO 


02730 


11 


06065 


00J24 


02742 


11 


06088 


00J24 


02754 


14 


06088 


-1600 


02766 


46 


02658 


01200 


02778 


12 


06065 


000K4 


02790 


12 


06088 


000K4 


02802 


14 


06088 


-1700 


02814 


46 


02658 


01200 


02826 


15 


00000 


00000 


02838 


11 


02856 


KOOOO 


02850 


31 


-OOOJ 


05669 


02862 


45 


02838 


00000 


02874 


26 


02377 


02856 


02886 


26 


05692 


02377 


02898 


12 


05692 


00R99 


02910 


16 


00565 


-2933 


02922 


49 


00566 


-5671 


02934 


12 


05689 


000-1 


02946 


24 


05692 


02372 


02958 


46 


02910 


01300 


02970 


15 


06318 


00000 


02981 




I 




02982 


25 


07120 


02981 


02994 


25 


07222 


02981 


03006 


26 


03221 


02377 


03018 


26 


02318 


02377 


03030 


16 


00565 


-3053 


03042 


49 


00566 


-5694 


03054 


26 


05707 


07167 


03066 


25 


05702 


07162 


03078 


16 


05710 


00-08 


03090 


16 


05715 


-6320 


03102 


16 


00565 


-3125 


03114 


49 


00566 


-5694 


03126 


11 


03144 


000J6 


03138 


24 


-6315 


05995 


03150 


46 


03534 


01200 


03162 


26 


03192 


03144 


03174 


11 


03192 


000-4 


03186 


12 


99999 


000-9 


03198 


13 


0319K 


000-5 
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01360 




SF 


95 








03210 


32 


00095 


00000 


01370 


Till 


OS 


9 


• • 


t 


SYMBOL TABLE POINTER 


03221 




5 




01380 




AM 


99 


•ENTLN-5 






03222 


11 


00099 


-2243 


01390 




TF 


Till 


• 99 


• 6, 


STORE SUBR. ADDRESS IN SYM TABLE 


03234 


26 


0322J 


00099 


01400 




SM 


Tin 


• 5 


• 10 




03246 


12 


03221 


000-5 


01410 




TF 


T112 


•N114^18 


• • 


ELIMINATE BLANKS FROM NAME 


03258 


26 


03353 


03144 


01420 




SM 


T112 


.12 


• 10 




03270 


12 


03353 


000J2 


01430 


L00P41 


AM 


T112 


.02 


• 10 




03282 


11 


03353 


000-2 


01440 




C 


T112 


.Nll4^l8 






03294 


24 


03353 


03144 


01490 




BH 


N1142 








03306 


46 


03390 


01100 


01460 




TF 


T113 


.T112 






03318 


26 


03377 


03353 


01470 




SM 


T113 


.01 


• 10 




03330 


12 


03377 


000-1 


01480 




SF 


T113 


. 


• 6 




03342 


32 


0337P 


00000 


01490 


T112 


OS 


9 








03353 




5 




01500 




CM 


T112 


.00 


• 610 




03354 


14 


0335L 


•000-0 


01510 




CF 


T113 




• 6 




03366 


33 


0337P 


00000 


01520 


T113 


OS 


9 


.• 






03377 




5 




01530 




BNE 


L00P41 








03378 


47 


03282 


01200 


01540 


N1142 


SM 


T112 


.02 


• 10 




03390 


12 


03353 


000-2 


01550 




TF 


T113 


.Nll4^l8 






03402 


26 


03377 


03144 


01560 




SM 


T113 


.11 


.10 




03414 


12 


03377 


OOOJ I 


01570 




SF 


T113 


. 


.6 




03426 


32 


0337P 


00000 


01980 


T114 


OS 


9 








03437 




5 




01590 




TF 


T114 


.T112 






03438 


26 


03437 


03353 


01600 




S 


T114 


.T113 






03450 


22 


03437 


03377 


01610 




AN 


T114 


.01 


.10 




03462 


11 


03437 


000-1 


01620 




A 


NXLOC 


.T114 






03474 


21 


02372 


03437 


01630 




TF 


NXLOC 


• T112 


• 611. 


STORE SUBR. NAME IN NAME TABLE 


03486 


26 


0237K 


0335L 


01640 




TF 


Till 


•NXLOC 


.6. 


STORE POINTER IN SYM. TABLE 


03498 


26 


0322J 


02372 


01650 




SM 


Till 


.09 


.10 




03910 


12 


03221 


000-9 


01660 




TF 


FCTENO 


.Till 






03922 


26 


02318 


03221 


01670 


RDONE 


CM 


Nll4^l8 


.BUFEQT^799 




03934 


14 


03144 


-7115 


01680 




BL 


N114 








03946 


47 


03126 


01300 


01690 




SM 


FCTENO 


.09 


.10 




03998 


12 


02318 


000-9 


01700 




SM 


•♦18 


• 02 


.10. 


INITIALIZE READ IM AREA 


03970 


12 


03588 


000-2 


01710 




TFM 


CHIEND 


• 00 


.210 




03982 


16 


J5999 


000-0 


01720 




CM 


»-6 


•CHI 






03994 


14 


03588 


J5139 


01730 




BNL 


•-36 








03606 


46 


03570 


01300 


01740 




TF 


CHIEND 


•ALPHRM 






03618 


26 


15999 


05670 


01790 




TD 


INPUT D 


•426 


. . 


DETERMINE INPUT DEVICE 


03630 


25 


05997 


00426 


01760 




CF 


INPUTD 








03642 


33 


05997 


00000 


01770 




CM 


INPUTO 


• 01 


.10 




03694 


14 


05997 


000- 1 


01780 




BE 


IPTY 








03666 


46 


03766 


01200 


01790 




CM 


INPUTD 


• 03 


.10 




03678 


14 


05997 


000-3 


01800 




BE 


IPPT 








03690 


46 


03734 


01200 


01810 




TDM 


INOIV 


• 0 


. . 


CARD INPUT 


03702 


15 


02424 


00000 


01820 




TFM 


N21KEY-1 


• 10 


.10 




03714 


16 


06004 


OOOJO 


01830 




8 


N12 








03726 


49 


03790 


00000 


01840 




DORG 


•-4 








03733 








01850 


IPPT 


TDM 


INOIV 


.3 


• lu 


PAPER TAPE INPUT 


03734 


15 


02424 


OOOOL 


01860 




TFM 


N21KEY-1 


• 08 


• 10 




03746 


16 


06004 


000-8 


01870 




B 


N12 








03798 


49 


03790 


00000 


01880 




DORG 


•-4 








03765 








01890 


IPTY 


TDM 


INDIV 


.1 


t • 


TYPEWRITER INPUT 


03766 


15 


02424 


OOOOl 


01900 




TFM 


N21KEV-1 


• 06 


.10 • 




03778 


16 


06004 


000-6 


01910 


N12 


TFM 


IORT 


,♦♦23 






03790 


16 


00565 


-3813 
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01920 


B 


lOGT 


tSCSOAT 


.7, 


GET SYiSTEM COMMUNICATION SECTOR 


03802 


49 


00566 


-5717 


01930 


TO 


COMADD-4 


,BUFSCS^76.» 


MOVE OBJECT TIME MACHINE SIZE 


03814 


25 


02258 


06294 


01940 


TF 


CONST 


fCOMAOO 






03826 


26 


02382 


02262 


01950 


TR 


BUFSCS 


• INIT 


» . 


SET UP DIM IN SYS COMN SECTOR 


03838 


31 


06218 


05741 


01960 


TR 


00402 


•INIT-l 


t . 


SET UP DIM IN SYS COMM AREA 


03850 


31 


00402 


05740 


01970 


TF 


FING 


rBUFSCS^46*» 


MOVE F 


03862 


26 


02250 


06264 


01980 


TF 


KLNG 


tBUFSCS^48«» 


MOVE K 


03874 


26 


02252 


06266 


01990 N21 


CM 


INPUTO 


tOl 


.10 




03886 


14 


05997 


000-1 


02000 


BNE 


• ♦24 








03898 


47 


03922 


01200 


02010 


RCTY 








READ AN INPUT RECORD 


03910 


34 


00000 


00102 


02020 


TFM 


lORT 


f*^23 




03922 


16 


00565 


-3945 


02030 


B 


tOGT 


tN2lKEY-T 




USING lORT. 


03934 


49 


00566 


-5998 


02040 


CM 


INPUTO 


tOl 


.10 




03946 


14 


05997 


000-1 


02050 


BNE 


♦ ♦24 








03958 


47 


03982 


01200 


02060 


BC4 


N21+24 






ALLOWS GOOF SWITCH 


03970 


46 


03910 


00400 


02070 


BNR 


•♦20 


fCHI 






03982 


45 


04002 


15139 


02080 


87 


MONCAL 








03994 


49 


00796 




02090 


CM 


CHI 


fl4 


• lO^ 


IS THIS A CONTROL STATEMENT 


04002 


14 


15139 


000J4 


02100 


BNE 


CALLPl 






NO, CALL IN PASS 1 


04014 


47 


04250 


01200 


02110 


CF 


CHI^3 








04026 


33 


15142 


00000 


02120 


CF 


CHI+5 








04038 


33 


15144 


00000 


02130 


CF 


C»l*7 








04050 


33 


15146 


00000 


02140 


CF 


CHI^9 






YES 


04062 


33 


15148 


00000 


02150 


C 


CHI^IO 


•PSTSN^B 




IS THIS A PSTSN STATEMENT 


04074 


24 


15149 


05773 


02160 


BE 


WASS 






YES 


04086 


46 


04646 


01200 


02170 


C 


CHUlO 


tPOBJP^B 




NO, IS THIS A POBJP ST. 


04098 


24 


15149 


05783 


02180 


BE 


WAOBJP 


•' 




YES 


04110 


46 


04794 


01200 


02190 


C 


CHI^IO 


•LOISK^B 


• . 


NO, IS THIS A LDISk ST. 


04122 


24 


15149 


05793 


02200 


BE 


WADK 


t ' 


• . 


YES 


04134 


46 


04950 


01200 


02210 


C 


CHUIO 


tFANOK^B 


f • 


NO* IS THIS A FANOK ST. 


04146 


24 


15149 


05803 


02220 


BE 


FKTEST 


• 


• • 


YES 


04158 


46 


05270 


01200 


02230 


RCTY 




•' 


• • 


NO, INVALID CTL. ST. 


04170 


34 


00000 


00102 


02240 


TF 


CHI^32 


•ALPHRM 






04182 


26 


15171 


05670 


02250 


WATY 


CHI 








04194 


39 


15139 


00100 


02260 


RCTY 










04206 


34 


00000 


00102 


02270 


WATY 


ERMESl 


• 




ERROR, INVALID CONTROL STATEMENT 


04218 


39 


05805 


00100 


02280 


H 










04230 


48 


00000 


00000 


02290 


B 


N21 


• 




BR. TO READ NEXT STATEMENT 


04242 


49 


03886 


00000 


02300 


DORG 


•-4 








04249 








02310 CALLPl 


SF 


CHI^3 








04250 


32 


15142 


00000 


02320 


SF 


CHI^5 








04262 


32 


15144 


00000 


02330 


SF 


CHI^T 








04274 


32 


15146 


00000 


02340 


SF 


CHI^9 








04286 


32 


15148 


00000 


02350 


BD 


• ♦48 


tINOIV 




CARD INPUT 


04298 


43 


04346 


02424 


02360 


TF 


CHU160 


•ALPHRM 


• • 


YES, MOVE INPUT RECORD 


04310 


26 


15299 


05670 


02370 


TR 


CHI 5-1 


•CMI-l 


• • 


TO CHI5 


04322 


31 


15838 


15138 


02380 


TFM 


CHI^160 


• 00 


• 10» 


ERASE RECORD MARK 


04334 


16 


15299 


000-0 


02390 


TF 


FP2 


• FLNG 






04346 


26 


02298 


02250 


02400 


AN 


FP2 


• 02 


• 10^ 


CALCULATE F PLUS TWO 


04358 


11 


02298 


000-2 


02410 


TF 


M 


• KLNG 






04370 


26 


02240 


02252 


02420 


C 


FP2 


• KLNG 






04382 


24 


02298 


02252 


02430 


BNH 


• ♦24 








04394 


47 


04418 


01100 


02440 


TF 


M 


• FP2 


• • 


tALuULATc N, MURU 2»I£c ruK III 


04406 


26 


02240 


02298 


024S0 


TF 


WW 


• W 






04418 


26 


02296 


02240 


02460 


TFM 


lORT 


• •♦23 






04430 


16 


00565 


-4453 


02470 




lOPT 


•SCSDAT 


• 7, 


PUT SYSTEM COMMUNICATION SECTOR 


04442 




00532 


—5717 
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02480 


CM 


STBL 


•39999 






04454 


14 


02377 


L9999 


02490 


BNL 


•♦32 








04466 


46 


04498 


01300 


02S00 


TFM 


LSTAD 


•19190 






04478 


16 


02308 


J9190 


02510 


B7 


SETPT 








04490 


49 


04542 




02520 


BNE 


•♦32 








04498 


47 


04530 


01200 


02530 


TFM 


LSTAD 


•34990 






04510 


16 


02308 


L4990 


02540 


B7 


SETPT 








04522 


49 


04542 




02550 


TFM 


LSTAD 


•54990 






04530 


16 


02308 


N4990 


02560 SETPT 


TF 


P2PTR 


• STBL 






04542 


26 


02313 


02377 


02570 


SM 


P2PTR 


• 09 


• 10 




04554 


12 


02313 


000-9 


02580 


TF 


JUMP 


•LSTAD 






04566 


26 


02429 


02308 


02590 


TDM 


FCTEND 


• •-• 


• 6 




04578 


15 


0231Q 


00000 


02600 6M1 


06M 


• 








04589 




1 




02610 


TF 


•♦30 


• JUMP 






04590 


26 


04620 


02429 


02620 


AM 


•♦18 


#4 


• 10 




04602 


11 


04620 


000-4 


02630 


SF 


•-• 








04614 


32 


00000 


00000 


02640 


BV 


•♦12 








04626 


46 


04638 


01400 


02650 


B 


PRSCAN 








04638 


49 


02454 


00000 


02660 


(K)RG 


•-4 








04645 








02670 MASS 


TF 


CHU14 


•ALPHRM 






04646 


26 


15153 


05670 


02680 


RCTY 










04658 


34 


00000 


00102 


02690 


WATY 


CHI 








04670 


39 


15139 


00100 


02700 


CM 


CHU12 


t72 


• 10, 


IS DEVICE CODE PAPER TAPE 


04682 


14 


15151 


000P2 


02710 


BE 


WASS2 


• 




YES 


04694 


46 


04774 


01200 


02720 


CM 


CHI^12 


.74 


llo. 


NO, IS DEVICE CODE CARDS 


04706 


14 


15151 


000P4 


02730 


BE 


WASS2 


• 


• » 


YES 


04718 


46 


04774 


01200 


02740 WREM3 


RCTY 




• 


• • 


ERROR, INVALID OUTPUT DEVICE CODE 


04730 


34 


00000 


00102 


02750 


WATY 


ERMES3 








04742 


39 


05921 


00100 


02760 


H 










04754 


48 


00000 


00000 


02770 


B 


N21 


• 


• • 


BR. TO READ NEXT STATEMENT 


04766 


49 


03886 


00000 


02780 


00 RG 


•-4 








04773 








02790 WASS2 


TO 


PUSTSN 


•CHI^12 






04774 


25 


02294 


15151 


02800 


B 


N21 








04786 


49 


03886 


00000 


02810 


00 RG 


»-4 








04793 








02820 WAOBJP 


TDM 


JAY 


• 1 




DUP ACTION REQUIRED 


04794 


15 


02367 


00001 


02830 


TF 


CHI^14 


•ALPHRM 






04806 


26 


15153 


05670 


02840 


RCTY 










04818 


34 


00000 


00102 


02850 


WATY 


CHI 








04830 


39 


15139 


00100 


02860 


CM 


CHI^12 


• 72 


.10, 


IS DEVICE CODE PAPER TAPE 


04842 


14 


15151 


O0OP2 


02870 


BNE 


•♦32 


• 




NO 


04854 


47 


04886 


01200 


02880 


TDM 


BUFSCS^23 


.1 


,11, 


YES 


04866 


15 


06241 


OOOOJ 


02890 


B 


N21 








04878 


49 


03886 


00000 


02900 


00 RG 


•-4 








04885 








02910 


CM 


CHU12 


.74 


• 10, 


IS DEVICE CODE CARDS 


04886 


14 


15151 


000P4 


02920 


BNE 


• ♦32 




• . 


NO 


04898 


47 


04930 


01200 


02930 


TDM 


BUFSCS^23 


i.O 


.11. 


YES 


04910 


15 


06241 


0000- 


02940 


B 


N21 








04922 


49 


03886 


00000 


02950 


DORG 


•-4 








04929 








02960 


TDM 


BUFSCS+23 


• 0 


.11 




04930 


15 


06241 


0000- 


02970 


B7 


WREM3 








04942 


49 


04730 




03020 WADK 


TOM 


BUFSCS^22 


.1 


.11. 


SET UP TO LOAD OBJECT PROG. ON OK. 


04950 


15 


06240 


OOOOJ 


03030 


TOM 


JAY 


tl 


. . 


OUP ACTION REQUIRED 


04962 


15 


02367 


00001 


03040 


TF 


CHU32 


.ALPHRM 






04974 


26 


15171 


05670 


03050 


RCTY 










04986 


34 


OOOOQ 


00102 


03060 


WATY 


CHI 








04998 


39 


15139 


00100 


03070 


BNR 


•♦24 


.CHI+12 


♦ 7, 


ELIMINATE RECORD MARKS 


05010 


45 


05034 


J5151 
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03080 




TFM 


»- 1 


tOO 


• 610 




05022 


16 


0502J 


000-0 


03090 




AM 


• -13 


»2 


flO 




05034 


U 


05021 


000-2 


03100 




CM 


•-25 


»CHI«30 






05046 


14 


05021 


J5169 


03110 




BNH 


• -48 








05058 


47 


05010 


01100 


03120 




CF 


CHI*13 








05070 


33 


15152 


00000 


03130 




CF 


CHI*15 








05082 


33 


15154 


00000 


03140 




CF 


CHI^17 








05094 


33 


15156 


00000 


03150 




CF 


CHI4-19 








05106 


33 


15158 


00000 


03160 




CF 


CHI*2l 








05118 


33 


15160 


00000 


03170 




TF 


BUFSCS4-35»CHl4-22 






05130 


26 


06253 


15161 


03180 




SF 


CHI*13 








05142 


32 


15152 


00000 


03190 




SF 


CHI*15 








05154 


32 


15154 


00000 


03200 




SF 


CHi*l7 








05166 


32 


15156 


00000 


03210 




SF 


CHU19 








05178 


32 


15158 


00000 


03220 




SF 


CHI*2l 








05190 


32 


15160 


00000 


03230 




TO 


BUFSCS-^36,CHI>24 






05202 


25 


06254 


15163 


03240 




TO 


BUFSCS+37,CHU26 






05214 


25 


06255 


15165 


03250 




TO 


BUFSCS-i-38«CHI«28 






05226 


25 


06256 


15167 


03260 




TO 


BUFSCS-f39,CHU30 






05238 


25 


06257 


15169 


03270 




SF 


BUFSCS+36 






05250 


32 


06254 


00000 


03280 




B 


N21 








05262 


49 


03886 


00000 


03290 




00 RG 


•-4 








05269 








03300 


FKTEST 


TF 


CHI*20 


•ALPHRM 






05270 


26 


15159 


05670 


03310 




RCTY 










05282 


34 


00000 


00102 


03320 




MATY 


CHI 








05294 


39 


15139 


00100 


03330 




TO 


FWORK-1 


tCHI^ll 






05306 


25 


05760 


15150 


03340 




TO 


FWORK 


• CHI4-13 






05318 


25 


05761 


15152 


03350 




CF 


FWORK 








05330 


33 


05 761 


00000 


03360 




CM 


FWORK 


tTT 


#10, 


IS F NUMERIC 


05342 


14 


05761 


000P7 


03370 




BNE 


N31 




• • 


NO. ERROR 


05354 


47 


05626 


01200 


03380 




TO 


FMORK-l 


tCHI«12 


t f 


YES. LOAD F 


05366 


25 


05760 


15151 


03390 




SF 


FWORK-l 








05378 


32 


05760 


00000 


03400 




TO 


FMORK 


tCHI*14 






05390 


25 


05761 


15153 


03410 




CM 


FWORK 


«02 


fflOt 


F IN RANGE 


05402 


14 


05761 


000-2 


03420 




BL 


N31 


t 


• » 


NO. ERROR 


05414 


47 


05626 


01300 


03430 




CM 


FWORK 


t28 


• 10 




05426 


14 


05761 


000K8 


03440 




BH 


N31 




t » 


NO. ERROR 


05438 


46 


05626 


01100 


03450 




TF 


FLNG 


! FWORK 


• t 


YES. MOVE F TO FORTRAN COM. AREA 


05450 


26 


02250 


05761 


03460 




TO 


KWORK-1 


«CHl«iS 






05462 


25 


05762 


15154 


03470 




TO 


KWORK 


• CHU17 






05474 


25 


05763 


15156 


03480 




CF 


XWORK 








05486 


33 


05763 


00000 


03490 




CM 


KWORK 


t77 


• lO^ 


IS K NUMERIC 


05498 


14 


05763 


000P7 


03500 




BNE 


N31 




1 1 


NO. ERROR 


05510 


47 


05626 


01200 


03510 




TO 


KWORK-1 


tCHI«16 


• t 


YES. LOAD K 


05522 


25 


05762 


15155 


03520 




SF 


KWORK-1 








05534 


32 


05762 


00000 


03530 




TO 


KWORK 


»CHI4>18 






05546 


25 


05763 


15157 


03540 




CM 


KWORK 


f04 


• lO^ 


K IN RANGE 


05558 


14 


05763 


000-4 


03550 




BL 


N3L 


f 


• t 


NO. ERROR 


05570 


47 


05626 


01300 


03560 




CM 


KWORK 


• 10 


• 10 




05582 


14 


05763 


OOOJO 


03570 




BH 


N31 




• t 


N0» ERROR 


05594 


46 


05626 


01100 


03580 




TF 


KLNG 


tKWORK 


• • 


YESt MOVE K TO FORTRAN COM. AREA 


05606 


26 


02252 


05763 


03590 




B 


N21 


t 


• • 


BR. TO READ NEXT STATEMENT 


05618 


49 


03886 


00000 


03600 




OORG 


•-4 








05625 








03610 


N31 


RCTY 




f 


• • 


ERROR. F OR K OUTSIDE RANGE 


05626 


34 


00000 


00102 


03620 




WATY 


ERMES2 








05638 


39 


05865 


00100 


03630 




H 










05650 


48 


00000 


00000 
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03640 




B 


N21 


t 


• • 


BR. TO READ NEXT STATEMENT 


05662 


49 


03886 


00000 


03650 




D0R6 


•-4 
















03660 


ALPHRM 


DC 


2 


tO« 






05670 




2 








22*" 


2 


f22 






05671 




2 








OS A 


INOOA 








05677 




5 


X 1 
















05677 




-5679 




03690 




DC 
• 


1 


^ • 






05678 




1 




03700 


INDOA 


DSC 


1 


fO 






05679 




1 




710 




0 
DC 


5 


•17330 






05684 




3 








J7330 
















03720 




DC 


3 


• 010 






05687 




3 




03730 




-10 
OS 


5 








05692 








03740 




DC 
t 


1 








05693 




I 








DSC 


2 


f20 






05694 




2 








20 


















03760 




OS A 


01 MOO A 








05700 






X 1 
















05700 




-5702 




03770 




00 
t 


i 


t* 






05701 




1 




03780 


DtMODA 


OSC 


1 


fO 






05702 




1 




03790 




0 

DC 


5 


•04800 






05707 




5 








-4800 
















03800 




DC 


3 


• 001 






05710 




3 








-01 
OS A 


BUFOIM 








05715 




5 


X 1 
















05715 




—7122 




03820 




DC 


1 


t« 






05716 




1 








OSC 


2 


t20 






05717 




2 




03840 




20 
OS A 


SCSOOA 








05723 




5 


X 1 
















05723 




-5725 




03850 




DC 
• 


I 








05724 




1 




03860 


SCSODA 


OSC 


I 


tO 






05725 




1 




03870 




0 

oc 


5 


t 19663 






05730 




5 








J9663 
















03880 




DC 


3 


• 001 






05733 




3 




03890 




-01 
OS A 


BUFSCS 








05738 




5 


X 1 
















05738 




-6218 




03900 




OC 


1 








05739 




1 
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03910 




OSC 1 

1 


•I 


05740 


1 






03920 




OC 5 


,00000 


05745 


5 










«0000 












03930 


INIT 


OS 


,•-4 


05741 


0 






03940 




OC 3 


,999 


05748 


3 










R99 












03950 




DC 5 


,-99999 


05753 


5 










R999R 












03960 




OC 6 


,00000* 


05759 


6 










-0000* 












03970 


FWORK 


OS 2 




05761 


2 






03980 


KWORK 


OS 2 




05763 


2 






03990 


PSTSN 


OAC 5. PSTSN 




05765 


5 


X 


2 






PSTSN 












04000 


POBJP 


OAC 5 f POBJP 




05775 


5 


X 


2 






POBJP 












04010 


LDISk 


OAC 5.L0ISK 




05785 


5 


X 


2 






LDISK 












04020 


FANDK 


OAC StFANOK 




05795 


5 


X 


2 






FANDK 












04030 


ERMESl 


DAC 30» ERROR, 


INVALID CONTROL RECORD* 


05805 


30 


X 


2 






ERROR, INVALID 












04040 


ERMES2 


DAC 28, ERROR, 


F OR K OUTSIDE RANGE* 


05665 


28 


X 


2 






ERRORt F OR K 












04050 


ERMES3 


OAC 32, ERROR, 


INVALID OUTPUT UNIT CODE* 


05921 


32 


X 


2 






ERROR, INVALID 


1 OUTPUT UNIT CODE* 










04060 


12NINE 


OC 12 




05995 


12 










R999 99999999 












04070 


INPUTD 


DC 2 


,00 


05997 


2 






04060 




-0 

DSA CHI 




06002 


5 


X 


1 










06002 


J5139 






04090 




DC 2 


,00 


06004 


2 






04100 


N21KEY 


—0 
DGM 




06005 


1 






041 10 


ABDEF 


DSC 2 


,22 


06006 


2 










22 












04120 




DSA ABDDA 




06012 


5 


X 


1 










06012 


-6014 






04130 




DC 1 
t 


t« 


06013 


1 






04140 


ABDOA 


OSC 1 




06014 


1 






04150 




0 

DC 5 


•17400 


06019 


5 










J7400 












04160 




DC 3 


• 100 


06022 


3 










JOO 












04170 




DC 6 


•06218* 


06028 


6 










-6218* 












04180 


WCOEF 


DSC 2 


•02 


06029 


2 










02 












04190 




DSA WCDOA 




06035 


5 


X 


1 
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06035 


-6037 


04200 




DC 
« 


1 


• • 


06036 


1 


04210 


MCODA 


OSC 
0 


1 


•0 


06037 


1 


04220 




DC 


5 


•00000 


06042 


5 






-0000 








04230 




DC 


3 


,100 


06045 


3 






JOO 










04240 




OC 


6 


•06218* 


06051 


6 






-6218* 








04250 


ABJDEF 


DSC 


2 


• 22 


06052 


2 






22 










04260 




DSA 


ABJDDA 




06058 


5 












06056 


-6060 


04270 




DC 
• 


1 


, • 


06059 


I 


04280 


ABJDDA 


DSC 
0 


1 


•0 


06060 


1 


04290 




DC 


5 


•17876 


06065 


5 






J7876 








04300 




DC 


3 


,124 


06068 


3 






J24 










04310 




OC 


6 


,06218* 


06074 


6 






-6218* 








04320 


WCJDEF 


DSC 


2 


• 02 


06075 


2 






02 










04330 




DSA 


WCJOOA 




06081 


5 












06081 


-6083 


04340 




DC 
• 


1 


• * 


06082 


1 


04350 


MCJDOA 


OSC 


I 


•0 


06083 


1 


04360 




0 
OC 


5 


•01476 


0608R 


5 






-1476 








04370 




DC 


3 


• 124 


06091 


3 






J24 










04380 




DC 


6 


•06218* 


06097 


6 






-6218* 








04390 




DORG 


06218 




06 2 IB 




04400 


BUFSCS 


OSS 


100 




06218 


100 


04410 




OS 


2 




06319 


2 


04420 


BUFEQT 


OSS 


800 




06320 


800 


04430 




OS 


2 




07121 


2 


04440 


BUFDIM 


OSS 


100 




07122 


100 


04450 




OS 


2 




07223 


2 


04460 


DUMMY 


OS 




,99999 


99999 


0 


04470 




DORG 


16000 




16000 




04480 


PHADOA 


OSC 
0 


1,0 




16000 


1 


04490 




OC 


5,17290 




16005 


5 






J7290 








04500 




DC 


3,050 




16008 


3 






-50 
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PAGE 11 



04510 




DC 


5,02218 




16013 




5 








-2218 












04520 




DC 
f 


I »• 




16014 




1 




04530 




DC 
• 


1 t * 




16015 




1 




04540 




DC 
• 


I t« 




16016 




1 




04550 




DC 


L t* 




16017 




1 




04560 




DC 
• 


1 »' 




16018 




I 




04570 




OSC 


4 vOOOO 




16019 




4 








0000 














04580 


RECMKS 


DC 


I t* 




16023 




1 




04590 


LDPHA 


• 

SF 


RECMKS-9 




16024 


32 


16014 


00000 


04600 




TFM 


♦♦18 ,BUFSCS+999 




16036 


16 


16054 


-7217 


04610 




TF 


DUMMY vRECNKS tt 


SET SYMBOL TABLE TO RECORD MARKS 


16048 


26 


99999 


16023 


04620 




SM 


•-6 .10 flO 




16060 


12 


16054 


OOOJO 


04630 




CM 


•-18 .BUFSCS-l 




16072 


14 


16054 


-6217 


04640 




BNE 


•-36 




16084 


47 


16048 


01200 


04650 




TDM 


GRMK ,•-» 




16096 


15 


02981 


00000 


04660 


CM 


OGM 


• 




16107 




1 




04670 




TO 


N21KEY ,6M 




16108 


25 


06005 


16107 


04680 




TD 


GMl fGM 








04589 


16107 


04690 




K 


PHAODA,701 




16132 


34 


16000 


00701 


04700 




WN 


PHADDA,702 




16144 


38 


16000 


00702 


04710 




TRA 






16156 


36 


00000 


00500 








16168 


49 


00000 


00000 


04720 




TCD 


LDPHA 




16024 








04730 




OENO 






00000 









281 





1620 


MONITOR II 


VERSION 2 


FORTRAN M-D 


PHASE 1-A 






PAGE 1 


L2 


12NINE 


05995 


LENGTH 


02248 


FANDK 


05795 


LDISK 


05785 


TUB 


03377 


ABJDOA 


06060 


L00P41 


03282 


FLNG 


02250 


LDPHA 


16024 


T114 


03437 


ABJDEF 


060 52 


MONCAL 


00796 


FMON 


02324 


lSTad 


02308 


TEND 


02303 


ALPHRM 


05670 


MULDEF 


02384 


FP2 


02298 


MOVEJ 


02658 


WADK 


04950 


BUFDIM 


07122 


N21KEY 


06005 


FMORK 


05761 


MOVE 


02562 


WASS2 


04774 


BUFEQT 


06320 


PHADDA 


16000 


GMl 


04589 


N1142 


03390 


MASS 


04646 


BUFSCS 


06218 


PHBDAT 


02478 


GM 


16107 


N114 


03126 


WCDOA 


06037 


CALLPl 


042 50 


PHBDDA 


02486 


GRMK 


02981 


Nil 


02502 


WCDEF 


06029 


CALLP2 


02400 


PROGST 


02257 


INDDA 


05679 


N12 


03790 


WREM3 


04730 


CHI END 


15999 


PRSCAN 


02454 


INOIV 


02424 


Nl 


02233 


W 


02240 


COMADD 


02262 


PUSTSN 


02294 


INIT 


05741 


N21 


03886 


WW 


02296 


DIMOAT 


05694 


RECMKS 


16023 


lOCAL 


00716 


N2 


02238 


SAVSYM 


02243 


DIMODA 


05702 


ABDOA 


06014 


IQGT 


00566 


N31 


05626 


SCSOAT 


05717 


DISKSW 


02383 


ABDEF 


06006 


I OPT 


00532 


NXLOC 


02372 


SCSDDA 


05725 


E 86440 


02430 


AFTBL 


14935 


lORBC 


00520 


P2PTR 


02313 


SUBFCT 


02293 


ERMESl 


05805 


BLK8 


02461 


lORT 


00565 


POBJP 


05775 


USEDFS 


02263 


ERMES2 


05865 


CARD 


14936 


lOSK 


00554 


PSTSN 


05765 


WAQBJP 


04794 


ERMES3 


05921 


CHI5 


15839 


I PPT 


03734 


RDONE 


03534 


WCJDDA 


06083 


FCTEND 


02318 


CHI 


15139 


IPTY 


03766 


RECLG 


02243 


WCJDEF 


06075 


FKTEST 


05270 


CONST 


02382 


JAY 


02367 


SETPT 


04542 






INDATA 


05671 


DUMMY 


99999 


JUMP 


02429 


STBL 


02377 






INPUTD 


05997 


ENTLN 


02248 


KLN6 


02252 


Till 


03221 






INTOPl 


02385 


ERRET 


00602 


KWORK 


05763 


T112 


03353 







END OF ONE ASSEMBLY. 



/ 
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1620 MONITOR II 

OOOlO •«•••♦ 1620 FORTRAN tl-D 
00020 DORG 02218 

00030 DC 5 ,-100 

-010- 

00040 DC 1 ,2 

K 

00050 DC 2 ,67 

07 

00060 DC 6 ,987898 

R87898 

00070 Nl DC 2 tO 

-0 

00080 N2 DC 5 ,0 

-0000 

00090 U DC 2 ,0 

-0 

00100 RECLG DC 3 ,000 
-00 

OOllO SAVSYM OS 12 ,RECLG 

00120 LENGTH OS 5 

00130 FLNG DS 2 

00140 KLNG OS 2 

00150 PROGS T DC 5 ,00000 

H)000 
00160 COMADD DS S 
00170 USEOFS DSC 30 ,0 

000000000000000000000000000000 
00180 SUBFCT DC 1 ,0 



VERSION 2 FORTRAN II-D 
PHASE l-B 



00190 
00200 
00210 
00220 
00222 
00230 
00240 
002S0 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 



PUSTSN DS 
MM DS 
FP2 OS 
TEND DS 
GM 06M 
LSTAD DS 
P2PTR DS 
FCTEND OS 
DS 

FMON 



STBL 
COMST 
DISKSM OC 



1 

2 
2 
5 

TEND-3 

5 

5 

5 

5 



00370 MULDEF OC 



00390 
00400 



TF 


•♦42,FH0N-l 


TFM 


tORT,*>23 


• 


t0GT,,7 


B 


• ft 


DORG 


•-4 


DS 


1 


OS 


S 


OS 


f 


OS 


5 


OC 


IfO 


OC 


IfO 


DSC 


IfO 


0 




OC 


5,00600 


-0600 


OC 


3t002 


-02 





SETUP ROUTINE ENTRY 

60 TO EXECUTE CALLED ROUTINE 



02218 
02222 

02223 

02225 

02231 

02233 

02238 

02240 

02243 

02243 
02248 
02250 
02252 
02257 

02262 
02263 

02293 

02294 

02296 

02298 

02303 

02300 

02308 

02313 

02318 

02323 

02324 26 

02336 16 

02348 49 

02360 49 

02367 

02367 

02372 

02377 

02382 

02383 

02384 

02385 
02390 
02393 



2 

3 

12 
5 
2 
2 
5 

5 
30 



I 
2 
2 
5 
1 
5 
5 
5 
5 

02366 02323 

00565 -2359 

00566 -0000 
00000 00000 

1 
5 
5 
5 
1 

1 

1 

5 

3 
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00410 OSA CARD 02398 5 X 1 









02398 




J4936 




00420 


DC 


It* 


02399 




1 




00430 CALLP2 TFM 


FM0N439«BLK8 


02400 


16 


02359 


-2461 


00440 


BTM 


FM0N,CALLF2 


02412 


17 


02324 


-2400 


004S0 


INOIV OS 


1 


02424 




1 




00460 


• INOIV * 0 FOR CARDS f 1 FOR TYFEMRITER* 










00470 


• 


FLAGGED 3 FOR PAPER TAPE 










004B0 


JUMP OS 


9 


02429 




5 




00490 


ENTL06 DS 


fRECLG«5 


02248 




0 




OOBOO 


AFTBL OS 


^ 14939 


14939 




0 




DOS 10 


CHI OAS 


430,19139 


19139 




430 


X 2 


00S20 


CHI 9 DS 


t CHI 4-700 


19839 




0 




00130 


CARD OS 


tCH 1-203 


14936 




0 




00940 


lOCAL DS 


.716 


00716 




0 




00S50 


I06T OS 


.966 


009*6 




0 




00960 


lORBC DS 


.920 


00920 




0 




00970 


I OFT DS 


.932 


00932 




0 




00980 


lOSK OS 


.994 


00994 




0 




00990 


ERRET OS 


.602 


00602 




0 




00600 


lORT DS 


.t69 


009*9 




0 




00610 


MONCAL DS 


.794 


0079* 




0 




00620 


E86440 TFM 


FM0N^39 .BLK7 


02430 


16 


02399 


-9792 


00630 


•TM 


FMON •EB6440 


02442 


17 


02324 


-2430 


00640 


BLKB OS 


.E86440«3I 


024*1 




0 




00690 


PRSCAN BO 


•♦20. INOIV 


02494 


43 


02474 


02424 


00660 


B7 


PRSCN2 


024** 


49 


02946 




00670 


BNF 


PRSCN2. INOIV 


02474 


44 


02946 


02424 


00680 


B7 


PRSCNl 


0241* 


49 


02910 




00690 


SSCSM DC 


2.00 


02494 




2 




00700 


-0 

DORG 


CALLP2«100 


02900 








00710 


SYTBST DSC 


10,0101010101 


02900 




10 






0101010101 










00720 


PRSCNl TFM 


BA«l,41tlO 


02910 


16 


02683 


OOOMl 


00730 


TFM 


BA*37,41,10 


02922 


16 


02719 


OOOMl 


00740 


TFM 


UR0ATA>2»08,10 


02934 


16 


09781 


000-8 


00750 


PRSCN2 S 


FX0RFL-9,KLNG 


0294* 


22 


06304 


02292 


00760 


A 


PLUS>47,FLN6 


02998 


21 


0*7*9 


02290 


00770 


BO 


BAM8, INOIV 


02970 


43 


02730 


02424 


00780 


B 


• ♦20 


02982 


49 


02*02 


00000 


00790 


DORG 


•-3 


02990 








00800 


BEGIN BTM 


PUT,132,8 


02990 


17 


08944 


0-132 


00810 


BEGINA TFM 


PARCNT,0,9 


02602 


16 


03288 


00-00 


00820 


TF 


SUBSM,ZER13«2 


02614 


26 


09912 


09897 


00830 


TFM 


SSCSM,00,10 


02626 


16 


02494 


000-0 


00840 


BD 


BA, INOIV 


02638 


43 


02682 


02424 


00850 


TOM 


CHI5^144 


02690 


15 


15983 


OOOOO 


00860 


OC 
t 


l.'t* 


02661 




1 


00870 


TR 


CHI-1,CHI5-1 


02662 


31 


15138 


19838 


00880 


B 


REA01^24 


02674 


49 


02870 


OOOOO 


00890 


DORG 


•-4 


02681 








00900 


BA RCTY 




02682 


34 


00000 


00102 
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PAGE 



00910 


ESNO 


OS 


• •-5 




02688 




0 




00920 




DC 
t 


l,«,»-4 




02689 




1 




00930 




TFM 


tORTt»+23 




02694 


16 


00565 


-2717 


00940 




B 


I0GT,UR0ATA-4, 


7, READ STATEMENTS FROM TYPEWRITER 


02706 


49 


00566 


-9775 


00950 




BC4 


•-36. 


ALLOWS GOOF SWITCH 


02718 


46 


02682 


00400 


00960 




BNCl 


• ♦36 




02730 


47 


02 766 


00100 


00970 




RCTY 






02742 


34 


00000 


00102 


00980 


BLOC 


DS 


• •-5 




02748 




0 




00990 




WATY 


CHI 




02754 


39 


15139 


00100 


01000 




CM 


CHI,43,10» 


TEST FOR COMMENT 


02766 


14 


15139 


000M3 


01010 




BNE 


LEADBL 




02778 


47 


03058 


01200 


01020 




CM 


CHI4^2,0»10> 




02790 


14 


15141 


000-0 


01030 




BNE 


LEADBL 




02802 


47 


03058 


01200 


01040 




CM 


CHIMtO.lOf 




02814 


14 


15143 


000-0 


01050 




BE 


BEGINA 




02826 


46 


02602 


01200 


01060 




B 


LEADBL 




02838 


49 


03058 


00000 


01070 




00 RG 


• -3 




02846 








01080 


REAOl 


TFM 


IORT,»»23 




02846 


16 


00565 


-2869 


01090 




B 


IOGTtCD0ATA-4t 


7, READ FIRST CARD 


02858 


49 


00566 


-9783 


01100 




TFM 


•♦35, CHI ♦144 




02870 


16 


02905 


J5283 


OHIO 




SM 


•♦23,2.10 




02882 


12 


02905 


000-2 


01120 




TF 


CKENO 




02894 


26 


03276 


00000 


oil 30 










02906 


43 


02962 


03276 


01140 




BD 


•♦44,CKEND-l 




02918 


43 


02962 


03275 


01150 




CM 


CKRM-1,CHI 




02930 


14 


02905 


J5139 


01160 




BH 


CKRM-24,,, 


CHECK FOR BLANK CARD 


02942 


46 


02882 


01100 


01170 




B 


REAOl,,, 




02954 


49 


02846 


00000 


01180 




DORG 


•-3 




02962 








01 190 




AM 










02905 




01200 




TOM 


CKRM-1 ,,6 




02974 


15 


0290N 


00000 


01210 




DC 
fl 






02985 




1 




01220 




BNCl 


• ♦36 




02986 


47 


03022 


00100 


01230 




RCTV 






02998 


34 


00000 


00102 


01240 


ESNOPL 


DC 


4,0,»-5 




03004 




4 








-000 














01250 




DC 
• 


I, •,•-4 




03005 




I 




01260 




WATY 


CHI 




03010 


39 


15139 


00100 


01270 




CM 


CHI, 43, 10 




03022 


14 


15139 


000M3 


01280 




BE 


REAOl 




03034 


46 


02846 


01200 


01290 




TOM 


CHI^9,0,ll 




03046 


15 


15148 


0000- 


01300 


LEAOBL 


BO 


•♦32, CHI 




03058 


43 


03090 


15139 


01310 




TR 


CHI-l,CHI*l 




03070 


31 


15138 


15140 


01320 




B 


•-24 




03082 


49 


03058 


00000 


01330 




DORG 


•-3 




03090 








01340 




AM 


ESNOPL, 1,10 




03090 


11 


03004 


000-1 


01350 




CM 


CHI ,69, 10 




03102 


14 


15139 


00009 


01360 




BNH 


CSPVA-12,,, 


BRANCH IF NO STATEMENT NUMBER 


03114 


47 


03558 


01100 


01370 




SF 


OUTSW 




03126 


32 


06896 


00000 


01380 


TRIND 


OS 


t« 




03137 




0 




01390 




BTM 


CSTN0,»^12,, 


OUTPUT STATEMENT NUMBER 


03138 


17 


05302 


-3150 


01400 




BTM 


PUT, 134,8 


•COLON 


03150 


17 


08944 


0-134 


01410 




TF 


ESNCSYM 




03162 


26 


02688 


09879 


01420 




TFM 


ESNOPL, 0,8 




03174 


16 


03004 


0-000 



2 85 



1620 MONITOR tl VERSION 2 FORTRAN II-D PHASE l-B 



01430 




TOM 


NOIND, 1,11 




01440 


NOIND 


DS 


t»-2 




01450 




BO 


STNER,9(1),, 


TEST IF STATEMENT NO. WAS USED BEFORE 


01460 




TON 


9(1U1,, 


SET INDICATOR THAT STATE. NO. APPEARED 


01470 


INSW 


DS 


#•-2 




01480 




BD 


•♦20,7(1),, 


TEST IF STATEMENT NO. WAS 00 REFERENCE 


01490 




B7 


LEADZ-12 




01500 




BTM 


PUT, 140,8, DUMMY 


01510 




MF 


•♦23,7I1» 




01520 




TOM 


7(1), 0 




01530 


CKENO 


DS 


#•-1 




01540 




TDM 


DOTRAN, 1 




01550 


PARCNT 


DC 
-00 


3,0, •-I 




01560 




BO 


F0RM,8(1),, 


TEST FOR FORMAT NUMBER 


01570 


LEAOZ 


CM 


CHI, 0,10, 




01580 




BNE 


STNER^20 




01590 




TR 


CHI-l,CHI*l 




01600 




B 


•-36 




01610 




DORG 


•-3 




01620 


STNER 


TFM 


SPGS^11,076,9 




01630 




B 


SPERR^12,.. 


STATEMENT NO. PREVIOUSLY USED 


01640 




OORG 


•-3 




01650 




CM 


CHI, 46,10 




01660 




BNE 


CSPVA 




01670 




BTM 


C0LNAM,6,10 




01680 




C 


SYM,FMTCST 




01690 




BV 


CSPVA 




01700 




BE 


FORMAT 




01710 




B 


CSPVA 




01720 




DORG 


•-3 




01730 


FORM 


CM 


CHI, 00, 10, 


SHIFT OFF BLANKS 


01740 




BNE 


• ♦32 




01750 




TR 


CHI-1,CHU1 




01760 




B 


•-36 




01770 




DORG 


•-3 




01780 




BTM 


C0LNAM,6,10 




01790 




C 


SYM,FMTCST,, 


MUST BE FORMANT STATEMENT 


01800 




BV 


♦ ♦24 




01810 




BE 


FORMAT 




01820 




TFM 


SPGS^11,277,9 




01830 




B 


SPERR^12,,, 


ELSE ERROR 27 


01840 




DORG 


•-3 




01850 




TOM 


NOINO, 




01860 


CSPVA 


TFM 


•♦35, CHI, 




01870 




AM 


•♦23,2,10 




01880 




BNR 


• ♦44 




01890 




TFM 


CSPVA^35,3T,610 




01900 




TR 


CSPVA^35.AV0I0.6. 


AVOID « FLAG3.7,FLAG0,ReCMARK 


01910 




B 


DECODE 




01920 




OORG 


•-3 




01930 




CM 


CSPVA^35, 0,610 




01940 




BNE 


CSPVA+12 




01950 




TF 


•♦54,CSPVA+35 




01960 




TF 


• 4^47, •♦42 




01970 




AM 


•♦35,1.10 





03186 


15 


03195 


0000 J 


03195 




0 




03198 


43 


03346 


000-9 


03210 


15 


000-9 


00001 


03219 




0 




03222 


43 


03242 


000-7 


03234 


49 


03290 




03242 


17 


08944 


0-140 


03254 


71 


03277 


000-7 


03266 


15 


000-7 


00000 


03276 




0 




03278 


15 


09899 


00001 


03288 




3 




03290 


43 


03446 


000-8 


03302 


14 


15139 


000-0 


03314 


47 


03366 


01200 


03326 


31 


15138 


15140 


03338 


49 


03302 


00000 


03346 








03346 


16 


09225 


00-76 


03358 


49 


09142 


00000 


03366 








03366 


14 


15139 


000M6 


03378 


47 


03570 


01200 


03390 


17 


04560 


000-6 


03402 


24 


09879 


09829 


03414 


46 


03570 


01400 


03426 


46 


10392 


01200 


03438 


49 


03570 


00000 


03446 








03446 


14 


15139 


000-0 


03458 


47 


03490 


01200 


03470 


31 


15138 


15140 


03482 


49 


03446 


00000 


03490 








03490 


17 


04560 


000-6 


03502 


24 


09879 


09829 


03514 


46 


03538 


01400 


03526 


46 


10392 


01200 


03538 


16 


09225 


00K77 


03550 


49 


09142 


00000 


03558 








03558 


15 


03195 


00000 


03570 


16 


03605 


J5139 


03582 


11 


03605 


000-2 


03594 


45 


03636 


00000 


03606 


16 


0360N 


000L7 


03618 


31 


0360N 


05922 


03630 


49 


03730 


00000 


03638 








03638 


14 


0360N 


000-0 


03650 


47 


03582 


01200 


03662 


26 


03716 


03605 


03674 


26 


03721 


03716 


03686 


11 


03721 


000-1 
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01980 




SM 


•♦IBflflO 










01990 




TR 


•tt ELIMINATE BLANKS 


03710 




uouou 


HA AAA 


02000 




B 


CSPVA+24 


03722 


49 


03594 


A AAAA 

ououu 


02010 




00 RG 


•-3 


03730 








02020 


DECODE 


TFM 


•♦35tCHI-2 


03730 


16 




««« I 


02030 




AM 


•♦23t2t 10 


03742 


11 


03765 


000~2 


02040 




BNR 


• ♦20 


03754 


45 


03774 


A AA AA 

UUUUU 


02050 




B 


• ♦80 


03766 


49 


03846 


An AAA 
UUUOU 


02060 




DORG 


•-3 


03774 








02070 




CM 


0EC0DE-*-35t40t610 


03774 


14 


v! 


OOOMO 


02080 




BH 


0EC00E^12 


03786 


46 


03742 


01 100 


02090 




CM 


OECOOE4-35»33t6l0 


03798 


14 


0376N 


000L3 


02100 




BNE 


• ♦56 


03810 


47 


03866 


01200 


02110 




CM 


PARCNTtOylO 


03822 


14 


03288 


000—0 


02120 




BE 


DECOOA 


03834 


46 


03954 


01200 


02130 




TFM 


PARCNTtO»9 


03846 


16 


03288 


00—00 


02140 




B 


NONARI 


03858 


49 


04066 


00000 


02150 




DORG 


•-3 


03866 








02160 




CM 


OECODE^35ff24t6IO 


03866 


14 


0376N 


000K4 


02170 




BNE 


• ♦32 


03878 




03910 




02180 




AM 


PARCNTfltlO 


03890 


11 


03288 


000—1 


02190 




B 


DECODED 12 


03902 


49 


03742 


nnnnn 


02200 




DORG 


•-3 


03910 








02210 




CM 


0EC00E^35f 4ff6L0 




* 


0376N 


000—4 


02220 




BNE 


DEC0DE^12 


03922 


47 






02230 




SM 


PARCNTfltlO 


03934 


12 


03286 


000—1 


02240 




B 


OECOOE+12 


03946 


49 


03742 


AA AA A 
OOUUU 


02250 




DORG 


•~3 


03954 








02260 


DECODA 


AM 


DEC00E^3St2f 10 


03954 


11 


_ _ 
0376? 


000-2 


02270 




BNR 


•♦20tOECOOE^35t 11 








0376N 


02280 




B 


CKCTAR 




AO 


04034 


nnnnrt 


02290 




DORG 


• -3 










02300 




CM 


DEC0DE^35 f 23f 610 




14 


0376N 


000K3 


02310 




BE 


DOO 


03998 


46 


10416 




02320 




CM 


DECO0E^35t24t6l0 


04010 


14 






02330 




BNE 


DECODA 


04022 


47 


03954 


OIZOO 


02340 


CKCTAR 


BD 


ASCANtlNDiy 








02424 


02350 




BTM 


CKCNTUf Of id 


04046 


17 


04740 


000-0 


02360 




B 


ASCAN 


04058 


49 


10440 


AAAAA 


02370 




DORG 


•-3 


04066 








02380 


NONARI 


BLXM 


•♦12» TBST-TBENDI2> 


04066 


66 


1 Klin 


00K31 


02390 




CF 


CHI^l 


04078 


33 


15140 


UUUUU 


02400 


TEMP 


OS 


5 t» 


04089 








02410 




CF 


CHI^3 


04090 


33 


15142 


UUUUU 


02420 


TEMPS 


OS 


5 #• 


04101 




5 




02430 




C 


CHI*4fEN0CT«'4 




24 


15143 


ni ^nn 


02440 




BE 


END 


04114 








02450 




BD 


•♦24ftN0IV 


04126 


43 


04150 


02424 






BTM 


bi«i*n 1 vt «#t *if 


04138 


17 


04740 


000-0 


02470 


LI 


C 


TBEN0(2)»CH|44 


04150 


24 


04L25 


15143 


02480 




BE 


L2 


04162 


46 


04210 


01200 


02490 




BCXM 


Llt-ll(2) 


04174 


64 


04150 


00- IJ 


02S00 




TR 


CHI-I,CHI«5 


04186 


31 


15138 


15144 


02510 


ERROl 


BTM 


ERRaR»071»9 


04198 


17 


09230 


00-71 


02520 


XRA2 


DS 


f314 


00314 




0 




02530 


12 


CM 


XRA2tTBCM-TBEND 


04210 


14 


00314 


-0077 



287 



02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 

02630 TBEND 
02640 



02650 
02660 

02670 
02680 

02690 
02700 

02710 
02720 

02730 
02740 

02750 
02760 



BNH 

TDM 

BNF 

TDM 

BD 

BTM 

BXM 

TR 

87 

DC 
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SET SINGLE STATEMENT SWITCH OFF 



•♦72 
STSN,0«, 
•♦48f TRINO 
TRINOfO 
•♦24tN0tND 
ERR0R2»572t9 
•♦12,-6(2I 
CHI-1»CHI*5 
rBEN0(2)f .6 



MISSING STATEMEUT NUMBER AFTER TRANSFER 



02790 
02800 



SUBROUTINE 



OS A NONARA 



DC 6.466455* t 

M664S5 

DSA NONARA 



DC 6* 626442 »• 

026442 

OSA NONARA 



DC 6,444546f 

M44546 

DSA NONARA 



DC 6*455864ft 

MS 5864 

DSA COMMON 



DC 6»435654tt 

M356S4 

DSA DIM 



DC 6«444954»r DIMENSION 

M44954 

DSA RETURN 



EQUIVALENCE 



02770 TBCM DC 6,594563.* RETURN 
N94563 

02780 DSA NONARA 



DC 6*626356* » 

026356 

DSA NONARA 



DC 6*574164.* PAUSE 
N74164 



04222 


47 


04294 


OllOO 


04234 


IS 


05531 


00000 


04246 


44 


04294 


03137 


04258 


15 


03137 


00000 


04270 


43 


04294 


03195 


04282 


17 


09386 


00N72 


04294 


62 


04306 


00-00 


04306 


31 


15138 


15144 


04318 


49 


04L2N 




04325 




1 




04330 




5 


X 1 


04330 




J0224 




04336 




6 




04341 




5 


X 1 


04341 




J0224 




04347 




6 




04352 




5 


X 1 


04352 




J0224 




04358 




6 




04363 




5 


X 1 


04363 




J0224 




04369 




6 




04374 




5 


X 1 


04374 




J0272 




04380 




6 




04385 




5 


X 1 


04385 




J0248 




04391 




6 




04396 




5 


X 1 


04396 




J0368 




04402 




6 




04407 




5 


X 1 


04407 




J0224 




04413 




6 




04418 




5 


X 1 


04418 




J0224 




04424 




6 





286 
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02820 




DSA OK 10 
















04429 




5 


X 1 


























J0488 




02830 




DC 6,464955,, FIND 
















04435 




6 








M64955 
























02840 




DSA OKIO 
















04440 




5 


X 1 


























J0488 




02850 




DC 6,464563,, FETCH 
















04446 




6 








M64563 
























02860 




DSA DKIO 
















04451 




5 


X 1 






















04451 




J0488 




02870 




DC 6,594543,, RECORD 
















04457 












N94543 
























02880 




DSA lOUT 
















04462 




5 


X 1 






















04462 








02890 




DC 6,414343* t ACCEPT 
















04468 




6 








Ml 4343 
























02900 




DSA I OUT 
















04473 




5 


X 1 


























J0200 




02910 




DC 6,576455,, PUNCH 
















04479 












N7645S 
























02920 




DSA I OUT 
















04484 




5 


X 1 


























J0200 




02930 




DC 6,636857,, TYPE 
















04490 




6 








036857 
























02940 




DSA lOUT 
















04495 




5 


X 1 






















04495 




J0200 




02950 




DC 6,575949,, PRINT 
















04501 




6 








N75949 
























02960 




DSA lOUT 
















04506 




5 


X 1 






















04506 




J0200 




02970 




DC 6,594541,, READ 
















04512 




6 








N94541 
























02980 




DSA NONARA 
















04517 




5 


X I 






















04517 




J0224 




02990 




DC 6,435655,, CONTINUE 
















04523 




6 








M35655 
























03000 




DSA CALL 
















04528 




5 


X 1 






















04528 




J0344 




03010 




DC 6,434153,, CALL 
















04534 




6 








N34IS3 
























03020 




DSA GOTO 
















04539 




5 


X 1 






















04539 




J0320 




03030 




DC 6,475663** GOTO 
















04545 




6 








N7 5663 
























03040 




DSA IF 
















04550 




5 


X 1 
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PAGE 






















04550 




J0296 




03050 


T8ST 


DC 6,494624*, IF! 
















04556 




6 








M94624 
























03060 




DS 2 
















04558 




2 




03070 


COLNAM 


TFM •♦42,SYM-26,* COLLECT 


NAMES 


TO 


DETERMINE TYPE 


OF 


STMNT 


04560 


16 


04602 


-9853 


03080 




TFM •♦35,CHI 
















04572 


16 


04607 


J5139 


03090 




AM •^18,2, 10 
















04584 


11 


04602 


000-2 


03100 




TF .CHI, 7 
















04596 


26 


00000 


J5139 


03110 




AM •-1,2,10 
















04608 


11 


04607 


000-2 


03120 




BNR •♦20*«-13»ll 
















04620 


45 


04640 


0460P 


03130 




B •♦32 
















04632 


49 


04664 


00000 


03140 




DORG •-3 
















04640 








03150 




SM COLNAM-1,1,10 
















04640 


12 


04559 


000- 1 


03160 




BNZ C0LNAM4 24 
















04652 


47 


04584 


01200 


03170 




TFM ••f30,SYM-25 
















04664 


16 


04694 


-9854 


03180 




AM •♦18,2,10 
















04676 


11 


04694 


000-2 


03190 




CF 
















04688 


33 


00000 


00000 


03200 


OUTSCE 


DS 5 «• 
















04699 




5 




03210 




C •-6,C0LNAN>42 
















04700 


24 


04694 


04602 


03220 




BNH •-36 
















04712 


47 


04676 


01100 


03230 




TF SYM,C0LNAM*42,ll 
















04724 


26 


09879 


0460K 


03240 




BB 
















04736 


42 


00000 


00000 


03250 




DORG •-9 
















04738 








03260 


• ••• 


CHECK FOR CONTINUATION CARDS 


•••• 


















03270 




DS 2 
















04739 




2 




03280 


CKCNTU 


TFM I0RT,*«23 
















04740 


16 


00565 


-4763 


03290 




B I0GT,C50ATA-4,7 
















04752 


49 


00566 


-9791 


03300 




BD CKCNl, CHI 5-I-10 
















04764 


43 


04826 


15849 


03310 




TFM CCNO,0,10 
















04776 


16 


05052 


000-0 


03320 




CM CHI 5, 43* 10 
















04788 


14 


15839 


000M3 


03330 




BE •♦24 
















04800 


46 


04824 


01200 


03340 




TDM CHI5«9* 0,11 
















04812 


15 


15846 


0000- 


03350 




















04824 


42 


00000 


00000 


03360 




DORG '-lO 
















04825 








03370 


CKCNl 


CM CCN0,04*10t TEST 


FOR 


: MORE 


THAN 4 


CONTINUATION 


CARDS 


04826 


14 


05052 


000-4 


03380 




BNE •♦68 
















04838 


47 


04906 


01200 


03390 




CM CHI5,43,10 
















04850 


14 


15839 


000M3 


03400 




BE ^^44 
















04862 


46 


04906 


01200 


03410 




TFM CCN0,0,10 
















04874 


16 


05052 


000-0 


03420 




TFM SPGS^11*273*9 
















04886 


16 


09225 


00K73 


03430 




B SPERR^12 
















04898 


♦9 


09142 


00000 


03440 




DORG •-3 
















04906 








03450 




TFM •♦47,CHI5^144 
















04906 


16 


04953 


J59e3 


03460 




BD CKCN2^68,FNSW 
















04918 


43 


05022 


09902 


03470 




SM ^^23,2,10 
















04930 


12 


04953' 


000-2 


03480 




TF CKENO 
















04942 


26 


03276 


00000 


03490 


CKCN2 


BD •♦56,CKEND 
















04954 


43 


05010 


03276 


03500 




BD •♦44,CKEN0-l 
















04966 


43 


05010 


03275 


03510 




CM CKCN2-1, CHI 5^12 
















04978 


14 


04953 


J5851 


03520 




BH CKCN2-24 
















04990 


46 


04930 


01100 


03530 




B CKCNTU 
















05002 


49 


04740 


00000 


03540 




DORG •-3 
















05010 








03550 




AM CKCN2-1 ,2,10 
















05010 


11 


04953 


000-2 


03560 




TOM CKCN2-1 ,,6 
















05022 


15 


0495L 


00000 


03570 




DC 
















05033 




1 
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03560 




BNCi 


• ^36 






05034 


47 


05070 


00100 


03590 




RCTY 








05046 


34 


00000 


00102 


03600 


CCNO 


DC 
-0 


2tO»»-5 






05052 




2 




03610 




WATy 


CHI 5 








39 


15839 


00100 


03620 




CM 


CHI5f43fl0t 








14 


15839 




03630 




BE 


CKCNTU 












nftn~? 


03640 




AM 


CCNOt 1 t 10 






05094 


1 1 






03650 




BO 


CKCN4tFMSW 






05106 


43 


05242 




03660 




TFM 


• -t-35t CHI 5-f 10 






051 18 


16 


05 153 


J5849 


03670 




AM 


•♦23,2,10 






05130 




05153 


000—2 


03680 


CKCN3 


BNR 


•♦44, 






05142 






nnnnn 


03690 




TFM 


CSPVA^35,37,610 














03700 




TR 


CSPVA^35,AV0I0t6 








ii 




0S922 


037 10 






CKCNTU 






05178 


fa 
49 


04740 


UUQOQ 


03720 




DORG 


• -3 






05186 








03730 




CM 


CKCN3+11, 0,610 , 


CHECK FOR BLANKS AND NOVE 


nun oLAriiv 




1 A 






03740 




BE 


CKCN3-12,,, 


TO SCAN AREA 






12 




nil «i 


03750 




ff 


CSPVA^35,CKCN3«11»611 




05210 


26 






03760 




AN 


CSPVA^35,2»10 






05222 


11 


03605 


000 2 


03770 




B 


CKCN3-12 






05234 


49 


05 130 


nnnnn 


03780 




OORG 


•-3 






05242 








03790 


CKCN4 


TF 


•♦30,CSPVA*35 






05242 


26 


05272 


03605 


03800 




SN 


•♦18f IflO 






05254 


12 


05272 


000—1 


03810 




TR 


•CHIS^ll 






05266 


31 




15850 


03820 




AN 


CSPVA05,132f9 






05278 




03605 




03830 




B 


CKCNTU 






05290 


49 


04740 


nonnh 


03840 




THE FOLLOWING IS USED 












03850 


CSTNO 


TF 


CSORN-l,»-l,, 


SET UP RETURN ADDRESS 




05302 


26 


05593 


05301 


03860 




BO 


•♦32fCHI 






05314 


43 


05346 


15139 


03870 




TR 


CHI-1,CHU1,» 


SHIFT OFF LEADING ZEROS 




05326 


3i 


15138 


15140 


03880 




B 


♦-24 






05338 


49 


05314 


00000 


03890 




DORG 


•-3 






05346 








03900 




TFN 


SYN*14»O0OOt8 






05346 


16 


09865 


0-000 


03910 




TFN 


CSTN01«6,SYN>I4 






05358 


16 


05412 


-9865 


03920 




CN 


CHI,69«10 






05370 


14 


15139 


00009 


03930 




BNH 


CSTN0U104 






05382 




05510 


01 100 


03940 




AN 


•♦I8»i»10 






05394 




05412 


000-1 


03950 


CSTNQl 


TO 


tCHI 






05406 


25 


00000 


151 39 


03960 




TR 


CHI-1,CHI^1 






05418 


31 


15138 


15140 


03970 




BNR 


•♦20»CHt42 






05430 


45 


05450 


15141 


03980 




B 


•♦32 






05442 


49 


05474 


nonnn 


03990 




OORG 


• -3 






05450 








04000 




CN 


CHIt69,10 






05450 


14 


15139 


0d009 


04010 




BH 


CSTNOl-12 






05462 


46 


05394 


01100 


04020 




CM 


CSTN01^6»SyN>10 






05474 


14 


05412 


-9869 


04030 




BNH 


•♦24 






05486 


47 


05510 


01100 


04040 




BTN 


ERR0R2f576»9, 


STATENENT NO GREATER THAN 


4 DIGITS 


05498 


17 


09386 


00N76 


04050 




TF 


SYM,CSTN0U6fli 






05510 


26 


09879 


0541K 


04060 




SF 


SYM-3 






05522 


32 


09876 


00000 


04070 


RTSW 


OS 


I .•-4 






05529 




1 




04080 


ERSN 


OS 


1 t^-3 






05530 




1 




04090 


STSN 


DC 
J 


I .lt»-2 






05531 




1 




04100 


STC 


DC 


2 ffOOf^ 






05533 




2 





-0 

2U1 
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04110 




BO 


CSTN0-1,0IMSM,6, 


EXIT IF IN DIMENSION STATEMENT 


05534 


43 


0530J 


09904 


04120 




TOM 


FX0RFLt2 




05546 


IS 


06309 


00002 


04130 




TDM 


VARSW,1,, 


EXIT TO LOOK UP STATENENT NUMBER 


05558 


15 


07563 


00001 


04140 




TOM 


STNOSU.l 




05570 


15 


09903 


00001 


04150 




B 


SMTLU 




05582 


49 


06864 


00000 


04160 


CSORN 


BO 


•♦24,EQUSM 




05594 


43 


05618 


09908 


04170 




TFM 


SCHI,CHIf, 


INITIALIZE IF NOT IN EQUIVALENCE 


05606 


16 


05905 


J5139 


04180 




TOM 


FXORFL,Offt 


INITIALIZE FIX OR FLOAT SWITCH 


05618 


15 


06309 


00000 


04190 




CM 


SCHIt3,6l0f 




05630 


14 


0590N 


000-3 


04200 




BE 


NUMBER 




05642 


46 


06006 


01200 


04210 




CM 


SCHI, 69, 610, 




05654 


14 


0590N 


00009 


04220 




BH 


NUMBER 




05666 


46 


06006 


01100 


04230 




CM 


SCHI, 48, 610, 


TEST FOR FIX VAR 


05678 


14 


0590N 


000N8 


04240 




BNH 


CS 




05690 


47 


05738 


01100 


04250 




CM 


SCHI,55,610 




05702 


14 


0590N 


000N5 


04260 




BH 


CS 




05714 


46 


05738 


01100 


04270 




TDM 


FX0RFL,2,, 


SET FXORFL TO FIX VAR 


05726 


IS 


06309 


00002 


04280 


CS 


TFN 


SMLNG, 0,10t 


INITIALIZE SYMBOL LENGTH COUNT 


05738 


16 


05821 


000-0 


04290 




TFM 


SALT^6,SYN-12 




05750 


16 


05804 


-9867 


04300 




TFM 


SALT^18,SYM-13 




05762 


16 


05816 


-9866 


04310 




AM 


SALT^6,2,10 




05774 


11 


05804 


000-2 


04320 




AM 


SALT^18,2,10 




057B6 


11 


05816 


000-2 


04330 


SALT 


TF 


tSCHItll, 




05798 


26 


00000 


0590N 


04340 




CF 






05810 


33 


00000 


00000 


04350 


SMLNG 


OS 


*• 




05B2I 




0 




04360 




AM 


SMLNG,2,10 




05822 


11 


05821 


000-2 


04370 




AM 


SCHI, 2, 10 




05834 


11 


05905 


000-2 


04380 




CN 


SCHI •40*610 




05846 


14 


0590N 


OOOMO 


04390 




BNH 


• ♦56 




05858 


47 


05914 


01100 


04400 




CN 


SNLN6,12*10 




05870 


14 


05821 


0O0J2 


04410 




BL 


SALT-24 




05882 


47 


05774 


01300 


04420 




SF 


SYN-ll 




05894 


32 


09868 


00600 


04430 


SCHI 


OS 






05905 




0 




04440 




B 


SC2 




05906 


49 


05994 


00000 


04450 




OORG 


•-3 




05914 








04460 




SF 


SYM-ll 




05914 


32 


09868 


00000 


04470 


AVOID 


OC 


2, 37, ♦-3 




05922 




2 




04480 




L7 
DC 






05924 




2 




04490 




TF 


SYM,SALT^6,11, 




05926 


26 


09879 


0560M 


04500 




TON 


VARSW,0 




05938 


15 


07563 


00000 


04510 




BD 


SMTLU, EQUSWt, 


TEST TO SEE IF 


05950 


43 


06864 


09908 


04520 




SN 


SCHI,1,10, 


SYMBOL IS to BE 


05962 


12 


05905 


000-1 


04530 




TR 


CHI-1,SCHI,11, 


SHIFTED OFF 


05974 


31 


15138 


0590N 


04540 




B 


SMTLU 




05986 


49 


06864 


00000 


04550 




DORG 


•-3 




05994 








04560 


SC2 


BTN 


ERROR, 78,9 


NAME GREATER THAN 6 CHARACTERS 


05994 


17 


09230 


00-78 


04570 


NUMBER 


TOM 


VARSWrl,, 


SET VARIABLE SW. TO INDICATE LITERAL 


06006 


15 


07563 


00001 


04580 




TF 


SYM,2ERSYM^l 




06018 


26 


09879 


06844 


04590 




TFM 


NUMB1^6,SYM-29 




06030 


16 


06164 


-9850 


04600 




CM 


CHI, 70, 10, 


TEST FOR LEADING ZEROS 


06042 


14 


15139 


OOOPO 


04610 




BNE 


•♦32 




06054 


47 


06086 


01200 


04620 




TR 


CHI-l,CHI^l 




06066 


31 


15138 


15140 


04630 




B 


•-36 




06078 


49 


06042 


00000 


04640 




OORG 


•-3 




06086 
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PAGE 



04650 


NUMB 


CM 


CHIt3« 10 




06086 


14 


15139 


000-3 


04660 




BE 


FLNUMB 




06098 


46 


06318 


01200 


04670 




CM 


CHI t69» 10 




06110 


14 


15139 


00009 


04680 




BNH 


FXNUMB 




06122 


47 


06214 


01 100 


04690 




CM 


N U M B 1 -t' 6 1 S Y M ♦ 1 




06134 


14 


06164 


-9880 


04700 




BNL 


• «-24 




06146 


46 


06170 


01300 


04710 


NUMBl 


TO 


t CHI t f 






25 


nnonn 


15139 


04720 




TR 


CHI-1 tCHI*l 




06170 


31 


15138 


15140 


04730 




AM 


NUMBl-t'6f If 10 




06 182 




06164 


000-1 


04740 


NUMB5 


AM 


SYM-30tltlO 




06 194 


11 


09849 


000-1 


04750 




B 


NUMB 




06206 


49 


06086 


00000 


04760 




00 RG 


*-3 




06214 








04770 


FXNUMB 


TDM 


FX0RFLt2t 1 


SET FIX OR FLOAT SW TO FIX CONST 


06214 


15 


06309 


00002 


04780 




SM 


SYM-30,1,10 




06226 


12 


09849 


000-1 


04790 




C 


KLNG,SYM-30,, 


TEST IF FIX NUMBER EXCEEDS K 


06238 


24 


02252 


09849 


04800 




BNL 


• ♦24 




06250 


46 


06274 


01300 


04810 




BTM 


ERROR, 177. 9. 


FIXED POINT NUMBER GREATER THAN K 


06262 


17 


09230 


00J77 


04820 




JF 


SYM->30> TENZ 




06274 


26 


09849 


09891 


04830 




|-p 








26 


09880 


0616M 


04840 




SF 


SYM'tl , f 2 




06298 


32 


—9880 


nnnnn 


04850 


MODE 


OC 
-0 


2tOf»-2 




06307 




2 




04860 


FXORFL 


DC 
-0 


2tOt* 




06309 




2 




04870 






SMTLU 




06310 


49 


06864 


nonon 


04860 




00 RG 






06318 








04890 


FLNUMB 


TPM 


VARBR'*'6f NUMB3 




06318 


16 


06408 


-6366 


04900 




CM 


SYM-*'30t It LO 




06330 


14 


09849 


000-1 


04910 




BE 


• 4-24 




06342 


46 


06366 


01200 


04920 




TFM 


VARBR^6tNUMB24l2 




06354 


16 


06408 


-6474 


04930 


NUMBS 


SM 


SYM~30» It 10 




06366 


12 


09849 


000-1 


04940 




TR 


CHI-1 fCHI«-l 




06378 


31 


15138 


15140 


04950 




CM 


CHI t70t 10 




06390 


14 


15139 


OOOPO 


04960 


VARBR 


BE 




BRANCH BACK TO SHIFT OFF LEADING ZEROS 


06402 


46 


00000 


01200 


04970 




BNH 


CMPAR 




06414 


47 


06494 


01100 


04960 




TFM 


VARBR«'6tNUMB2^12 




06426 


16 


06408 


-6474 


04990 




CM 


NUMBl+Sf SVM^l 




06438 


14 


06164 


-9880 


05000 




BNL 


•4-24 




06490 


46 


06474 


01300 


050L0 


NUMB2 


TO 


NUMBl'i-btCHi f 6t 


COLLECT NUMBER 


06462 


25 


0616M 


15139 


05020 




AM 


NUMBl'f6tltlO 




06474 




06164 


000-1 


05030 




B 


NUMB34'12 




06486 


49 


06378 


00000 


05040 




DQRG 


•—3 




06494 








05050 


CMPAR 


CM 


CHI t45t lOt 


TEST FOR E TYPE 


06494 


14 


15139 


000M5 


05060 




BNE 


PLUS'*' 12 




06506 


47 


06734 


01200 


05070 




TFM 






065 IB 


16 


06733 


000-0 


05080 




TDM 


PLUS^lti 




06530 


15 


06723 


00001 


05090 




CM 


CHl4>2t20tlO 




06542 


14 


15141 


OOOKO 


05L00 




BL 






06554 


47 


06590 


01300 


05110 




BNE 


•♦36 




06566 


47 


06602 


01200 


05120 




TDM 


PLUS«lt2 




06578 


15 


06723 


00002 


05130 




TR 


CHI-1, CHUl 




06590 


31 


15138 


15140 


05140 




CM 


CHI^2t69tlO 




06602 


14 


15141 


00009 


05150 




BH 


•♦24 




06614 


46 


06638 


01100 


05160 


EXCESS 


BTM 


ERROR tl 78 t?. 


INVALID EXPONENT 


06626 


17 


09230 


00J78 


05170 




TD 


PLUS^lltCHI^2 




06638 


25 


06733 


15141 


05180 




TR 


CHI-I,CHI^3 




06650 


31 


15138 


15142 



2B3 
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05190 




CM 


CHI,69tlO 


05200 




BNH 


PLUS 


05210 




S 


PLUS^lOtPLUS^ll 


05220 




TD 


PLUS^ll.CHI 


05230 




TR 


CHI-1, CHUl 


05240 


PLUS 


AM 


SYM-30tt7 


05250 




TF 


SYM,SYM-30 


05260 




SF 


SYM-29 


05270 




TF 


SYM-2,SYM-30,7 


05280 




BV 


EXCESS 


05290 




BD 


SMTLU, SYM-29 


05300 




TFM 


SYM, 99,1011 


05310 




B 


SMTLU 


05320 




00 RG 


• -3 


05330 


ZERSYM 


OC 30,0 

-OOOOOOOOOOOOOOOOOOOC 






05340 




DC 
-10 


3»010tZERSYN-28 


05350 


TBLFUL 


BTM 


ERR0R2t74t9t 


05360 




B 


MONCALttt 


05370 




DORG 


•-3 


05380 




SYMBOL TABLE LOOK 


05390 


• 






05400 


SMTLU 


BLX 


•♦12,P2PTRU» 


05410 


XRAl 


OS 


,309 


05420 




CF 


DMVAR 


05430 




B7 


SML0GP*12 


05440 


SMLOOP 


BXM 


•♦12,-10(1) 


05450 


OUTSW 


DS 


, SMLOOP 


05460 




BNR 


JOE, 4(1) 


05470 




BNG 


FULl, 4(1),, 


05480 




TO 


•♦23, SYM 


05490 




BO 


SMLOOP, SYTBST 


05500 




BLX 


SMLOOP, LSTAD(l) 


05510 


FULl 


BNF 


FUTEST, 4(l)t, 


05520 




BLX 


SMLOOP, JUMP! 1) 


05530 


FUTEST 


C 


XRA1,LSTA0 


05540 




BH 


FUL2 


05550 




BSX 


•♦12, •♦35(1) 


05560 




SM 


•♦23,46,10 


05570 




BNR 


TBLFUL, •-♦ 


05580 




BNF 


ADVARfJOE 


05590 




BSX 


A0VAR,JUMP(l)t. 


05600 


FUL2 


BSX 


•♦12, •♦35(1) 


05610 




SM 


•♦23,6,10 


05620 




BNF 


ADVAR,*-^,, 


05630 




CF 


JOE 


05640 


SAVEGM 


OS 


5,« 


05650 




BO 


•♦20,DIMSW 


05660 




B7 


AOVAR 


05670 




SF 


4(1) 


05680 




B7 


FUL1^12 


05690 


JOE 


BO 


LITERL,VARSM,0, 


05700 




BNF 


•♦20,3(1),, 


05710 




B 


SMLOOP 


05720 




DORG 


•-3 



ABORT JOB CAN NOT GO ON 



GROUP NARK AT FCTENO 



FLAG AT SEPARATION POINT 
JUMP AROUND 



UPDATE JUMP AROUND POINT 



IS UPPER HALF FULL 



BRANCH IF SYMBOL IS A CONSTANT 
FLAG AT 3 POS. IMPLIES CONSTANT 



06662 


14 


15139 


00009 


06674 


47 


06722 


01100 


06686 


22 


06732 


06733 


06698 


25 


06733 


15139 


06710 


31 


15138 


15140 


06722 


U 


09849 


-0000 


06734 


26 


09879 


09849 


06746 


32 


09850 


00000 


06758 


26 


09877 


-9849 


06770 


46 


06626 


01400 


06782 


43 


06864 


09850 


06794 


16 


09879 


OOORR 


06806 


49 


06864 


00000 


06814 








06843 




30 




06815 




3 




06644 


17 


09386 


00-74 


06856 


49 


00796 


00000 


06864 








06864 


65 


06876 


023J3 


00309 




0 




06876 


33 


08132 


00000 


06888 


49 


06908 




06896 


62 


06908 


OOOJ- 


06896 




0 




06908 


45 


07164 


00<)-4 


06920 


55 


06968 


OOb-4 


06932 


25 


06955 


09879 


06944 


43 


06896 


02500 


06956 


65 


06896 


023-8 


06968 


44 


06992 


000-4 


06980 


65 


06896 


024K9 


06992 


24 


00309 


02308 


07004 


46 


07076 


01100 


07016 


67 


07028 


070N1 


07028 


12 


07051 


OO0M6 


07040 


45 


06844 


00000 


07052 


44 


08132 


07164 


07064 


67 


08132 


024K9 


07076 


67 


07088 


071J1 


07088 


12 


07111 


000-6 


07100 


44 


08132 


00000 


07112 


33 


07164 


00000 


07123 




5 




07124 


43 


07144 


09904 


07136 


49 


08132 




07144 


32 


000-4 


00000 


07156 


49 


06980 




07164 


M3 


07688 


07563 


07176 


44 


07196 


000-3 


07188 


49 


06896 


00000 


07196 
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PAGE 


05730 




C 


-4(11 ,SYM 




07196 


24 


000- M 


09879 


05740 




BV 


SMLOOP 




07208 


46 


06896 


01400 


05750 




BHB 


SMLOOP 




07220 


47 


06896 


01200 


05760 




TDH 


INSWtlt, 


SET DIGIT IN INSW IF VARIABLE FOUND 


07232 


15 


03219 


00001 


05770 




C 


XRAltFCTENDf, 


TEST IF SYMBOL WAS LIBRARY FUNCTION 


07244 


24 


00309 


02318 


05780 




BH 


FCTEST,,, 




07256 


46 


08744 


01100 


05790 




BD 


CS0RN-l»DIMSWt6, 


RETURN IF IN DIMENSION STATEMENT 


07268 


43 


0559L 


09904 


05800 




BO 


• 4^32»EQUSW 




07280 


43 


07312 


09908 


05810 




CM 


CHI«24flO 




07292 


14 


15139 


000K4 


05820 




B 


•♦32 




07304 


49 


07336 


00000 


05830 




OORG 


•-3 




07312 








05840 




BNF 


CS0RN-1«EQUSH,6 




07312 


44 


0559L 


09908 


05850 




CM 


SCHIf24«610 




07324 


14 


0590N 


000K4 


05860 




BNR 


• 4-20t6(l)tf 


TEST FOR SUBPROGRAM 


07336 


45 


07356 


000-6 


05870 




B 


FCTST 




07348 


49 


07912 


00000 


05880 




DORG 


•-3 




07356 








05890 




BE 


DIMERR*12 




07356 


46 


07460 


01200 


05900 




BO 


•♦20.6(1),, 


TEST FOR DIM VARIABLE 


07368 


43 


07388 


000-6 


05910 




B 


LUXIT 




07380 


49 


07504 


00000 


05920 




DORG 


•-4 




07387 








05930 




BD 


LUXIT, lOSW,, 


DIM VAR USED W/0 DIM IN I/O STATEMENT 


07388 


43 


07504 


09911 


05940 




80 


DELAY, SSCSM 




07400 


43 


07668 


02494 


05950 




BO 


LUXIT ,CALLSW,i 


> DIM VAR USED W/O DIM IN CALL 


07412 


43 


07504 


09909 


05960 




BO 


C0ME,C0MSW,, 


SAME FOR COMMON 


07424 


43 


11944 


09910 


05970 




BO 


LUXIT-12,EQUSH 




07436 


43 


07492 


09908 


05980 


DIMERR 


BTM 


ERROR, 73,9, 


DIMENSIONED VAR USED WITH OUT SUBSCRIPT 


07448 


17 


09230 


00-73 


05990 




BO 


C0MER2,C0MSW 




07460 


43 


09442 


09910 


06000 




BO 


•♦20,6(1),, 


TEST FOR DIM VARIABLE 


07472 


43 


07492 


000-6 


06010 




B 


OIMERR 




07484 


49 


07448 


00000 


06020 




DORG 


•-3 




07492 








06030 




SF 


OMVAR,,, 


SET DIMENSION VARIABLE SWITCH 


07492 


32 


08132 


00000 


06040 




EXIT FROM TABLE LOOK UP •»•••• 










06050 


LUXIT 


BNF 


CS0RN-1,0UTSW,6, 


EXIT IF OUTSW NOT SET 


07504 


44 


0559L 


06896 


06060 




CF 


OUTSW 




07516 


33 


06896 


00000 


06070 




BT 


PUT,XRA1-1 




07528 


27 


08944 


00308 


06080 




BNF 


•♦44, OMVAR 




07540 


44 


07584 


08132 


06090 




CF 


DMVAR 




07552 


33 


08132 


00000 


06100 


VARSW 


DS 


t« 




07563 




0 




06110 




TF 


0UTSCE,CS0RN-1 




07564 


26 


04699 


05593 


06120 




B 


OUTSC 




07576 


49 


10464 


00000 


06130 




DORG 


•-3 




07584 








06140 




BNF 


•♦32 ,FNTSM,, 


TEST IF SYMBOL WAS A FUNCTION NAME 


07584 


44 


07616 


09900 


06150 




BTM 


PUT, 0154, 8, 


ARITH STATEMENT CALL 


07596 


17 


08944 


0-154 


06160 




B 


CSORN-1,,6 




07608 


49 


0559L 


00000 


06170 




DORG 


•-3 




07616 








06180 




BO 


•♦20,FNTSH,, 


DIGIT AND NO FLAG IMFLIES SUBPROGRAM 


07616 


43 


07636 


09900 


06190 




B 


CSORN-1,,6 




07628 


49 


0559L 


00000 


06200 




OORG 


•-3 




07636 








06210 




BO 


AERR1,0MM,, 


STATEMENT FUNCTION PREV DEFINED 


07636 


43 


09430 


09907 


06220 




BTM 


PUT, 0153, 8, 


FUNCTION OPERATOR CALL 


07648 


17 


08944 


0-153 


06230 




B 


CSORN-1,,6 




07660 


49 


0559L 


00000 


06240 




DORG 


•-3 




07668 








06250 


DELAY 


SF 


SSCSW 










nnnnn 


06260 




B7 


LUXIT . 




07680 


49 


07504 




06270 


••*••• 


SEARCH SYMBOL TABLE FOR CONSTANTS ••••«• 










06280 


LITERL 


BNF 


SML00P,3f l)t. 


CONSTANTS HAVE FLAG 


07688 


44 


06896 


0OO-3 










2'J5 
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06290 




CF 


3(1) 




07700 


33 


000-3 


00000 


06300 




BO 


LUSTNO, STNOSU,, 


BRANCH IF LOOKING-UP STATEMENT NUMBER 


07712 


43 


08068 


09903 


06310 




BD 


FXLIT,FXORFL,, 


BR IF SEARCHItIG FOR FIXED CONST 


07724 


43 


07992 


06309 


06320 




BD 


EXLIT ,5(1) 




07736 


43 


07820 


000-5 


06330 


LITF 


C 


-4(1), SYM,, 


COMPARE EXPONENTS 


07748 


24 


000-H 


09879 


06340 




BNE 


EXLIT 




07760 


47 


07820 


01200 


06350 




SN 


4(1), 2, 10 




07772 


12 


000-4 


000-2 


06360 




C 


-4(l),SYM-2,, 


COMPARE MANTISSA 


07784 


24 


000-M 


09877 


06370 




BE 


• ♦44 




07796 


46 


07840 


01200 


063B0 




AM 


4(1),2,10 




07808 


11 


000-4 


000-2 


06390 


EXLIT 


SF 


3(1) 




07820 


32 


000-3 


00000 


06400 




B 


SMLOOP 




07832 


49 


06896 


00000 


06410 




DORG 


•-3 




07840 








06420 




AM 


4(1),2,10 




07840 


11 


000-4 


000-2 


06430 




SF 


3(1) 




07852 


32 


000-3 


00000 


06440 




TDM 


INSW.l 




07864 


15 


03219 


00001 


06450 


E37061 


CM 


CHI,24,10 




07876 


14 


15139 


OO0K4 


06460 




BNE 


LUXIT 




07888 


47 


07504 


01200 


06470 




BTM 


ERR0Rt378,9 




07900 


17 


09230 


00L78 


06480 


•••••• 


TEST FOR SINGLE STATEMENT FUNCTION OR FUNCTION SUBROUTINE 










06490 


FCTST 


BE 


•♦36 




07912 


46 


07948 


01200 


06500 




BO 


•♦24,CALLSW 




07924 


43 


07948 


09909 


06910 


ERR09 


BTM 


ERR0R,079,9, 


INCORRECT USE OF SUBPROGRAM NAME 


07936 


17 


09230 


00-79 


06520 




TDM 


FNTSM,1«, 


FUNCTION SUBROUTINE 


07948 


19 


09900 


00001 


06530 




BNF 


LUXIT,6(1) 




07960 


44 


07504 


000-6 


06940 




SF 


FNTSM,,, 




07972 


32 


09900 


00000 


06550 




B 


LUXIT 




07984 


49 


07504 


00000 


06560 




DORG 


•-3 




07992 








06570 


FXLIT 


BO 


•♦20,5(1), • 


DIGIT INDICATES FIXED VARIABLE 


07992 


43 


08012 


000-5 


06580 




B 


EXLIT 




08004 


49 


07820 


00000 


06590 




DORG 


•-3 




08012 








06600 




BNF 


EXLIT, 5(1),, 


TEST FOR STATEMENT NUMBER 


08012 


44 


07820 


000-5 


06610 




C 


-4(1), SYM 




08024 


24 


OOO-M 


09879 


06620 




SF 


3(1) 




08036 


32 


000-3 


00000 


06630 




BNE 


SMLOOP 




08048 


47 


06896 


01200 


06640 




B 


E37061 




08060 


49 


07876 


00000 


06650 




DORG 


•~3 




08068 








06660 


»•••«• 


ENTER WHEN LOOKING 


UP STATEMENT NUMBERS •••••• 










06670 


LUSTNO 


BNF 


•♦20,5(1),, 


NO FLAG IMPLIES STATEMENT NUMBER 


08068 


44 


08088 


000-5 


06680 




B7 


EXLIT 




08080 


49 


07820 




06690 




C 


-4(1), SYM 




08088 


24 


000-M 


09879 


06700 




BNE 


EXLIT 




08100 


47 


07820 


01200 


06710 




TOM 


STNOSW,0 




08112 


15 


09903 


00000 


06720 




87 


£37061-24,,, 


BRANCH TO SET INSW AND GOTO LUXIT 


08124 


49 


07852 




06730 




ENTRY TO ADD A NEW 


VARIABLE TO SYMBOL TABLE •••••• 










06740 


AOVAR 


TDM 


INSW,0 




08132 


15 


03219 


00000 


06750 


DMVAR 


DS 


, AOVAR 




08132 




0 




06760 




TOM 


9(1), 0,, 


ELIMINATE RECORD MARK 


08144 


15 


^00-9 


00000 


06770 




TO 


5(l),FXaRFL 




08156 


25 


000-5 


06309 


06780 




SF 


5(1) 




08168 


32 


000-5 


00000 


06790 




BO 


AOLIT, VARSW,, 


BRANCH TO ADO CONSTANT 


08180 


43 


08540 


07563 


06800 




A 


NXLOCSMLNG,, 


MOO SYMBOL STORAGE BY NUMBER OF CHAR 


08192 


21 


02372 


05821 


06810 




TF 


NXL0C,SYM,6, 


HOVE SYMBOL INTO SYM STORAGE 


08204 


26 


0237K 


09879 


06820 


ADVLOP 


TF 


4(1),NXL0C,, 


MOVE ADD OF SYM INTO SYMBOL TABLE 


08216 


26 


000-4 


02372 


06830 




BO 


A0VAR1,01MSW,, 


TEST IF IN DIMENSION STATEMENT 


08228 


43 


08248 


09904 


06840 




B 


ADVAR2 




08240 


49 


08260 


00000 



13 



2 96 
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00 RG 


•—3 




08248 








06860 


AOVAR I 


TF 


99994 ( 1 > t NXLOC » t 


PLACE DOUBLE ENTRY FOR OtMENSION VAR 


08248 


26 


999R4 


02372 


06870 


ADVAR2 


BD 


AOSUBP* SUBSWt t 


TEST IF IN SUBROUTINE STATEMENT 


08260 


43 


08480 


09912 


06880 




BD 


CSORN"! tOIMSWt6» 


GOTO COLLECT DIMENSIONS IF IN DIN 


08272 


43 


0559L 


09904 


06890 


SETIND 


BNF 


• ♦24f COMSWt t 


TEST IF IN COMMON 


08284 


44 


08308 


09910 


06900 




SF 


61 1 ) * t f 


SET FLAG ON INDICATOR IF COMMON VARIABLE 


08296 


32 


000-6 


00000 


069 10 


SUBTST 


80 


•♦32 fEQUSUt* 




08308 


43 


08340 


09908 


06920 




CM 


CHI *24f 10 




08320 


14 


15139 


000K4 






B 


#+20 




08332 


49 


08352 


00000 


06940 




DORG 


•-3 




08340 








06950 




CM 


SCHI t24f610 




06340 


14 


0590N 


000K4 


06960 




BNE 


LUXIT 




08352 


47 


07504 


01200 


06970 




BO 


SUBTR tEQUSWt • 




08364 


43 


08456 


09908 


06980 


PAJSP 


BD 


LUXITvSUBSMf t 


DO NOT SET INDICATOR IF IN DECLARATION 


08376 


43 


07504 


09912 


06990 




80 


C0MER2tC0MSU 




08386 


43 


09442 


09910 


07000 




TDM 


FNTSWtltf 


SET SWITCH FOR FUNCTION NAME (A) 


08400 


15 


09900 


00001 


07010 




TDM 


6C 1 ) »•-• 




08412 


15 


000-6 


00000 


07020 




DC 


If • »» 




08423 




1 




07030 




BD 


LUXITfEQUSW 




08424 


43 


07504 


09908 


07040 




BD 


ASC21,0MM 




08436 


43 


13510 


09907 


07050 




B 


LUXIT, 




08448 


49 


07504 


00000 


07060 




DORG 


•-3 




08456 








07070 


SUBTR 


BNF 


PAJSP, EQUSW 




08456 


44 


08376 


09908 


07080 




BTM 


ERROR, 170,9, 


DIM VAR IN EQUIV W/0 PREVIOUS DIMENSIONS 


08468 


17 


09230 


00J70 


07090 




ENTRY TO PLACE VARIABLE IN SUBROUTINE DEFINITION IN TABLE 










07 1 00 




THESE VARIABLE ARE 


PLACED IN TWICE BECAUSE OF POSSIBLE 










071 10 


*• 


DIMENSIONING LATER 












07 120 


AOSUBP 


BNF 


ADSUB2,SUBSW 




08480 


44 


08516 


09912 


07130 




CF 


SUBSW 




08492 


33 


09912 


00000 


07140 


AOSAVE 


OS 


, • 




08503 




0 




071 50 




BXM 


SETIND, lOfl) 




08504 


62 


08284 


OOOJO 


07160 


ADSUB2 


SF 


SUBSW 




08516 


32 


09912 


00000 


07 170 




BXM 


AOVLOP,"-10C1) ,, 


BRANCH TO PLACE SYMBOL IN SECOND TINE 


08528 


62 


08216 


OOOJ- 


07180 




ENTRY TO PLACE CONSTANTS IN TABLE 










07 190 


ADLI T 


BO 


AOSTN, STNOSW,, 


BRANCH TO ADD STATEMENT NUMBER 


08540 


43 


08676 


09903 


07200 




BO 


ADXLIT,FXORFL,, 


BRANCH TO ADO FIX CONST 


08552 


43 


08644 


06309 


07210 




A 


NXLOC, FLNG 




08564 


21 


02372 


02250 


07220 




TF 


NXL0C,SYM~2,6, 


MOVE IN FLOATING MANTISSA 


08576 


26 


0237K 


09877 


07230 




AM 


NXLOC, 2, 10 




08588 


11 


02372 


000-2 






TF 


4(1) , NXLOC, t 


SET SYM ADDRESS INTO TABLE 


08600 


26 


000-4 


02372 


07250 


ADLITl 


TF 


NXL0C,SYM,6f 


MOVE CHARACTERISTIC OR FIX CONST 


08612 


26 


0237K 


09879 


07260 




SF 


3(1) 




08624 


32 


000-3 


00000 


07270 




B 


E37061 




08636 


49 


07876 


00000 


07280 




DORG 


• -3 




08644 








07290 


AOXL I T 


A 


NXLOC, KLNG 




08644 


21 


02372 


02252 


07300 




TF 


411), NXLOC, 


SET SYM ADDRESS INTO TABLE 


08656 


26 


000-4 


02372 


07310 




B 


ADLITl 




08668 


49 


08612 


00000 


07320 




DORG 


•-3 




08676 








07330 




ENTER TO ADD STATEMENT NUMBER •••••• 










07340 


AOSTN 


AN 


NXLOC,4,10 




08676 


11 


02372 


000-4 


07350 




TF 


4(l),NXL0C,» 


MOVE STAMNT NO. ADDRESS TO TABLE 


08688 


26 


000-4 


02372 


07360 




CF 


sen,,. 


CLEAR FLAG FOR STATEMENT NUMBER 


08700 


33 


000-5 


00000 


07370 




TDM 


STNOSW, 0 




08712 


15 


09903 


00000 


07380 




B7 


ADLITl 




08724 


49 


08612 




07390 




BTM 


ERR0R,374,9, 


ILLEGAL USE OF FUNCTION NAME 


08732 


17 


09230 


00L74 










9 (1 7 
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07400 


FCTEST 


BO 


•-IZflCONSW,, 


TEST FOR FUNCTION NAME IN COMMON 


08744 


43 


08732 


09910 


07410 




BD 


JWG.EQUSM 




08756 


43 


08920 


09908 


07420 




BD 


•~36,DtMSM,, 


1 


08768 


43 


08732 


09904 


07430 




BD 


•>48tI0SM 




08780 


43 


08732 


09911 


07440 




BD 


FCTEST-L2,0MM 




08792 


43 


08732 


09907 


07450 




CM 


CHI ,24, 10 




08804 


14 


15139 


000K4 


07460 




BNE 


FCTEST- 12 




08816 


47 


08732 


01200 


07470 




TF 


TEMP,9f L}„ 


MOVE IN LIBRARY FUNCTION ADDRESS 


08828 


26 


04089 


000-9 


07480 




SM 


TEMP,ENTL0G-5 




08840 


12 


04089 


-2243 


07490 




MM 


TEMP,2,10 




08852 


13 


04089 


000-2 


07500 




SF 


97 




08864 


32 


00097 


00000 


07510 


REF 


OS 


t • 




08875 




0 




07520 




TFM 


•♦30,USEDFS-1 




08876 


16 


08906 


-2262 


07530 




A 


•♦18,98 




06888 


21 


08906 


00098 


07540 




TDM 


•IflO, 


SET INDICATOR FOR FUNCTION USED 


08900 


15 


00000 


000-1 


07550 




B 


LUXIT 




08912 


49 


07504 


00000 


07560 




DORG 


•-4 




08919 








07570 


JWG 


BNF 


CS0RN-l,EQUSIft6 




08920 


44 


0559L 


09908 


07580 




B 


FCTEST-12,,7, 


FUNCT NAME IN EOUIV 


08932 


49 


08732 


-0000 


07590 


PUT 


BO 


EXIT,ERSU 




08944 


43 


09114 


05530 


07600 




CF 


PUT-4 




08956 


33 


08940 


00000 


07610 




TF 


PUTOUT,PUT-l 




08968 


26 


09272 


08943 


07620 


E 94270 


TR 


CARD,PUT0UT-4,2 




08980 


31 


J4936 


09268 


07630 




AM 


•-6,05,10 




08992 


11 


08986 


000-5 


07640 




CM 


•-18,CARD«200 




09004 


14 


08986 


J5136 


07650 




BE 


• ♦14 




09016 


46 


09030 


01200 


07660 




BB 






09028 


42 


00000 


00000 


07670 




DORG 


•-9 




09030 








07680 




TFM 


IORT,»+23 




09030 


16 


00565 


-9053 


07690 




B 


I0PT,INT0P,7 




09042 


49 


00532 


-9121 


07700 




AM 


tNTOPl+5,2,10 




09054 


11 


02390 


000-2 


07710 




B 


•♦36,00200,, 


C9T7 ST ON SW 2 


09066 


49 


09102 


00200 


07720 




RCTY 






09078 


34 


00000 


00102 


07730 




WNTY 


CARD 




09090 


38 


14936 


00100 


07740 




TFM 


E94270+6,CAR0 




09102 


16 


08986 


J4936 


07750 


EXIT 


BB 


E86440 




09114 


42 


02430 


00000 


07760 




DORG 


•-4 




09121 








07770 


INTOP 


DSC 


2,02 




09121 




2 




07780 




02 
OS A 


I NTOP 1 




09127 




5 


X 1 












09127 




-2385 




07790 




DC 
t 


!#• 




09128 




1 




07800 


SPERR 


TFM 


SPGS+11,071,9 




09130 


16 


09225 


00-71 


07810 




BD 


SPGS, INOtV 




09142 


43 


09214 


02424 


07820 




TFM 


I0RT,^+23 




09154 


16 


00565 


-9177 


07830 




B 


I0GT,C5DATA-4,7, 


CHECK FOR CONTINUATION CARDS 


09166 


49 


00566 


-9791 


07840 




CM 


CHI5,43,10 




09 178 


14 






07850 




BE 


• ♦24 




09190 


46 


09214 


01200 


07860 




BD 


SPERR+24,CHI5+10 




09202 


43 


09154 


15849 


07870 


SP6S 


BTM 


ERROR, 071, 9 




09214 


17 


09230 


00-71 


07880 




OS 


4 




09229 




4 




07890 


ERROR 


TDM 


ERSW.l 




09230 


15 


05530 


00001 


07900 




TDM 


E94620+l,9 




09242 


15 


09375 


00009 


07910 




TF 


ERMES+14,ERR0R-l 




09254 


26 


09815 


09229 



208 
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07920 




RCTY 






09266 


34 


00000 


00102 


07930 


PUTOUT 


OS 






09272 




0 




07940 




DC 


lt*»*'-4 




09273 




1 




07950 




BC 1 


• ♦84 




09278 


46 


09362 


00100 


07960 




WNTY 


ESNO-3 




09290 


38 


02685 


00100 


07970 




SPTY 






09302 


34 


00000 


00101 


07980 




WATY 


PLUSS 




09314 


39 


09831 


00100 


07990 




SPTY 






09326 


34 


00000 


00101 


08000 




WNTY 


ESNOPL-3 




09338 


38 


03001 


00100 


08010 




SPTY 






09350 


34 


00000 


00101 


08020 




WATY 


ERMES 




09362 


39 


09801 


00100 


08030 


E94620 


B 


BEGINA 




09374 


49 


02602 


00000 


08040 


ERR0R2 


TOM 


E94620+lt2 




09386 


15 


09375 


00002 


08050 




TDM 


JAY, 4 




09398 


15 


02367 


00004 


08060 




TP 


ERMES>14«ERR0R2-1 




09410 


26 


09815 


09385 


08070 




B 


ERROR-t-36 




09422 


49 


09266 


00000 


08080 




DORG 


•-3 




09430 








08090 


AERRl 


BTM 


ERR0Rt376t9 




09430 


17 


09230 


00L76 


08100 


COMER 


BTM 


ERR0Rt372t9f 


INCORRECT COMMON STATEMENT 


09442 


17 


09230 


00L72 


08110 


C0MER2 


OS 


fCOMER 




09442 




0 




08120 


CALLER 


BTM 


ERROR* 279t9t 


INCORRECT CALL NAME OR LIST 


09454 


17 


09230 


00K79 


08130 


END 


BD 


•♦20»SUBFCT 




09466 


43 


09486 


02293 


08140 




B 


• ♦32 




09478 


49 


09510 


00000 


08150 




DORG 


•-3 




09486 








08160 




BD 


•♦24,RTSW 




09486 


43 


09510 


05529 


08170 




BTM 


ERR0R2t578,9 




09498 


17 


09386 


00N78 


08180 




BV 


• ♦12 




09510 


46 


09522 


01400 


08190 




BO 


MONCAL fERSWf. 


SKIP STORAGE ALLOCATION IF PROG HAD ERR 


09522 


43 


00796 


05530 


08200 




BTM 


PUT* 141f8,EN0 




09534 


17 


08944 


0-141 


08210 




BTM 


PUT, 140 ,8 •DUMMY 


09546 


17 


08944 


0-140 


08220 




BTM 


PUT. 132»8»SEMI 


COLON 


09558 


17 


08944 


0-132 


08230 




CM 


E94270^6«CARD 




09570 


14 


08986 


J4936 


08240 




BE 


E86440t*t EXIT TO 


STORAGE ALLOCATION 


09582 


46 


02430 


01200 


08250 




TDM 


EXIT^1,9 




09594 


15 


09115 


00009 


08260 




B 


E94270+50 




09606 


49 


09030 


00000 


08270 




OORG 


•-3 




09614 








08280 


BLKl 


OSC 
02 


2f02 




09614 




2 




08290 




OS A 


BLKIA 




09620 




5 


X 1 












09620 




-9622 




08300 




DC 






09621 




1 




08310 


BLKIA 


OSC 


ItO 




09622 




1 




08320 


RECMK 


0 
OS 


•BLKlA-1 




09621 




0 




08330 




DC 


Sf00200 




09627 




5 








-0200 












08340 




DC 


3 t043 




09630 




3 








-43 














08350 




DSA 


I OUT 




09635 




5 


X 1 












09635 




J0200 




08360 




DC 


It* 




09636 




1 





2 9 0 
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08370 BLK2 


DSC 

02 

DSA 


2.02 


09637 


2 


08380 


BLK2A 


09643 


5 X 


08390 


DC 
• 




09643 
09644 


-9645 
1 


08400 6LK2A 


OSC 


IfO 


09645 


1 


08410 
08420 
08430 


DC 5.00000 

-0000 

DC 3.046 

-46 

DSA lOUT 


09650 
09653 
09658 


5 
3 

5 X 


08440 


DC 
• 


It' 


09658 
09659 


J0200 
1 


08450 BLKl 


OSC 

02 

DSA 


2.02 


09660 


2 


08460 


BLK3A 


09666 


5 X 


08470 


DC 


It* 


09666 
09667 


-9668 
1 


08480 BLK3A 


DSC 


1,0 


09668 


I 


08490 
08500 
08510 


u 

DC 5.00050 

-0050 

OC 3*046 

-46 

DSA I OUT 


09673 
09676 
09681 


5 
3 

5 X 


08520 


OC 


If* 


09681 
09682 


J0200 
1 


08530 BLK4 


OSC 

02 

DSA 


2*02 


09683 


2 


08540 


BLK4A 


09689 


5 X 


08550 


OC 


1,» 


09689 
09690 


-9691 
I 


08560 BLK4A 


DSC 


1.0 


09691 


1 


08570 

08580 
08590 


w 

DC 5.00100 

-0100 

DC 3,046 

-46 

DSA lOUT 


09696 

09699 
09704 


5 

3 

5 X 


08600 


DC 


I,* 


09704 
09705 


J0200 
1 


08610 BLK5 


• 

DSC 
02 


2,02 


09706 


2 



1 



1 



1 



1 



1 



1 



3UU 
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08620 




OS A 


BLK5A 




09712 


5 X 


1 












09712 


-9714 




08630 




DC 
t 


If' 




09713 


1 




08640 


BLK5A 


DSC 


ItO 




09714 


\ 




08650 




0 

DC 


5,00250 




09719 


5 








-0250 










08660 




DC 


3,046 




09722 


3 








-46 












08670 




DSA 


I OUT 




09727 


5 X 


1 












09727 


J0200 




08680 




DC 
• 


l,» 




09728 


1 




08690 


BLK6 


DSC 


2.02 




09729 


2 




08700 




02 
DSA 


BLK6A 




09735 


5 X 


1 












09735 


-9737 




08710 




DC 
t 


I,* 




09736 


1 




08720 


BLK6A 


osc 


IfO 




09737 


I 




08730 




0 
DC 


5.00150 




09742 


5 








-0150 










087A0 




DC 


3.046 




09745 


3 








-46 










I 


08750 




DSA 


lOUT 




09750 


5 X 












09750 


J0200 




08760 




DC 
• 


l.« 




09751 


1 




08770 


BLK7 


DSC 


2.22 




09752 


2 




08780 




22 
DSA 


BLK7A 




09758 


5 X 


1 












09758 


-9760 




08790 




DC 
t 


l.» 




09759 


1 




08800 


BLK7A 


DSC 


1.0 




09760 


1 




08810 




0 

DC 


5.17700 




09765 


5 








J7700 




09768 






08820 




DC 


3 .100 




3 




08830 




JOO 
DSA 


E 86440 ' 




09773 


5 X 


I 












09773 


-2430 




08840 




DC 


l.» 




09774 


1 




08850 


URDATA 


DSA 


CHI 




09779 


5 X 


1 












09779 


J5139 




08860 




DC 


2.06 




09781 


2 








-6 






















3U 1 
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08870 


GMl 


OGM 






09782 


I 




08880 


COOATA 


DSA 


CHI 




09787 
















09787 


J5139 




08890 




DC 


2.10 




09789 


2 








JO 












08900 


GM2 


DGM 






09790 


1 




08910 


C50ATA 


DSA 


CHI5 




09795 


5 X 


1 












09795 


J5839 




08920 




DC 


2.10 




09797 


2 








JO 












08930 


GN3 


DGM 






09798 


1 




08940 


ERMES 


DAC 


9. ERROR 00* 




09801 


9 X 


2 






ERROR 00* 










08950 


FMTCST 


DC 


12.465659544163 




09829 


12 








M65659544163 










08960 


PLUSS 


OAC 


2t+» 




09831 




2 


08970 


ENDCT 


♦ • 

DAC 


3 .END 




09835 


3 X 


2 






END 












08980 




DS 


40 




09879 






08990 




DS 


2 




09881 


*2 




09000 




DC 


16.0 














-000000000000000 










09010 




OS 


f»-2 




09895 


Q 




09020 


TENZ^ 


OS 


.•-6 




09891 


0 




09030 


S INGST 


DC 


1,0 




09898 








nnvQ AM 

UUI KAN 


OSC 


1.0 












FNTSH 


0 

OSC 


l.O 




09900 










0 

OSC 
0 


1.0 














OSC 


1,0 










09080 


STNOSW 


0 

OSC 


1,0 , 




09903 






09090 




0 

OSC 


1,0 














0 

OSC 
0 


1,0 




09905 










OSC 
0 


1,0 










09120 


OMM 


OSC 


1,0 












EQUSW 


0 

DSC 


1,0 










09140 


CALLSM 


0 

DSC 


1,0 




09909 






09150 


COMSW 


0 

OSC 


1.0 




09910 






09160 


lOSM 


0 

DSC 
0 


1.0 




09911 






09170 


SUBSW 


DSC 


1.0 




09912 







3«2 
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09180 




□ORG 


10200 


10200 








09190 


tout 


TFM 


FM0N*-35tBLK4 


10200 


16 


02359 


— 9663 


09200 




6TM 


FMONflOUT 


10212 


17 


02324 


J0200 


09210 


NONARA 


TFM 


FM0N->-35tBLK2 


10224 


16 


02359 


-9637 


09220 




BTM 


FMONtNONARA 


10236 


1^7 


02324 




09230 


DIM 


TFM 


FM0N>35tBLKl 


10248 


16 


02359 


— 9614 


09240 




BTM 


FMONtDIM 


10260 


17 


02 324 


J0248 


09250 


COMMON 


TFM 


FM0N-i-35tBLKl 


10272 


16 


02359 


—9614 


09260 




BTM 


FMONfCOMMON 


10284 


17 


02 324 


J0272 


09270 


IF 


TFM 


FMON-t-35* BLK6 


10296 


16 


02 35 9 


—9729 


09280 




BTM 


FMONf IF 


10308 


17 




J0296 


09290 


GOTO 


TFM 


FM0N^35tBLK6 


10320 


16 


02359 


— 9729 


09300 




BTM 


FMON,GOTO 


10332 


17 


02324 




09310 


CALL 


TFM 


FM0N*35»BLK6 


10344 


16 




-0770 


09320 




BTM 


FMONff CALL 


10356 


17 


02324 




09330 


RETURN 


TFM 


FM0N't-3StBLK6 


10368 


16 






09340 




BTM 


FMONt RETURN 






02324 




09350 


FORMAT 


TFM 


FMON'f35tBLKl 


10392 


16 


02359 


-QAI f 


09360 




BTM 


FMONff FORMAT 


10404 


17 


02324 


"j 


09370 


000 


TFM 


FM0N'^35tBLK4 




16 




-9683 


09380 




BTM 


FMONt DOO 


10428 


17 


02324 


J0416 


09390 


A SCAN 


TFM 


FM0N^35>BLK3 


10440 


16 


02359 


-9660 


09400 




BTM 


FMONff ASCAN 


10452 


17 


02324 


J0440 


09410 


OUTSC 


TFM 


FM0N«35»BLK3 


10464 


16 


02359 


-9660 


09420 




BTM 


FMONff OUTSC 


10476 


17 


02324 


J0464 


09430 


DKIO 


TFM 


FM0N4-35ffBLK5 


10488 


16 


02359 


-9706 


09440 




BTM 


FMONffDKIO 


10500 


17 


02324 


J0488 


09450 




OORG 


16000 


16000 








09460 


PHBOAT 


DSC 


2,22 


16000 




2 




09470 




22 
DSA 


PHBDOA 


16006 




5 


X I 










16006 




J6008 




09480 




DC 
« 


Iff* 


16007 




1 




09490 


PHBDOA 


DSC 


ifO 


16008 




1 




09500 




0 
OC 


5ffl7200 


16013 




5 








J7200 










09510 




DC 


3 • 082 


16016 




3 








-82 












09520 




DSA 


E 86440 


16021 




5 


X 1 










16021 




-2430 




09530 




DC 
t 


lt« 


16022 




1 




09540 


LDPHB 


TD 


GMl ffGM 


16024 


25 


09782 


02300 


09560 




TO 


GM2 ffGM 


16036 


25 


09790 


02300 


09570 




TO 


GM3 ffGM 


16048 


25 


09798 


02300 


09580 




TFM 


lORT ff««23 


16060 


16 


00565 


J6083 


09590 




B 


lOPTffPHBDATffT 


16072 


49 


00532 


J6000 


09600 




TRA 




16084 


36 


00000 


00500 










16096 


49 


00000 


00000 


09610 




TCD 


LOPHB 


16024 









09620 » OUT OF CORE BLOCK 1 CONTAINS THE FOLLOWING 
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09630 • DIMENSION 
09640 • COMMON 
09650 • FOUMAT 



09660 




OORG 


lOUT 






10200 








09670 




TFM 


FM0N«35»BLK4 


fffflOUT 




10200 


16 


02359 


-9683 


09680 




BTM 


FMONff lOUT 






10212 


17 


02324 


J0200 


09690 




TFM 


FM0N>35ffBLK2 






10224 


16 


02359 


-9637 


09700 




BTM 


FMONffNONARA 






10236 


17 


02324 


J0224 


09710 




CF 


STSN 


t.fOIN 




10248 


33 


05531 


00000 


09720 




B 


DIMEN 






10260 


49 


10512 


00000 


09730 




OF 


STSN 


ffffffCOMNON 




10272 


33 


05531 


00000 


09740 




B 


COMMEN 






10284 


49 


11552 


00000 


097S0 




TFM 


FM0N435tBLK6 


ttlF 




10296 


16 


02359 


-9729 


09760 




BTM 


FMONff IF 






10308 


17 


02324 


J0296 


09770 




TFM 


FM0N435ffBLK6 


• ffCOTO 




10320 


16 


02359 


-9729 


09780 




BTM 


FMONff GOTO 






10332 


17 


02324 


J0320 


09790 




TFM 


FM0N435ffBLK6 


••CALL 




10344 


16 


02359 


-9729 


09800 




BTM 


FMONff CALL 






10356 


17 


02324 


JO 344 


09810 




TFM 


FM0N43SffBLK6 


ffffRETURN 




10368 


16 


02359 


-9729 


09820 




BTM 


FMONff RE TURN 






103B0 


17 


02324 


J0368 


09830 




CF 


FREQSW 


ffffffFORMAT 




10392 


33 


14134 


00000 


09840 




B 


FOMAT 






10404 


49 


12130 


00000 


09850 




TFM 


FM0N435ffBLK4 


• •000 




10416 


16 


02359 


-9683 


09860 




BTM 


FMONff DOO 






10428 


17 


02324 


J0416 


09870 




TFM 


FM0N435ffBLK3ffff 


ASCAN 




10440 


16 


02359 


-9660 


09880 




BTM 


FMONff A SCAN 






10452 


17 


02324 


J0440 


09890 




TFM 


FMONOSffBLKSffff 


OUTSC 




10464 


16 


02359 


-9660 


09900 




BTM 


FMONffOUTSC 






10476 


17 


02324 


J 0464 


09910 




TFM 


FM0N«35>BLK5 


ffffOKIO 




10488 


16 


02359 


-9706 


09920 




BTM 


FMONffDKIO 






10500 


17 


02324 


J0488 


09930 


•••••• 


ENTRY TO DECOMPOSE 


DIMENSION 












09940 


DIMEN 


BTM 


C0LNAMff6ffl0 






10512 


17 


04560 


000-6 


09950 




C 


SYMtENSION^lO 






10S24 


24 


09879 


11551 


09960 




BV 


ERROl 






10536 


46 


04198 


01400 


09970 




BNE 


ERROl 






10548 


47 


04198 


01200 


09980 




TR 


CHI-l,CHt4ll 






10560 


31 


15138 


15150 


09990 




TDM 


DIMSWffl 






10572 


15 


09904 


00001 


10000 




BNR 


•♦36,CHI+2 






105B4 


45 


10620 


15141 


10010 


DIMl 


BTM 


ERR0R>072ff9» 






10596 


17 


09230 


00-72 


10020 




BTM 


ERROR, 270, 9 






10608 


17 


09230 


00K70 


10030 




CM 


CHI,40,10 






10620 


14 


15139 


OOOMO 


10040 




BNH 


• -24 






10632 


47 


10608 


01100 


10050 




CM 


CHI, 69,10 






10644 


14 


15139 


00009 


10060 




BH 


DIM1>12 






10656 


46 


10608 


01100 


10070 




BTM 


CS0RN,»4>12 






10668 


17 


05594 


J0680 


10080 


SETDM 


80 


0lM2fINSWffff 


BRANCH 


IF SYM WAS ALREADY IN TABLE 


10680 


43 


11472 


03219 


10090 




TDM 


6(l),l,ff 


PUT NO. 


OF DIMENSIONS INTO SYM. TABLE 


10692 


IS 


000-6 


OOOOl 


10100 




TF 


A0SAVEff4(l) 






10704 


26 


08503 


000-4 


10110 




TFM 


99999 <1 1,00001 






10716 


16 


999R9 


-0001 


10120 




CM 


CHI, 24, 10 






10728 


14 


15139 


0OOK4 


10130 




BNE 


DIMl 






10740 


47 


10596 


01200 


10140 




SF 


DIMl 






10752 


32 


10596 


00000 


10150 




SF 


SETDM 






10764 


32 


10680 


00000 


10160 


SO 


TR 


CHI-l,CHI*l,. 


SHIFT OFF LEFT PARN OR COMMA 


10776 


31 


15138 


15140 


10170 




CM 


CHI, 69,10* 


TEST FOR ABSOLUTE 


10788 


14 


15139 


00009 


10180 




BNH 


SETDM2*24 






10800 


47 


10848 


01100 



3 04 
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10190 


BTM 


CSTN0,»+12 


10200 SETDM2 


: CM 


SYM.O.IO 


10210 


BNE 


• ♦24 


10220 


BTM 


ERROR, 179,9 


10230 


AM 


ADSAVE.5,10 


10240 


TDM 


SYM-4,0,ll 


10250 


CF 


SYM-3 


10260 


TF 


ADSAVE,SYM,6 


10270 


AM 


NXL0C,5,10 


10280 


TF 


TEMP.SYM 


10290 


CM 


CHI, 04, 10 


10300 


BE 


MOVOIM 


10310 


CM 


CHI, 23, 10 


10320 


BNE 


DIMl 


10330 


BNF 


GENOIM,OIM1,, 


10340 


TDM 


6(1),2 


10350 SET0M3 


N 


999991 11, TEMP 


10360 


SF 


95 


10370 


TF 


99999 ( 1 1 , 99 


10380 


CF 


DIMl 


10390 


B 


SO 


10400 


00 RG 


•-3 


10410 GENDIM 


BNF 


SETDM2«24,SETDM, 


10420 


TDM 


6(1},3 


10430 


CF 


SETDM 


10440 


B 


SET0M3 


10450 


DORG 


•-3 


10460 MOVOIM 


N 


99999(1 I. TEMP 


10470 


SF 


95 


10480 


TF 


99999111,99 


10490 


TR 


CHI-1,CHI«1 


10500 


TD 


DIMTP, 6f 11 


10510 


CM 


DIMTP, 0002,810 


10520 DIMTP 


DS 


t»-2 


10530 


BH 


SETDM4,,, 


10540 


BE 


•♦32,,, 


10550 


TFM 


ADSAyE,l,67, 


10560 


B 


SET0M54^12 


10570 


00 RG 


•-4 


10580 


TF 


TEMP,ADSAyE 


10590 


SM 


TEMP, 5, 10 


10600 


TF 


A0SAVE,TEMP,611 


10610 


B 


SET0M5 


10620 


00 RG 


•-4 


10630 S6TDM4 


TF 


TEMP,AOSAVE 


10640 


SM 


A0SAVE,5,10 


10650 


SM 


TEMP, 10,10 


10660 


M 


TEMP, ADSAVE, 611 


10670 


SF 


95 


10680 


TF 


NXL0C,99,6 


10690 


TF 


ADSAVE, TEMP,611 


10700 


TF 


TEMP, NXLOC, 611 


10710 


A 


TEMP, ADSAVE, 611 


10720 SETDM5 


AM 


TEMP, 1,610 


10730 


AM 


NXLOC, 05, 10 


10740 


TF 


NXLOC, 999991 11,6 



TEST FOR SECOND DIMENSION 



TEST FOR THIRD DIMENSION 



3 DIMENSIONS 
2 DIMENSIONS 
1 DIMENSION 



108 12 


17 


05302 


J0824 


10824 


14 


09879 


000-0 


10836 


47 


10860 


01200 


10848 


17 


09230 


00J79 


10860 


11 


08503 


000-5 


10872 


15 


09875 


0000- 


10884 


33 


09876 


00000 


10896 


26 


0850L 


09879 


10908 


11 


02372 


000-5 


10920 


26 


04089 


09879 


10932 


14 


15139 


000-4 


10944 


46 


11104 


01200 


10956 


14 


15139 


000K3 


10968 


47 


10596 


01200 


10980 


44 


11060 


10596 


10992 


15 


000-6 


00002 


11004 


23 


999R9 


04089 


11016 


32 


00095 


00000 


11028 


26 


999R9 


00099 


11040 


33 


10596 


00000 


11052 


49 


10776 


00000 


11060 








11060 


44 


10848 


10680 


11072 


15 


000-6 


00003 


11084 


33 


10680 


00000 


11096 


49 


11004 


00000 


11104 








11104 


23 


999R9 


04089 


11116 


32 


00095 


00000 


11128 


26 


999R9 


00099 


11140 


31 


15138 


15140 


1 1152 


25 


11173 


000-6 


11164 


14 


11173 


0-0-2 


11173 




0 




11176 


46 


11264 


01100 


11188 


46 


11220 


01200 


11200 


16 


0850L 


-0001 


11212 


49 


11384 


00000 


11219 








1 1220 


26 


04089 


08503 


11232 


12 


04089 


000-5 


11244 


26 


085OL 


0408R 


11256 


49 


11372 


00000 


11263 








11264 


26 


04089 


08503 


11276 


12 


08503 


000-5 


11288 


12 


04089 


OOOJO 


1 1300 


23 


0408R 


0850L 


11312 


32 


00095 


00000 






0237K 


00099 


11336 


26 


08 SOL 


0408R 


11348 


26 


0408R 


0237K 


11360 


21 


0408R 


0850L 


11372 


11 


0408R 


000-1 


11384 


11 


02372 


000-5 


11396 


26 


0237K 


999R9 



3U5 
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10750 




BNR 


• ♦20,CHK2 




11408 


45 


11428 


15141 


10760 




B 


BEGINA 




11420 


49 


02602 


00000 


10770 




DORG 


•-3 




11428 








10780 




CM 


CHI, 23, 10 




11428 


14 


15139 


000K3 


10790 




BNE 


DIMl 




11440 


47 


10596 


01200 


10800 




TR 


CHI-1,CHU1 




11452 


31 


15138 


15140 


10810 




B 


DIMl+24 




11464 


49 


10620 


00000 


10820 




DORG 


•-3 




11472 








10830 


0IM2 


BNR 


DIM3,7(1),, 


TEST IF DIM VAR MAS PLACED IN TABLE BY 


11472 


45 


11528 


000-7 


10840 




A 


NXLOC, SMLNG,, 


SUBROUTINE OR FUNCTION STATEMENT 


11484 


21 


02372 


05821 


10850 




TF 


NXL0C,SYM,6 




11496 


26 


0237K 


09879 


10860 




TF 


411), NXLOC, 


PUT SYM IN NEW SPOT IN NAME TABLE 


11508 


26 


000-4 


02372 


10870 




B 


SETDM«12 




11520 


49 


10692 


00000 


10880 




DORG 


•-3 




11528 








10890 


0tM3 


BTM 


ERROR, 271, 9 




11528 


17 


09230 


00K71 


10900 


ENSION 


DAC 


6, ENSION 




11541 




6 


X 2 






ENSION 












10910 


•••••• 


DECODE COMMON STATEMENTS «••••• 










10920 


COMMEN 


BTM 


C0LNAH,3,10 




11552 


IT 


04560 


000-3 


10930 




C 


SYM,M0N>4 




11564 


24 


09879 


12129 


10940 




BV 


ERROl 




11576 


46 


04198 


01400 


10950 




BNE 


ERROl 




11588 


47 


04198 


01200 


10960 




TR 


CHI-1,CHU$ 




11600 


31 


15138 


15144 


10970 




TOM 


C0MSW,1,11 




11612 


15 


09910 


OOOOJ 


10980 




CM 


CHI, 40, 10 




11624 


14 


15139 


OOOMO 


10990 




BNH 


COMER 




11636 


47 


09442 


01100 


11000 




CM 


CHI, 69, 10 




11648 


14 


15139 


00009 


llOlO 




BH 


COMER 




11660 


46 


09442 


01100 


11020 




BTM 


CS0RN,»*12 




11672 


17 


05594 


J1684 


11030 




CM 


CHI, 24, 10 




11684 


14 


15139 


000K4 


11040 




BE 


COMER 




11696 


46 


09442 


01200 


11050 




BO 


COMIN, INSW,, 


BRANCH IF VARIABLE WAS PREVIOUSLY USED 


11708 


43 


11852 


03219 


11060 


•••••• 


IB VARIABLE WAS NOT 


DEFINED THEN IT MUST BE SIMPLE VARIABLE 










11070 


COMA 


AM 


NXLOC, 5, 10 




11720 


11 


02372 


000-5 


11080 




TF 


NXLOC, C0MA0D,6, 


MOVE OBJ TIME COMMON ADDRESS TO SYM AREA 


11732 


26 


0237K 


02262 


11090 




BD 


•♦32,FXORFL 




11744 


43 


11776 


06309 


11100 




S 


C0MADD,FP2,, 


ADJ COMMON ADDRESS FOR FLOAT VARIABLE 


11756 


22 


02262 


02298 


llllO 




B 


•♦20 




11768 


49 


11788 


00000 


11120 




DORG 


•-3 




11776 








11130 




S 


COMADD,KLNG,, 


ADJ COMMON ADDRESS FOR FIX VARIABLE 


11776 


22 


02262 


02252 


11140 


COMAB 


BNR 


»4-20,CHI-i-2 




11788 


45 


11808 


15141 


11150 




B 


BEGINA 




11800 


49 


02602 


00000 


11160 




DORG 


•-3 




11808 








11170 




CM 


CHI,23,10, 


TEST FOR MORE LIST ELEMENTS 


11808 


14 


15139 


000K3 


11180 




BNE 


COMER 




11820 


47 


09442 


01200 


11190 




TR 


CHI-l,CHl*l 




11832 


31 


15138 


15140 


11200 




B 


COMMEN* 72 




11844 


49 


11624 


00000 


11210 




DORG 


♦-3 




11852 








11220 


•••••• 


COME HERE IF SIMPLE 












11230 


COMIN 


BNF 


•♦24,6(1) 




11852 


44 


11876 


000-6 


11240 




BTM 


ERROR, 373, 9, 


VARIABLE WAS PREVIOUSLY PLACED IN COMMON 


11864 


17 


09230 


00L73 


11250 




BNF 


•-12,5(1),, 


WAS IT PREVIOUSLY EQUIVALENCED 


11876 


44 


11864 


000-5 


11260 




SF 


6(1) 




11888 


32 


000-6 


00000 


11270 


COMINA 


A 


NXLOC, SMLNG 




11900 


21 


02372 


05821 


11280 




TF 


4(1), NXLOC, 


MOVE NEW SYMBOL ADDRESS INTO TABLE 


11912 


26 


000-4 


02372 


11290 




TF 


NXL0C,SYM,6 




11924 


26 


0237K 


09879 



306 
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B 


COMAttf 




BRANCH TO PLACE COMMON ADDRESS IN TABLE 


11936 


49 


11720 


00000 


11310 




DORG 


•-3 










11944 








11320 




RETURN PROM SYM TABLE 


LOOK UP WHEN VARIABLE WAS 


DIMENSIONED 








1 1330 


COME 


BNF 


•+20,6(1) 










11944 


44 


11964 


000-6 


11340 




B 


C0MIN-*^12«», 




VARIABLE PREVIOUSLY PLACED 


IN 


COMMON 


11956 


49 


11864 


00000 


1 1 350 




00 RG 


•-3 










11964 






J \ 




BNF 


C0MIN>12»5(1I», 




TEST IF VAR WAS PREVIOUSLY 


EQUIVALENCED 


11964 


44 


11864 


000-5 


11370 




SF 


6(1) 










11976 


32 


000-6 


DOOOO 


11380 


COMC 


BO 


•♦32,FX0RFL 










11988 


*3 


12020 


06309 


1 1390 




TF 


C0MM+11»FP2 ft 




SET UP TO MULTIPLY NUMBER 






12000 


26 


12043 


02298 


11400 




B 


COMM 










12012 


49 


12032 


00000 


11410 




OORG 


•-3 










12020 








1 1420 




TF 


•>23.KLNG 










12020 


26 


12043 


02252 


11430 


COMM 


MM 


99999(1), •>••» 




GEN. NO. OF LOCATIONS FOR 


ARRAY 


12032 


13 


999R9 


-0000 


11440 




SF 


95 










12044 


32 


00095 


00000 


1 1450 




S 


C0MA00,99,, 




UPDATA COMMON ADDRESS 






12056 


22 


02262 


00099 


11460 




BN 


C0MER3 










12068 


47 


12112 


01300 


11470 




TF 


99999(1),C0MAD0 










12080 


26 


999R9 


02262 


1 1480 




A 


99999 (1),C0MM«- 11 










12092 


21 


999R9 


12043 


11490 




B 


COMAB,,, 




THIS ADDRESS IS THE LOW ORDER 


DIGIT OF 


12104 


49 


11788 


00000 


11500 




OORG 


•-4,,, 




FIRST ELEMENT. 






12111 








11510 


C0MER3 


BTM 


ERROR, 474«9t 




COMMON EXCEEDS CORE SIZE 






12112 


17 


09230 


00M74 


11520 


MON 


OAC 


3, MON 










12125 




3 


X 2 






MON 




















11530 


• ••• 


UNIT RECORD FORMAT 


OUTPUT •••• 














11540 


FOMAT 


BO 


•♦32, INSW 










12130 


43 


12162 


03219 


11550 




TOM 


8(1), 1 










12142 


15 


000-8 


00001 


11560 




B 


FOMATl 










12154 


49 


12194 


00000 


11570 




OORG 


•-3 










12162 








11580 




BO 


FOMATl, 8(1) 










12162 


43 


12194 


000-8 


1 1590 




TFM 


SPGS*11,277,9 










12174 


16 


09225 


00K77 


11600 




B 


SPERR+12,,, 




ERROR 27 






12166 


49 


09142 


00000 


1 1610 


■ 




•-3 










12194 








11620 


FOMATl 


TFM 


CSPVA+35,CHI-2 










12194 


16 


03605 


J5137 


1 1630 






CSPVA+35,2,10 










12206 


11 


03605 


000-2 


11640 




BNR 


•-12,CSPVA<^35,11, 




SCAN AHEAD FOR RECORD MARK 






12218 


45 


12206 


0360N 


1 1650 




80 


F0RM99, INOIV 










12230 


43 


12334 


02424 


11660 




AM 


CKRM-1,CHI+146,71I 








12242 


11 


02905 


J528N 


11670 




AM 


CKRM-1,2,10 










12254 


11 


02905 


000-2 


11680 




BE 


• ♦44 










12266 


46 


12310 


01200 


11690 




TFM 


CSPVA4-35, 0.610 










12278 


16 


0360N 


000-0 


11700 




AM 


CSPVA+3S,2,10 










12290 


11 


03605 


000-2 


11710 






•-48 










12302 


49 


12254 


00000 


11720 




DORG 


•-3 










12310 








11730 




TDM 


FMSN.l 










12310 


15 


09902 


00001 


1 1740 




BTM 


CKCNTU,0,10 










12322 


17 


04740 


000-0 


11750 


F0RM99 


TFM 


CSPVA+3S, 37*610 










12334 


16 


0360N 


000L7 


1 1760 




TR 


CSPVA«35,AV0ID,6 










12346 


31 


0360N 


05922 


11770 




TR 


CHI-1,CHI«11 










12358 


31 


15138 


15150 


1 1780 




CM 


CHItO.lO 










12370 


14 


15139 


000-0 


11790 




BNE 


•♦32 










12382 


47 


12414 


01200 


11 BOO 




TR 


CHI-1,CH|^1 










12394 


31 


15138 


15140 


IIBIO 






•-36 










12406 


49 


12370 


00000 


11820 




OORG 


•-3 










12414 








11830 




CM 


CHI,24,10 










12414 


14 


15139 


0OOK4 


11840 




BE 


•♦24 










12426 


46 


12450 


01200 
















3U7 
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l-B 








PAGE 


11850 




BTM 


ERROR, 375,9» 




LEFT PAREN DOES NOT FOLLOW 


FORMAT 


12438 


17 


09230 


0OL75 


11860 




BTM 


PUT, 128 ,8, FORMAT 






12450 


17 


08944 


0-128 


11870 




BTM 


PUT, 124«B,iEFT 


PAREN 






12462 


17 


08944 


0-124 


11880 




AM 


PARCNT,1,10 










12474 


11 


03288 


000-1 


11890 




TFM 


UIDTH,B7,B» 




INITIALIZE WIDTH CHECK 






12486 


16 


14205 


0-087 


11900 


FORMl 


TR 


CHI-1,CHI^1 










12498 


31 


15138 


15140 


1 1910 




CM 


CHI,0,10 










12510 


14 


15139 


000-0 


11920 




BE 


•-24 










12522 


46 


12498 


01200 


11930 




CM 


CHI,41,10* 










12534 


14 


15139 


OOOMl 


11940 




BH 


F0RM2 










12546 


46 


12838 


01100 


11950 




BL 


SLASH 










12558 


47 


12602 


01300 


11960 




BTM 


PUT, 144*BfA 


TYPE 






12570 


17 


08944 


0-144 


11970 




TDM 


lATYPE,! 










12582 


15 


14141 


00001 


11980 




B 


F0RM3 










12594 


49 


13010 


00000 


11990 




DORG 


•-3 










12602 








12000 


SLASH 


CM 


CHI,21,10, 




TEST FOR SLASH 






12602 


14 


15139 


OOOKl 


12010 




BE 


F0RM7 










12614 


46 


13626 


01200 


12020 




CM 


CHI •24, 10 










12626 


14 


15139 


000K4 


12030 




BE 


F0RM4 










12638 


46 


13862 


01200 


12040 




CM 


CHI ,20, 10, 




TEST FOR SCALE FACTOR 






12650 


14 


15139 


OOOKO 


12050 




BE 


FORMBR+12 










12662 


46 


12710 


01200 


12060 




CM 


CHI,10,10 










12674 


14 


15139 


OOOJO 


12070 




BE 


•♦24»t* 




INVALID FORMAT SPECIFICATION 




12686 


46 


12710 


01200 


12060 


FORMER 


BTM 


ERR0R*379«9, 










12698 


17 


09230 


00L75 


1209.0 




TR 


CHI-ltCHI^l 










12710 


31 


15138 


15140 


12100 




CM 


CHIiOtlO 










12722 


14 


15139 


000-0 


12110 




BE 


•-24 










12734 


46 


12710 


01200 


12120 




CM 


CHIt69«10t 




SHIFT OF SCALE FACTOR 






12746 


14 


15139 


00009 


12130 




BH 


•-4B 










12758 


46 


12710 


01100 


12140 




CM 


CHI,S7,10, 




TEST FOR P 






12770 


14 


15139 


000N7 


12190 




BNE 


FORMER 










12782 


47 


12698 


01200 


12160 


PTYPE 


TR 


CHI-1*CHU1 










12794 


31 


15138 


15140 


12170 




CM 


CH|»0«10 










12806 


14 


15139 


000-0 


12180 




BNE 


FTVPE 










12818 


47 


12918 


01200 


12190 




B 


♦-36 










12830 


49 


12794 


00000 


12200 




DORG 


•-3 










12838 








12210 


F0RM2 


CM 


CHIf69,10 










12838 


14 


15139 


00009 


12220 




BH 


FORMS 










12850 


46 


13734 


01100 


12230 




CM 


CHI,49,10, 




TEST FOR 1 TYPE 






12862 


14 


15139 


00OM9 


12240 




BNE 


• ♦44 










12874 


47 


12918 


01200 


12250 




BTM 


PUT* 149*8,1 


TYPE 






12886 


17 


08944 


0-149 


12260 




TDM 


lATVPE.l 










12898 


15 


14141 


00001 


12270 




B 


F0RM3 










12910 


49 


13010 


00000 


12280 




DORG 


•-3 










12918 








12290 


FTYPE 


CM 


CHI .46* 10* 




TEST FOR F TYPE 






12918 


14 


19139 


00OM6 


12300 




BNE 


•♦32 










12930 


47 


12962 


01200 


12310 




BTM 


PUT* 146*B*F 


TYPE 






12942 


17 


06944 


0-146 


12320 




B 


FORM 3- 12 










12954 


49 


12998 


00000 






OORG 


•-3 










12962 








12340 


ETYPE 


CM 


CHI*45*10» 




TEST FOR E TYPE 






12962 


14 


19139 


000M5 


12350 




BNE 


FORMER 










12974 


47 


12698 


01200 


12360 




BTM 


PUT, 145*8, E 


TYPE 






12966 


17 


06944 


0-149 


12370 




TOM 


IATYPE,0 










12998 


15 


14141 


00000 


12380 


F0RM3 


TR 


CHI-l,CHUl 










13010 


31 


19136 


19140 


12390 




CM 


CHI, 0,10 










13022 


14 


19139 


000-0 


12400 




BE 


• -24 










13034 


46 


13010 


01200 



308 
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PAGE 



12410 




CM 


CHI «69(10 


13046 


14 


15139 


00009 


12420 




BNH 


FORMER 


13058 


47 


12698 


01100 


12430 




TOM 


DIMSW,1,, SET SWITCH TO RETURN FROM LSTNO 


13070 




09904 


00001 


12440 




BTM 


CSTN0,»*12», COLLECT NUMBER 


13082 


17 


05302 


J3094 


12450 




CM 


SYM,0,10 


13094 


14 


09879 


000-0 


12460 




BE 


FORMER 


13106 


46 


12698 


01200 


12470 




BT 


PUTiSYM,, OUTPUT U 


13118 


27 


08944 


09879 


12480 




BNF 


•+60.FREQSM,. TEST IF SPEC UAS MULT SPECIFICATION 


13130 


44 


13190 


14134 


12490 




CF 


FREQSW 


13142 


33 


14134 


00000 


12500 




M 


SYMtSETFRQ-i^ll 


13154 


23 


09879 


14145 


12510 




SF 


96 


13166 


32 


00096 


00000 


12520 




TF 


SYM,99 


13178 


26 


09879 


00099 


12530 




BTM 


WIDCKtOt 10 


13190 


17 


14216 


000-0 


12540 




BD 


FORMS, lATYPE., TEST IF IN t OR A TYPE 


13202 


43 


13378 


14141 


12550 




CM 


CHI tO.lO 


13214 


14 


15139 


000-0 


12560 




BNE 


• ♦32 


13226 


47 


13258 


01200 


12570 




TR 


CHI-l,CHI*l 


13238 


31 


15138 


15140 


12580 




B 


• -36 


13250 


49 


13214 


00000 


12590 




DORG 


• -3 


13258 








12600 




CM 


CHI, 3, 10 


13258 


14 


15139 


000-3 


12610 




BNE 


FORMER 


13270 


47 


12698 


01200 


12620 




BTM 


PUT, 103f8t 


13282 


17 


08944 


0-103 


12630 




TR 


CHI-l.CHI+l 


13294 


31 


15138 


15140 


12640 




CM 


CHI, 0,10 


13306 


14 


15139 


000-0 


12650 




BE 


• -24 


13318 


46 


13294 


01200 


12660 




CM 


CHI, 69,10 


13330 


14 


15139 


00009 


12670 




BNH 


FORMER 


13342 


47 


12698 


01100 


12680 




BTM 


CSTN0t^«12 


13354 


17 


05302 


J3366 


12690 




BT 


PUT.SYM 


13366 


27 


08944 


09879' 


12700 


FORMS 


CM 


CHI, 0,10 


13378 


14 


15139 


000-0 


12710 




BNE 


• ♦32 


13390 


47 


13422 


01200 


12720 




TR 


CHI-l,CHI+l 


13402 


31 


15138 


15140 


12730 




B 


FORMS 


13414 


49 


13378 


00000 


12740 




OORG 


•-3 


13422 








12750 


F0RM51 


CM 


CHI, 4,10, 


13422 


14 


15139 


000-4 


12760 




BNE 


FCMA 


13434 


47 


13558 


01200 


12770 




BTM 


PUT, 104t8tRIGHT PAREN 


13446 


17 


08944 


0-104 


12780 




TR 


CHI-1,CHI*1 


13458 


31 


15138 


15140 


12790 




SM 


PARCNT,1,10 


13470 


12 


03288 


000-1 


12800 




BNZ 


FORMS 


13482 


47 


13376 


01200 


12810 




CM 


CHI, 0,10 


13494 


14 


15139 


000-0 


12820 




BE 


• ♦32 


13506 


46 


13538 


01200 


12830 




BNR 


FORMER, CHI«2 


13518 


45 


12698 


15141 


12840 




B 


BEGIN 


13530 


49 


02590 


00000 


12850 




OORG 


•-3 


13538 








12860 




TR 


CHI-1,CHI^1 


13538 


31 


15138 


15140 


12870 




B 


•-56 


13550 


49 


13494 


00000 


12880 




OORG 


•-3 


13558 








12890 


FCMA 


CM 


CHI ,23t 10 


13558 


14 


15139 


000K3 


12900 




BNE 


• ♦32 


13570 


47 


13602 


01200 


12910 




BTM 


PUT, 123,8»C0MMA 


13582 


17 


08944 


0-123 


12920 




B 


FORNl 


13594 


49 


12498 


00000 


12930 




OORG 


•-3 


13602 








12940 




CM 


CHI, 21, 10 


13602 


14 


15139 


OOOKl 


12950 




BNE 


F0RMl^36 


13614 


47 


12534 


01200 


12960 


FORM 7 


BTM 


PUT, 121«8,DIVI0E 


13626 


17 


08944 


0-121 



300 
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PAGE 


12970 




TFM 


MIDTH,87,8« 




1363B 


16 


14205 


0-087 


12980 




TR 


CHI-l,CHUl 




13650 


31 


15138 


15140 


12990 




CM 


CHI, 0,10 




13662 


14 


15139 


000-0 


13000 




BE 


•-24 




13674 


46 


13650 


01200 


13010 




CM 


CHI, 24, 10 




13686 


14 


15139 


00OK4 


13020 




BE 


F0RM4 




13698 


46 


13862 


01200 


13030 




CM 


CHI, 69,10 




13710 


14 


15139 


00009 


13040 




BNH 


FORMS 1 




13722 


47 


13422 


01100 


13050 


F0RM8 


TDM 


DIMSW,! 




13734 


15 


09904 


00001 


13060 




BTM 


CSTN0,»^12 




13746 


17 


05302 


J3758 


13070 




CM 


CHI, 0,10 




13758 


14 


15139 


000-0 


13080 




BNE 


• ♦32 




13770 


47 


13802 


01200 


13090 




TR 


CHI-1,CHI^1 




13782 


31 


15138 


15140 


13100 




B 


• -36 




13794 


49 


13758 


00000 


13110 




OORG 


•-3 




13602 








13120 




CM 


CHI, 57, 10, TEST FOR 


SCALE FACTOR 


13802 


14 


15139 


OO0N7 


13130 




BE 


PTYPE 




13814 


46 


12794 


01200 


13140 




CM 


CHI, 24,10 




13826 


14 


15139 


00GK4 


13150 




BNE 


FORMX 




13838 


47 


13894 


01200 


13160 




BT 


PUT,SYM 




13850 


27 


08944 


09879 


13170 


F0RM4 


AM 


PARCNT,1«10 




13862 


11 


03268 


000-1 


13180 




BTM 


PUT, 124,8,LEFT PAREN 




13874 


17 


08944 


0-124 


13190 




B 


FORMl 




13886 


49 


12498 


00000 


13200 




DORG 


•-3 




13894 








13210 


FORMX 


CM 


CHI, 67, 10, TEST FOR 


X SPECIFICATION 


13894 


14 


15139 


00007 


13220 




BNE 


HOLL 




13906 


47 


13962 


01200 


13230 




BTM 


WI0CK,0,10 




13918 


17 


14216 


000-0 


13240 




BT 


PUT.SYM 




13930 


27 


08944 


09879 


13250 




BTM 


PUT, 147, 8, X TYPE 




13942 


17 


08944 


0-147 


13260 




B 


F0RM5^24 




13954 


49 


13402 


00000 


13270 




OORG 


•-3 




13962 








13280 


HOLL 


CM 


CHI, 48,10, 




13962 


14 


15139 


000M8 


13290 




BNE 


SETFRQ 




13974 


47 


14134 


01200 


13300 




BTM 


WI0CK,0,10 




13986 


17 


14216 


000-0 


13310 




BT 


PUT,SYM 




13998 


27 


08944 


09879 


13320 




BTM 


PUT, 14e,8«H TYPE 




14010 


17 


08944 


0-148 


13330 


HOLLl 


TR 


CHI-1,CHU1 




14022 


31 


15138 


15140 


13340 




BNR 


•♦20»CHI^2 




14034 


45 


14054 


15141 


13350 




B 


FORMER 




14046 


49 


12698 


00000 


13360 




DORG 


•-3 




14054 








13370 




TF 


•♦35, CHI 




14054 


26 


14089 


15139 


13380 




CF 


•+22 




14066 


33 


14088 


00000 


13390 




BTM 


PUT, ,8»0UTPUT HOLL 




14078 


17 


08944 


0-000 


13400 




SM 


SYM,1,10 




14090 


12 


09879 


000-1 


13410 




BNZ 


HOLLl 




14102 


47 


14022 


01200 


13420 




BNR 


F0RM5+24,CHI+2 




14114 


45 


13402 


15141 


13430 




B 


FORMER 




14126 


49 


12696 


00000 


13440 




DORG 


•-3 




14134 








13450 


SETFRQ 


SF 


FREQSW 




14134 


32 


14134 


00000 


13460 


FREQSM 


OS 


•SETFRQ 




14134 




0 




13470 


lATYPE 


OS 


• •-4 




14141 




0 




13480 




BT 


PUT.SYM 




14146 


27 


08944 


09879 


13490 




TF 


SETFRQ+ll.SYM 




14158 


26 


14145 


09879 


13500 




CM 


CHI, 24. 10. 




14170 


14 


15139 


000K4 


13510 




BNE 


FORMl+36 




14182 


47 


12534 


01200 


13520 




CF 


FREQSW 




14194 


33 


14134 


00000 



31 0 
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13530 


WIDTH 


OS 


t » 


14205 




0 




13540 




B 


F0RM4 


14206 


49 


13862 


00000 


13550 




DORG 


• -3 


14214 








13560 




OS 


2, 


14215 




2 




13570 


WIOCK 


S 


WIDTH, SYM 


14216 


22 


14205 


09879 


13580 




BN 


FORMER 


14228 


47 


12698 


01300 


13590 




BB 




14240 


42 


00000 


00000 


13600 




DORG 


• -9 


14242 








13610 




DORG 


16000 


16000 








13620 


WBLKl 


OSC 


2,22 


16000 




2 








22 












13630 




DSA 


DEFl 


16006 




5 


X 1 










16006 




J6008 




13640 




DC 
• 


!»• 


16007 




1 




13650 


DEFl 


OSC 


ItO 


16008 




1 




13660 




0 

DC 


5,17600 


16013 




5 








J7600 










13670 




DC 


3,043 


16016 




3 








-43 












13680 




DSA 


lOUT 


16021 




5 


X 1 










16021 




J0200 




13690 




DC 
t 


lf« 


16022 




1 




13700 


WRBLKl 


TFM 


IGRT,»*23 


16024 


16 


00565 


J6047 


13710 




8 


lOPTf WBLK1,7 


16036 


49 


00532 


J6000 


13720 




TRA 




16048 


36 


00000 


00500 










16060 


49 


00000 


00000 


13730 




ICO 


WRBLKl 


16024 









13740 • OUT OF CORE BLOCK 2 CONTAINS THE FOLLOWING 

13750 • EQUIVALENCE 

13760 • SUBROUTINE 

13770 • FUNCTION 

13780 • CONTINUE 

13790 • PAUSE 

13800 • STOP 

13810 • DEFINE 



13820 


DORG 


I OUT 




10200 








13830 


TFM 


FM0N^35,BLK4,, 


I OUT 


10200 


16 


02359 


-9683 


13840 


BTM 


FMON,IOUT 




10212 


17 


02324 


J0200 


13850 


CM 


CHI ,57,10, 


CHECK FOR P IN STOP 


10224 


14 


15139 


OO0N7 


13860 


B 


NNARAA 




10236 


49 


10512 


00000 


13870 


TFM 


FM0N«35,BLK1,, 


DIM 


10248 


16 


02359 


-9614 


13880 


BTM 


FM0N,0IM 




10260 


17 


02324 


J0248 


13890 


TFM 


FM0N^35,BLK1,, 


COMMON 


10272 


16 


02359 


-9614 


13900 


BTM 


FMON.COMMON 




10284 


17 


02 324 


J0272 


13910 


TFM 


FM0N>35,BLK6,, 


IF 


10296 


16 


02359 


-9729 


13920 


BTM 


FMON,IF 




10308 


17 


02324 


J0296 


13930 


TFM 


FM0N>35,6LK6,, 


GOTO 


10320 


16 


02359 


-9729 


13940 


BTM 


FNONfGOTO 




10332 


17 


02324 


J0320 


13950 


TFM 


FM0N435fBLK6,, 


CALL 


10344 


16 


02359 


-9729 


13960 


BTM 


FMON,CALL 




10356 


17 


02324 


J0344 



311 



13970 
13980 
13990 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 

14360 
14370 
14380 
14390 
14400 
14410 
14420 
14430 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
14510 



TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
NNARAA BE 
BTM 
CM 
BV 
BE 
BTM 
C 
BV 
BE 
C 
BE 
BTM 
C 

BV 
BE 
C 
BE 

•••••• E 

EQUIVN BTM 
C 
BV 
BNE 
TR 
CF 
TOM 
TOM 
DC 



EQR 



EQl 



CM 
BE 
BTM 
TFM 
AM 
CM 
BH 
BTM 
CM 
BH 
BTM 
BD 

E83230 AM 
B 

DORG 
BD 
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FM0N4-35,BLK6,, 

FM0N»RETURN 

FNON«35fBLKl,, 

FMONf FORMAT 

FMGN«35tBLK4«, 

FNONfOOO 

FMON^35tBLK3«, 

PNONtASCAN 

FNON«35>BLK3»» 

FNONfOUTSC 

FN0N435tBLK5., 

FNONtOKIO 

STOPEN 

C0LNAN,2,10 

SYM, 6245, 8 

ERROl 

PAUSEN 

C0LNAN,5fl0 

SYM«TINUE^8 

ERROl 

CONTEN 

SYM,CTI0N^8 

FUNCTA 

C0LNAM,7,10 

SYM,R0UTN-«>12 

ERROl 

SUBPA 

SYM,DEFCT*12 
DEFINE 

ITER TO DECOMPOS 

C0LNAM,8tl0 

SYM»IVALEN«14 

ERROl 

ERROl 

CHI-1,CH1*|5 
STSN 

EQUSH,1,11, 
lf»t» 

CHI,24,10 

• ♦24, 

ERROR, 72, 9. 
SCHI,CH| 
SCHI,2,10 
SCHI,40,610 

• ♦24 

ERROR. 170,9, 
SCHI, 69,610 

• -24 

CS0RN,^^12,« 
•♦32, INSH,, 
NXL0C,5,10, 
EQ21,,, 
•-3 

EQ21,6(1),, 



RETURN 


10368 


16 


02359 


-9729 




10380 


17 


02324 


J0368 


FORMAT 


10392 


16 


02359 


-9614 




10404 


17 


02324 


J0392 


000 


10416 


16 


02359 


-9683 




10428 


17 


02324 


J0416 


A SCAN 


10440 


16 


02359 


-9660 




10452 


17 


02324 


J0440 


OUTSC 


10464 


16 


02359 


-9660 




10476 


17 


02324 


J0464 


OKtO 


10488 


16 


02359 


-9706 




10500 


17 


02324 


J 048 8 




10512 


46 


14006 


01200 




10524 


17 


04560 


000-2 




10536 


14 


09879 


00245 




10548 


46 


04198 


01400 




10560 


46 


13838 


01200 




10572 


17 


04560 


000-5 




10584 


24 


09879 


13837 




10596 


46 


04198 


01400 




10608 


46 


13772 


01200 




10620 


24 


09879 


13771 




10632 


46 


13706 


01200 




10644 


17 


04560 


000-7 




10656 


24 


09879 


13637 




10668 


46 


04198 


01400 




10680 


46 


13004 


01200 




10692 


24 


09879 


14467 




10704 


46 


14038 


01200 


EQUIVALENCE STATEMENTS •••••• 












10716 


17 


04560 


000-8 




10728 


24 


09879 


13003 




10740 


46 


04198 


01400 




10752 


47 


04198 


01200 




10764 


31 


15138 


15154 




10776 


33 


05531 


00000 


SET SMITCH INDICATING EQUtV STATEMENT 


10788 


15 


09908 


OOOOJ 


INITIALIZE PR 


10800 


15 


12509 


00000 




10811 




1 






10812 


14 


15139 


000K4 




10824 


46 


10848 


01200 




10836 


17 


09230 


00-72 




10848 


16 


05905 


J5139 




10860 


11 


05905 


000-2 




10872 


14 


0590N 


OOOMO 




10884 


46 


10908 


01100 


INVALID VAR 


10896 


17 


09230 


00J70 




10908 


14 


0590N 


00009 




10920 


46 


10896 


01100 


GO TO COLLECT NAME 


10932 


17 


05594 


J0944 


TEST IF SYM PREVIOUSLY DEFINED 


10944 


43 


10976 


03219 


IF SYM NOT PREV DEFINED, SAVE ROOM FOR 


10956 


11 


02372 


000-5 


OFFSET VALUE 


10968 


49 


11076 


00000 




10976 








TEST FOR DIM VAR 


10976 


43 


11076 


000-6 



312 
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2cf n 






E021 1 5( 1 ) 1 1 


TEST IF SYM WAS PREVIOUSLY EQUIV 


10988 


44 


11076 


000-5 


1 2^In 




nMC 


*'^20f6(l)t« 


TEST IF VAR WAS IN COMMON 


11000 


44 


11020 


000-6 


1 2^^n 




a 


EQ2 1 




11012 


49 


11076 


00000 


1 2^An 




nnor 
00 RG 


• -.3 




11020 














MXLOCt&MLNb 




11020 


21 


02372 


05821 


1 l^an 




TC 


NXLUt » SYMff6« 


MOVE SYM NAME INTO TABLE 


11032 


26 


0237K 


09879 






TF 


4(1) tNXLOCt 9 


MOVE NEW SYM ADD INTO TABLE 


11044 


26 


000-4 


02372 


1 / K n 




B 


E 83230 




11056 


49 


10956 


00000 


1 tAnn 
77 • 2 




00 RG 


»— 3 




11064 








14^610 




BTM 


ERROR »171 f9t 


INVALID NAME USED IN FUNCTION 


11064 


17 


09230 


00J71 


1 ^Aan 


EQ21 


BD 


• -12tFNTSWf t 


TEST FOR FUNCTION NAME IN EQUIVALENCE 


11076 


43 


11064 


09900 


1^^630 




BNR 


• ♦20» 7 ( 1 ) f t 


TEST FOR DUMMY PARAMETERS OF SUBPROGRAM 


11088 


45 


11108 


000-7 


14640 




B 


E021-12 




11100 


49 


11064 


00000 


14650 




DORG 


• -3 




11108 








14660 




BNR 


• -*'20t 81 1 ) f t 


TEST FOR SUBPROGRAM NAME IN SUBPROGRAM 


11108 


45 


11128 


000-8 


14670 




B 


EQ2 1-12 




11120 


49 


11064 


00000 


14680 




DORG 


♦ -3 




11128 








14690 




BNR 


• ♦20f PRf t 


TEST FOR FIRST NAME ON LIST 


11128 


45 


11148 


12509 


14700 




B 


EQ7 




11140 


49 


11732 


00000 


14710 




00 RG 


»-3 




11148 












C 


MODE t FXORFL » t 


TEST FOR MIXED EQUIV 


1114B 


24 


06307 


06309 






BE 


• ♦48 




11160 


46 


11208 


01200 








C D 1^ 1 kir* 

rVZ tKLNGt i 


TEST FOR K EQUAL TO F^2 IN MIXED EQUIV 


1 1172 


24 


02298 


02252 


14750 




BE 


• ♦24 




11184 


46 


11208 


01200 


14760 




BTM 


ERRORt 172t9» 




11196 


17 


09230 


00J72 


14770 




BNF 


EQ22f 5( lift 


TEST IF SYM HAD BEEN PREVIOUSLY EQUIV 


11208 


44 


12144 


000-5 


14780 




BNF 


• ♦56t 6( lift 


BRANCH IF SYM IS NOT IN COMMON 


11220 


44 


11276 


000-6 


14790 




BNF 


• ♦24f PRf t 


TEST IF PREVIOUS SYM WAS IN COMMON 


11232 


44 


11256 


12509 


14800 




BTM 


ERRORt 173f9t 


ILLEGAL EQUIVALENCE 


11244 


17 


09230 


OOJ73 


148 10 




BNF 


•-12t PR-"! • • 


TEST IF PREV SYM MAS EQUIV 


11256 


44 


11244 


12508 


14820 




B 


EQ7 




11268 


49 


11732 


00000 


14830 




DORG 


•—3 




1 1276 










EQ24 


?!!'^ 


Cw4tUMVARt t 


TEST FOR DIM VARt BRANCH IF NOT 


1 1276 


44 


1 1676 


08132 


14850 




CM 


SCHIf 24|6I0 




11288 


14 


0590N 


0O0K4 


14860 




BNE 


EQBR^S 




11300 


47 


11560 


01200 


14870 




AM 


SCHI t2f 10 




11312 


11 


05905 


000-2 


14880 




TFM 


cUOK>6t cQBR+ZO 




11324 


16 


11558 


J1572 


14890 




CM 


SCHI f 69f 610 




11336 


14 


0590N 


00009 


14900 




BH 


• ♦24 




11348 


46 


11372 


01100 


14910 




BTM 


ERR0Rt75t9t 


INCORRECT SUBSCRIPTING 


11360 


17 


09230 


00-75 


14920 




TFM 


SVM— 3 tOt7 




11372 


16 


09876 


-0000 


14930 




TFM 


• ♦30» SYM'-4 




11384 


16 


11414 


-9875 


14940 




AM 


• ♦4.8t 1« 10 




11396 


11 


11414 


OOO-l 


14950 


EQ23 


TO 


t SCHI tilt 


COLLECT INDEX 


11408 


25 


00000 


0590N 


14960 




AM 


SCHI t2t 10 




11420 


11 


05905 


000-2 


14970 




CM 


SCHI 1 69f 610 




11432 


14 


0590N 


00009 


14980 




BNH 


• ♦48 




11444 


47 


11492 


01100 


14990 




CM 


EQ23^6f SYM 




11456 


14 


11414 


-9879 


15000 




BNE 


£023" 12 












15010 




BTM 


ERR0R»75t9 




11480 


17 


09230 


00-75 


15020 




TF 


SYM,EQ23«6»11, 




11492 


26 


09879 


1141M 


15030 




SF 


SYM-4 




11504 


32 


09875 


00000 


15040 


SAVEl 


OS 


t» 




11515 




0 




15050 




CM 


SCHI«4t610t 


TEST FOR RIGHT PAREN 


11516 


14 


0590N 


000-4 


15060 




BNE 


•-48 




11528 


47 


11480 


01200 


15070 




AN 


SCHI,2tlO 




11540 


11 


05905 


000-2 



3J3 
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15080 


EQBR 


B 


• ♦20 






11552 


49 


11572 


00000 


15090 




DORG 


•-3 






11560 








15100 




TFM 


SYM* It 






11560 


16 


09879 


-0001 


15110 




BO 


EQ4,PR,, 


TEST IF PREVIOUS SYN WAS DIM 


VAR 


11572 


43 


11676 


12509 


15120 




BNF 


•♦20tPR 






11584 


44 


11604 


12509 


15130 




B 


EQ4 






11596 


49 


11676 


00000 


15140 




00 RG 


•-3 






11604 








15150 




BNF 


EQ4tPR-l.t 


TEST IF PREVIOUS SYM HAS EQUIV 


11604 


44 


11676 


12508 


15160 




BSX 


•♦12tREF(l) 






11616 


67 


11628 


088P5 


15170 




AN 


REFt4tl0 






11628 


11 


08875 


000-4 


15180 




TO 


PR»6I1) 






11640 


25 


12509 


000-6 


15190 




TO 


PR-1»5(1I,» 


SAVE INDICATORS 




11652 


25 


12508 


000-5 


15200 




TF 


TEMPtSYH*. 


SAVE OFFSET 




11664 


26 


04089 


09879 


15210 


EQ4 


CM 


SCHIt4t610t 






11676 


14 


0590N 


000-4 


15220 




BE 


EQLOOPtt* 


END OF LIST 




11688 


46 


12176 


01200 


15230 




CM 


SCHt,23.610 






11700 


14 


0590N 


0O0K3 


15240 




BE 


EQl 






11712 


46 


10860 


01200 


15250 




B 


EQl-24 






11724 


49 


10836 


00000 


15260 




DORG 


•-3 






11732 








15270 


EQ7 


TD 


M00Et5(l)tt . 


SET FIX OR FLOAT 




11732 


25 


06307 


000-5 


15280 




CF 


MODE 






11744 


33 


06307 


00000 


15290 


SAVE3 


OS 


#• 






11755 




0 




15300 




BSX 


•♦12tREF(l) 






11756 


67 


11768 


088P5 


15310 




AM 


REFt4tlO 






11768 


11 


08875 


000-4 


15320 




TO 


PRt6(l) 






11780 


25 


12509 


000-6 


15330 




TO 


PR-lt5f 1) 






11792 


25 


12508 


000-5 


15340 




BO 


•♦32 tPRtt 


TEST FOR DIM VAR 




11804 


43 


11836 


12509 


15350 




TFM 


TEMPtl 






11816 


16 


04089 


-0001 


15360 




B 


E84130 






11828 


49 


11928 


00000 


15370 




DORG 


•-3 






11836 








15380 




CM 


SCHI»24t610 






11836 


14 


0590N 


000K4 


15390 




BNE 


•-32 






11848 


47 


11816 


01200 


15400 




AM 


SCHI, 2.10 






11860 


11 


05905 


000-2 


15410 




CM 


SCHI •69.610 






11872 


14 


0590N 


00009 


15420 




BNH 


EQ23-48 






11884 


47 


11360 


01100 


15430 




TFM 


EQBR^6t*«^20 






11896 


16 


11558 


J1916 


15440 




B 


EQ23-36ttt 


GO TO COLLECT SUBSCRIPTING 




11908 


49 


11372 


00000 


15450 




DORG 


•-3 






11916 








15460 




TF 


TEMP, SYM 






11916 


26 


04089 


09879 


15470 


E84130 


BNF 


•♦20,511),, 


TEST IF VAR PREVIOUSLY EQUIVALENCE 


11928 


44 


11948 


000-5 


15480 




B 


EQ4 






11940 


49 


11676 


00000 


15490 




DORG 


•-3 






11948 








15500 


E84180 


CM 


9(1), 000, 9, 


TEST IF PREVIOUSLY EQUIV SYM 


WAS BASE 


11948 


14 


000-9 


00-00 


15510 




BE 


EQ4 






11960 


46 


11676 


01200 


15520 




BO 


E84330,6(l),, 


TEST FOR DIM VAR 




11972 


43 


12124 


000-6 


15530 




TF 


•♦35,4(1) 






11984 


26 


12019 


000-4 


15540 




AM 


•♦23,5,10 






11996 


11 


12019 


000-5 


15550 




A 


TEMP,,, 


GENERATE OFFSET TO PREVIOUS BASE 


12008 


21 


04089 


00000 


15560 


E84240 


TF 


A0SAVE,STBL 






12020 


26 


08503 


02377 


15570 




S 


ADSAVE-1,9(1),, 


GENERATE ADDRESS OF BASE 




12032 


22 


08502 


000-9 


15580 




AM 


A0SAVE-1,L,10 






12044 


11 


08502 


OOO-l 


15590 




TF 


REF,ADSAVE 






12056 


26 


08875 


08503 


15600 




SM 


ADSAVE,04,10 






12068 


12 


08503 


000-4 


15610 




TD 


PR-l,ADSAVE, 11, 


SAVE FIX OR FLOAT 




12080 


25 


12508 


0850L 


15620 




AM 


ADSAVE,I,10 






12092 


11 


08503 


OOO-l 


15630 




TO 


PR,ADSAVE,ll, 


SAVE DIM INDICATOR 




12104 


25 


12509 


0850L 
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1 5640 




g 








12116 


49 


11676 


00000 


1 5650 






•-3 






12124 








15660 


E84330 






GENERATE NEW OFFSET 




12124 


21 


04089 


999R9 


1 5670 




B7 








12136 


49 


12020 




1 5680 


EQ22 


BNF 




ENTER FROM E83500, BR TO ERROR IF PREV 


12144 


44 


11244 


12508 






BNF 


EQ7 1 PRf t 


SYM MAS EQUIVALENCED OR IN COMMON 




12156 


44 


11732 


12509 


1 5700 






EQ24-32 






12168 


49 


11244 


00000 


15710 




00 RG 








12176 








15720 


EQLOOP 


TFM 




ENTER HERE AFTER EQUIV STATEMENT HAS 




12176 


16 


■ 

05905 


J 5 139 








CoAbC t o Tot. 






12188 


26 


12235 


02377 


15740 






coAbctKcr 






12200 


22 


12235 


08875 


15750 




AM 


C. D A o C " A • i t 1 V 






12212 


11 


12234 


000-1 


1 5760 




SF 


EBASE-3 






12224 


32 


12232 


00000 


15770 


- __ 

to 




# • 






12235 




0 








AM 


auHIt^tlUt 


BEEN SCANNED ONCE TO DETERMINE BASE 




12236 


11 


05905 


000-2 


1 57on 




BTM 


c c no M MA 1 9 






12248 


17 


05594 


J2260 


15800 






to^OUHf 9 I 1 1 f ff 


IF SYM MAS PREV EQUIV IT MUST BE THE 




12260 


44 


12908 


000-5 


15810 




BS X 




BASE OF PRESENT EQUIV 




12272 


67 


12284 


124J5 








icnP2t4tlu 






12284 


11 


12415 


000-4 


1 5830 






TCMP7 - QPP . . 






12296 


24 


12415 


08875 


1 5840 




BE 








12308 


46 


12544 


01200 


15850 




BO 


Fft&'iAn. Af II.. 


TEST FOR DIM VAR 




12320 


43 


12424 


000-6 


15860 




TF 


An^AUP .^f 1 1 
ni/OAVC f*rl JL 1 






12332 


26 


08503 


000-4 


L5870 






Arte AuP . <« in 






12344 


11 


08503 


000-5 


15880 






AUaA VC tifOiilt 






12356 


16 


0850L 


-OOOJ 


15890 




A 


AnCAUC.TCUD 4; 


PLACE OFF SET INTO TABLE 




12368 


21 


0850L 


04089 


15900 




TF 








12380 


26 


000-9 


12234 


15910 






PAA7in DP 






12392 


44 


12736 


12509 


15920 




SF 


6 C 1 1 






12404 


32 


000-6 


oooob 




TFMP9 


n< 


5t* 






12415 




5 




15940 




g 








12416 


49 


12736 


00000 


15950 




00 RG 


•-3 














15960 


E84560 


CH 


<rM r . 7A . A 1 n 






12424 


14 


0590N 


000K4 


15970 




BE 








12436 


46 


12466 


01200 








SYM 1 1 1 71 1 






12448 


16 


09879 


-OOOJ 


15990 












12460 


49 


12512 


00000 


16000 




nnar 








12468 














SCHI tZt 10 






12468 


11 


05905 


000-2 


16020 




rcM 

I 


CWVRvOt Pt^O 






12480 


16 


11558 


J2500 


16030 






£023-36 






12492 


49 


11372 


00000 






OORG 


•—3 






12500 








16050 




SF 


SYM 






12500 


32 


09879 


00000 






OS 


t*— 2 






12509 




0 




16070 








GEN OFFSET 




12512 


21 


09879 


04089 






f f; 


TTTTTT lilt 5 T W y « 


MOVE OFFSET INTO TABLE 




12524 


26 


999R9 


09879 


16090 




B7 








12536 


49 


12380 




16100 


E 84695 


BNF 


« Asn. Ai 1 1 






12544 


44 


12564 


000-6 


16110 












12556 


49 


12620 


00000 


16120 




OORG 


•-3 






12564 








16130 




BO 


HEREt6Cl) 






12564 


43 


12620 


000-6 


16140 




TF 


ADSAVE*4(11 






12576 


26 


08503 


000-4 






AM 


Arte Aue K in 






12588 


11 


08503 


000-5 


16160 




TF 


AOS AVE .TEMP, 6 






12600 


26 


0850L 


04089 


16L70 




B7 


EB4710-12 






12612 


49 


12724 




16180 


HERE 


CN 


SCHI,24f610 






12620 


14 


0590N 


000K4 


16190 




BNE 


p«60 




3 J 


12632 


47 


12692 


01200 








1 A.9n MnAitfriB tt 
iO20 nuNllUK 11 


VERSION 2 FORTRAN II-O PHASE 1-B 


r 

a 






PAGE 


16200 




AM 








12644 




05905 


000—2 


16210 




CM 


U t A. A 1 n 
5v>nl t4tOiU 






12656 


14 


0590N 


000-4 


16220 




BNE 


•""24 






12668 


47 


12644 


01 200 


16230 




AM 


SCHI t 2t 10 






12680 


I J 


05905 


000—2 


16240 




BNF 


•♦20t 6(11 






12692 




12712 


000—6 


16250 




B7 


c 84 7 10— I 2 






12704 


49 


12724 




16260 




TF 


aaaao ill tcmii 
9^999 lilt ICWP 






12712 


26 


999R9 


04089 


16270 




TFM 


9(1) t000|9 








it 


nnnl^ 




16280 


E 847 10 


CF 


5(1 ) 1 1« 


CLEAR FLAG IMDICATING EQUIV VARIABLE 




1 »7aA 

i^^A^ 




"n 


nnnnn 

UI/-UUI/ 


16290 


SAVE2 


OS 


#• 






12747 








16300 




CM 


$l.nl t4tolu 






12748 




0590N 




16310 




BNE 


cAi nno^AA 
CQLUUFvoO 








47 


12236 


ni ?nn 


16320 




AM 


SCHI t2« 10 






12772 






000-2 


16330 




CM 


5i>nl t «3f o lU 






12784 


14 


0590N 


000K3 


16340 




BNE 








12796 


47 


12852 


01200 


16350 




TF 


• ♦35t SCHI 






12808 


26 


12843 


05905 


16360 




AM 


*^23t I f 10 






12820 




12843 


000-1 


16370 




TR 


CHI — 1 






12832 




15136 


nnnnn 


16380 




B 


EQR 








49 


10788 


nnnnn 


16390 




OORG 


♦—3 






12852 








16400 




TF 


•♦35tSCHI 








Z6 


12887 


05905 


16410 




AM 


• '^23f 2» 10 






1 »flAA 


J 1 


12887 


000—2 


16420 




BNR 


•♦20 






1 ^PTA 




12896 


nnnnn 


16430 




B 


BE6INA 






12888 


AO 


02602 


nnnnn 


16440 




OORG 


•-3 






12896 








16450 




BTM 


e B o no T 9 o 






12896 


17 


09230 


00-72 


16460 


E84804 


CM 


Stnl f <4toiO 






12908 


|4 


0590N 


000K4 


16470 




BNE 


E8471 0 






12920 


47 


12736 


01200 


16480 




AM 


SCHI,2»10 






12932 




05905 


000-2 


16490 




CM 


SCHI •4*610 






12944 


14 


0590N 




16500 




BNE 


•-24 






12956 


47 


12932 


01200 


16510 




AM 


SCHI,2»10 






12968 


1 1 


05905 


000—2 


16520 




B 


E84710 






12980 


49 


12736 


nnnnn 

UWvww 


16530 




OORG 


•-3 






12988 








16540 


IVALcN 


OAC 


8t I VALENCE 






12989 




g 


X 2 






IVAtENCE 














16550 


****** 


OUTPUT SUBROUTINE 














16560 


SUBPA 


TFM 


SUBPUT^llf0135« 


8 




13004 


16 


13171 


0-135 


16570 




TR 


CH1-1«CHM13 






13016 




15138 


15152 


16580 




BO 


•♦36,SUBFCT 














16590 




TOM 


SUBFCT»1 






13040 


15 


?«A^A 


nnnni 


16600 




BO 


•♦24,STSN 






13052 


43 


13076 


05531 


16610 




BTM 


ERROR «370«9 








^ 






16620 




BNF 


•-12tSTSN 






13076 




13064 


05531 


16630 


SUBPF 


TDM 


SUBSWtl 






1 a?nn 


15 


09912 


00001 


16640 




CM 


CHI, 40, 10 








14 


15139 


n??nft 


16650 




BH 


• ♦24 






13112 




13136 




16660 


SUBPl 


BTM 


ERR0Rt270,9, 


SUB DECLARATION ERROR 










00K70 


16670 




CM 


CHI ,69,10 






13136 


14 


15139 


00009 


16680 




BH 


• -24 






13148 


46 


13124 


01100 


16690 


SUBPUT 


BTM 


PUT, 0135,8, 


OUTPUT SUBROUTINE SYMBOL 




13160 


17 


08944 


0-135 


16700 




TF 


•♦35,FCTEND 






13172 


26 


13207 


02318 


16710 




SM 


•♦23,10,10 






13184 


12 


13207 


OOOJO 


16720 




BNR 


•♦20,«-» 






13196 


45 


13216 


00000 


16730 




B7 


MVGM 






13208 


49 


13272 




16740 




TF 


SAVE6M,»-9 






13216 


26 


07123 


13207 



316 



1620 MONITOR II VERSION 2 FORTRAN II-D PHASE l-B 



PAGE 



16750 




SM 


SAVEGM,30,10 




13228 


12 


07123 


OOOLO 


16760 




TD 


SAVEGMfGMl f 6 




13240 


25 


0712L 


09782 


16770 




TFM 


FCTEND,00000>67 




13252 


16 


0231Q 


-0000 


16780 




B7 


MVGM+12 




13264 


49 


13284 




16790 


MVGM 


BTM 


MVGM20,FCTEND|711 




13272 


17 


13644 


-231Q 


16800 




SF 


OUTSW 




13284 


32 


06896 


00000 


16810 




BTM 


CS0RN»»4-12 




13296 


17 


05594 


J3308 


16820 




TDM 


8f !)»•>• 




13308 


15 


000-8 


00000 


16830 




DC 
• 


lt*t« 




13319 




1 




16840 




TF 


SAVSYM,SYM 




13320 


26 


02243 


09879 


16850 




BNR 


• ♦36fCHl4^2 




13332 


45 


13368 


15141 


16860 




BNF 


BEGINtSUBFCT 




13344 


44 


02590 


02293 


16870 




BTM 


ERR0Rff371i9 




13356 


17 


09230 


00L71 


16880 




CM 


CHI«24tl0 




13368 


14 


15139 


000K4 


16890 




BE 


• «^24 




13380 


46 


13404 


01200 


16900 




BTM 


ERRORf 371t9 




13392 


17 


09230 


00L71 


16910 




BTM 


PUTf 124«8ffLEFT 


PAREN 


13404 


17 


08944 


0-124 


16920 




TR 


CHI-1»CHI«>1 




13416 


31 


15138 


15140 


16930 


SUBP2 


CM 


CHI*40tlO 




13428 


14 


15139 


OOOMO 


16940 




BNH 


SUBP2-36 




13440 


47 


13392 


01100 


16950 




CM 


CHI t69»i0 




13452 


14 


15139 


00009 


16960 




BH 


SUBP2-36f ft 


TEST FOR SYMBOLIC ARGUEMENTS 


13464 


46 


13392 


01100 


16970 




BTM 


MVGM20tSAVEGMt711 




13476 


17 


13644 


-712L 


16980 




SF 


OUTSW* 




13488 


32 


06896 


00000 


16990 




BTM 


CS0RN»*4-12»« 


OUTPUT ARGUEMENT 


13500 


17 


05594 


J3512 


17000 




BO 


SUBP2-36«INSHf • 


ERROR IF ARGUEMENT WAS IN 


13512 


43 


13392 


03219 


17010 




TDM 


7ll>,«-» 




13524 


15 


000-7 


00000 


17020 




DC 






13535 




1 




17030 




CM 


CHI,23,10 




13536 


14 


15139 


000K3 


17040 




BNE 


•♦32 




13548 


47 


13580 


01200 


17050 




BTM 


PUT, L23.8.C0MMA 


13560 


17 


08944 


0-123 


17060 




B 


SUBP2-12 




13572 


49 


13416 


00000 


17070 




OORG 


• -3 




13580 








17080 




CM 


CHI,4,10 




13580 


14 


15139 


000-4 


17090 




BNE 


SUBP2-36 




13592 


47 


13392 


01200 


17100 




BTM 


PUT, 104«8«RIGHT PAREN 


13604 


17 


08944 


0-104 


17110 




B 


BEGIN 




13616 


49 


02590 


00000 


17120 




DORG 


• -3 




13624 








17130 


ROUTN 


OAC 


TtROUTINE 




13625 




7 


X 2 






ROUT LNE 












17140 




SUBROUTINE MOVES GR. 


MARK 20 POSITIONS LOWER IN SYS. TABLE 










17150 




DS 


5 




13642 




5 




17160 


MVGN20 


TD 


MVGM20-1,RECMK»6 




13644 


25 


1364L 


09621 


17170 




CF 


MV6M20-1 




13656 


33 


13643 


00000 


17180 




TF 


SAVEGM»MV6N20-l,ll 




13668 


26 


07123 


1364L 


17190 




SM 


SAVE6M»20flO 




13680 


12 


07123 


OOOKO 


17200 




TO 


SAVE6M,GN1«6 




13692 


25 


0712L 


09782 


17210 




BB2 






13704 


42 






17220 




OUTPUT FUNCTION DECLARATION STATEMENTS •••••• 










17230 


FUNCTA 


TR 


CHI-1«CHU9 




13706 


31 


15138 


15148 


17240 




TFM 


SUBPUT«Il,136.a 




13718 


16 


13171 


0-136 


17250 




BD 


SUBPF-24,SUBFCT 




13730 


43 


13064 


02293 


17260 




TDM 


SUBFCTfUll 




13742 


15 


02293 


OOOOJ 


17270 




B 


SUBPF-36 




13754 


49 


13052 


00000 



317 



17280 
17290 

17300 
17310 
17320 
17330 
17340 
17350 
17360 
17370 

17380 

17390 

17400 

17410 

17420 

17430 

17440 

174S0 

17460 

17470 

17480 

17490 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

17730 

17740 

17750 

17760 

17770 

17780 

17790 

17800 

17810 



1620 MONITOR II VERSION 2 FORTRAN ll-O PHASE l-B 

DORG —3 
CTION OAC S.CTION 
CTION 

•••••• OUTPUT CONTINUE STATEMENT •••••• 

CONTEN BO •♦24fN0IND 

BTM ERR0R2, 574,9, UNNUMBERED CONTINUE STATEMENT 

BTM PUT, 127, 8, CONTINUE 

BTM PUT, 140,8, DUMMY 

B BEGIN 

OORG #-3 
TINUE OAC 5,TINUE 

TINUE 

•••• OUTPUT PAUSE STATEMENT •••• 

PAUSEN TR CHI-1,CHI^3 

BTM PUT, 126,8,PAUSE 

BTM PUT, 140, 8. DUMMY 

BNR •♦20,CHI>2 

B BEGIN 

OORG •-S 
PAUS CM CHI ,69, 10 

BH •♦32 

BTM ERR0R2,973,9t 

B BEGIN 

OORG •-S 

BTM PUT, 140,8, DUMMY 

TD •♦23,CHI 
BTM PUT, 0,8 
TR CHI-1,CHU1 
BNR •-36, CHI 4-2 
B BEGIN 
OORG •-3 

OUTPUT STOP STATEMENT 
STOPEN TR CHI«1,CHU1 

BTM PUT, 125,8, STOP 

B PAUSEN4-24 
OORG •-4 

OUTPUT DEFINE STATEMENT 



CHARACTER AFTER PAUSE NOT NUMERIC 



DEFINE TR 
CF 
BD 
BO 
TDM 
CM 
BNE 
TR 
CM 
BNH 
BTM 
SF 
CM 
BH 
TF 
CM 
BNE 
TR 
M 



CHI-1,CHI«13,, 
STSN 

ERR60*12,SUBFCT 
ERR60^12,MULDEF 
MULDEF, 1 
CHI, 24, 10, 
ERR 44 

CHI-l,CHI*l,, 
CHI, 69, 10 
ERR44 

CL0GT,03,10, 

SYM-1 

SYM,50,10 

ERR44,, , 

Nl.SYM 

CHI, 23, 10 

ERR44 

CHI-l,CHI*l 
W,N1 



SHIFT OFF INEOISK 



CHECK FOR LEFT PAREN 
SHIFT OFF LEFT PAREN 



COLLECT Nl 



Nl GREATER THAN 50 



13763 




5 


X 2 


13772 


43 


13796 


03195 


13784 


17 


09386 


00N74 


13796 


17 


08944 


0-127 


13808 


17 


08944 


0-140 


13820 


49 


02590 


00000 


13828 








13829 




5 


X 2 


13838 


31 


15138 


15142 


13850 


17 


08944 


0-126 


13862 


17 


08944 


0-140 


13874 


45 


13894 


15141 


13886 


^9 


02590 


00000 


13894 








13894 


14 


15139 


00009 


13906 


46 


13938 


01100 


13918 


17 


09386 


00N73 


13930 




02590 


00000 


13938 








13938 


17 


08944 


0-140 


13950 


25 


13973 


15139 


13962 


17 


08944 


0-000 


13974 


31 


15138 


15140 


13986 


45 


13950 


15141 


13998 


49 


02590 


00000 


14006 








14006 


31 


15138 


15140 


14018 


17 


08944 


0-125 


14030 


49 


13862 


00000 


14037 








14038 


31 


15138 


15152 


14050 


33 


05531 


00000 


14062 


43 


14480 


02293 


14074 


43 


14480 


02384 


14086 


15 


02384 


00001 


14098 


14 


15139 


000K4 


14110 


47 


14468 


01200 


14122 


31 


15138 


15140 


14134 


14 


15139 


00009 


14146 


47 


14468 


01100 


14158 


17 


14526 


000-3 


14170 


32 


09878 


00000 


14182 


14 


09879 


OOONO 


14194 


46 


14468 


01100 


14206 


26 


02233 


09879 


14218 


14 


15139 


0OOK3 


14230 


47 


14468 


01200 


14242 


31 


15138 


15140 


14254 


23 


02240 


02233 



318 
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PAGE 37 



17820 




CM 


99f OlOOtS 




14266 


14 


00099 


0—100 


17830 




TDM 


RECLG,2 




14278 


15 


02243 


00002 


17840 




BH 


• 4-24 




14290 


46 


14314 


01100 


17850 




TDM 


RECLGt 1 




14302 


15 


02243 


00001 


17860 




CM 


99t 0200»8 




14314 


14 


00099 


0—200 


17870 




BM 


ERR44t f t 


EXCEEDS TWO SECTORS 


14326 


46 


14468 


01 1 00 


17880 




CM 


CHI 1 69* 10 




14338 


14 


15139 


00009 


17890 




BNH 


ERR44 




14350 


47 


14468 


01 100 


17900 




BTM 


CLDGTt06t lOf 


COLLECT N2 


14362 


17 


14526 


000-6 


17910 




SF 


SYM-4 




14374 


32 


09875 


nnncin 

\JU\J\J\J 


17920 




TF 


N2f SYM 




14386 


26 


02238 


09879 


17930 




CM 


SVM, 20000 












1 7940 




BH 


ERR44 




14410 


46 


14468 


01 100 


1 7950 




CM 


CH1,04,10 




14422 


14 


15139 


000—4 


17960 




BNE 


ERR44 












1 7970 




B 


BEGINA 




1 


AO 




nnnnn 


17980 




00 R6 


•-3 












17990 


OEFC T 


OAC 


7,INE0ISK 




J2 . ^_ 












INEOISK 












18000 


ERR60 


TFM 


RECLG. 000*9 




14468 


16 


02243 


00—00 


18010 




TO 


•♦35»JAY 




14480 


25 


14515 


02367 


18020 




BTM 


ERR0R2f670*9 




14492 


If 


09386 




18030 




TOM 


JAY,»-» 




14504 


15 


02367 


nnnnn 


18040 




B 


BEGINA 




14516 


49 


02602 


nnnnn 


18050 




OORG 


•-4 




14523 








18060 


ERR44 


OS 


•ERR 60 




14468 




0 




18070 




COLLECT DIGITS SUBROUTINE ••• 










18080 








■ • • 










18090 


• 


BTM CLOGTfXXtlOt 


XX « NO. OF DIGITS TO COLLECT ♦ 1 










18100 


• 






• 










18110 




OS 


2 




14524 




2 




18120 


CL06T 


BO 


•♦32fCHI 




14526 


43 


14558 


15139 


18130 




TR 


CHI-1,CHI«1 




14538 


31 


15138 


15140 


16140 




B 


•-24 




14550 


49 


14526 


00000 


18150 




OORG 


•-3 




14558 








18160 




TFM 


SYM>12t0 




14558 


16 


09867 


—0000 


18170 




TFM 


CL0GT2*6tSVM-l2 




14570 


16 


14648 


-9867 


18180 


CL06T1 


SM 


CL0GT-1»1,10 




14582 


12 


14525 


000- 1 


18190 




BZ 


XCLOGT 




14594 


46 


14686 


01200 


18200 




CM 


CHI •69. 10 




14606 


14 


15139 


00009 


182 10 




BNH 


XCLOGT 




14618 


47 


14686 


01 100 


18220 




AM 


•♦18»1»10 




14630 




14648 


000—1 


18230 


CL0GT2 


TO 


fCHI 




14642 


25 




15139 


16240 




TR 


CHI-1,CHU1 




14654 


31 


15138 


15140 


18250 




BNR 


CLDGT1,CHU2 




14666 


45 


14582 


15141 


18260 




B 


ERR44 




14678 


49 


14468 


00000 


18270 




OORG 


•-3 




14686 








18280 


XCLOGT 


TF 


SYM,CLD6T2^6»11 




14686 


26 


09879 


1464Q 


18290 




BB 






14698 


42 


00000 


00000 


18300 




OORG 


•-9 




14700 








18310 


• 


OENO 


• 










18320 




OORG 


16000 




16000 








18330 


W8LK2 


DSC 


2,22 




16000 




2 




18340 




22 
OS A 


0EF2 




16006 




5 


X 1 
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16006 J6008 

18350 DC If* 16007 1 



18360 


0EF2 


DSC 


IwO 




16008 




I 




18370 




0 
DC 


5 117400 




16013 




5 








J7400 












18380 




DC 


3 1046 




16016 




3 








-46 














18390 




OSA 


I OUT 




16021 




5 


X 1 












16021 




J0200 




18400 




DC 
■ 


it* 




16022 




1 




18410 


WRBLK2 


TFM 


I0RT»»423 




16024 


16 


00565 


J6047 


18420 




B 


I0PT»MBLK2,7 




16036 


49 


00532 


J6000 


18430 




TRA 






16048 


36 


00000 


00500 












16060 


49 


00000 


00000 


18440 




TCD 


WRBLK2 




16024 








18450 


• 


OUT OP CORE BLOCK 3 CONTAINS THE FOLLOMING 










18460 


• 


OUTSC 














18470 


• 


ASCAN 














18460 




OORG 


I OUT 




10200 








18490 




TFM 


FM0N435tBLK4t* 


I OUT 


10200 


16 


02359 


-9683 


18500 




BTM 


FMONtlOUT 




10212 


17 


02324 


J0200 


18510 




TFM 


FM0N«35»BLK2 




10224 


16 


02359 


-9637 


18520 




BTM 


FMONtNONARA 




10236 


17 


02324 


J0224 


18530 




TFM 


FM0N^35tBLKlf« 


DIM 


10248 


16 


02359 


-9614 


18540 




BTM 


FMONtOIM 




10260 


IT 


02324 


J0248 


18550 




TFM 


FM0N^35,BLKlf f 


COMMON 


10272 


16 


02359 


-9614 


18560 




BTM 


FMON* COMMON 




10284 


17 


02324 


J0272 


18570 




TFM 


FMON«35tBLK6*t 




10296 


16 


02359 


-9729 


18580 




BTM 


FMONtIF 




10308 


17 


02324 


J0296 


18590 




TFM 


FM0N«35*BLK6,» 


GOTO 


10320 


16 


02359 


-9729 


18600 




BTM 


FMONtGOTO 




10332 


17 


02324 


J0320 


18610 




TFM 


FM0N«35rBLK6t» 


CALL 


10344 


16 


02359 


-9729 


18620 




BTM 


FMONcCALL 




10356 


17 


02324 


J0344 


18630 




TFM 


FN0N^35,BLK6tt 


RETURN 


10368 


16 


02359 


-9729 


18640 




BTM 


FMONtftETURN 




10380 


17 


02324 


J0368 


18650 




TFM 


FN0N435tBLKl«f 


FORMAT 


10392 


16 


02359 


-9614 


18660 




BTM 


FMONt FORMAT 




10404 


17 


02324 


J0392 


18670 




TFM 


FM0N4-35,BLK4*, 


DO STMNT 


10416 


16 


02359 


-9683 


18680 




BTM 


FMONfOOO 




10428 


17 


02324 


J0416 


18690 




BNF 


ASCIA ,TRINO»f 


ASCAN 


10440 


44 


12026 


03137 


18700 




B 


ASCANl 




10452 


49 


11990 


00000 


18710 




80 


SCI tSINGST*. 


OUTSC 


10464 


43 


10860 


09898 


18720 




B 


OUTSCl 




10476 


49 


10512 


00000 


18730 




TFM 


FM0N*35,BLK5,, 


OKIO 


10488 


16 


02359 


-9706 


18740 




BTM 


FMONtOKIO 




1050O 


17 


02324 


J0488 


18750 


• ••• 


OUTPUT SUBSCRIPTING 


CODE 










18760 


OUTSCl 


TF 


TEMP,4Jl) 




10512 


26 


04089 


000-4 


18770 




TO 


DIMN0,6(1} 




10524 


25 


10653 


000-6 


18780 




CF 


OIMNO 




10536 


33 


10653 


00000 


18790 


OIMNOT 


OS 


2. •-2 




10545 




2 




18800 




TF 


OIMNOT* OIMNO 




10548 


26 


10545 


10653 
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18810 


CF 


SC22 




10560 


33 


10608 


00000 


18820 


TR 


AAl-3f MASK, , 


SET UP WORK AREA 


10572 


31 


11852 


1 1921 


18830 


BLXM 


•♦12,4( 2) 




10584 


66 


10596 


00-04 


18840 


8L XM 


SC22-*-24,12(3) 




10596 


66 


10632 


00- J2 


18850 SC22 


BXM 


•♦12,4(2) 




10608 


62 


10620 


00-04 


18860 


BXM 


•♦12, 12(31 




10620 


62 


10632 


00- J2 


18870 


TR 


CHI-l,CHI*l 




10632 


31 


151 38 


15140 


18880 


SM 


DIMNO, 0001, 810 




10644 


12 


10653 


0-0-1 


18890 DIMNO 


DS 


2,»-2 




10653 




2 




18900 


CM 


CHI ,69, 10 




10656 


14 


15139 


00009 


18910 


BNH 


ALFAT 




10668 


47 


10952 


01100 


18920 


TDM 


0IMSW,1 




10680 


15 


09904 


00001 


18930 


BTM 


CSTN0,»*12 




10692 


17 


05302 


J0704 


18940 


TDM 


DIMSW,0 




10704 


15 


09904 


00000 


18950 


CM 


CHI , 14, 10 




10716 


14 


15139 


000J4 


18960 


BE 


SC3 




10728 


46 


10904 


01200 


18970 SC4 


TOM 


OIMSWtO 




10740 


15 


09904 


00000 


18980 


TF 


A2-4(2)tSYM 




10752 


26 


11Q63 


09879 


18990 


BNF 


•♦36,SC22 




10764 


44 


10800 


10608 


19000 


CF 


SC22 




10776 


33 


10608 


00000 


19010 


SF 


A2-4(2I 




10788 


32 


11Q63 


00000 


19020 SC5 


CM 


CHI, 23,10 




10800 


14 


15139 


000K3 


19030 


BE 


SC22 




10812 


46 


10608 


01200 


19040 


CM 


CHI ,4,10 




10824 


14 


15139 


000-4 


19050 


BE 


• ♦36 




10836 


46 


10872 


01200 


19060 


BTM 


ERROR, 75, 9 




10848 


17 


09230 


00-75 


19070 SCI 


BTM 


ERROR, 272, 9 




10860 


17 


09230 


00K72 


19080 


TR 


CHI-l,CHI*l 




10872 


31 


15138 


15140 


19090 


BO 


SCl-12, DIMNO 




10884 


43 


10848 


10653 


19100 


B 


SC9 




10896 


49 


11 152 


00000 


19110 


• DORG 


• -3 




10904 




- 




19120 SC3 


TF 


AA1-4(2I ,SYM 






26 






19130 


TR 


CH|-1,CHI*1 




10916 


31 


15138 


15140 


19140 


CM 


CHI ,69, 10 




10928 


14 


15139 


0000 9 


19150 


BH 


SCl-12 




10940 


46 


10846 


01 100 


19160 ALFAT 


CM 


CHI ,40, 10 




10952 


14 


15139 


OOOMO 


19170 


BNH 


SCl-12 




10964 


47 


10848 


01 100 


19180 


BTM 


CS0RN,^«12 




10976 


17 


05594 


J0988 


19190 


BO 


•♦20,FX0RFL 




10988 


43 


11 008 


06309 


19200 


B 


SCl-12, f 


, FLOATING VARIABLE USED IN SUBSCRIP 


1 1000 


49 


10848 


00000 


19210 


00 RG 


• -4 




1 1007 








19215 


BO 


SCl-12, 6(11 


0(N VARIABLE USED IN SUBSCRIPT 


11008 


43 


10848 


000-6 


19220 


TF 


1-12(3) ,XRAl-l 




11020 


26 


11 OP 5 


00308 


19230 


CM 


CHI ,10, 10 




1 1032 


14 


15139 


OOOJO 


19240 


BE 


• ♦48 




1 1044 


46 


11092 


01200 


19250 


CM 


CHI, 20, 10 




1 1056 


14 


15139 


OOOKO 


19260 


BNE 


SC5 




11066 


47 


10800 


01200 


19270 


SF 


SC22 




11080 


32 


10608 


00000 


19280 PI 


OS 


5,» 




11091 




5 




19290 


TR 


CHI-1,CHU1 




11092 


31 


15138 


15140 


19300 


CM 


CHI, 69, 10 




11104 


14 


15139 


00009 


19310 


BNH 


$C1-12 




11116 


47 


10848 


01100 


19320 


TDM 


0IMSW,1 




11128 


15 


09904 


00001 


19330 


BTM 


CSTN0,SC4 




11140 


17 


05302 


J0740 


19340 SC9 


TFM 


M0VEIT^6, 01-12 




11152 


16 


11218 


J1871 


19350 CALC 


MM 


ntMiLiriT nc in 




11164 


13 


10545 


000-5 
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PAGE 


19360 


A 


TEMP, 99 




11176 


21 


04089 


00099 


19370 


MM 


OIMNOT, 12,10 




11188 


13 


10545 


000J2 


19380 


A 


MOVEI T^6,99 




11200 


21 


11218 


00099 


19390 MOVE] 


[T A 


f TEMP, 11 




11212 


21 


00000 


0408R 


19400 


SM 


OIMNOT, 1 , 10 




11224 


12 


10545 


000-1 


19410 


BZ 


• ♦44 




11236 


46 


11280 


01200 


19420 


SM 


TEMP,05,10 




11248 


12 


04089 


000-5 


19430 


SM 


M0VEIT^6,12t 10 




11260 


12 


11218 


000J2 


19440 


B 


MOVE IT 




11272 


49 


11212 


00000 


19450 


00 RG 


•-4 




11279 








19460 


S 


04,01 




11280 


22 


11919 


11883 


19470 


M 


03, C2 




11292 


23 


11907 


11875 


19480 


SF 


92 




11304 


32 


00092 


00000 


19490 


A 


04,99 




11316 


21 


11919 


00099 


19500 


M 


02, B2 




11328 


23 


11895 


11871 


19510 


SF 


92 




11340 


32 


00092 


00000 


19520 


A 


04,99 




11352 


21 


11919 


00099 


19530 


A 


04, A2 




11364 


21 


11919 


11867 


19540 


M 


03, CI 




11376 


23 


11907 


11863 


19550 


SF 


92 




11388 


32 


00092 


00000 


19560 


TF 


03,99 




11400 


26 


11907 


00099 


19570 


M . 


02, Bl 




11412 


23 


11895 


11859 


19580 


SF 


92 




11424 


32 


00092 


00000 


19590 


TF 


02,99 




11436 


26 


11895 


00099 


19600 


MM 


AAl ,0001,8 




11448 


13 


11855 


0-001 


19610 


TF 


01, 99 




11460 


26 


11883 


00099 


19620 


TFM 


PI , 1-12 




11472 


16 


11091 


J1875 


19630 MVl 


AM 


PI , 9, 10 




11484 


11 


11091 


000-9 


19640 


BNR 


•♦20, PI , 11 




11496 


45 


11516 


1109J 


19650 


B 


CONT, ,, 


60 TO OUTPUT STRING 


11508 


49 


11652 


00000 


19660 


00 RG 


•-3 




11516 








19670 


AM 


PI ,3, 10 




11516 


11 


11091 


000-3 


19680 


CM 


PI ,0, 68 




11528 


14 


1109J 


0-000 


19690 


BE 


MV2 




11540 


46 


11572 


01200 


19700 


AM 


OIMNOT, 01 ,10 




1 1552 


11 


10545 


000-1 


19710 


B 


MVl 




11564 


49 


11484 


00000 


19720 


DORG 


•-3 




11572 








19730 MV2 


TF 


MV3*6,PI , , 


SHIFT OFF SUBSC NOT NEEDED 


11572 


26 


11626 


11091 


19740 


TF 


MV3^11,PI 




11584 


26 


11631 


11091 


19750 


AM 


MV3^11,1,10 




11596 


11 


11631 


000-1 


19760 


SM 


MV3^6,11,10 




11608 


12 


11626 


OOOJl 


19770 MV3 


TR 


0,0 




11620 


31 


00000 


00000 


19780 


SM 


PI, 03, 10 




11632 


12 


11091 


000-3 


19790 


B 


MVl+12 




11644 


49 


11496 


00000 


19800 


DORG 


•-3 




11652 








19810 •» 


SO » 148 LITERAL 


SUBSCRIPT, SI « 149 ONE SUBSCRIPT 










19820 •» 


S2 « 150 TWO SUBSCRIPTS. S3 ^ 151 THREE SUBSCRIPTS 










19830 CONT 


TFM 


L4^11,0148,8, 


BASE FOR SUBSCRIPT OPERATORS 


11652 


16 


11687 


0-148 




A 


L4^ 11 .OIMNOT 




11664 


21 






19850 L4 


BTM 


PUT,0 




11676 


17 


08944 


-0000 


19860 


CM 


L4^11,0148,8 




11688 


14 


11687 


0-148 


19870 


BE 


• ♦24 




11700 


46 


11724 


01200 


19880 


SF 


CALLP2 




11712 


32 


02400 


00000 


19890 


BTM 


PUT, 124,8 




11724 


17 


08944 


0-124 


19900 


BTM 


PUT, 140,8 




11736 


17 


08944 


0-140 


19910 L5 


BNR 


L6,Dl-7 




11748 


45 


11784 


11876 
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FORTRAN II-O PHASE 1-B 



PAGE 



19920 
19930 
19940 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 

20160 F 
20170 

20180 

20190 

20200 

20210 

20220 

20230 

20240 

20250 

20260 

20270 

202B0 

20290 

20300 
20310 
20320 
20330 



BTM PUT, 104,8 
BLXM OUTSCE, 2213(1) ,67, 
L6 SF Dl-7 

TDM PUT-5,8,11 
BT PUT,D1"4 
TOM PUT-5,0,U 
TR 01-7,01-3 
B L5 
DORG •-S 
AAl OS 4 
Bl OS 4 

CI OS 4 

A2 OS 4 

82 OS 4 

C2 OS 4 

Dl OS 8 

1 OS 4 

02 OS 8 
J OS 4 

03 OS 8 
K OS 4 

04 OS 8 
OS 1 
OC 4,0001 
-001 

OS •♦-3 
OC 4,1 

-001 

DC 4,1 
-001 

DC 4,0 

-000 
DC 4,0 

-000 

DC 4,0 

-000 
DC 8,0 
-0000000 
DC 4,0 

-000 

OC 8,0 
-GOOOOOO 
OC 4tO 
-000 
OC StO 
-0000000 
OC 4*0 
-000 

OC atO 

-0000000 
OC It* 
I 

•••• ASCAN CODE 

ASCANl CF TRIND 

BD •♦24,N0IND 
BTM ERR0R2f572*9, 



17 



32 
15 
27 
15 
31 



11760 
11772 
U784 
11796 
11808 
11820 
11832 
11844 49 
11852 
11855 
11859 
11863 
11867 
11871 
11875 
11883 
11887 
11895 
11899 
11907 
11911 
11919 
11920 
11924 

11921 
11928 

11932 

11936 

11940 

11944 

11952 

11956 

11964 

11968 

11976 

11980 

11988 

11989 



08944 
0469R 
11876 
08939 
08944 
08939 
11876 
11748 



0-104 
-22J3 
00000 
OOOOQ 
11879 
0000- 
11880 
00000 



11990 33 03137 00000 
12002 43 12026 03195 
12014 17 09386 00N72 
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20340 


ASCIA 


TOM 


OMM .1 


12026 


15 


09907 


00001 


20350 




CM 


CHI,40tlO 


12038 


14 


15139 


OOOMO 


20360 




BNH 


AERR 


12050 


47 


12146 


01100 


20370 




CM 


CHI, 70*10 


12062 


14 


15139 


OOOPO 


20380 




BNL 


AERR 


12074 


46 


12146 


01300 


20390 


ASCIB 


SF 


OUTSU 


12086 


32 


06896 


00000 


20400 




BTM 


CS0RN*««12 


12098 


17 


05594 


J2110 


20410 




TOM 


STSN 


12110 


15 


05531 


00000 


20420 




CM 


CHI, 33,10 


12122 


14 


15139 


000L3 


20430 




BE 


• ♦24 


12134 


46 


12158 


01200 


20440 


AERR 


BTM 


ERROR, 376, 9 


12146 


17 


09230 


00L76 


20450 




CM 


CHI42,40,10 


12158 


14 


15141 


OOOMO 


20460 




BNH 


ASC22-12 


12170 


47 


12310 


OllOO 


20470 




CM 


CHI«2,70,10 


12182 


14 


15141 


OOOPO 


20480 




BNL 


ASC22-12 


12194 


46 


12310 


01300 


20490 




TOM 


EQUSWtl 


12206 


15 


09908 


00001 


20500 




TFM 


SCHI,CHI«2 


12218 


16 


05905 


J5141 


20510 




BTM 


CS0RN,«*12 


12230 


17 


05594 


J2242 


20520 




TOM 


EQUSNtO 


12242 


15 


09908 


00000 


20530 




CM 


SCHI,33,610 


12254 


14 


0590N 


000L3 


20540 




BNE 


ASC22-12 


12266 


47 


12310 


01200 


20550 




BTM 


PUT, 0133, 8, EQUAL 


12278 


17 


08944 


0-133 


20560 




TR 


CHI-1,CHI>1,, SHIFT OFF EQUAL 


12290 


31 


15138 


15140 


20570 




B7 


ASCIB 


12302 


49 


12086 




20580 




TOM 


OMM,0 


12310 


15 


09907 


00000 


20590 


ASC22 


BTM 


PUT, 133,8,EQUAL 


12322 


17 


08944 


0-133 


20600 


IFSC 


TFM 


N0PARM,01,10 


12334 


16 


14552 


000-1 


20610 




TFM 


ASC14^18,FLIST-9 


12346 


16 


14124 


J4549 


20620 


ARGSC 


TFM 


SSCSH,00,10 


12358 


16 


02494 


000-0 


20630 


IFSCAN 


TR 


CHI-1,CHI*1 


12370 


31 


15138 


15140 


20640 




BNR 


•♦24,CHI*2 


12382 


45 


12406 


15141 


20650 


ER38 


BTM 


ERR0R,37B,9, MISSING OPERAND, ETC. 


12394 


17 


09230 


0OL78 


20660 


ASC12 


CM 


CHI, 20, 10 


12406 


14 


15139 


OOOKO 


20670 




BNE 


• ♦32 


12418 


47 


12450 


01200 


20680 




BTM 


PUT, 129»8,UNARY MINUS 


12430 


17 


08944 


0-129 


20690 




B7 


• ♦32 


12442 


49 


12474 




20700 




CM 


CHI,10,10 


12450 


14 


15139 


OOOJO 


20710 




BNE 


ASC4 


12462 


47 


12498 


01200 


20720 


ARGl 


TFM 


SSCSW,5,10 


12474 


16 


02494 


000-5 


20730 




TR 


CHI-1,CHI^1 


12486 


31 


15138 


15140 


20740 


ASC4 


CM 


CHI, 24, 10 


12498 


14 


15139 


000K4 


20750 




BNE 


AR62 


12510 


47 


12598 


01200 


20760 


ASC23 


BD 


ASC54,FNTSW1 


12522 


43 


12578 


09901 


20770 




AM 


PARCNT, 1,10 


12534 


11 


03288 


000-1 


20780 




TFM 


SSCSW,5,10 


12546 


16 


02494 


000-5 


20790 




BTM 


PUT, 124 ,8, LEFT PAREN 


12558 


17 


08944 


0-124 


20800 




B 


IFSCAN 


12570 


49 


12370 


00000 


20810 




DORG 


•-3 


12578 








20820 


ASC54 


AM 


TPARCT,1,10 


12578 


11 


14550 


000-1 


20830 




B 


ASC23+24 


12590 


49 


12546 


00000 


20840 




DORG 


• -3 


12598 








20850 


ARG2 


BNF 


•♦20,N0PARM 


12598 


44 


12618 


14552 


20860 




87 


• ♦20 


12610 


49 


12630 




20870 




TFM 


SSCSW,5,10 


12618 


16 


02494 


000-5 


20880 




CM 


CHI, 40, 10 


12630 


14 


15139 


OOOMO 


20890 




BH 


AR63 


12642 


46 


12702 


01100 
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PHASE 


l-B 










PAGE 


20900 




CM 


CHI »3» 10 








12654 


14 


15139 


000-3 


20910 




BNE 


IFSCAN^24 








12666 


47 


12394 


01200 


20920 


ASC6 


CM 


CHI+2,69,10 








12678 


14 


15141 


00009 


20930 




BNH 


IFSCAN+24 








12690 


47 


12394 


01 100 


20940 


AftG3 


AM 


SSCSW,5,10 








12702 


11 


02494 


000-5 


20950 


ASC3 


SF 


OUTSW 








12714 


32 


06896 


00000 


20960 




BTM 


CS0RN.»*12 








12726 


17 


05594 


J2738 


20970 




BO 


FNSCtFNTSW,, BRANCH IF SYMBOL WAS FUNCTION 


NAME 




12738 


43 


14086 


09900 


20980 


ASC7 


BNR 


A 51. 1 » OH 1 *Z 








12750 


45 


12830 


15141 


20990 




BO 


ER40t FNTSWl 








12762 


43 


14486 


09901 


21000 




CM 


P ARCNT t Of 10 








12774 


14 


03288 


000-0 


21010 




BNE 


ER39 








12786 


47 


12818 


01200 


21020 




BO 


nuDAr 1 1 ol Nbdl 








12798 


43 


14006 


09898 


2 1030 




B7 










12810 


49 


02590 




21040 


ER39 


BTM 


cKK(JKf3r¥t"ff UNDALcNttU rARcNTHcalat 


ETC. 






12818 


17 


09230 


0OL79 


21050 


ASCI 


CM 


CHI t 30t 10 








12830 


14 


15139 


OOOLO 


21060 




BL 


• 4-24 








12842 


47 


12866 


01300 


21070 




BTM 


CKKUK»3rOf7| IIMVALIU UrCKAlUK 








12854 


17 


09230 


00L78 


2 1080 




CM 


CHI 1 24» 10 








12866 


14 


15139 


000K4 


2 1090 




BE 


A SC23 








12878 


46 


12522 


01200 


21 LOO 




CM 










12890 


14 


15139 


OOOJO 


21110 




BNE 










12902 


47 


12934 


01200 


21120 




BTM 


DiiT iin a Ann 
rui t lliltotAUl/ 








12914 


17 


08944 


0-110 


21130 




B 


ASC24 








12926 


49 


13114 


00000 


21140 




□ORG 


•—3 








12934 








21150 




CM 


rut t n in 








12934 


14 


15139 


OOOKO 


21160 




BNE 










12946 


47 


12978 


01200 


21170 




BTM 


DIIT 1 A CIIBTBArT 








12958 


17 


08944 


0-120 


21 180 




B 


ASC24 








12970 


49 


13114 


00000 


21190 




□ORG 










12978 








21200 




CM 


rut. 91. in 








12978 


14 


15139 


OOOKl 


21210 




BNE 


• 4-32 








12990 


47 


13022 


01200 


21220 




BTM 


DIIT. 1 91 .R.nt vtni: 








13002 


17 


08944 


0-121 


21230 




B 


ASC24 








13014 


49 


13114 


00000 


21240 




OORG 










13022 








21250 




CM 


rut IX. in 
CHI t 14t 10 








13022 


14 


15139 


000J4 


21260 




BNE 










13034 


47 


13134 


01200 


21270 




CM 


cut A.9 1 A in 








13046 


14 


15141 


0OOJ4 


21280 




BNE 










13058 


47 


13102 


01200 


21290 




BTM 


OUT t t A O CVDnklCMT ff AM 








13070 


17 


08944 


0-115 


21300 




TR 


CHI-l.CHI-i-l 








13082 


31 


15138 


15140 


21310 




B 


•■••20 








13094 


49 


13114 


00000 


21320 




D0R6 


•-3 








13102 








21330 




BTM 


PUT* 114*B«MULTIPLY 








13102 


17 


08944 


0-114 


21340 


ASC24 


BNF 


ARGl.SSCSM 








13114 


44 


12474 


02494 


21350 




B7 


DIMERR 








13126 


49 


07448 




21360 


ASC25 


CM 


CHI,4*10 








13134 


14 


15139 


000-4 


21370 




BE 


• ♦48 








13146 


46 


13194 


01200 


21380 




BO 


FNSCltFNTSWl 








13158 


43 


14266 


09901 


21390 




BD 


CALL2tCALLSM 








13170 


43 


13446 


09909 


21400 




BTM 


ERR0Rt378*9t INVALID OPERATOR 








13182 


17 


09230 


00L78 








PUTf 104*8tRIGHT PAREN 










1 7 






21420 




BD 


•♦32t FNTSWl 








13206 


43 


13238 


09901 


21430 




SM 


PARCNT* It 10 








13218 


12 


03288 


OOO-l 


21440 




B 


• ♦20 








13230 


49 


13250 


00000 


21450 




□ORG 


• -3 








13238 




















325 
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P 


l-B 










PAGE 


21460 




SM 


TPARr T- 1 . 1 n 

I r « It X t X U 








13238 


12 


14550 


000 1 


21470 




TR 


CHI — 1 .CMI 4-1 








13250 


31 


15138 


1 5140 


21480 




BN 


ASCl-12 








13262 


47 


12818 


01300 


21490 




BNH 










13274 


47 


13322 


01 100 


21500 




CM 










13286 


14 


15139 


0OOK4 


21510 




BNE 


ASC7 








13298 


47 


12750 


01200 


21520 




BTM 


ERR0Rt378t9 








13310 


17 


09230 


00L78 


21530 




BD 


• ▼out "nil owi 








13322 


43 


13382 




21540 




CM 










13334 


14 


03288 


000—0 


21550 




BNE 


• ♦36 








13346 


47 


13362 


01200 


21560 




BD 


niJT^l 9. tPCU 

vlwl O A.€i9 Iv 








13358 


43 


13426 


09905 


21570 




BD 


CALL3tCALLSM 








13370 


43 




09909 


21580 




CM 


CHI, 24. 10 . 








13382 


14 


15139 


000K4 


21590 




BE 


ER38 








13394 








21600 




BD 


FNSC2, FNTSWl 








13406 


43 


14354 


09901 


21610 




B 


ASC7 








13418 


49 


12750 


nnnnn 


21620 




OORG 


•-3 








13426 








21630 


0UTS12 


TFM 


tF^23*0UTSN^12 








13426 


16 


10319 


J3636 


21640 




B 


IF 








13438 


49 


10296 


nnnnn 


21650 




□ORG 


•-4 








13445 








21660 


CALL2 


CM 


CHI,23tlO» TEST FOR MORE ARGUMENTS 








13446 


14 


151 39 




21670 




BNE 


CALLER 








13458 


47 




n?5nn 


21680 




BTM 


PUT,0123»8» OUTPUT COMMA 








13470 




08944 


0—123 


21690 




B7 


ARGSC-12 








13482 


49 


12346 




21700 


CALL3 


BNR 


CALLER,CHI«2 








13490 


45 


09454 


15141 


21710 




B7 


BEGIN 








13502 


49 


02590 


21720 




ENTER HERE TO OUTPUT SINGLE STATEMENT FUNCTIONS 














21730 


»••••• 




















21740 


ASC21 


BO 


•♦24»STSN 








13510 


43 


13534 


05531 


21750 




BTM 


ERR0R»377»9« SINGLE STATEMENT PRECEEDED BY 


OTHER 


STMT 


13522 


17 


09230 


00L77 


21760 




CF 


STSN 








13534 


33 




hnnnn 


21770 




SF 


6(1},,, FLAGGED RECORD MARK FOR 


ARI. 


ST. FUNCT. 


13546 


32 


000-6 


nnnnn 


21780 




TDM 


ONMtO 








13558 


15 


09907 


00000 


21790 




BSX 


•♦12tTEMPSf !)•• SAVE SYMBOL ADDRESS TO MOVE IN NO.OF 


PAR 


13570 


67 


13582 


041-1 


21800 




BTM 


PUT, 137»8«ARITH STATEMENT FUNCTION 








13582 


17 


08944 


0-137 


21810 




BT 


PUT,TEMP5-1,. OUTPUT STMNT NAME 








13594 


27 


08944 


04100 


21820 




TFM 


PCNT,0»10* INITIAL PARAMETER COUNT 








13606 


16 


13749 


000-0 


21830 




TFM 


SETAFTV6,AFTBL^S 








13618 


16 


13852 


J4940 


21840 




BTM 


PUT, 124,8, LEFT PAREN 








13630 


17 


08944 


0-124 


21850 




TR 


CHI-1,CHI^1 








13642 


31 


15 138 


15140 


21860 




BNR 


•♦24,CHI^2 








13654 


45 


13678 


15141 


21870 


ASC26 


BTM 


ERROR, 376,9, INCOMPLETE STATEMENT FUNCTION 






13666 


17 


09230 


00L76 


21880 




CM 


CHI, 40, 10 








13678 


14 


15 139 


nnnMH 


21890 




BNH 


•-24 








13690 


47 


13666 


01100 


21900 




TDM 


FNTSW,0 








13702 


15 


09900 


00000 


21910 




CM 


CHI, 69, 10 








13714 


14 


15139 


00009 


21920 




BH 


ASC26 








13726 


46 


13666 




21930 




SF 


OUTSW 








13738 


32 


06896 


nonnn 


21940 


PCNT 


DC 
-0 


2,00,* 








13749 




2 




21950 




BTM 


CS0RN,«^12 








13750 


17 


05594 


J 3762 


21960 




BD 


ASC26,INSW 








13762 


43 


13666 


03219 


21970 




AM 


PCNT,1,10 








13774 


11 


13749 


000-1 


21980 




TFM 


SYM^2,14,10 








13786 


16 


09881 


000 J4 


21990 




CF 


SYM^l 








13798 


33 


09880 


00000 


22000 




AM 


NXL0C,2,10 








13810 


11 


02372 


000-2 



44 



326 
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MYI nr CVM-I.7 A 


13822 


26 


0237K 


09681 


22020 




QM 


•■''IBtStiO 


13834 


12 


13852 


000-5 






TF 


APTRI 4'<i.XRAI.9 
M I 1 D L. ~ 3 t A «M* 1. f 4£ 


1 3846 


26 


J4940 


00309 






AM 




13858 


1 1 


1385K 


000-4 






ru 


unit UH f * u 


13870 


14 


15139 


000-4 






HP 




13882 


46 


13938 


01200 






PM 




1 3894 


14 


15139 


000K3 


22080 




BN E 


ASC26 


1 3906 


47 


13666 


01200 






BTM 




13918 


17 


Q0944 


0-123 








ASC26-24 


13930 


49 


13642 


00006 


221 10 




00 RG 


»-3 










22120 






a 1 IT 1 nA^ O DtAUT DADCKI 


13938 


1 7 


08944 


0-104 


221 30 




TR 


rur_i ruiAi 


13950 


31 


15138 


1 5 140 


22140 




AM 


TEMP5 1 8 1 10 








?^74Q 


22 1 50 




TF 


TcMPa »KCN I tO 


1 3974 


26 


0410J 




221 60 




TDM 


bINboltltilt oci olNuLc 3 1 An 1 oMllLrit aNllUM IColCU 




1 3 


0989B 


0000 J 


22170 




B 


AcKK'-24ftt IN rUIIINb UUI ouBIil«Klr 1 INU 


13998 


49 


12 122 


nnnnn 


22 180 








14006 








22 190 


MuDAFT 


TFM 


• ♦35,AFTBL-»-5 


14006 


16 


14041 


J4940 


22200 




SM 


•423*5«10 


14018 


12 


14041 


000-5 


222 10 




TF 


•♦18,«-» 


14030 


26 


14048 


00000 






AM 


•-•♦2,10 


14042 


11 


00000 


000-2 


22230 




C 


•-13,SETAFT*6 


14054 


24 


14041 


13852 


22240 




BH 


•-48 


14066 


46 


14018 


01100 


22250 




B7 


BEGIN 


14078 


49 


02590 








ENTER TO OUTPUT SINGLE STATEMENT FUNCTION CALL AND 










22270 




FUNCTION SUBPROGRAM CALL •••••• 










22280 


FNSC 


BO 


ASC14,FNTSMl 


14086 


43 


14106 


09901 


22290 




B7 


ASC8 


1 4098 


49 


14 130 






****** 


ENTER HERE TO SHIFT PARAMETER LIST OOUN FOR NESTED CALLS ••• 










223 10 


ASC14 


AM 


•♦18»5«10 


14106 


11 


14124 


000-5 






TR 


FLIST-9.TPARCT-1»2 


14118 


31 


J4549 


14549 


22330 


ASC8 


BNF 


ASC11»FNTSH«» NO FLAG INDICATE FUNCTION SUBPROGRAM 


14130 


44 


14162 


09900 


22340 




TF 


NOPARM.BIll tt MOVE NO. OF PARAMETERS TO COUNTER 


14142 


26 


14552 


000-8 


22350 




B7 


ASC15 


14154 


49 


14174 




22360 


ASCI 1 


TFM 


N0PARM,00.1011 


14162 


16 


14552 


OQO— . 


22370 


ASC 15 


CM 


CHIf24tl0 


14174 


1,4 


15139 


000K4 


22380 




BE 


• 4-24 


14186 


46 


14210 


01200 


22390 




BTM 


ERR0R«079f9» FUNCT NAME NOT FOLLOMED BY LPAREN 


14198 


17 


09230 


00-79 


f f A?n 




BTM 


PUT. 124,8»LEFT PAREN 


14210 


17 


08944 


0-124 






TFM 


TPARCTfltlOt SET UP TEMPORARVPAREN COUNT 


14222 


16 


14550 


000-1 


22420 




TOM 


FNTSWfO 


14234 


15 


09900 


00000 


22430 




TDM 


FNTSWltl 


14246 


15 


09901 


00001 


22440 




B7 


ARGSC 


14258 


49 


12358 




22450 


FN SCI 


CM 


CHI»23.10 


14266 


14 


15139 


0OOK3 


22460 




BNE 


ER38 


14278 


47 


12394 


01200 


22470 


ASC30 


BTM 


PUTf 123t8,C0MMA 


14290 


17 


08944 


0-123 


22460 




BNF 


•<^20tN0PARN 


14302 


44 


14322 


14552 


22490 




B7 


ARGSC 


14314 


49 


12358 




22500 




SM 


NOPARM •1,10 










22510 




BNP 


ER40 


14334 


47 


14486 


01100 


22520 




B7 


ARGSC 


14346 


49 


12358 




22530 


FNSC2 


BNF 


• 4-20,NOPARM 


14354 


44 


14374 


14552 


22540 




B7 


Ascsi 


14366 


49 


14398 




22550 




SM 


NOPARM, 1,10 


14374 


12 


14552 


000-1 


22560 




BNZ 


ER40 


14386 


47 


14486 


01200 
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PAGE 


22570 


ASC31 


CM 


ASC14^18,FLtST-9,, TEST IF NEST LIST IS EMPTY 


1 2f in 








22580 




BNE 


ASC31A 




I7 


i2a^2 


01200 


22590 




TOM 


FNTSWl.O 


ill?? 


IK 


nooni 


UUUUU 


22600 




TFM 


SSCSW,00,10 


1 AAaf 


1 A 


1 f^T^n 




22610 




B 


ASC 7 


1 22^ A 






U vUUU 


22620 




DORG 


•-3 


1 








22630 


ASC31A 


TR 


TPARCT-l,ASC144l8,ll 




. i 


14549 


1412M 


22640 




SM 


ASC14418,5,10 


14466 


12 


14124 


000-5 


22650 




B7 


ASC7 


i22af 








22660 


ASCER 


BTM 


ERROR, 470t9f INVALID FUNCTION PARAMETER LIST 




17 


09230 


00M70 


22670 




DS 


, ASCER 


14486 




0 




22680 


I FASEN 


TFM 


ASCl4+18,FLlST-9 


14498 


16 


14124 


J4549 


22690 




TFM 


SSCSW, 00,10 


14510 


16 


02494 


000-0 


22700 




B 


IFSCAN412 


14522 


49 


12382 


00000 


22710 




DORG 


•-^ 


14529 








22720 


CLASEN 


TFM 


NOPARM, 01, 1011 




16 


14552 


000— J 


22730 




B 


ARGSC-12 


14542 


49 


12346 


00000 


22740 




DORG 


•-4 


14549 








22750 


TPARCT 


DS 


2 


14550 




2 




22760 


NOPARM 


OS 


2 


14552 




2 




22770 




DC 
• 


!»• 


14553 




1 




22780 


FLIST 


OSB 


5,20 


14558 




5 


X 20 


22790 




DORG 


16000 


16000 








22800 


HBLK3 


OSC 


2,22 


16000 




2 




22810 




22 
OS A 


0EF3 


16006 






X 1 










16006 




J6006 




22820 




• 


l,t 


16007 




1 




22830 


0EF3 


OSC 


1.0 


16008 




1 




22840 




0 
OC 


5,17450 


16013 




S 








J7450 










22850 




OC 


3,046 


16016 












-46 












22860 




OS A 


lOUT 


16021 




5 


X 1 










16021 




J0200 




22870 




OC 
• 


l.» 


16022 




1 




22880 


WRBLK3 


TFM 


I0RT,*>23 


16024 


16 


00565 


J6047 


22890 




B 


I0PT,WBLK3,7 


16036 


49 


00532 


J6000 


22900 




TRA 




16048 


36 


00000 


00500 










16060 


49 


00000 


00000 


22910 




TCO 


WRBLK3 


16024 








22920 


• ' ] 


OUT OF CORE BLOCK 4 CONTAINS THE FOLLOHING 










22930 


• 1 


DUTSC 












22940 


• 1 


DO 












22950 


• 


10 OTHER THAN DISK 










22960 




DORG 


lOUT 


10200 








22970 




CM 


CHI, 44, 10, lOUT, NONDISK I/O 


10200 


14 


15139 


000M4 


22980 




B 


lOUTEN 


10212 


49 


13240 


00000 


22990 




TFM 


FM0N*35,BLK2 


10224 


16 


02359 


-9637 
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23000 




BTM 


FMONtNONARA 




10236 


17 


02324 


J0224 


23010 




TFM 


FM0N+35,BLKlt» 


DIM 


10248 


16 


02359 


—96 14 


23020 




BTM 


FMONfDIM 




10260 


17 


02324 


J0248 


23030 




TFM 


FM0N4-35»BLKlf t 


COMMON 


10272 


16 


02359 


-9614 


23040 




BTM 


FMONt COMMON 




10284 


17 


02 324 


J0272 


23050 




TFM 


FMON+35f BLK6,t 


IF STMNT 


10296 


16 


02359 


-9729 


23060 




BTM 


FMONt IF 




10308 


17 


02 324 


J0296 


23070 




TFM 


FM0N+35,BLK6,, 


GOTO 


10320 


16 


02359 


-9729 


23080 




BTM 


FMONfGOTO 




10332 


17 


02 324 


J0320 


23090 




TFM 


FM0N<f35tBLK6tt 


CALL 


10344 


16 


02359 


—9729 


23100 




BTM 


FMONtCALL 




10356 


17 


02324 


J0344 


23110 




TFM 


FM0N+35,BLK6, , 


RETURN 


10368 


16 


02359 


-9729 


23120 




BTM 


FMON»RETURN 




10380 


17 


02 324 


J0368 


23130 




TFM 


FM0N^35»BLKltt 


FORMAT 


10392 


16 


02359 


-9614 


23140 




BTM 


FMON. FORMAT 




10404 


17 


02324 


J0392 


23150 




BNF 


D0L00P4^36tTRIN0t t 


DO STATEMENT 


10416 


44 


12026 


03137 


23160 




B 


DOLOOP 




10428 


49 


11990 


00000 


23170 




TFM 


FM0N^35tBLK3,t 


ASCAN 


10440 


16 


02359 


—9660 


23180 




BTM 


FMONf ASCAN 




10452 


17 


02324 


J0440 


23190 




BD 


SC1.SIN6ST,» 


OUTSC 


10464 


43 


10860 


09898 


23200 




B 


OUTSCl 




10476 


49 


10512 


00000 


23210 




TFM 


FM0N«35,BLK5»« 


DISK INPUT/OUTPUT 


10488 


16 


02359 


—9706 


23220 




BTM 


FMON,DKIO 




10500 


17 


02324 


J0488 


23230 




OUTSC CODE IS HERE 












23240 




00 RG 


ASCANl 




11990 








23250 




OUTPUT DO STATEMENTS 












23260 


DOLOOP 


TDM 


TRINDtO 




1 1990 


15 


03 137 


00000 


23270 




BD 


• -f24,N0IND 




12002 


43 


12026 


03195 


23280 




BTM 


ERR0R2t572t9 




12014 


17 


09386 


OON72 


23290 




CM 


CHI,44tlO 




12026 


14 


15139 




23300 




BNE 


SPERR 




12038 


47 


?c f ?? 




23310 




CM 


CHI«2,56.10 




12050 


14 


15141 


000N6 


23320 




BNE 


SPERR 




12062 


47 


09130 


01200 


23330 




BD 


• 4^24»INDIV 




12074 


43 


12098 


02424 


23340 




BTM 


CKCNTUtOtlO 




12086 


17 


04740 


000—0 


23350 




TDM 


STSNtO 




12098 


15 


05531 


00000 


23360 




TR 


CHI-1,CH!*3 




12110 


31 


15138 


15142 


23370 


00 


CM 


CHI. 69, 10 




12122 


14 


15139 


00009 


23380 




BH 


• ♦24 




12134 


46 


12 158 


01 100 


23390 


ER25 


BTM 


ERR0R,275,9, 


INCORRECT 00 STATEMENT 


12146 


17 


09230 


00K75 


23400 




BTM 


PUT* 108t8,D0 




12 158 


17 


08944 


0—108 


23410 




SF 


OUTSW 




12170 


32 


06896 


00000 


23420 




BTM 


CSTN0,»*12 




12182 


17 


05302 


J2194 


23430 




BD 


ER24,9(l)tt 


IS DO REF* ST* NO* IN TABLE 


12194 


43 


12338 


000—9 


23440 




BO 


DOCf 7(1) 




12206 


43 


12242 


000-7 


23450 




MF 


•♦23,7(1) 




12218 


71 


12241 


000-7 


23460 




TDM 


T(l),l,, 


SET BY DO, IF NOT SET 00 REF IN TABLE 


12230 


16 


000-7 


00001 


23470 


DOC 


CM 


CHI,40,10 




12242 


14 


15139 


OOOMO 


23480 




BNH 


ER25 




12254 


47 


12146 


01100 


23490 




CM 


CHI, 69, 10 




12266 


14 


15139 


00009 


23500 




BH 


ER25 




12278 


46 


12146 


01100 


23510 




BTM 


CS0RN,^^12,, 


COLLECT 00 INDEX SYMBOL 


12290 


17 


05594 


J2302 


23520 




BT 


PUT,XRA1-1 




12302 


27 


08944 


00308 


23530 




BD 


OOCl.FXORFL 




12314 


43 


12350 


06309 


23540 




BTM 


ERROR, 275, 9, 


FLOATING POINT VARIABLE FOR INDEX 


12326 


17 


09230 


00K75 


23550 


ER24 


BTM 


ERROR, 274, 9, 


00 REFERENCING ILLEGAL STATEMENT NUMBER 


12338 


17 


09230 


00K74 












4 O 

3 « u 
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PAGE 


23560 


DQCl 


CM 


CHI, 33, 10, 


TEST FOR EQUAL SIGN NEXT 


12350 


14 


15139 


0O0L3 


23570 




BNE 


ER25 




12362 


47 


12146 


01200 


23580 




BTM 


PUT, 133,8,EQUAL 


12374 


17 


08944 


0-133 


23590 




TR 


CHI-l,CHUl 




12386 


31 


15138 


15140 


23600 




CF 


OOA,,, 


INITIALIZE SWITCHES 


12398 


33 


12434 


00000 


23610 




CF 


DOB 




12410 


33 


12586 


00000 


23620 




CF 


DOC 




12422 


33 


12242 


00000 


23630 


DO A 


CM 


CHI, 40, 10 




12434 


14 


15139 


OOOMO 


23640 




BNH 


ER25,,, 


TEST FOR UNSIGNED VALUES 


12446 


47 


12146 


01100 


23650 




CM 


CHI, 69, 10 




12458 


14 


15139 


00009 


23660 




BNH 


•♦24,,, 




12470 


47 


12494 


01100 


23670 




SF 


DOA 




12482 


32 


12434 


00000 


23680 




SF 


OUTSH 




12494 


32 


06896 


00000 


23690 




BTM 


CS0RN,^^12,, 


COLLECT AND OUTPUT FIRST INDEX 


12506 


17 


05594 


J2518 


23700 




BD 


•♦20,FX0RFL 




12518 


43 


12538 


06309 


23710 




B7 


ER25 




12530 


49 


12146 




23720 




BNF 


DOB, DO A 




12538 


44 


12586 


12434 


23730 




TF 


DOTEST,SYM 




12550 


26 


13239 


09879 


23740 




CM 


srM,o,io, 


TEST IF FIRST INDEX MAS ZERO 


12562 


14 


09879 


000-0 


23750 




BE 


ER25 




12574 


46 


12146 


01200 


23760 


DOB 


CM 


CHI, 23, 10 




12586 


14 


15139 


000K3 


23770 




BNE 


ER25 




12598 


47 


12146 


01200 


23780 




BTM 


PUT, 123,8, COMMA 


12610 


17 


08944 


0-1 2 3 


23790 




TR 


CHI-1,CHI>1 




12622 


31 


15138 


15140 


23600 




CM 


CHI, 40, 10 




12634 


14 


15139 


OOOMO 


23810 




BNH 


ER25 




12646 


47 


12146 


01100 


23820 




CM 


CHI, 69,10 




12658 


14 


15139 


00009 


23830 




BNH 


• ♦24 




12670 


47 


12694 


01100 


23840 




SF 


DOB 




12682 


32 


12586 


00000 


23850 




BTM 


CS0RN,»^12 




12694 


17 


05594 


J2706 


23860 




BT 


PUT,XRA1-1 




12706 


27 


08944 


00308 


23870 




BO 


♦♦20,FX0RFL 




12718 


43 


12738 


06309 


23880 




B7 


ER25 




12730 


49 


12146 




23890 




BNF 


•♦36, DOB 




12738 


44 


12774 


12586 


23900 




CM 


SYM,0,10 




12750 


14 


09879 


000-0 


23910 




BE 


ER25 




12762 


46 


12146 


01200 


23920 




BNR 


D0E,CHI^2 




12774 


45 


12854 


15141 


23930 




BNF 


•♦48rD0B 




12786 


44 


12834 


12586 


23940 




BNF 


•♦36, DOA 




12798 


44 


12834 


12434 


23950 




C 


SYM.DOTEST,, 


TEST IF SECOND INDEX IS GREATER OR 


12810 


24 


09879 


13239 


23960 




BL 


ER25,,, 


EQUAL TO THE FIRST IF BOTH ARE CONSTANTS 


12822 


47 


12146 


01300 


23970 




BO 


ER25,I0SM,, 


I/O CANNOT END HERE 


12834 


43 


12146 


09911 


23980 




B 


BEGIN 




12846 


49 


02590 


00000 


23990 




00 RG 


♦-3 




12854 








24000 


DOE 


CM 


CHI, 23,10 




12854 


14 


15139 


000K3 


24010 




BE 


• ♦32 




12866 


46 


12898 


01200 


24020 




BD 


I0F,I0SW,, 


RETURN TO I/O SCAN 


12878 


43 


14336 


09911 


24030 




B7 


ER25 




12890 


49 


12146 








BTM 


PUT, 123,8, COMMA 








0—123 


24050 




TR 


CHI-l,CHI^l 




12910 


31 


15138 


15140 


24060 




CM 


CHI, 20, 10 




12922 


14 


15139 


OOOKO 


24070 




BNE 


DOE 1 




12934 


47 


12982 


0120O 


24080 




SF 


DOC 




12946 


32 


12242 


00000 


24090 




BTM 


PUT,120,8, 


MINUS 


12958 


17 


08944 


0-120 


24100 




TR 


CHI-l,CHUl 




12970 


31 


15138 


15140 


24110 


DOEl 


BNF 


DOE 2, OOA 




12982 


44 


13062 


12434 



330 
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49 



24120 




BNF 


O0E2,OOB 








12994 


44 


13062 


12586 


24130 




C 


SYM, DOTEST 








13006 


24 


09879 


13239 


24140 




BNF 


•♦32 f DOC 








13018 


44 


13050 


12242 


24150 




BH 


ER25 








13030 


46 


12146 


01100 


24160 




B7 


D0E2 








13042 


49 


13062 




24170 




BL 


ER25 








13050 


47 


12146 


01300 


24180 


00E2 


CM 


CHIt40tlO 








13062 


14 


15139 


OOOMO 


24190 




BNH 


ER25 








13074 


47 


12146 


01100 


24200 




SF 


OUTSW 








13086 


32 


06896 


00000 


24210 




BTM 


CS0RNf»*12 








13098 


17 


05594 


J3110 


24220 




CM 


XRA1,2213 








13110 


14 


00309 


-2213 


24230 




BE 


ER25,,, 


SUBSCRIPTED VARIABLE 


IN 00 




13122 


46 


12146 


01200 


24240 




BO 


•♦20,FX0RFL 








13134 


43 


13154 


06309 


24250 




B7 


ER2S 








13146 


49 


12146 




24260 




CM 


SYMtOf 10 








13154 


14 


09879 


000-0 


24270 




BE 


ER25 








13166 


46 


12146 


01200 


24280 


DOEE 


BD 


lOFtlOSM,, 


RETURN TO I/O SCAN 






13178 


43 


14336 


09911 


24290 




BNR 


•*20 «CHI>2 








13190 


45 


13210 


15141 


24300 




B 


BEGIN 








13202 


49 


02590 


00000 


24310 




00 R6 


•-3 








13210 








24320 




BTM 


ERR0R2,573,9 








13210 


17 


09386 


00N73 


24330 




B 


BEGIN 








13222 


49 


02590 


00000 


24340 




D0R6 


• -3 








13230 








24350 


DOTEST 


OS 


10 








13239 




10 




24360 


• ••• 


ENTER HERE TO DECOMPOSE I/O STATEMENTS OTHER THAN 01 SK •••• 










24370 


lOUTEN 


BNE 


• ♦44 








13240 


47 


13284 


01200 


24380 




TFM 


I0UTl^lltll2t8« 


OUTPUT READ SYMBOL 






13252 


16 


13635 


0-112 


24390 




TR 


CHI-ltCHI*l 








13264 


31 


15138 


15140 


24400 




B 


lOUTl 








13276 


49 


13624 


00000 


24410 




00 RG 


•-3 








13284 








24420 




CM 


CHI,55»10 








13284 


14 


15139 


0OON5 


24430 




BNE 


I0UT2 








13296 


47 


13376 


01200 


24440 




CM 


CHI^2t63tl0 








13308 


14 


15141 


00003 


24450 




BE 


• ♦24 








13320 


46 


13344 


01200 


24460 


lOUTER 


BTM 


ERR0Rt71ff9 








13332 


17 


09230 


00-71 


24470 




TFM 


lOUTl^lltllltB. 


OUTPUT PRINT SYMBOL 






13344 


16 


13635 


O-lll 


24480 




TR 


CHI-ltCHI^3 








13356 


31 


15138 


15142 


24490 




B 


lOUTl 








13368 


49 


13624 


00000 


24500 




OORG 


•-3 








13376 








24510 


I0UT2 


CM 


CHIt45,10 








13376 


14 


15139 


000M5 


24520 




BNE 


I0UT3 








1338B 


47 


13456 


01200 


24530 




TR 


CHI-l«CHI^ltff 


SHIFT OFF E 






13400 


31 


15138 


15140 


24540 




CM 


CHI, 69,10 








13412 


14 


15139 


00009 


24550 




BNH 


t0UT3 








13424 


47 


13456 


OllOQ 


24560 




TFM 


lOUTl^llfOllStB* 


OUTPUT TYPE SYMBOL 






13436 


16 


13635 


0-113 


24570 




B 


tOUTl 








13448 


49 


13624 


00000 


24580 




DORG 


•-3 








13456 








24590 


I0UT3 


BTM 


C0LNAM,2,10 








13456 


17 


04560 


000-2 


24600 




CM 


SYM, 4348, 8 








13468 


14 


09879 


0M348 


24610 




BV 


I OUTER 








13480 


46 


13332 


01400 


24620 




BNE 


I0UT4 








13492 


47 


13644 


01200 


24630 




TFM 


I0UTl^ll,118,8, 


OUTPUT PUNCH SYMBOL 






13504 


16 


13635 


0-118 


24640 


I0UT5 


TR 


CHI-1,CHI^3 








13516 


31 


15138 


15142 


24650 




CM 


CHI, 63, 10 








13528 


14 


15139 


00003 


24660 




BNE 


lOUTl 








13540 


47 


13624 


01200 


24670 




BTM 


C0LNAM,4,10 








13552 


17 


04560 


000-4 
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VERSION 2 FORTRAN II-D 


PHASE 


l-B 








PAGt 


24680 




C 


SYM, TPCST 








13564 


24 


09879 


13707 


24690 




BV 


I OUTER 








13576 


46 


13332 


01400 


24700 




BNE 


I OUTER 








13588 


47 


13332 


01200 


24710 




TR 


CHI-1,CHU7 








13600 


31 


15138 


15146 


24720 




AM 


I0UT1^11,1,1C 








13612 


11 


13635 


000-1 


24730 


lOUTl 


BTM 


PUT,., 


OUTPUT I/O SYMBOL 






13624 


17 


08944 


-0000 


24740 




B 


INOUT 








13636 


49 


13708 


00000 


24750 




OORG 


•-3 








13644 








24760 


I0UT4 


CM 


SYM,5763,8 








13644 


14 


09879 


0N763 


24770 




BV 


1 OUTER 








13656 


46 


13332 


01400 


24780 




BNE 


I OUTER 








13668 


47 


13332 


01200 


24790 




TFM 


I0UT1^11,0116,8, 


OUTPUT ACCEPT SYMBOL 






13680 


16 


1363S 


0-116 


24800 




B 


I0UT5 








13692 


49 


13516 


00000 


24810 




OORG 


•-3 








13700 








24820 


TPCST 


DC 


8*63415745,, 


TAPE 






13707 




8 








03415745 
















24830 


•••••• 


OUTPUT INPUT-OUTPUT 
















24840 


INOUT 


CM 


CHI, 69, 10 








13708 


14 


15139 


00009 


24850 




BH 


•♦24 








13720 


46 


13744 


01100 


24860 




BTM 


ERROR, 276»9« 


STATEMENT NUMBER MISSING 




13732 


17 


09230 


00K76 


24870 




SF 


OUTSW 








13744 


32 


06896 


00000 


24880 




TDM 


I0SH,1 








13756 


15 


09911 


OOOOl 


24890 




BTM 


CSTN0,*-«>12 








13768 


17 


05302 


J3780 


24900 




BO 


•♦32,INSW 








13780 


43 


13812 


03219 


24910 




TOM 


8(1), 


SET DIGIT FOR FORMAT 


STATEMENT 


NUMBER 


13792 


15 


000-8 


00001 


24920 




B 


• ♦32 








13804 


49 


13836 


00000 


24930 




OORG 


•-3 








13812 








24940 




BO 


»*24,8(1»,, 


TEST IF STAMNT NUMBER 


CORRESPONDS TO FMT 


13812 


43 


13836 


000-8 


24950 




BTM 


ERR0R,277,9» 


I/O STATEMENT NO. NOT 


A FORMAT 


NUMBER 


13824 


17 


09230 


00K77 


24960 


I OA 


BNR 


•♦20,CHI^2 








13836 


45 


13856 


15141 


24970 




B 


BEGIN 








13848 


49 


02590 


00000 


24980 




DORG 


•-3 








13896 








24990 




CM 


CHI, 23, 10 








138S6 


14 


15139 


000K3 


25000 




BE 


• ♦24 








13868 


46 


13892 


01200 


25010 


lOLER 


BTM 


ERROR, 278, 9, 


MISSING COMMA OR INVALID LIST 


ELEMENT 


13880 


17 


09230 


00K78 


25020 




BTM 


PUT, 123,8, COMMA 






13892 


17 


08944 


0-123 


25030 




TR 


CHI-l,CHI^l 








13904 


31 


15138 


15140 


25040 




CM 


CHI, 40, 10 








13916 


14 


15139 


OOOMO 


25050 




BNH 


lOB 








13928 


47 


13988 


01100 


25060 




CM 


CHI, 69,10 








13940 


14 


15139 


00009 


25070 




BH 


IDLER 








13952 


46 


13880 


01100 


25080 




SF 


OUTSW 








13964 


32 


06896 


00000 


25090 




BTM 


CSORN,IOA 








13976 


17 


05594 


J3836 


25100 


lOB 


TFM 


IOLOOP,0,10 








13988 


16 


14155 


000-0 


25110 




CM 


CHI, 24, 10 








14000 


14 


15139 


000K4 


25120 




BNE 


lOLER 








14012 


47 


13880 


01200 


25130 




AM 


PARCNT,1,10 








14024 


11 


03288 


000-1 


25140 




BTM 


PUT, I24,8,LEFT PAREN 






14036 


17 


08944 


0-124 


25150 




TR 


CHI-l,CHI^l 








14048 


31 


15138 


15140 


25160 




AM 


IOLOOP,1,10 








14060 


11 


14155 


000-1 


25170 




CM 


CHI, 24, 10 








14072 


14 


15139 


000K4 


25180 




BE 


lOG 








14084 


46 


14520 


01200 


25190 


lOD 


CM 


CHI, 40, 10 








14096 


14 


15139 


OOOMO 


25200 




BNH 


I0B^12 








14108 


47 


14000 


0110b 


25210 




CM 


CHI, 69,10 








14120 


14 


15139 


00009 


25220 




BH 


IDLER 








14132 


46 


13880 


01100 
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25230 




SF 


OUTSW 


14144 


32 


06896 


00000 


25240 


lOLOOP 


DC 


2.0,» 


14155 




2 




25250 




-0 
BTM 


CS0RN,»*I2,, COLLECT LIST ELEMENT 


14156 


17 


05594 


J4168 


25260 




BNR 


•♦20>6(1) 


14168 


45 


14188 


000-6 


25270 




B7 


lOLERff, FUNCTION NAME 


14180 


49 


13880 




25280 




CM 


CHI. 23.10 


14188 


14 


15139 


000K3 


25290 




BNE 


lOE 


14200 


47 


14256 


01200 


25300 




BTM 


PUT. 123.8(C0MMA 


14212 


17 


08944 


0-123 


25310 




SF 


lOSW 


14224 


32 


09911 


00000 


25320 




TR 


CHI-l,CHI*l 


14236 


31 


15138 


15140 


25330 




B 


100 


14248 


49 


14096 


00000 


253A0 




00 RG 


• -3 


14256 








25350 


lOE 


BNF 


lOLER.IOSW 


14256 


44 


13880 


09911 


25360 




CF 


lOSW 


14268 


33 


09911 


00000 


25370 




CM 


CHI, 33. 10 


14280 


14 


15139 


000L3 


25380 




BNE 


IOB+12 


14292 


47 


14000 


01200 


25390 




BTM 


PUT, 133, 8, EQUAL 


14304 


17 


08944 


0-133 


25400 




BO 


D0A>48,FX0RFL», BRANCH tO COLLECT INDICES OF ARRAY LOOP 


14316 


43 


12386 


06309 


25410 




B 


lOLER 


14328 


49 


13880 


00000 


25420 




00 RG 


• -3 


14336 








25430 




RETURN HERE FROM DO COOEING ••••• 










25440 


I OF 


CM 


CHI ,4,10 


14336 


14 


15139 


000-4 


25450 




BNE 


lOLER 


14348 


47 


13880 


01200 


25460 




BT M 


PUT, 104, 8, RIGHT PAREN 


14360 


17 


08944 


0-104 


25470 




fR 


CHI-1,CHI*1 


14372 


31 


15138 


15140 


25480 




SM 


PARCNT,1,10 


14384 


12 


03288 


000-1 


25490 




BN 


lOLER 


14396 


47 


13880 


01300 


25500 




SM 


IOLOOP,1,10 


14408 


12 


14155 


000-1 


25510 




BNZ 


• ♦32 


14420 


47 


14452 


01200 


25520 




BNR 


I0LER-24,CHI*2 


14432 


45 


13856 


15141 


25530 




B 


BEGIN 


14444 


49 


02590 


00000 


25540 




DORG 


»-3 


14452 








25550 




CM 


CHI ,23,10 


14452 


14 


15139 


00OK3 


25560 




BNE 


IDLER 


14464 


47 


13880 


01200 


25570 




BTM 


PUT, 123, 8, COMMA 


14476 


17 


08944 


0-123 


25580 




TR 


CHI-1,CHI*1 


14488 


31 


15138 


15140 


25590 




SF 


lOSW 


14500 


32 


09911 


00000 


25600 




B 


lOD 


14512 


49 


14096 


00000 


25610 




DORG 


•-3 


14520 








25620 


lOG 


ATM 


PUT, 124,8,LEFT PAREN 


14520 


17 


OR 944 


0-124 


25630 




AM 


PARCNT,1,10 


14532 


11 


03288 


OOO-l 


25640 




TR 


CHI-l,CHI*l 


14544 


31 


15138 


15140 


25650 




AM 


I0L00P,l,10 


14556 


11 


14155 


000-1 


25660 




CM 


CHI, 24, 10 


14568 


14 


15139 


000K4 


25670 




BNE 


100 


14580 


47 


14096 


01200 






BTM 


PUT, 124,8, LEFT PAREN 


14592 


17 


08944 


0-124 


25690 




AM 


PARCNT,1,10 


14604 


11 


03288 


OOO-l 


25700 




TR 


CHI-l,CHUl 


14616 


31 


15138 


15140 


25710 




AM 


I0L00P,1,10 


14628 


11 


14155 


000-1 


25720 




B 


100 


14640 


49 


14096 


00000 


25730 




DORG 


• -3 


14648 








25740 




DORG 


16000 


16000 








25750 


WBLK4 


DSC 


2,22 


16000 




2 




25760 




22 
OS A 


0EF4 


16006 




5 


X I 



333 
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16006 




J6008 




25770 




DC 


l,« 


16007 




1 




25780 


0EF4 


DSC 
0 


1,0 


16008 




1 




25790 




DC 


5,17500 


16013 




5 








J7500 










25800 




DC 


3,046 


16016 




3 








-46 












25810 




OSA 


lOUT 


16021 




5 


X 1 










16021 




J0200 




25820 




DC 


I,' 


16022 




1 




25830 


WRBLK4 TFM 


I0RT,»>23 


16024 


16 


00565 


J6047 


25840 




B 


I0PT,WBLK4,7 


16036 


49 


00532 


J6000 


25850 




TRA 




16048 


36 


00000 


00500 










16060 


49 


00000 


00000 


25860 




TCO 


WRBLK4 


16024 








25870 




OUT OF CORE BLOCK 5 CONTAINS THE FOLLOWING 










25880 


• 


OUTSC 












25890 


• 


00 












25900 


• 


DKIO 












25910 




DORG 


lOUT 


L0200 








25920 




TFM 


FM0N^35,BLK4,, I OUT 


10200 


16 


02359 


-9683 


25930 




BTM 


FNON.IOUT 


10212 


17 


02324 


J 02 00 


25940 




TFM 


FM0N*35,BLK2 


10224 


16 


02359 


-9637 


25950 




BTM 


FMONfNONARA 


10236 


17 


02324 


J0224 


25960 




TFM 


FM0N«35,BLKi,, DIM 


10248 


16 


02359 


-9614 


25970 




BTM 


FMONfOlM 


10260 


17 


02324 


J0248 


25980 




TFM 


FM0N^35,BLK1,, COMMON 


10272 


16 


02359 


-9614 


25990 




BTM 


FMON, COMMON 


10284 


17 


02324 


J0272 


26000 




TFM 


FN0N^35,BLK6,» IF STMNT 


10296 


16 


02359 


-9729 


26010 




BTM 


FMON, IF 


10308 


17 


02324 


J 0296 


26020 




TFM 


FNDN«3S,BLK6,, GOTO 


10320 


16 


02359 


-9729 


26030 




BTM 


FMON .GOTO 


10332 


17 


02324 


J0320 


26040 




TFM 


FM0N«35,BLK6,t CALL 


10344 


16 


02359 


-9729 


26050 




BTM 


FMON, CALL 


10356 


17 


02324 


J0344 


26060 




TFM 


FM0N435,BLK6,, RETURN 


10368 


16 


02359 


-9729 


26070 




BTM 


FMON, RETURN 


10380 


17 


02324 


J0368 


26080 




TFM 


FM0N4>35,8LKl,, FORMAT 


10392 


16 


02359 


-9614 


26090 




BTM 


FMON, FORMAT 


10404 


17 


02324 


J0392 


26100 




BNF 


D0L00P-f36,TRIND», DO STATEMENT 


10416 


44 


12026 


03137 


26110 




B 


DOLOOP 


10428 


49 


11990 


00000 


26120 




TFM 


FM0N+35,BLK3,, ASCAN 


10440 


16 


02359 


-9660 


26130 




BTM 


FMON,ASCAN 


10452 


17 


02324 


J0440 


26140 




BD 


SC1,SINGST,, OUTSC 


10464 


43 


10860 


09898 


26150 




B 


OUT SCI 


10476 


49 


10512 


00000 


26160 




TDM 


USE0FS^5,1,, DISK I/O 


10488 


15 


02268 


00001 


26170 




B 


DKIOEN 


10500 


49 


13240 


00000 


26180 


• « 


OUTSC CODE IS HERE 










26190 




DORG 


ASCANl 


11990 








26200 




OUTPUT DO STATEMENT CODE IS HERE 










26210 


• « 


THE FOLLOWING INSTRUCTIONS CHANGE DO STATEMENT CODE 










26220 




DORG 


DOE+24 


12878 
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BO 


DKF»IOSW«, 


RETURN TO I/O SCAN 


12878 


43 


14444 


09911 


26240 




DORG 


DOEE 




13178 








26250 




BD 


OKF.IOSW,, 


RETURN TO I/O SCAN 


13178 


43 


14444 


09911 


26260 




ENTER HERE TO DECODE DISK I/O STATEMENTS 














DORG 


lOUTEN 




13240 








26280 




SF 


DKIO*»» 


FLAG FOR FETCH AND RECORD 


13240 


32 


10488 


00000 






CM 


CHI,43tlO 




13252 


14 


15139 


000M3 






BNE 


DKIOl 




13264 


47 


13332 


01200 


in 




TFM 


DKPUT-Hl,0r42t8, 


FETCH SYMBOL 


13276 


16 


13603 


0-142 


?6^2n 

_ 




CM 


CHI>2,48,10f 


CHECK FOR H 


13288 


14 


15141 


000M8 






BNE 


ERROl 




13300 


47 


04198 


01200 






TR 


CHI-l,CHI*3», 


SHIFT OFF TWO CHARACTERS 


13312 


31 


15138 


15142 






B 


DKLIST 




13324 


49 


13472 


00000 






DORG 


•-3 




13332 










DKIOl 


CM 


CHI, 44,10 




13332 


14 


15139 


000M4 






BNE 


OK 1 02 




13344 


47 


13400 


01200 


^^f nn 




CF 


OKIO,,, 


NO FLAG FOR FIND 


13356 


33 


10488 


00000 


f AAin 




TFM 


DKPUT*11,0144,8, 


FIND SYMBOL 


13368 


16 


13603 


0-144 






TR 


CHI-1,CHI+1,, 


SHIFT OFF ONE CHARACTER 


13380 


31 


15138 


15140 


26420 




'B 


DKLIST 




13392 


, 49 


13472 


00000 


26430 




DORG 


•-3 




13400 








26440 


DK in2 


8TM 


COLNAM,03,10 




13400 


17 


04560 


000-3 


26450 




C 


SYM,0R0CT»4 




13412 


24 


09879 


14725 






BV 


ERROl 




13424 


46 


04198 


01400 


26470 




BNE 


ERROl 




13436 


47 


04198 


01200 


26480 




TR 


CHI-l,CHI*5,» 


SHIFT OFF THREE CHARACTERS 


13448 


31 


15136 


1 5144 






TFM 


DKPUT*11,0146,8, 


RECORD SYMBOL 


13460 


16 


13603 


0—146 




* 


TOM 


DISKSW,1,11, 


SET SW TO INDICATE DISK I/O 


13472 


15 


02383 


OOOOJ 






CM 


CHI,24,10, 


CHECK FOR LEFT PAREN 


1 3484 


14 


15139 


000K4 






BNE 


DKER 




1 3496 


47 


13820 


01200 


26530 




TOM 


lOSW.l 




13508 


1 5 


0991 1 


00001 


26540 




TR 


CHI-1,CHI*1,, 


SHIFT OFF LEFT PAREN 


13520 


f ^ 




1 5 140 


26550 




CM 


CHI,69tlO 










00009 






BL 


• ♦24 




13544 


47 


13568 


01300 


26570 




AM 


OKPUT+11,1,10 


ADD ONE FOR LITERAL 


13556 


1 1 


13603 


000— I 






CM 


CHI, 40, 10 




13568 


14 


15139 


OOOHO 


26590 




BL 


DKER 




13580 


47 


13820 


01300 


26600 


DKPUT 


BTM 


PUT,,, 


OUTPUT DISK I/O SYMBOL 


13592 


17 


08944 


—0000 






BTM 


PUT, 0124, 8, 


OUTPUT LEFT PAREN 


13604 


17 


08944 


0-124 






SF 


OUTSM 




13616 


32 


06896 


00000 


26690 




BTM 


CS0RN,*«12 




13628 


17 


05594 


J 3640 


26640 




BD 


•♦20,FX0RFL 




13640 


43 


13660 


06309 






B. 


DKER 




13652 


49 


13820 


00000 






DORG 


•-4 




1 3659 












CM 


CHI ,04, 10, 


CHECK FOR RT PAREN 


13660 


14 


15 139 


000-4 






BNE 


OKER 




13672 


47 


13820 


01200 






BTM 


PUT,0l04t8t 


OUTPUT Rt PAREN 


13684 


17 


08944 


0-104 


26700 




BNF 


BEeiN,0KI0t, 


BRANCH TO BEGIN IF FIND STMNT 


13696 


44 


02590 


10488 


26710 




BTM 


PUT,0123,8, 


OUTPUT COMMA 


13708 


17 


06944 


0-123 


26720 




TR 


CHI-l,CHt«lf , 


SHIFT OFF RT PAREN 


13720 


31 


15138 


1 5140 


26730 


PKL 


BNR 


•♦24.CHI4-2 




13732 


45 


13756 


15141 


26740 




BTM 


ERROR ,472 ,9, 


DISK I/O STMNTS MUST HAVE LISTS 


13744 


17 


09230 


0OM72 


26750 




TR 


DKSMl-l,SWSET-4,, INIT SNITCHES 


13756 


31 


14351 


14726 


26760 




\B -. - 


DKB 




13768 


49 


13856 


00000 


26770 




DORG 


•-3 




13776 








26780 


OKA 


BNR 


• ♦20,CHU2 


\ 


13776 


45 


13796 


15141 
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26790 




B 


BEGIN 




13788 


49 


02590 


00000 


26800 




DORG 


•-3 




13796 








26810 




CM 


CHI, 23, 10 




13796 


14 


15139 


000K3 


26820 




BE 


• ♦24 




13808 


46 


13832 


01200 


26830 


DKER 


BTM 


ERR0R,471,9 




13820 


17 


09230 


0OM71 


26840 




BTM 


PUT,0123t8, 


OUTPUT COMMA 


13832 


17 


08944 


0-123 


26850 




TR 


CHI-1,CHU1,, 


SHIFT OFF ONE CHARACTER 


13844 


31 


15138 


15140 


26860 


OKB 


CM 


CHI,40tlO 




13856 


14 


15139 


OOOMO 


26870 




BNH 


DKC 




13868 


47 


14048 


OllOO 


26880 




CM 


CHI, 69,10 




13880 


14 


15139 


00009 


26890 




BH 


DKER,,, 


LITERAL ITEM ON LIST 


13892 


46 


13820 


01100 


26900 




SF 


OUTSW 




13904 


32 


06896 


00000 


26910 




BTM 


CS0RN,«^12 




13916 


17 


05594 


J3928 


26920 




BD 


•♦32,611),, 


DIGIT IMPLIES AN ARRAY NAME 


13928 


43 


13960 


000-6 


26930 




TDM 


DKSM2,2 




13940 


15 


14354 


00002 


26940 




B 


• ♦20 




13952 


49 


13972 


00000 


26950 




DORG 


•-3 




13960 








26960 




TDM 


DKSM2,1 




13960 


15 


14354 


OOOOl 


26970 




BD 


•♦20,DKSH1 




13972 


43 


13992 


14352 






B 


0KB1^12 




13984 


49 


14028 


00000 


26990 




DORG 


•-4 




13991 








27000 




C 


0KSM1,0KSW2 




13992 


24 


14352 


14354 


27010 




BE 


OKA 




14004 


46 


13776 


01200 


27020 


DKBl 


BTM 


ERR0Rt473,9, 


ARRAYS AND SIMPLE VARIABLES ON SAME 


t tn 1 Ani s. 
IfU X4Ui6 


17 


09230 


0OM73 


27030 




TO 


0KSW1»0KSN2 




14028 


25 


14352 


14354 


27040 




B 


OKA 




14040 


49 


1371'6 


00000 


27050 




DORG 


•-3 




14048 








27060 




THE FQLLONtNG HANDLES 


IMPLIED DO LOOPS IN LISTS 










27070 


OKC 


TFM 


OKLOOP, 0,10 




14048 


16 


14215 


000—0 


27060 




CM 


CHI ,24, 10 




14060 


14 


15139 


00OK4 


27090 




BNE 


DKER 




14072 


47 


13820 


01200 


27100 




AM 


PARCNTvitlO 


OUTPUT LEFT PAREN 


14084 


11 


03288 


000-1 


27110 




BTM 


PUT, 0124, 8, 






08944 


0-124 


27120 




TR 


CHI-1,CHU1,, 


SHIFT OFF ONE CHARACTER 


14108 


31 


15138 


15140 


27130 




AM 


OKLOOP, I, 10 




14120 


11 


14215 


OOO-l 


27140 




CM 


CHI ,24, 10 




14132 


14 


15139 


000K4 


27150 




BE 


OKG 




14144 


46 


14592 


01200 


27160 


DKD 


CM 


CHI,40,10 




14156 


14 


15139 


OOOMO 


27170 




BNH 


DKC^I2 




14168 


47 


14060 


01100 


27180 




CM 


CHI, 69,10 




14180 


14 


15139 


00009 






BH 


OKER 




14192 


46 


13820 


OllOO 


27200 




SF 


OUTSW 




14204 


32 


06896 


QOOOO 


27210 


OKLOOP 


DC 
-0 


2,0,» 




14215 




2 


27220 




BTM 


CS0RN,*^12 




■ 

14216 


17 


05594 


J4228 


27230 




BNR 


•♦20,6(1) 




14228 


45 


14248 


000-6 


27240 




B 


DKER,,, 


FUNCTION NAME 


14240 


49 


13820 


00000 


27250 




DORG 


•-3 




14248 








27260 




BO 


•♦36,DKSW1 




14248 


43 


14284 


14352 


27270 




C 


0KSN1,0KSW2 




14260 


24 


14352 


14354 


27280 




BNE 


OKBl 




14272 


47 


14016 


01200 


27290 




TO 


0KSN1,DKSW2 




14284 


25 


14352 


14354 


27300 


OKDl 


CM 


CHI, 23, 10 




14296 


14 


15139 


000K3 


27310 




BNE 


OKE 




14308 


47 


14364 


01200 


27320 




BTM 


PUT, 0123, 8, 


OUTPUT COMMA 


14320 


17 


08944 


0-123 


27330 




TR 


CHI-l,CHI^l 




14332 


31 


15138 


15140 



336 
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273A0 




SF 


OKE 






14344 


32 


14364 


00000 






DS 


2 » • — 3 






14352 




2 




2 7 560 


DKSW2 


DS 


2 t*-l 






14354 




2 




27370 




B 


DKD 






14356 


49 


14156 


00000 


27380 




DORG 


»-3 






14364 








27390 


OKE 


BNF 


DKERtDKE 






14364 


44 


13820 


14364 


27400 




CF 


OKE 






14376 


33 


14364 


00000 


27410 




CM 


CHI, 33, 10 






14388 


14 


15139 


000L3 


27420 




BNE 


OKC+12 






14400 


47 


14060 


01200 


27430 




BTM 


PUT, 0133, 8, 


OUTPUT 


EQUAL SYMBOL 


14412 


17 


08944 


0-133 


27440 




BO 


D0A-48,FX0RFL, 


, 60 TO 1 


DO COOING FOR IMPLIED 00 LOOP 


14424 


43 


12386 


06309 


27450 




B 


DKER 






14436 


49 


13820 


00000 


27460 




DORG 


• -3 






14444 








2 7470 


* 


RETURN HERE FROM DO 


COOING 












27480 


DKF 


CM 


CHI, 04, 10 






14444 


14 


15139 


000-4 


27490 




BNE 


DKER 






14456 


47 


13820 


01200 


27500 




BTM 


PUT, 0104, 8, 


OUTPUT 


RT PAREN 


14468 


17 


08944 


0-104 


27510 




TR 


CHI-1,CH!4^1 






14480 


31 


15138 


15140 


27520 




SM 


PARCNT,l,10 






14492 


12 


03288 


000-1 


27530 




BN 


DKER 






14504 


47 


13820 


01300 


27540 




SM 


OKLOOP.l, 10 






14516 


12 


14215 


OOO-l 


27550 




BNZ 


• ♦32 






14528 


47 


14560 


01200 


27560 




BNR 


DKER>24,CHI^2 






14540 


45 


13796 


15141 


27570 




B 


BEGIN 






14552 


49 


02590 


00000 


27580 




DORG 


•'-3 






14560 








27590 




CM 


CHI ,23,10 






14560 


14 


15139 


000K3 


27600 




BNE 


DKER 






14572 


47 


13820 


01200 


27610 






DKDl 






14584 


49 


14296 


00000 


27620 




DORG 


•-3 






14592 








27630 


□KG 


BTM 


PUT, 0124, 8, 


OUTPUT 


LEFT PAREN 


14592 


17 


08944 


0-124 


27640 




AM 


PARCNT,1,10 






14604 


11 


03288 


OOO-l 


27650 




TR 


CHI-1,CHI*1 






14616 


31 


15138 


15140 


27660 




AM 


DKLOOP, It 10 






14628 


11 


14215 


OOO-l 


27670 




CM 


CHI, 24,10 






14640 


14 


15139 


000K4 


27680 




BNE 


OKO 






14652 


47 


14156 


01200 


27690 




BTM 


PUT,0124,8, 


OUTPUT 


LEFT PAREN 


14664 


17 


08944 


0-124 


27700 




AM 


PARCNT,1,10 






14676 


11 


03288 


000-1 


27710 




TR 


CHI>1,CH(4-1 






14688 


31 


15138 


15140 


27720 




AN 


DKLOOP, 1,10 






14700 


11 


14215 


000-1 


27730 




B 


DKD 






14712 


49 


14156 


00000 


27740 




DORG 


•-3 






14720 








27750 


OROCT 


OAC 


3, ORD 






14721 




3 


X 2 






ORD 
















27760 




DC 


2,00 






14727 




2 








-0 
















27770 


SMSET 


DC 

-o« 


3t00* 






14730 




3 




27780 




DORG 


16000 






16000 












DSC 


2,22 






16000 




2 




27800 




22 
DSA 


0EF5 






16006 




5 


X 1 














16006 




J6008 




27810 




DC 
fl 


lt« 






16007 




1 




27820 


DEF5 


DSC 


ItO 






16008 




1 





0 

337 



27830 
27840 

27850 

27860 



27870 URBLK5 TFM 
27880 B 



DC 

J7650 
DC 3,046 
-46 

DSA lOUT 
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5,17650 



I0RT,«4-23 
I0PT,WBLKS*7 



27900 

27910 
27920 
27930 
27940 
27950 
27960 
27970 
27980 
27990 
28000 
28010 
28020 
28030 
28040 
28050 
28060 
28070 
28080 
28090 
28100 
28110 
28120 
28130 
28140 
28150 
28160 
28170 
26180 
28190 
28200 
28210 
28220 
28230 
28240 
28250 
28260 
28270 
28280 
28290 
28300 
28310 



TCD HRBLK5 

OUT OF CORE BLOCK 

OUTSC 

CALL 

RETURN 

IF 

IF OVERFLOW 
IF EXPONENT CHECK 
IF SENSE SWITCH 



6 CONTAINS THE FOLLOUING 



16013 




5 


16016 




3 


16021 




5 


16021 




J0200 


16022 




1 


16024 


16 


00565 


16036 


49 


00532 


16048 


36 


00000 


16060 


49 


00000 


16024 







J6047 
J6000 
00500 



CALLEN 



GOTO 
















DORG 


I OUT 






10200 








TFM 


FM0N-(>35,BLK4,, 


I OUT 




10200 


16 


02359 


-9683 


BTM 


FMON,IOUT 






10212 


17 


02324 


J0200 


TFM 


FM0N>35,BLK2 






10224 


16 


02359 


-9637 


BTM 


FMON,NONARA 






10236 


17 


02324 


J0224 


TFM 


FM0N*35,BLK1,, 


DIM 




10248 


16 


02359 


-9614 


BTM 


FM0N,0IM 






10260 


17 


02324 


J0248 


TFM 


FM0N+35,BLK1,, 


COMMON 




10272 


16 


02359 


-9614 


BTM 


FMON, COMMON 






10284 


17 


02324 


J0272 


AM 


PARCNT,01,10, 


IF 




10296 


11 


03288 


000-1 


B 


IFl 






10308 


49 


13028 


00000 


CM 


CHI,56,10, 


GOTO 




10320 


14 


15139 


000N6 


B 


GOTOEN 






10332 


49 


14084 


00000 


CM 


CHI ,53, 10, 


CALL 




10344 


14 


15139 


000N3 


B 


CALLEN 






10356 


49 


11990 


00000 


BTM 


C0LNAM,03,10, 


RETURN 




10368 


17 


04560 


000-3 


B 

TFM 


RETRN 






10380 


49 


12910 


00000 


FM0N^35,BLK1,, 


FORMAT 




10392 


16 


02359 


-9614 


BTM 


FMON, FORMAT 






10404 


17 


02324 


J0392 


TFM 


FM0N^35,BLK4,, 


000 




10416 


16 


02359 


-9683 


BTM 


FMON,DOO 






10428 


17 


02324 


J0416 


TFM 


FM0N*35,BLK3,, 


A SCAN 




10440 


16 


02359 


-9660 


BTM 


FMON, A SCAN 






10452 


17 


02324 


J0440 


BD 


SC1,SINGST,, 


OUTSC 




10464 


43 


10860 


09898 


B 


OUT SCI 






10476 


49 


10512 


00000 


TFM 


FM0N*35,BLK5,, 


DISK INPUT/OUTPUT 




10488 


16 


02359 


-9706 


BTM 


FM0N,DKIO 






10500 


17 


02324 


J04e8 


OUTSC CODE IS HERE 














DORG 


ASCANl 






11990 








ENTER HERE TO DECOMPOSE CALL STATEMENT 


• •• 










BNE 


ERROl 






11990 


47 


04198 


01200 


TR 


CHI-l,CHI*l 






12002 


31 


15138 


15140 
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PAGE 57 



28320 




BTM 


COLNAMt 04t 10 










000—4 


28330 




c 


SYM»EXI TCT+6 




12026 






n^Ann 


28340 




BV 


• 4-46 




12038 








28350 




BE 


EXI TOO 






AA 




ni 3nn 

?i« 


28360 




c 






12062 


24 


09879 


12881 


28370 




BE 


L INKCD 




12074 




12462 


01200 


26380 




TDM 


C A L L S W 1 1 




12086 


1 5 


09909 


00001 


28390 




BTM 


PUT . 1 ^fl .A.TAI 1 




12098 


17 


08944 


0-1 38 


28400 




CM 


CHI f 40f 10 




12110 


14 


15139 


OOOMO 


284 10 




BNH 


CALLER 




12122 


47 


09454 


Oil 00 


28420 




CM 


rm .f>Q. t n 

l#niffD79XU 




12 134 


14 


15139 


00009 


28430 




BH 


CALLER 




12146 


46 


09454 


01100 


28440 




SF 


OUTSW 




12158 


32 


06896 


00000 


28450 




BTM 


C SORN t 12 






1 7 


05594 


J2182 


28460 










12182 


45 


12258 


15141 


28470 




BD 






12194 


43 


12238 


03219 


28480 




BTM 


PUT .ni s^.ft. 


runui lliri UrCnAlUN ^ALL 


12206 


17 


08944 


0-153 


28490 




TOM 


6(1)9 *"* 




12218 


15 


000-6 


00000 


28500 




DC 
t 


1 9 * 9 • 




12229 




1 




28510 






BEG IN 




12230 


49 


02590 


00000 


28520 




D0R6 














28530 


CALLA 


BNR 


ERR09t6 (11 




1 9 9« 






000 6 


28540 






BEGIN 




1 39 «n 


AO 

49 


02590 


ououo 


28550 




OORG 


•—3 




1 97^a 








28560 


CALLB 


BD 


• PMTCU 

•▼t^9r''li'» 




12258 


43 


12282 


09900 


28570 




BTM 


FRRDR . 

CI%l\Un9C f 7979 


CVM DQPWtniKl V llCPn NnT A4C TAII MAMC 

Sin ri%cviuu9i.T U3CU nui Ad WALL riAnc 










28580 




BNF 


• -*-209 FNTSW 




1 


11 




09900 


28590 






*-*249 t 9 






AO 

49 


12270 


UUUUU 


28600 




OORG 


*-3 




1 aana 








28610 




TDM 


FNTSM9O 




1 »ao3 




09900 


nnfxnrt 
UUUUU 


28620 




CM 


CHI > ?4. in 




1 Jill 


1 A 






28630 




BNE 


CALLER 




1 


AT 


09454 


01200 


28640 




BTM 


PUT. 194.fl.l FFT 


PAREN 


1 f f-lB 








28650 




AM 


PARCNT. 1.10 












28660 




CM 


vni^c 9^9 »*'9 


icdi run runwiiun Anwucncnid 


1 




1 «1 Al 


000-4 


28670 




BE 


CALLER 




1 iaTA 






01200 


28680 




TFN 


ASCAN4-239CLASEN 




1 ^fflA 

I23o6 


16 


10463 


J4530 


28690 




B 


ASCAN9flf 


GO TO ARITHMETIC SCAN 


12398 


49 


10440 


00000 


28700 




OORG 


•-3 




1 ^InA 








28710 


EXITCD 


BNR 


CALLER-489CHI«10 












28720 




TOM 


TRINO9I9II 




12418 


7c 
15 


03 137 


0000 J 


28730 




BTM 


PUT9OI3I9B9 


CALL EXIT SYMBOL 


12430 


17 


08944 


0-131 


28740 




BTM 


PUT9OI4O9B9 DUMMY 


12442 


17 


08944 


0—140 


28750 




B 


BEGIN 




12454 


49 


02590 


00000 


28760 




OORG 


•-3 




^^^^^ 








28770 


L INKCD 


CM 


CHI4-B9249IO 




12462 


14 


15147 


000K4 


28780 




BE 


•♦32 






46 


12506 


01200 


28790 




BNR 


CALLER-489CHI«8 




12486 


45 


09406 


15147 


28800 




B 


ERROI 




12498 


49 


04198 


00000 


28810 




OORG 


•-3 




12506 








28820 




TOM 


TRINO9I9II 




12506 


15 


03137 


OOOOJ 


28830 




BTM 


PUT901529S9 


CALL LINK SYMBOL 


I2S18 


17 


08944 


0-152 


28840 




BTM 


PUT9OI4O98 




12530 


17 


08944 


0-140 


28850 




BTM 


PUT9OUO98 




12542 


17 


08944 


0-140 


28860 




TR 


CHI-19CHI4>9 




12554 


31 


15138 


15148 
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28870 




CM 


CHI94O9IO 


12566 


14 


15139 


OOOMO 


28880 




BNH 


CALLER 


12578 


47 


09454 


01100 


28890 




CM 


CHl969«10 


12590 


14 


15139 


00009 


28900 




BH 


CALLER 


12602 


46 


09454 


OllOQ 


28910 




TR 


OUTAR 9MASKLK 


12614 


31 


128B2 


12896 


28920 




TF 


0UTAR>l9CHI 


12626 


26 


12883 


15139 


28930 




TR 


CHI-1,CHU1 


12638 


31 


15138 


15140 


28940 




TFM 


LKC03-»-6faUTAR»3 


12650 


16 


12712 


J2885 


28950 


LKCOl 


CM 


CHI»409lO 


12662 


14 


15139 


OOOMO 


28960 




BNH 


LKC04 


12674 


47 


12750 


01100 


28970 




BNR 


LKC03,LKCD3«6.11 


12686 


45 


12706 


1271K 


28980 




B 


ERROI 


12698 


49 


04198 


00000 


28990 




OORG 


•-3 


12706 








29000 


LKC03 


TF 


tCNl9 


12706 


26 


00000 


15139 


29010 




TR 


CHI-l9CHt>l 


12718 


31 


15138 


15140 


29020 




AM 


LKCD3^69029lO 


12730 


11 


12712 


000-2 


29030 




B 


LKCOl 


12742 


49 


12662 


00000 


29040 




OORG 


•-3 


12750 








29050 


LKC04 


CM 


CHI«04«10 


12750 


14 


15139 


000-4 


29060 




BNE 


ERROI 


12762 


47 


04198 


01200 


29070 




BNR 


ERROI 9CHIM 


12774 


45 


04198 


15143 


29080 




CF 


0UTAR«2 


12786 


33 


12884 


00000 


29090 




CF 


0UTAR46 


12798 


33 


12888 


00000 


29100 




CF 


OUTAR410 


12810 


33 


12892 


00000 


29110 




BT 


PUT90UTAR^3 


12822 


27 


08944 


12885 


29120 




BT 


PUT90UTAR^7 


12834 


27 


08944 


12889 


29130 




BT 


PUT90UTAR«11 


12846 


27 


08944 


12893 


29140 




B 


BEGIN 


12B5B 


49 


02590 


00000 


29150 




OORG 


•-3 


12866 








29160 


EXITCT 


OAC 
EXIT 


49EXIT 


12867 




4 


X 2 


29170 


LINKCT 


DAC 
LINK 


♦9LINK 


12875 




4 


X 2 


29180 


OUTAR 


OSS 


14 


12882 




14 




29190 




DC 

-000 


49O 


12899 




4 




29200 


MASKLK 


OS 


• •-3 


12896 




0 




29210 




DC 

-000 


4.0 


12903 




4 




29220 




DC 

-000 


49O 


12907 




4 




29230 




DC 


2,0» 


12909 




2 





ENTER HERE TO OUTPUT RETURN STATEMENT 



29250 RETRN 


C 


SYM,URNCT*4 




12910 


24 


09879 


13027 


29260 


BNE 


ERROI 




12922 


47 


04198 


01200 


29270 


BD 


•♦44«SUBFCT 




12934 


43 


12978 


02293 


29280 


BTM 


ERR0R29S779 9 




12946 


17 


09386 


00N77 


29290 


BD 


BE6IN9NOINO 




12958 


43 


02590 


03195 


29300 


B 


BEGINA 




12970 


49 


02602 


00000 


29310 


D0R6 


•-3 




12978 








29320 


BTM 


PUT, 139,89RETURN 




12978 


17 


08944 


0-139 


29330 


BTM 


PUT, 14098»DUMMY 




12990 


17 


08944 


0-140 


29340 


TDM 


RTSM,1 




13002 


15 


05529 


00001 


29350 


B 


BEGIN 




13014 


49 


02590 


00000 


29360 


OORG 


•-3 




13022 
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29370 


URNCT 


DAC 


3>URN 




13023 




3 


X 2 


29380 




OUTPUT IF CODING 












29390 








•••••• 










29400 


IFl 


TOM 


TRINO.1,11, 


SET TRANSFER INDICATOR ON 


13028 


15 


03137 


OOOOJ 


29410 




BTM 


PUT, 107,8, 


IF SYMBOL 


13040 


17 


08944 


0-107 


29420 




BTM 


PUT, 124,8, 


LEFT PAREN SYMBOL 


130S2 


17 


08944 


0-124 


29430 




BD 


•♦20, OUTRAN,, 


TEST IF 00 LOOP ENDING WITH TRANSFER 


13064 


43 


13084 


09899 


29440 




B 


• ♦20 




13076 


49 


13096 


00000 


29450 




00 RG 


•-3 




13084 








29460 




BTM 


ERR0R2, 571,9 




13084 


17 


09386 


DON 71 


29470 




TDM 


IFSW,1,, 


SET SWITCH TO INDICAT IF STATEMENT 


13096 


15 


09905 


00001 


29480 




TFM 


STC,3,10 




13108 


16 


05533 


000-3 


29490 




CM 


CHI, 04, 10, 


TEST FOR VACEOUS PARENS 


13120 


14 


15139 


000-4 


29500 




BE 


ERR02 




13132 


46 


14264 


01200 


29510 


• 


IFSS CODE 












29520 




BTM 


C0LNAM,8,10 




13144 


17 


04560 


000-8 


29530 




C 


SYM,0VFL*14 




13156 


24 


09879 


14291 


29540 




BNV 


• ♦32 




13168 


47 


13200 


01400 


29550 


GOIFAS 


TFM 


ASCAN^23,IFASEN 




13180 


16 


10463 


J4498 


29560 




B7 


ASCAN,,, 


GO TO SCAN EXPRESSION 


13192 


49 


10440 




29570 




BNE 


• ♦44 




13200 


47 


13244 


01200 


29580 




TR 


CHI-1, CHILIS,, 


SHIFT OFF 8 CHARACTERS 


13212 


31 


15138 


15154 


29590 




TFM 


SYM, 0014,8, 


INDICATOR 14 - OVERFLOW 


13224 


16 


09879 


0-014 


29600 




B7 


IFPUT 




13236 


49 


13540 




29610 




C 


SyM,EXP0N^14 




132^%- 24 


09879 


14307 


29620 




BNE 


IFSS 




13256 


47 


13360 


01200 


29630 




TR 


CHI-l, CHILIS,, 


SHIFT OFF 8 CHARACTERS 


13268 


31 


15138 


15154 


29640 




BTM 


C0LNAM,5,10 




13280 


17 


04560 


000-5 


29650 




C 


SYM,CHECKC^8 




13292 


24 


09879 


14317 


29660 




BV 


ERROl 




13304 


46 


04198 


01400 


29670 




BNE 


ERROl 




13316 


47 


04198 


01200 


29680 




TR 


CHI-l,CMI*9,, 


SHIFT OFF S CHARACTERS 


13328 


31 


15138 


15148 


29690 




TFM 


SYM, 0015,8, 


INDICATOR 15 - EXPONENT CHECK 


13340 


16 


09879 


0-015 


29700 




B7 


IFPUT 




13352 


49 


13540 




29710 


IFSS 


C 


SYM,SENSW^14 




13360 


24 


09879 


14333 


29720 




BNE 


GOIFAS 




13372 


47 


13180 


01200 


29730 




TR 


CHI-1,CHU15,, 


SHIFT OFF 8 CHARACTERS 


13384 


31 


15138 


15154 


29740 




BTM 


C0LNAM,3,10 




13396 


17 


04560 


000-3 


29750 




C 


SYM,TCHC^4 




13408 


24 


09879 


14339 


29760 




BV 


ERROl 




13420 


46 


04198 


01400 


29770 




BNE 


ERROl 




13432 


47 


04198 


01200 


29780 




TR 


CHI-1,CHI^5,« 


SHIFT OFF 3 CHARACTERS 


13444 


31 


15138 


15144 


29790 




CM 


CHI, 70, 10 




13456 


14 


15139 


OOOPO 


29800 




BH 


• ♦24 




13468 


46 


13492 


01100 


29810 




BTM 


ERROR, 174,9, 


SWITCH NUMBER IN ERROR 


13480 


17 


09230 


00J74 


29820 




TOM 


DIMSW,1 




13492 


15 


09904 


00001 


29830 




BTM 


CSTN0,^^12t 




13504 


17 


05302 


J3516 


29840 




TDM 


DIMSW,0 




13516 


15 


09904 


00000 


29850 




SF 


SYM-3 




13528 


32 


09876 


00000 


29860 


IFPUT 


BTM 


PUT,0130,8, 


SENSE SWITCH SYMBOL 


13540 


17 


08944 


0-130 


29870 




BT 


PUT, SYM,, 


PUT OUT SWITCH NUMBER 


13552 


27 


08944 


09879 


29880 




CM 


CHI, 4, 10, 


LOOK FOR RIGHT PAREN 


13564 


14 


15139 


000-4 


29890 




BNE 


ERR02 




13576 


47 


14264 


01200 


29900 




SM 


PARCNT,1,10 




13588 


12 


03288 


OOO-l 


29910 




BTM 


PUT, 104,8, 


RIGHT PAREN SYMBOL 


13600 


17 


08944 


0-104 



341 
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29920 

29930 OUTSN 

29940 

29950 

29960 

29970 

29980 

29990 

30000 

30010 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

30090 

30100 OUTSNE 

30110 

30120 

30130 

30140 

30150 

30160 

30170 

30180 0UTSN2 

30190 

30200 

30210 

30220 

30230 

30240 0UTSN3 

30250 

30260 

30270 

30280 

30290 

30300 

30310 

30320 

30330 

30340 

30350 

30360 

30370 •»• 

30380 GOTOEN 

30390 

30400 

30410 

30420 

30430 

30440 

30450 

30460 

30470 



TFM STC,2,10, 

TR CHI-1,CHU1 

SF OUTSW 

CM CHI, 69,10 

BH •♦24 

BTM ERROR, 175,9, 

BTM CSTN0,^^12,, 

BD •♦20, INSW 

B7 ^^20 

BO 0UTSNE-12,8fl) 
SF 7 ( 1 ) 

BO 0UTSN2,C6T0,, 
SM STC,1,10 
BH 0UTSNE^20 
BNR •♦32,CHI^2 
B BEGIN 
00R6 •-3 

BTM ERR0R,077,9, 
BTM ERR0R2, 573,9, 
B BEGIN 
□ORG •«>3 
CN CHI,23,10 
BNE 0UTSN^48 
BNR 0UTSN,CHI>4 
B aUTSN^48 
DORG s-S 
CM CHI,4,10 
0UTSNE^20 
PARCNT,1,10 
CHI->1,CHI«1 
PUT,104t8 
•♦24,CHI>2 
ERROR, 176,9, 
CHI,23,10 
•-24 

CHI-1,CHI^1 
CHI ,49, 10, 
0UTSN3 
CHI,55,10 
0UTSN3 
CS0RN,^^12 
0UTSN3,6(n 
PUT,XRAl-l 
OUTSNE-32 
•-3 

ENTER HERE TO OUTPUT 
BNE ERROl 

TRIN0,1,11, 
•♦20,D0TRAN 
• ♦20 
•-3 

ERR0R2, 571,9 
CHI-1,CHI+1 
CHI, 24, 10, 
COM PUT 
STC,1,10 



BNE 

SM 

TR 

BTM 

BNR 

BTM 

CM 

BNE 

TR 

CM 

BL 

CM 

BH 

BTM 

BD 

BT 

B 

DORG 



TOM 

BD 

B 

DORG 

BTM 

TR 

CM 

BE 

TFM 



SET UP TO OUTPUT TWO STATEMENT NUMBERS 



INCORRECT STATEMENT NUMBER 

COLLECT AND OUTPUT STATEMENT NUMBER 



BRANCH IF IN COMPUTED GO TO 



CONTROL TRANSFEREO TO FORMAT 
INCORRECT NUMBER OF STATEMENT NUMBERS 



INDEX OF COMP. GO TO MISSING OR INVALO 



TEST FOR FIXED POINT VAR 



GO TO STATEMENT ••• 
SET TRANS INDICATOR 



TEST FOR COMPUTED GO TO 



13612 


16 


05533 


000-2 


13624 


31 


15138 


15140 


13636 


32 


06896 


00000 


13648 


14 


15139 


00009 


13660 


46 


13684 


01100 


13672 


17 


09230 


00J75 


13684 


17 


05302 


J3696 


13696 


43 


13716 


03219 


13708 


49 


13728 




13716 


43 


13796 


000-8 


13728 


32 


000-7 


00000 


13740 


43 


13872 


09906 


13752 


12 


05533 


000-1 


13764 


46 


13828 


01100 


13776 


45 


13808 


15141 


13788 


49 


02590 


00000 


13796 








13796 


17 


09230 


00-77 


13808 


17 


09386 


00N73 


13820 


49 


02590 


00000 


13828 








13828 


14 


15139 


000K3 


13840 


47 


13672 


01200 


138S2 


45 


13624 


1S143 


13864 


49 


13672 


00000 


13872 








13872 


14 


15139 


000-4 


13884 


47 


13828 


01200 


13896 


12 


03288 


000-1 


13908 


31 


15138 


15140 


13920 


17 


08944 


0-104 


13932 


45 


13956 


15141 


13944 


17 


09230 


00J76 


13956 


14 


15139 


000K3 


13968 


47 


13944 


01200 


13980 


31 


15138 


15140 


13992 


14 


15139 


000M9 


14004 


47 


13944 


01300 


14016 


14 


15139 


000N5 


14028 


46 


13944 


01100 


14040 


17 


05594 


J4052 


14052 


43 


13944 


000-6 


14064 


27 


08944 


00308 


14076 


49 


13776 


00000 


14084 








14084 


47 


04198 


01200 


14096 


15 


03137 


OOOOJ 


14108 


43 


14128 


09899 


14120 


49 


14140 


00000 


14128 








14128 


17 


09386 


00N71 


14140 


31 


15138 


15140 


14152 


14 


15139 


000K4 


14164 


46 


14208 


01200 


14176 


16 


05533 


000-1 
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PAGE 61 



30480 




BTM 


DMT 1 ni; Q 


rGO TO SYMBOL 








14188 


17 


08944 


0-105 


30490 




B 


Ol IT C M ^ 1 O 

UUl bN + l<; t 1 f 


BRANCH 


TO 


OUTPUT 


CTATPMFMT 
o 1 m cncn 1 


MItMRPR 


14200 


49 


13636 


00000 




















I420B 










COMPUT 


BTM 


PUT» 106t8| 


^COMPUTED 60 


TO 


SYMBOL 






14208 


17 


08 944 


0-106 


30520 




BTM 


PUr, 124,8, 


• LEFT PAREN SYMBOL. 






14220 


17 


08944 


0-124 


305 30 




AM 


PARCNTtltlO 












14232 


1 1 


03288 


000-1 


30540 




TDM 


CGTO,l 












X4244 


15 


09906 


OOOOl 






B 


OUTSN,,, 


BRANCH 


TO 


OUTPUT 


STATEMENT 


NUMBERS 


142S6 


49 


13624 


00000 


30560 




DORG 


»-3 












14264 








30570 


ERR02 


BTM 


ERROR, 72, 9 












14264 


17 


09230 


00-72 


30580 


OVrL 


DAC 


8, OVERFLOW 












14277 




8 


X 2 






OVERFLOW 




















30590 


tXPON 


OAC 


8, EXPONENT 












14293 




8 


X 2 






EXPONENT 




















30600 


CHECKC 


OAC 


5, CHECK 












14309 




5 


X 2 






CHECK 




















30610 


SENSW 


OAC 


8, SENSESWI 












14319 




8 


X 2 






SENSESWI 




















30620 


TCHC 


DAC 


3, TCH 












14335 




3 


X 2 






TCH 






















30630 




DORG 


16000 












16000 








30640 


WBLK6 


DSC 


2,22 












16000 




2 




30650 




22 
DSA 


DEF6 












16006 




5 


X 1 




















16006 




J6008 




30660 




DC 


i»' 












16007 




I 




30670 


DeF6 


DSC 


1,0 












16008 




1 




30680 




0 
DC 


5,17550 












16013 




5 








J7550 




















30690 




DC 


3,046 












16016 




3 








-46 






















30700 




DSA 


lOUT 












16021 




3 


X 1 




















16021 




J0200 




30710 




DC 


l,» 












16022 




1 




30720 


WRBLK6 


■ 

TFM 


I0RT,«*23 












16024 


16 


00565 


J6047 


30730 




B 


I0PT,WBLK6,7 












16036 


49 


00532 


J6000 


30740 




TRA 














16048 


36 


00000 


00500 
















16060 


49 


00000 


00000 


30750 




TCD 


WRBLK6 












16024 
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AOL in 


08612 


E 942 70 


08980 


OUTSCl 


10512 


BEGIN 


02590 


D4 


11919 


ADSAVE 


08503 


E94620 


09374 


OUTSCE 


04699 


BLKIA 


09622 


DEFl 


16008 


ADSUB2 


08516 


ENSION 


11541 


0UTSN2 


13872 


BLKl 


09614 


0EF2 


16008 


ADSUBP 


08480 


ENTLOG 


02248 


QUTSN3 


13944 


BLK2A 


09645 


DEF3 


16008 


ADVARl 


08246 


EQLOOP 


12176 


OUTSNE 


13808 


BLK2 


09637 


DEF4 


16006 


ADVAR2 


08260 


EQUIVN 


10716 


PARCNT 


03288 


BLK3A 


09668 


DEF5 


16008 


AOVLOP 


08216 


ERR0R2 


09386 


PAUSEN 


13838 


BLK3 


09660 


0EF6 


16008 


ADXLIT 


08644 


ESNOPL 


03004 


PH80AT 


16000 


BLK4A 


09691 


DEFCT 


14455 


ASC31A 


14454 


EXCESS 


06626 


PHBDOA 


16008 


BLK4 


09683 


DELAY 


07668 


ASCANl 


11990 


EXITCD 


12406 


PR06ST 


02257 


BLK5A 


09714 


OIMl 


10596 


BE6INA 


02602 


EXITCT 


12867 


PRSCAN 


02454 


BLK5 


09706 


0IM2 


11472 


C5DATA 


09795 


FCTENO 


02318 


PRSCNl 


02510 


BLK6A 


09737 


DIM3 


11528 


CALLEN 


11990 


FCTEST 


08744 


PRSCN2 


02546 


BLK6 


09729 


DIMEN 


10512 


CALLER 


09454 


FLNUMB 


06318 


PUSTSN 


02294 


BLK7A 


09760 


DIMNO 


10653 


CALLP2 


02400 


FMTCST 


09829 


PUTOUT 


09272 


BLK7 


09752 


DIM 


10248 


CALLSW 


09909 


FNTSWl 


09901 


RETURN 


10368 


BLK8 


02461 


OIMSW 


09904 


CDOATA 


09787 


FOMATl 


12194 


A2 


11867 


BLOC 


02748 


DIMTP 


11173 


CHECKC 


14309 


F0RM51 


13422 


AAl 


11855 


CI 


11863 


OKA 


13776 


CKCNTU 


04740 


F0RM99 


12334 


AOL IT 


08540 


C2 


11875 


OKBl 


14016 


CKCTAR 


04034 


FORMAT 


10392 


AOSTN 


08676 


CALC 


11164 


DKB 


13856 


CLASEN 


14530 


FORMER 


12698 


ADVAR 


08132 


CALL2 


13446 


DKC 


14048 


CLDGTl 


14582 


FREQSW 


14134 


AERRl 


09430 


CALL3 


13490 


OKDl 


14296 


CLDGT2 


14642 


FUNCTA 


13706 


AERR 


12146 


CALL A 


12238 


OKO 


14156 


CQLNAM 


04560 


FUTEST 


06992 


AFTBL 


14935 


CALL 8 


12258 


OKER 


13820 


CQMADD 


02262 


FXNUM6 


06214 


ALFAT 


10952 


CALL 


10344 


DKE 


14364 


C0MER2 


09442 


FXORFL 


06309 


ARGl 


12474 


CARD 


14936 


DKF 


14444 


C0MER3 


12112 


GENOIM 


11060 


ARG2 


12598 


CCNO 


05052 


OKG 


14592 


COMINA 


11900 


60IFAS 


13180 


AR63 


12702 


CGTO 


09906 


OKIOl 


13332 


COMMEN 


11552 


GOTOEN 


14084 


ARGSC 


12358 


CHI5 


15839 


OK 1 02 


13400 


COMMON 


10272 


I A TYPE 


14141 


ASCII 


14162 


CHI 


15139 


OKIO 


10486 


COMPUT 


14208 


IFASEN 


14498 


ASC12 


12406 


CKCNl 


04826 


DKL 


13732 


CONTEN 


13772 


IFSCAN 


12370 


ASC14 


14106 


CKCN2 


04954 


OKPUT 


13592 


CSTNOl 


09406 


INTOPl 


02385 


ASC15 


14174 


CKCN3 


05142 


DKSWl 


14352 


OECOOA 


03954 


iOLOOP 


14155 


ASCIA 


12026 


CKCN4 


05242 


DKSW2 


14354 


DECODE 


03730 


lOUTEN 


13240 


ASCIB 


12086 


CKEND 


03276 


DMVAR 


08132 


DEFINE 


14038 


lOUTER 


13332 


ASCI 


12830 


CKRM 


02906 


DOA 


12434 


DIMERR 


07448 


IVALEN 


12989 


ASC21 


13510 


CL06T 


14526 


DOB 


12586 


DIMNOT 


10545 


LEADBL 


03058 


ASC22 


12322 


CMPAR 


06494 


DOCl 


12350 


DISKSW 


02383 


LENGTH 


02248 


ASC23 


12522 


CONAB 


11788 


DOC 


12242 


OKIOEN 


13240 


LINKCD 


12462 


ASC24 


13114 


COMA 


11720 


DOEl 


12982 


DKLIST 


13472 


LINKCT 


12875 


ASC25 


13134 


CONC 


11988 


00E2 


13062 


OKLOOP 


14215 


LITERL 


07688 


ASC26 


13666 


COMER 


09442 


DOEE 


13178 


DOLOOP 


11990 


LUSTNO 


08068 


ASC30 


14290 


COME 


11944 


DOE 


12854 


OOTEST 


13239 


MASKLK 


12896 


ASC31 


14398 


COMIN 


11852 


DOO 


10416 


DOTRAN 


09899 


MOOAFT 


14006 


ASC3 


12714 


CONM 


12032 


DO 


12122 


E37061 


07876 


MONCAL 


00796 


ASC4 


12498 


CONST 


02382 


EBASE 


12235 


E83230 


10956 


MOVDIM 


11104 


ASC54 


12578 


COMSW 


09910 


ENDCT 


09835 


E84130 


11928 


MOVE IT 


11212 


ASC6 


12678 


CONT 


11652 


END 


09466 


E84180 


11948 


MULDEF 


02384 


ASC7 


12750 


CSORN 


05594 


EQl 


10860 


E 84240 


12020 


MVGM20 


13644 


ASC8 


14130 


CSPVA 


03570 


EQ21 


11076 


E84330 


12124 


NNARAA 


10512 


ASCAN 


10440 


CS 


05738 


EQ22 


12144 


E84560 


12424 


NONARA 


10224 


ASCER 


14486 


CSTNO 


05302 


EQ23 


11408 


E84695 


12544 


NONARI 


04066 


AVOID 


05922 


CTION 


13763 


EQ24 


11276 


E84710 


12736 


NOPARM 


14552 


Bl 


11859 


01 


11883 


EQ4 


11676 


E64804 


12908 


NUMBER 


06006 


82 


11871 


02 


11895 


EQ7 


11732 


E86440 


02430 


0UTS12 


13426 


BA 


02682 


03 


11907 


EQBR 


11552 
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10788 






L4 


1 1676 


REF 


nRfl7S 


TPCST 


13707 


EQUSW 


09908 


GM3 


09798 








12910 


TRIND 


03137 


EK24 


1 23 38 


GM 


02300 


L6 


1 1784 


ROUTN 


1 3625 


URNCT 


13023 


















VARBR 


06402 




12394 


UPRP 


12620 


LEAOZ 


03302 


SALT 


05798 


VARSM 


07563 


ER39 


128 18 


wni II 


14022 


L I TF 


07748 


SAVE 1 


11515 


MBLKl 


16000 


_„ , _ 




_ 


1 ^ntn 








1 2747 


WBLK2 


16000 




nil oo 


ICl 




1 itrnf 


1 97nA 


c Auca 




WBLK3 


16000 


pponi 




IFPUT 


13540 




12750 


SC I 


10860 


WBLK4 


16000 




142 64 


IF 


10296 


LSTAD 


02308 


SC22 


10608 


WBLK5 


16000 


CO no 


AH 


IFSC 


12334 


LUXIT 




SC2 


?nan2 


WBLK6 


16000 




1 2&,Afl 














WIOCK 


14216 


PPDAn 




tccu 




Mnnp 


06307 


SC4 


1 n7An 


WIDTH 


14205 


PDDCT 


00602 


INOI V 




Mnu 


12125 


SC 5 


10800 


W 


02240 


PRBHR 


092 30 


I NQUT 


1 A7nft 




1 1484 


SC9 


1 1 1 52 


WW 


02296 


CD CU 






noi 




1 if In 




?n77^ 


XRAl 


00309 


PCMH 








HV3 




sd*^' 




XRA2 


00314 


ETYPE 


12962 


I OA 


13836 


MVGM 


13272 


SENSW 


143 19 


ZER13 


09895 


EXIT 


091 14 


I OB 


1 3988 


Nl 


02233 


cf Icu 




SAVEGM 


07123 


E XL I T 




lOCAL 


00716 


N2 


02238 






SAVSYM 


02243 


prMA*^ 






1 






SMLNG 


05821 


SETAFT 


13846 




1 tsSH 


lOE 






06 158 


SHTLU 


06864 


SETDM2 


10824 


FCTST 


07912 




1 AaiA 






SPERR 


091 30 


SETDM3 


11004 


FL 1ST 


14558 


lOG 


1 2s7n 




06366 


SPGS 


09214 


SETDM4 


11264 


FLNG 


022 50 


lOGT 






06194 


SSCSW 


02494 


SETDM5 


11372 








1 ^flAn 


MilMR 




ST8L 




SETFRO 


14134 




noon? 
1 19 






Mvi nr 


02372 


STC 




SETINO 


08284 


cMcr 1 


1 


tnanr 








STNER 




SINGST 


09898 


FM^r 9 




tnoT 
f nc^ 




nnnrT 


1472 1 


STSN 




SMLOOP 


06896 


cMcr 


14086 




nncRA 


OUTAR 






13124 


STNOSW 


09903 




09900 


lOSM 


noQi 1 


OUTSC 


10464 


SUBP2 


1 3428 


STOPEN 


14006 


FOMAT 




lOUTl 


13624 


OUTSN 


13624 


SUBPA 


13004 


SUBFCT 


02293 


FORM 1 


124 98 


I0UT2 


13376 


OUTSW 


06896 


SUBPF 


1 3088 


SUBPUT 


13160 


pnBM^ 






1 3456 


OVFL 


14277 


SUBSW 


09912 


SUBTST 


08308 






I0UT4 


13644 


P2PTR 


02313 


SUBTR 


08456 


SYTBST 


02500 










PAJSP 


08376 


SWSET 


14730 


TBLFUL 


06844 




1 Ta 


I OUT 




PAUS 


13894 


SYM 


09879 


TPARCT 


14550 


cnaii7 


• 7 




1 loo7 


PCNT 




TBCM 




UROATA 


09779 


cnoMa 


137 34 


lAV 




PI 


11091 


TBEND 




USEDFS 


02263 


FORM 




JOE 


07164 


PLUS 


06722 


TBST 


04556 


WRBLKl 


16024 


FORMX 


13894 


J 


11899 


PLUSS 


09831 


TCHC 


14335 


WRBLK2 


16024 


FP2 


02298 


JUMP 


02429 


PR 


12S09 


TENP2 


12415 


WRBLK3 


16024 


FTYPE 


12918 


JWG 


08920 


PTYPE 


12794 


TEMP5 


04101 


WRBLK4 


16024 


FULl 


06968 


KLNG 


02252 


PUT 


08944 


TEMP 


04089 


HRBLK5 


16024 


FUL2 


07076 


K 


11911 


READl 


02846 


TEND 


02303 


WRBLK6 


16024 


FXHT 


07992 


LI 


04150 


RECLG 


02243 


TENZ 


09891 


XCLDGT 


14686 


GMl 


.09782 


L2 


04210 


RECMK 


09621 


TINUE 


13829 


ZERSYM 


06843 


OF ONE 


ASSEMBLY. 
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1620 MONITOR II VERSION 2 FORTRAN II-D PHASE 1-C 



1620 FORTRAN I I-O PHASE 1-C 



STORAGE ALLOCATION 



00020 




DORG 


02218 




02218 




00030 




DC 


5 


t-100 


02222 


5 






-010- 








00040 




DC 


1 


t2 


02223 


1 


00050 




K 

DC 


2 


• 67 


02225 


2 






07 










00060 




DC 


6 


•987898 


02231 


6 






R87898 








00070 


Nl 


DC 


2 


• 0 


02233 


2 






-0 










00080 


N2 


DC 


5 


• 0 


02238 


5 






-0000 








00090 


W 


DC 


2 


• 0 


02240 


2 






-0 










00100 


RECLG 


DC 


3 


• 000 


02243 


3 






-00 










00110 


SAVSYM 


OS 


12 


•RECLG 


02243 


12 


00120 


LENGTH 


OS 


5 




02248 


5 


00130 


FLNG 


OS 


2 




02250 


2 


00140 


KLNG 


OS 


2 




02252 


2 


00150 


PROGST 


DC 


S 


•00000 


02257 


5 






-0000 








00160 


COMADD 


OS 


5 




02262 


5 


00170 


USEDFS 


DSC 


30 


• 0 


02263 


30 






000000000000000000000000000000 






00180 


SUBFCT 


OC 


1 


• 0 


02293 


1 


00190 


PUSTSN 


OS 


1 




02294 


1 



00200 
00210 ••• 



PUSTSN 
PUSTSN 



2 FOR PAPER TAPE 
4 FOR CARDS 



00220 


WW 


OS 


2 








02296 




2 


00230 


FP2 


DS 


2 








02298 




2 


00240 


TEND 


OS 


5 








02303 




5 


00250 


LSTAD 


OS 


5 








02308 




5 


00260 


P2PTR 


OS 


5 








02313 




5 


00270 


FCTEND 


OS 


5 








02318 




5 


00280 




DS 


5 








02323 




5 


00290 


FMON 


TF 


•♦42»FMQN-1^^ 


SETUP 


ROUTINE 


ENTRY 


02324 


26 


02366 


00300 




TFM 


I0RT,»+23 








02336 


16 


00565 


00310 




B 


rOGT, ,7 








02348 


49 


00566 


00320 




B 


• » » 


GO TO 


EXECUTE 


CALLED ROUTINE 


02360 


49 


00000 


00330 




DORG 


•-4 








02367 






00340 


JAY 


OS 


1 








02367 




1 


00350 


NXLOC 


OS 


5 








02372 




5 


00360 


ST8L 


OS 


5 








02377 




5 


00370 


COMST 


DS 


5 








02382 




5 


00380 


OISKSW 


DC 


1*0 








02383 




I 


00390 


MULDEF 


OC 


1»0 








02384 




1 


00400 


INTOPl 


DSC 


1,0 








02385 




1 


00410 




0 
DC 


5 t 00600 








02390 




5 






-060Q 















02323 
-2359 
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00420 




DC 


3,002 


02393 






-02 






00430 




DSA 


CARD 


02398 










02398 


00440 




DC 


If* 


02399 


00450 


CALLP2 


TFM 


FM0N*35. BLK8 


02400 


00460 




BIN 


FM0N,CALLP2 


02412 


00470 


INOIV 


DS 


I 


02424 


00480 


• 


INDIV « 0 FOR CARDS. I FOR TYPEWRITER. 


00490 


• 




FLAGGED 3 FOR PAPER TAPE 




00500 


JUMP 


OS 


5 


02429 


00510 


ENTLOG 




.U»cDrS'*'4 


02267 


00520 


AFTBL 


DS 


.14935 


14935 


00530 


CHI 


DAS 


430,15139 


15139 


00540 


CHI5 


DS 


,CHl+700 


15839 


00550 


lOCAL 


DS 


,716 


00716 


00560 


lOGT 






00566 


00570 


lORBC 


DS 


1 520 


00520 


00580 


lOPT 


DS 


.532 


00532 


00590 


lOSK 


DS 


,554 


00554 


00600 


ERRET 


DS 


,602 


00602 


00610 


lORT 


DS 


,565 


00565 


00620 


MQNCAL 


DS 


.796 




00630 


E86440 


SF 


Kl+4 


02430 


00640 




BT 


OUTADD,PROGST,, INIT OUTPUT ROUTINE 


02442 


00650 




B 


AROUND 


02454 


00660 




DORG 


•-4 


02461 


00670 


6LKB 


DSC 


2,22 








22 




00680 




DSA 


BLK8A 


02467 










02467 


00690 




DC 
t 


lt« 


02468 


00700 


BLK8A 


DSC 
0 


l»0 


02469 


00710 




DC 


5,17800 


02474 






J7800 


00720 




DC 


3,136 


02477 






J36 






00730 




OS A 


CALLP2 


02482 










02482 


00740 




DC 
• 


lt« 


02483 


00750 


AROUND 


TDM 


SYM*l,«-« 


02484 


00760 




DC 


If 


02495 



00770 SF SVM*1,,, 

00780 SM PR0GST,01,10 

00790 TF LOCPROGST 

00800 TD PTRA^2,PUSTSN 

00810 AM PTRA-l-2,06,10 
00820 •••• DETERMINE TABLE END (TEND) 



FLAGGED TERMINAL RM TO INDICATE CARD END 



02496 
02508 
02520 
02532 
02544 



16 
17 



PAGE 

3 

5 X 1 

-3350 
1 

02359 -2461 
02324 -2400 
1 



5 
0 
0 

430 X 
0 
0 
0 
0 
0 
0 
0 
0 
0 

11311 
10706 
02484 



00000 
02257 
00000 



2 

5 X 



-2469 
1 



-2400 
1 

15 03476 00000 
1 

32 03476 00000 
12 02257 OOO-l 
26 03482 02257 
25 11942 
11 11942 



02294 
000-6 
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00830 




BLX 


•♦12,LSTAD(3) 


02556 


65 


02568 


02L-8 


00840 




BXM 


•♦12,-10C3I 


02568 


62 


02580 


00- J- 


00850 




BNR 


•-12,4(31 


02580 


45 


02566 


00—4 


00860 




BSX 


• ♦12,TENDO) 


02592 


67 


02604 


02L-3 


00870 




AM 


TEND, 5, 10 


02604 


11 


02303 


000-5 


00880 




BSNX 


• ♦12 


02616 


60 


02628 


00000 


00890 




TFM 


SMA0D,0, 


02628 


16 


03435 


-0000 


00900 




S 


SMAOD.STBL 


02640 


22 


03435 


02377 


00910 




AM 


SMAOD,5,10 


02652 


11 


03435 


000-5 


00920 




TF 


SMCNT,STBL 


02664 


26 


03440 


02377 


00930 




SM 


SMCNT.6,10 


02676 


12 


03440 


000-6 


00940 




TF 


MODADtSTBL 


02688 


26 


03445 


02377 


00950 




SM 


M0DAD,4,10 


02700 


12 


03445 


000-4 


00960 


E 86601 


SM 


SMCNT,10,10 


02712 


12 


03440 


OOOJO 


00970 




SM 


MODAD, 10,10 


02724 


12 


03445 


OOOJO 


00980 




AM 


SMA 00, 10,10 


02736 


11 


03435 


OOOJO 


00990 




C 


MODAD, TEND,, TEST FOR END OF TABLE 


02748 


24 


03445 


02303 


01000 




BE 


E87210 


02760 


46 


03720 


01200 


01010 




BNF 


E86601,SMCNT,11, TEST FOR LITERAL 


02772 


44 


02712 


0344- 


01020 




BNF 


STMTN0,M0DAD,11, TEST FOR STMNT NO 


02784 


44 


03532 


0344N 


01030 




CF 


SMCNT,,6 


02796 


33 


0344- 


00000 


01040 




CF 


MODAD, ,6 


02808 


33 


0344N 


00000 


01050 




TF 


SYM,SMA0D,11 


02820 


26 


03475 


0343N 


01060 




CF 


SMADO 


02832 


33 


03435 


00000 


01070 




BD 


E86801-48,M0DA0,11, BRANCH IF FIXED 


02844 


43 


02936 


0344N 


01080 




SM 


SMADD,2,610 


02856 


12 


0343N 


000-2 


01090 




TF 


•♦23, SMADO, 11 


02868 


26 


02891 


0343N 


01100 




TF 


SYM-2 


02880 


26 


03473 


00000 


OHIO 




A 


L0C,FP2 


02892 


21 


03482 


02298 


01120 




TF 


SMADO, L0C,6 


02904 


26 


0343N 


03482 


01130 




TF 


E8680U11,FP2 


02916 


26 


02995 


02298 


01140 




B 


E86801-12 


02928 


49 


02972 


00000 


01150 




DORG 


•-3 


02936 








01160 




A 


LOC.KLNG 


02936 


21 


03482 


02252 


01170 




TF 


SMAO0,LOC.6 


02948 


26 


0343N 


03482 


01180 




TF 


E86801^11,KLNG 


02960 


26 


02995 


02252 


01190 




TFM 


E 8682 0^6, SYM^l 


02972 


16 


03050 


-3476 


01200 


E86801 


SM 


E86820^6,,, FP2 OR KLN6 


02984 


12 


03050 


-0000 


01210 




BNCl 


• ♦60 


02996 


47 


03056 


00100 


01220 




RCTY 




03008 


34 


00000 


00102 


01230 


ABASE 


DS 


#•-5 


03014 




0 




01240 




WNTY 


LOC-4 


03020 


38 


03478 


00100 


01250 




SPTY 




03032 


34 


00000 


00101 


01260 


WOLN 


DS 


,♦-5 


03038 




0 




01270 


E 86820 


WNTY 




03044 


38 


00000 


00100 


01280 




AM 


SMA0D,5,10 


03056 


11 


03435 


000-5 


01290 




TDM 


SMADO,, 6 


03068 


IS 


0343N 


00000 


01300 




DC 
• 


1,«,» 


03079 




1 




01310 




SM 


SMADD,5,10 


03080 


12 


03435 


000-5 


01320 




SF 


SMAOD 


03092 


32 


03435 


00000 


01330 




TF 


0UrLIT+2l,E86820+6 


03104 


26 


03149 


03050 


01340 




BD 


LLl.PUSTSN 


03116 


43 


03158 


02294 


01350 


OUTLIT 


8TM 


0UTK,»+16 


03128 


17 


10128 


-3144 


01360 




DSA 


E86801+11.E86820^6 


03144 




5 


X 2 
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03144 




"2995 


















n57?7 




01370 




g 


E 86601 




03 150 






nnnnn 


01380 




DORG 


*~3 




03158 








01 390 


LL 1 


TR 


r Ann. TAR n— a i 


TIMtT PHR PIIMrMtMR T AB nC / P AP PR T ADP 
liNli rur\ ruricniiNo t^AHUo/rArcrvlArC 


na 1 ^n 












jf 


l»«l\U*T-t LUC 






7A 


naaRA 


03482 


01410 




CF 






03182 


33 


03476 


uuuuu 


01420 




TR 


CARD-«'6tE868204-6i 


11 


03194 


31 


03356 


0305- 


01A30 




SF 


SYM+1 




03206 


32 


03476 


00000 




















01450 




TFM 


I0RT,»+23 




03230 


16 


00565 


-3253 


01460 




B 


I0PT,PTCD-4,7 




03242 


49 


00532 


-3261 


m Ian 










03254 


49 


03128 


OUOOU 






nnor 






03261 








01490 


PTCD 


OS A 


CARD 




03265 






X 












03265 




-3350 




01500 




''a 


2 tOO 




03267 




2 






GMl 


nrm 






03268 




1 




n 1 «5n 
ni S^n 




nwa 






03318 




50 




ni n 




DNB 






naa2a 




^? 








DC 


1 • 

• 












01550 


CARD 


DSS 


81 




03350 




81 




01560 


SMAOD 


OS 


5 




03435 




5 






















oi SRn 


nUOAl) 


OS 






na^T^ 








ni «an 
ni ^nn 


SYM 


OS 










an 








OS 


Z 








2 






LOC 








n »5 








1620 




DC 


• 




03483 




*• 






TEMP 


OS 


• 








5 




01640 










03493 








01650 


TEMP3 


OS 


5 




03498 




5 




01660 


TEMPS 


DS 


5 




03503 




5 






















01680 


S AVE2 


OS 


5 




03513 




1^ 




01690 


SAVES 


OS 


5 




03518 








01700 


AOSAVE 


DS 


5 




03523 




5 




01710 


EBASE 


DS 


5 




03528 




5 




01720 


MODE 


^ 


2t0 




03530 








01 Tin 


CTMTMn 


TP 






nam? 
nfcf f 


_ 


03475 


0343N 






Cr 


SMADOf t 






33 


03435 


UUUUU 


ni T«n 






■tnnAn 9 in 












01760 




MF 


*v39f nUUAUf lit 


CI AC, IMntrATPC CTATPMCMT MIIMRCB DCCCB.. 


03568 




03603 


0344N 


01770 




SM 


MODA0ff2tl0t 


ENCED 


03580 


12 


03445 


000-2 


01780 




TFM 


SMAD0»»6 




03592 


16 


0343N 


00000 


01790 




DC 


SfOOOO't* 




03603 




5 








-000' 














01800 




IF 


•♦35tSMADD 




03604 


26 


03639 


03435 


01810 




AM 


•♦23t5tlO 




03616 


11 


03639 


000-5 


01820 


STMNTl 


BO 


STMNT2tO» 




03628 


43 


03676 


00000 


01830 




RCTY 






03640 


34 


00000 


00102 












3 4 9 
















WPactnii 9 PnBTDAM ti— n duacp i—c 








PAGE 


01840 




HMTY 


SYM 3 




03652 


38 


03472 


00100 


01850 




BTM 


ERR0R2*579,9 




03664 


17 


11318 


00N79 


01860 


STMNT2 


TF 


STMNTUllfSYM^l 


t6t TABLE STMNT NO. AND REC MARK 


03676 


26 


0363R 


03476 










ccT Ci AC nucD a#M ena bacc 0 
aci rLAlt UVcK K/M rOR rAa5 2 






0363R 


UUUUU 


01880 




SF 






na^nn 


ao 


no7?9 


nnnnn 
UUUUU 


01890 




g 






na7i 7 






nnnnn 

UUUUU 






DORG 






n*77n 








01910 


E 87210 


TF M 










03477 


000-0 


01920 




DC 


1 1 • f • 




03731 








01930 




BO 




TPCT IP IN CIlRPIinCO AM mMPIl ATIHM 


03732 


43 


07836 














n^7«A 


26 


07655 


02318 


01950 








An Tn niiTOttT riippcb 




49 


09928 


nnnnn 
UUUUU 












naTAa 
na-TA^ 








0 1970 




jf 


^MAnn . TRA^P 






26 










AM 






na77A 


£ 1 


J:^2ac 










<Mr MT .TRA CP 






?t 


na21n 
03440 










cyrkir r in 
anuNI f 9t m 






1 1 


03440 


nnn_K 
n7A^^ 








MnriAn .tracp 




nafli o 
naflpf 




na22« 




02020 






Mnn An . ? . i n 










000 2 


02030 






P R74I f\*-%f^ 
c o r 3 1, J o 




naaaA 


49 


nanan 
03880 


nnnnn 
UUUUU 






nn»r 






03844 












SM 


CMAnn in t n 




n^ftSA 




na2f ^ 


000 JO 


02060 




SM 


MnnAn . i n. i n 






12 




00 0\i0 


02070 




SM 






03868 


12 


03440 


000«iO 


02080 




f-|C 


SYM. 7PR 1 4—1 




03880 


26 


03475 


1 1925 


02090 






anAi/ti t 1 crii#f f 


TP<T PnB PMO nP TARI P 


03892 


24 


orrI? 




















m 7nn 


021 10 




BNR 




TPCT PnR rnNCT na uariarip AcciCMPn 

t • cai r^vJ^ ^uria 1 \if% vai\iadlc Ad^tvrici/ 


03916 


45 


04048 


0344- 


02120 




SM 


SMADO tOl f 10 




03928 


12 


03435 


000—1 


02130 




Bf<R 


*'*'32t SMAODt 11 




03940 


45 


03972 


0343N 


02140 




AM 






03952 




03435 


000— I 


02150 




g 


E87310 




03964 


49 


03844 


00000 


02 160 




DORG 














02 1 70 




AM 


CMAnn . 1 . 1 n 




04977 




_ _ _ 


noo-i 


02 180 




BO 






n^Qfll 


2q 


nf nnl 


0344N 






g 


E 87310 




nfnn^ 




n4R^2 


nnnnn 

UUUwU 


n^^i n 




DORG 






n2nn2 














CMAnn in in 




nAni^ 






OOOJO 








c MP KIT in in 




n2n9B 


12 


na n 


000 JO 








MnnAn in in 




n^nf n 


1q 


naAAR 
naa^A 


OOOJO 


02240 














03844 


nnnnn 

UUUUU 


02250 




nnar 






n2n2R 
n2n2a 












aMO 


sA9n unnAn ii 


TCCT nC CIIMTT HO CilD T Ai 1 KIAMC 


n2nAn 


2a 




0344N 






ft 


E8731 Ot 




n2nAA 


49 


03844 


nnnnn 
UUUUU 


02280 


















02290 




ftMC 


P AOB9 n MnnAn. i i 


RDAKirM IC MHT IM mMMnM 

t DKAnun ir raui in uunnun 










02300 




BO 


PR7A7n MnnAn. 11 
c 0 r 0 1 u t nuuAU tlx 


RBAMru IP rnMMniu uab ic abbav 
t DKAnun ir uunnun vak is akkat 


04080 


43 


04280 




02310 




8NF 


E 8966 Of SMAOD til 


t BRANCH IF COMMON VAR WAS EQUIV 


04092 


44 


05840 


0343N 


02320 




CF 


SMAODt t6t 




04104 


33 


0343N 


00000 


02330 




TF 


WOLNtKLNG 




04116 


26 


03038 


02252 


02340 




BO 


•♦24,SMADDtll 




04128 


43 


04152 


0343N 


02350 




TF 


WDLNtFP2 




04140 


26 


03038 


02298 


02360 


E87490 


SM 


M0DA0>2»10 




04152 


12 


03445 


000-2 


02370 




TF 


•♦23tM0DA0»ll 




04164 


26 


04187 


0344N 


02380 




TF 


SYM 




04176 


26 


03475 


00000 
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02390 


AM 


»-l»5»10 




04 IBB 


1 1 


04 187 


000-5 


02400 


TF 


M0DAD,»-13.611 




04200 


26 


0344N 


0418P 


02410 


TF 


TEMP, *-25.11 




04212 


26 


03488 


0418P 


02420 


AM 


M0DAD,2,10 




04224 


11 


03445 


000-2 


02430 


TDM 


SMCNT,,6 




04236 


15 


0344- 


00000 


02440 


DC 


1 1 • t* 








l 




02450 


8TM 


PGPRT,»*12tt 


TYPE ANO OR PUNCH 


04248 


17 


11380 


-4260 


02460 


DC 


1 f 0 




04260 








02470 


OS A 






















04265 




-3464 




02480 


DSA 


SYM-ll 




04270 






X 1 










04270 




-3464 




02490 




E89740 




04272 


4<} 


05864 


nnnnn 
uuuuu 


02500 


OOfiG 


•"3 












02510 


E87670 BNF 


ES8420tSMA0Dtll ff 


BRANCH IF COMMON ARRAY WAS EQUIV 


04280 


44 


04636 


0343N 


02520 


CF 


SMADDt t 6 




04292 


33 


0343N 




02530 


TO 


MODEt MOOAOff 11 1 


CAVF NtlMRFR nF DIM INntrtF^ 




25 


03530 




02540 


CF 


MODE 




04316 


33 


03530 


nnnnn 


02550 


SM 


MO0ADt2tl0 




04328 


12 


03445 


000—2 


02560 


TF 


AOSAVEf MOOAOff 11 t 




04340 


26 


03523 




02570 


TF 


SYMt AOSAVEff lit 


MOVE VAR NAME TO SYM 


04352 


26 


03475 


0352L 


02580 


SM 


SMCNT 1 10« 10 




04364 


12 




OOO JO 


02590 


TF 


TEMPf SMCNTffllf 


SAVE COMMON AOORESS 


04376 


26 


03488 


0344— 


02600 


TF 


MODAOf SMCNTff611 » 


SET ENTRY TO COMMON 


04388 


26 


0344N 


0344— 


02610 


AM 


MOOEf It lOt 


SAVE DIMENSION INDICES 


04400 




03530 


000—1 


02620 


MM 


MOOEtSflO 




04412 


13 






02630 


A 


A0SAVE«99 




04424 


2 1 


03523 


00099 


02640 


TF 


SMCNT t AOSAVEf 61 It 


PICK UP NO OF ELEMENTS 


04436 


26 


0344- 


0352L 


02650 


BD 


• «-32tSMA00t 11 




04448 


43 


04480 


0343N 


02660 


TF 


W0LNtFP2 




04460 


26 


03038 


02298 


02670 


B 


• ♦20 




04472 


49 


04492 


nnnon 


02680 


00 R6 


•-3 




04480 








02690 


TF 


HOLNtKLNG 




04480 


26 


03038 


02252 


02700 


M 


SMCNTtW0LNt6 




04492 


23 


0344- 


03038 


02710 


SF 


95 




04504 


32 


00095 


00000 


02720 


S 


99f WDLNtf 


CALC TOTAL ARRAY VOLUME 


04516 


22 


00099 


03038 


02730 


TF 


TEMP2»99 




04528 


26 


03493 


00099 


02740 


A 


TEMP2tTEMPt« 


TEMP2 CONTAINS LAST ELEMENT OF ARRAY 


Q4S40 


21 


03493 


03488 


02750 


SM 


MOOAOtBtlO 




04552 


12 


03445 


000-8 


02760 


AM 


SMAD0t4tl0 




04564 


11 


03435 


000-4 


02770 


TDM 


SMA0Otf6 




04576 


15 


0343N 


00000 


02780 


OC 


ltS« 




04587 




1 




02790 


SM 


SMA00ffl4tl0 




04588 


12 


03435 


000J4 


02800 


BTM 


PGPRTt»*12 




04600 


17 


11380 


-4612 


02810 


OC 
J 


Itl 




04612 








02820 


OSA 


TEMP-4 




04617 




5 


X 1 










04617 




-3484 




02830 


OSA 


SYM-ll 




04622 




5 


X I 
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02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03090 

03100 

03110 

03120 I 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 

03310 

03320 

03330 

03340 

03350 

03360 
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04622 




-3464 




OSA 


TEMP2-4 




04627 




5 


X 1 








04627 




-3489 




B 


E89740 




04628 


49 


05884 


00000 


00 RG 


•-3 




04636 








ENTER FOR COMMON ARRAYS WHICH WERE EQUIVALENCEO 










CM 


SMCNTt0t69 




04636 


14 


0344- 


00-00 


BNE 


E90620ttt 


BRANCH IF NOT BASE 


04648 


47 


06380 


01200 


SF 


E89660<fl 




04660 


32 


05841 


00000 


B 


E87670424 




04672 


49 


04304 


00000 


00 RG 


•-3 




04680 








TF 


EBASEtSMAOOf • 


ENTER HERE AFTER ASSIGNING BASE VARIABLE 


04680 


26 


03528 


03435 


CF 


E87670 




04692 


33 


04280 


00000 


BNF 


•♦44«E89660 




04704 


44 


04748 


05840 


CF 


E 89660 




04716 


33 


05840 


00000 


SM 


EBASE.lOtlO 




04728 


12 


03528 


OOOJO 


B 


• ♦20 




04740 


49 


04760 


00000 


00 RG 


•-3 




04748 








SM 


EBASEtltlO 




04748 


12 


03528 


000-1 


SF 


EBASE 




04760 


32 


03528 


00000 


A 


EBASEtSTBL 




04772 


21 


03528 


02377 


SF 


EBASE-3»t« 


GEN TABLE NUMBER 


04784 


32 


03525 


00000 


TF 


SAVEltSMAOO 




04796 


26 


03508 


03435 


TF 


SAVE2t SMCNT 




04808 


26 


03513 


03440 


TF 


SAVE3tM00A0 




04820 


26 


03518 


03445 


BNF 


•♦60tE89660«l 




04832 


44 


04892 


05841 


CF 


E 8966041 




04844 


33 


05841 


00000 


SM 


SAVEltlOtlO 




04856 


12 


03508 


OOOJO 


SM 


SAVE2, 10*10 




04868 


12 


03513 


OOOJO 


SM 


SAVE3*10*10 




04880 


12 


03518 


OOOJO 


SM 


SMCNTtlOtlO 




04892 


12 


03440 


OOOJO 


SM 


SMAOOtlOfflO 




04904 


12 


03435 


OOOJO 


SM 


MODAOtlOtlO 




04916 


12 


03445 


OOOJO 


C 


SMAOOtTENO 




04928 


24 


03435 


02303 


BE 


E89610 




04940 


46 


05772 


01200 


BNR 


•♦20tMOOAOtll* 


BRANCH IF NOT SUBR OR FUNCT NAME 


04952 


45 


04972 


0344N 


6 


E88540 




04964 


49 


04892 


00000 


00 RG 


•-3 




04972 








BNR 


E88660«SMCNT,ll« 


BRANCH IF NO STORAGE ALLOCATION DONE 


04972 


45 


05068 


0344- 


BNF 


E88600f SMCNT, lit 


BRANCH IF NOT STATEMENT NUMBER 


04984 


44 


05004 


0344- 


B 


E88540 




04996 


49 


04892 


00000 


00 RG 


•-4 




05003 








BO 


•♦20ffMO0A0*ll 




05004 


43 


05024 


0344N 


B 


E88540 




05016 


49 


04892 


00000 


DORG 


•-3 




05024 








SM 


SMAOOtlOfflO 




05024 


12 


03435 


OOOJO 


SM 


SMCNTtlOtlO 




05036 


12 


03440 


OOOJO 


SM 


MODAOtlOtlO 




05048 


12 


03445 


OOOJO 


B 


E88540 




05060 


49 


04892 


00000 


OORG 


•-3 




05068 








BNF 


•♦20tSMA0Dtllt 


SEARCH FOR EQUIV. VARIABLE 


05068 


44 


05088 


0343N 


B 


E 88600 




05080 


49 


05004 


00000 


OORG 


•-3 




05088 








C 


EBASE-lt SMCNT, 11 


t IS EQUIV VAR EQUIV TO PRESENT BASE 


05088 


24 


03527 


0344- 


BNE 


E88600 




05100 


47 


05004 


01200 



352 
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03370 


E88710 


SM 


SMADDr 1 « 10 












03380 




TF 


AOSAVEt SMADD» Lit 


SAVE SYMBOL ADDRESS 








0343N 


03390 




TF 


SVMtZER13-l 




05136 




03475 


11925 


03400 




TF 


SYMtAOSAVEtllt 


MOVE SYM NAME TO SYM 


05148 


26 


03475 




03410 




BD 


E88900*MOOAD»ll f 


TEST IF VAR WAS DIMENSIONED 


05160 


43 


05344 


0344N 


03420 




AH 


A0SAVE»5t lOf 




05172 


1 L 


03523 


000-5 


03430 




CM 


AOSAVE* 0t67t 


TEST FOR ZERO OFF SET 


05184 








03440 




BNE 


• ♦32 




05196 


47 


05228 


01200 


03450 




TF 


TEMP3 tTEMP 




05208 


26 


03498 


03488 


03460 




B 


• ♦56» 




05220 


49 


05276 


UDUOO 


03470 




00 KG 


»-3 












03480 




M 


A0SAVEtWDLN*6» 




05228 


23 


0352L 


03038 


03490 




SF 


95 




05240 


32 


00095 


00000 


03500 




A 


99f TEMP 




05252 


21 


00099 




03510 




TF 


TEMP3,99 




05264 


26 


03498 


00099 


03520 




TF 


SMA0D,TEMP3.6, 


MOVE OBJ TIME ADDRESS TO TABLE 


05276 


26 


0343N 


03498 


03530 




AN 


SMAOOtltlO 




05288 


11 


03435 


OOO-I 


03540 




TDM 


SMCNT»,6t 




05300 


15 


0344- 


00000 


03550 




DC 

9 






0S311 




1 




03560 




BTM 


P6PRTt*-*'l2 










-5324 

- 


03570 




DC 


ItO 




05324 




1 




03580 




- 

OS A 


TEMP3-4tSYM-ll 




05329 






X 












05329 


















05334 




-3464 




03590 




B 


E89600 




05336 


49 


05752 


t\i\r\t\t\ 
UUUQU 


03600 




00 RG 


•-3 




05344 








03610 


E88900 


SM 


SMCNTtlOtlOff 


ENTER FROM E88730 




12 




000 JO 


03620 




CM 


SMCNTt0t67t 


TEST FOR ZERO OFF SET 










03630 




BNE 


• ♦32 






47 


05400 




03640 




TF 


99 tTEMP 






26 


00099 


03488 


03650 




B 


• ♦44 




05392 


49 


05436 


UOOUU 


03660 




DGRG 


•-3 












03670 




M 


SMCNTtW0LNt6 




05400 


23 




03038 


03680 




SF 


95 






32 






03690 


TEMP4 


DS 


»» 




05423 




0 




03700 




A 


99« TEMPt f 


GEN ADD OF FIRST ELEMENT OF ARRAY 


05424 




00099 


03488 


03710 




TF 


TEMP3»99t t 


AND MOVE TO TEMP3 




26 




00099 


03720 




TO 


MODE tMQOAOt lit 




05448 


23 






03730 




CF 


MODE 




05460 


33 




nnnnn 
UUUUU 


03740 


E89010 


TF 


TEMP5 tTEMP3t t 


TEMPS CONTAINS oASc ADUKCSo 




?f 




nnn-f 


03750 




AM 


MQOEflflO 




05484 


1 1 


03530 




03760 




MM 


M00Ei5t 10 






13 




000~5 


03770 




A 


ADSAVE«99 






21 




00099 


03780 




TF 


SMCNT»A0SAVEt611 




05520 


26 


0344— 




03790 




M 


SNCNTtW0LNt6 




0SS32 


23 


0344— 


03038 


03800 




SF 


95 




05544 


3? 


00095 


00000 








99ff WOLN 




05S56 


22 


00099 


03038 


03820 




A 


TEMPS, 99,, 


TEMPS CONTAINS ADDRESS OF LAST ELEMENT 


0SS68 


21 


03503 


00099 


03830 




BNF 


•♦48,TELSM,, 


BRANCH IF IN COMMON 


05S80 


44 


05628 


07204 


03840 




C 


LQC, TEMPS 




0SS92 


24 


03482 


03503 


03850 




BH 


• ♦24 




0S604 


46 


05628 


01100 


03860 




TF 


LOC, TEMPS 




05616 


26 


03482 


03503 


03870 




C 


TEMPS, CONST 




0S628 


24 


03503 


02382 
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PAGE 


03880 




BNH 


•♦24 




05640 


47 


05664 


01 100 


03890 




BTM 


s A no K *v c o 
EnR0RZ,975,9, 


CUNNuN VAKa QVcRLAPd ncnuRT 


05652 


17 


11318 


00N75 


03900 




TF 


SMA00,TEMP3,6 




05664 


26 


0343N 


03498 


03910 




AM 


SMA00,5,10 




05676. 


11 


03435 


000-5 


03920 




TOM 


SNA DO, ,6 




05688 


15 


0343N 


00000 


03930 




DC 
• 


I,',* 




05699 




1 




03940 




SM 


SMAOO, 14,10 




05700 


12 


03435 


000J4 


03950 




SM 


MOOAO,10,10 




05712 


12 


03445 


OOOJO 


03960 




BTM 


PGPRT,»^12 




05724 


17 


11380 


-5736 


03970 




DC 






05736 




1 




03980 




J 

OSA 


TEMP3-4 




05741 




5 


X 1 












. 05741 




—3494 




03990 




DSA 


SYM-ll 




05746 




5 


X 1 












OS 746 




-3464 




04000 




DSA 


TEMP5-4 




05751 




5 


X 1 












057SI 




—3499 




04010 


E89600 


BNF 


E88S40,EQRET 




05752 


44 


04892 


07376 


04020 




B 


E92010 




05764 


49 


07756 


UUUUU 


04030 




00 RG 


•-3 




05772 








04040 


E89610 


TF 


SMAOOf SAVEl t , 


ncitYnlic Af%(%nccc Akin ^n^Tr^iiiC c/^Aki 
RcSTORc ADDRcSS AND GuNT INUc blrAni Tu 


05772 


26 


03435 




04050 




TF 


SMCNT,SAVE2, , 


OUTPUT VAR STORAGE 


05784 


26 


03440 


03S13 


04060 




TF 


M00A0,SAVE3, , 




05796 


26 


03445 


03518 


04070 




BNF 


E87310^36,TELSMff , 




05808 


44 






04080 




CF 


TELSW 




0S820 


33 




UUUUU 


04090 




B 


co731u^3o 




0S832 


49 


03880 


UUUUU 


04100 




DORG 


•-3 












041 10 


E 89660 


CM 


SMCNT,0,69, 


ENTER PRuM eo747U MHcN SIMPLc VAR MAS 


05840 


14 


0344— 




04120 




BNE 


E90620, 


t^ ^nAiu#tM Akin cmit%#Aa CAi^en 
IN COMMON AND clfUIVALcNCcO 








01200 


04130 




SF 


E 89660 




05864 


32 


nf 1 1 A 


UUUUU 


04140 




B 


CO f 4¥0— 36 




2f fit 


49 


04116 




04150 




00 RG 


*-3 




05884 








04160 


E89740 


BNF 


• ♦20,OU lUc t , 


FLAG ACT AT viZiO Nncfl CtlUIV VAK MAjk 




2q 


05904 


07060 


04170 






E91250, , , 


cniikin ttccnsc fnittuxtit ttki tadi c 
rUUNU DcruKc CUnnUN In lABLc 




49 


07092 


t\(\t\f\t\ 

\j\J\3\i\J 


041 80 




DORG 


•-3 




05904 








04190 




BNF 


•♦20,E89660^1 




05904 


44 




05841 


04200 




B 


E88470 




05916 


49 


04680 


00000 


04210 




DORG 


•-3 




05924 








04220 




BNF 


E87310,E89660 




05924 






05840 


04230 




B 


E88470 




05936 


49 


04680 


UUUUU 


04240 




DORG 


•-3 




05944 








04250 


•»•••• 


ENTER FROM B7450 TO 


OUTPUT VARIABLES NOT IN COMMON 










04260 


E89820 


BNF 


E90620,SMAD0,11, 


BRANCH IF VARIABLE WAS EQUtVALENCEO 


05944 


44 


06380 


0343N 


04270 




CF 


SMAOO,, 6, 




05956 


33 


0343N 


00000 






TF 


UDLN,KLNG 




05968 


26 


03038 


02252 


04290 




BD 


•♦24, SMAOO, 11 




05980 


43 


06004 


0343N 


04300 




TF 


W0LN,FP2 




05992 


26 


03038 


02298 


04310 




A 


LOC .WOLN 




06004 


21 


03482 


03038 


04320 




TF 


TEMP, LOC 




06016 


26 


03488 


03482 


04330 




SM 


SMAOOtltlO 




06028 


12 


03435 


OOO-l 


04340 




TF 


•♦23,SMADD,11, 




06040 


26 


06063 


0343N 


04350 


E89930 


TF 


SYM,,, 


MOVE SYM NAME 


06052 


26 


03475 


00000 



35 4 
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04360 




TF 


SMA0D»L0C*6, 


MOVE OBJ TIME ADDRESS TO TABLE 


06064 


26 


0343N 


03482 


04370 




80 


E90Ol0,MODA0tllt 


BRANCH IF VARIABLE IS AN ARRAY 


06076 


43 


06144 


0344N 


04380 




AM 


SMAODf ItIO 




06088 


11 


03435 


000-1 


04390 




TDM 


SMCNT.,6 




06100 


15 


0344- 


00000 


04400 




1 


If't* 












04410 




BTM 


PGPRT,«+12 




06112 


17 


11380 


-6124 


04420 




DC 


1 »0 




06124 








04430 




DS A 


TEMP— 4 




06129 






X 1 
















-3484 




04440 










06134 






















nAi2n 










E90580 






49 


06340 


AAAAA 






nnor 
















£ 900 1 0 


CM 


5MADU t 3 » lUf 


antAlY* TA klA AC CI CMCklYC 

rOINT Tu NU Or cLcncNTa 


AAi «2 


12 


03435 


000-5 


an 




rn 


nUUc t nUuAU flit 


C AUC AffilCklCffAkl tMAV/*CC 

5AVc uinCNdlUN InuIUCS 


A^l AO 






nnn^i' 






AM 


Mr%nc A 1 1 A 






11 






04500 




MM 


Mnnc nti t n 
nUUt ( UD t IV 




06180 




03530 


ooo's 


04510 




A 


E89930+llf99 




06192 


21 


06063 


00099 


04520 




TF 


SMA00,E89930«11, 


611 


06204 


26 


0343N 


0606L 
























cc 








32 


00095 


AAAAA 
UUVUU 






c 


99fWDLN 






22 


00099 




04560 






LOCf 99t t 


1 nr ii0nATcn rn fmh nn abbav 

LUI* UrUMICU lU crau llr AKKAT 


06252 






00099 


04570 




TDM 


SMCNrtt6 




06264 


15 


0344- 


00000 


04580 




DC 
• 






06275 




1 




04590 




SM 


SMA0D»4fl0 




06276 


12 


03435 


000-4 


















000 J 0 


04610 




SM 


SMCNTilOtlO 




06300 


12 


03440 


OOOJO 


04620 




BTM 


PGPRTf»+l2 




06312 


17 


11380 


-6324 


04630 






1 1 1 




06324 








04640 




J 

OS A 


TEMP-4 




06329 




5 


X 1 
















-3484 




04650 




USA 


StM— 1 1 






















06334 




-3464 




04660 




DS A 


L0C~4 




06339 






1 






















C905B0 


BNF 


• ♦20,TELSW 






2a 


nA4An 
rt7f an 


07204 


04660 




B 


E91730 






49 


07480 


AAAAA 
UUUUU 


04690 




D0R6 


•-3 




06360 








04700 




BNF 


E87310.EQRET 




06360 


44 


03844 


07376 


04710 




B 


E91810 




06372 


49 


07524 


00000 


04720 




DORG 


•-3 




06380 








04730 


•••••• 


Er^TER FROM E89820 


TO ASSIGN EQUtV VARIABLES NOT IN COMMON 










04740 


E90620 


TF 


SAVEltSMAOOtt 


SAVE ADDRESSES THEN SCAN TABLE TO 


06380 


26 


03508 


03435 


04750 




TF 


SAVE2.SMCNT.* 


FIND ALL VARIABLES EQUIVALENCED TO THIS 


06392 


26 


03513 


03440 


04760 




TF 


SAVE3flM00A0»» 


BASEt THE VARIABLE MITH THE LARGEST 


06404 


26 


03518 


03445 


04770 




TF 


ADSAVEfSNADOf ff 


NEGATIVE OFF-SET. IF ANVt MILL THEN BE 


06416 


26 


03523 


03435 



355 
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04780 
04790 
04800 
04810 
04820 
04830 
04840 
048S0 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 
04940 
04950 
04960 
04970 
04980 
04990 
OSOOO 
05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
05150 
05160 
05170 
05180 
05190 
05200 
05210 
05220 
05230 
05240 
05250 
05260 
05270 
05280 
05290 
05300 
05310 
05320 
05330 



SAVE4 
E90750 



CM 

BNE 

TF 

TF 

SM 

SF 

A 

SF 

DS 

TFM 

BD 

SN 

SM 

SN 

C 

BE 

BNR 

B 

DORG 
BNR 
BNF 
B 

DORG 

BD 

B 

DORG 

SM 

SM 

SM 

B 

DORG 

BNF 

B 

DORG 
C 

BNE 

BD 

SM 

TF 

AM 

AM 

C 

BNL 
TF 
TF 
8 

DORG 

SM 

C 

BNL 
TF 
TF 
B 

DORG 

TF 

S 



SMCNT«0*69, 

E91120»*t 

SAVE4,SMAD0 

EBASE.SMADOtf 

EBASE-1,1»10 

EBASE 

EBASE.STBL 
EBASE-3 
« • 

TENf»»0* 

E90850,N0DA0tll» 

SNA0D»10»10 

SMCNT.lOtlO 

NODAOtlOflO 

SMADO.TEND 

E91410 

•♦20,M0DAD,11. 

E90750 

•-3 

E90900«SMCNT«llt 

•♦20»SMCNT,1U 

E90750 

•-4 

•♦20tHO0AO,lL 

E 90750 

•-3 

SMCNTtlO«IO 
SMAD0,10»10 
MOOAO.lOtlO 
E 90750 
•-3 

•'»20tSMAD0«ll» 
E 90850-20 
•-3 

SMCNT*EBASE-it6» 

E90850-20 

E91050,M0DA0tU* 

SMA00,1,10 

ABASE .SMADD tilt 

ABASE«5,10 

SMADD.1,10 

ABASE,TEMP,6, 

E90750 

TEMPfABASE.ll, 

SAVE4.SMAD0.. 

E90750 

•-3 

SMCNT.IO.IO 

SMCNT,TEMP,6, 

E90850+12 

TEMP.SMCNT.ll, 

SAVE4fSMA0D 

E90850+12 

•-3 

AOSAVE, STBL 
AOSAVE-l.SMCNT.ll, 



ASSIGNED STORAGE FIRST ELSE BASE VAR 
MILL BE ASSIGNED FIRST 



SAVE REF NUMBER 



TEST FOR DIM 



SUBR OR FUNCTION NAME 



HAS STORAGE BEEN ALLOCATED 
BRANCH IF NOT STATEMENT NUMBER 



LOOK FOR EQUtV VARIABLE 

TEST FOR EQUIVALENCE TO BASE VARIABLE 
TEST FOR DIMENSION 

FIND NEG OFF-SET 
SAVE NEM OFF-SET 

SAVE TABLE ADDRESS OF NEM VARIABLE 

TEST OFF-SET 

MOVE IN NEW OFF SET 

GEN ADDRESS OF BASE 



06428 


14 


0344- 


00-00 


06440 


47 


06952 


01200 


06452 


26 


06523 


03435 


06464 


26 


03528 


03435 


06476 


12 


03527 


OOO-l 


06488 


32 


03528 


00000 


06500 


21 


03528 


02377 


06512 


32 


03525 


00000 


06523 




0 




06524 


16 


03488 


-0000 


06536 


43 


06680 


0344N 


06548 


12 


03435 


OOOJO 


06560 


12 


03440 


OOOJO 


06572 


12 


03445 


OOOJO 


06584 


24 


03435 


02303 


06596 


46 


07204 


01200 


06608 


45 


06628 


0344N 


06620 


49 


06548 


00000 


06628 








06628 


45 


06724 


0344- 


06640 


44 


06660 


0344- 


06652 


49 


06548 


00000 


06659 








06660 


43 


06680 


0344N 


06672 


49 


06548 


00000 


06680 








06680 


12 


03440 


OOOJO 


06692 


12 


03435 


OOOJO 


06704 


12 


03445 


OOOJO 


06716 


49 


06548 , 


00000 


06724 






06724 


44 


06744 


0343N 


06736 


49 


06660 


00000 


06744 








06744 


24 


0344- 


03527 


06756 


47 


06660 


01200 


06768 


43 


06884 


0344N 


06780 


12 


03435 


000-1 


06792 


26 


03014 


0343N 


06804 


11 


03014 


000-5 


06816 


11 


03435 


000-1 


06828 


24 


0301M 


03488 


06840 


46 


06548 


01300 


06852 


26 


03488 


0301M 


06864 


26 


06523 


03435 


06876 


49 


06548 


00000 


06884 








06884 


12 


03440 


OOOJO 


06896 


24 


0344- 


03488 


06908 


46 


06692 


01300 


06920 


26 


03488 


0344- 


06932 


26 


06523 


03435 


06944 


49 


06692 


00000 


06952 








06952 


26 


03523 


02377 


06964 


22 


03522 


0344- 
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PAGE 12 



05340 




AM 


ADSAVEt 07t 10 




06976 


11 


03523 


000-7 


05350 




BNF 


E 91 320 1 AD SAVE* 11 * 


TEST IF BASE IS IN COMMON, BRANCH NO 


06988 


44 


07160 


0352L 


05360 




TF 


MODAOtADSAVE 




07000 


26 


03445 


03523 


05370 




TF 


SMADD.ADSAVE 




07012 


26 


03435 


03523 


05380 




SM 


SMADD.l.lO 




07024 


12 


03435 


000-1 


05390 




TF 


SMCNT,ADSAVE 




07036 


26 


03440 


03523 


05400 




AM 


SMCNT»3,10 




07048 


11 


03440 


000-3 


05410 


OUTCE 


DS 


,•♦1 




07060 




0 




05420 




SF 


OUTCE 




07060 


32 


07060 


00000 


05430 




BD 


E87670*l2,M0DAD,ll, RETURN TO OUTPUT COMMON ARRAY 


07072 


43 


04292 


0344N 


05440 




B 


E87490-48,,, 


RETURN TO OUTPUT SIMPLE COMMON VARIABLE 


07084 


49 


04104 


00000 


05450 




□ORG 


»-3 




07092 








05460 


E91250 


CF 


OUTCE,,, 


ENTER FROM E89750 


07092 


33 


07060 


00000 


05470 




TF 


SMADD,SAVEl 




07104 


26 


03435 


03508 


05480 




TF 


SMCNT,SAVE2 




07116 


26 


03440 


03513 


05490 




TF 


M00AD,SAVE3 




07128 


26 


03445 


03518 


05500 




TF 


EBASE-1,SMCNT,11, 


SET UP BASE NUMBER TO SEARCH FOR 


07140 


26 


03527 


0344- 


055 10 




B 


E88540«36,,, 


THE REMAINING EQUIV VARIABLES 


07152 


49 


04928 


00000 


05520 




DORG 


•-3 




07160 








05530 


E91320 


SM 


ADSAVE,1,10, 


ENTER FROM E91150 


07160 


12 


03523 


OOO-l 


05540 




TFM 


TEMP,0 




07172 


16 


03466 


-0000 


05550 




TF 


EBASE-1,SMCNT«1I» 


SET UP BASE NUMBER 


07184 


26 


03527 


0344- 


05560 




B 


E 90900+44 




07196 


49 


06768 


00000 


05570 




DORG 


•-3 




07204 








05580 


E91410 


CM 


TEMP.O,, 


ENTER FROM E90790 AFTER SEARCHING TABLE 


07204 


14 


03488 


-0000 


05590 




BL 


E91610, , , 


FOR ALL EQUIV VARIABLES, IF TEMP IS LESS 


07216 


47 


07376 


01300 


05600 . 




SF 


TELSH,,, 


IF NOT NEGATIVE 


07228 


32 


07204 


00000 


05610 




C 


AOSAVE.SAVEl,, 


THAN ZERO, THEN THE BASE ELEMENT IS 


07240 


24 


03523 


03508 


05620 




BNE 


•♦56,,, 


NOT ASSIGNED FIRST 


07252 


47 


07308 


01200 


05630 




TF 


SMA0D,SAVE1 




07264 


26 


03435 


03508 


05640 




TF 


SMCNT,SAVE2 




07276 


26 


03440 


03513 


05650 




TF 


MO0A0,SAVE3 




07288 


26 


03445 


03518 


05660 




B 


£89820^12 




07300 


49 


05956 


00000 


05670 




00 RG 


•-3 




07308 








05680 




TF 


SMAOD.AOSAVE 




07308 


26 


03435 


03523 


05690 




TF 


SMCNT,A0SAVE 




07320 


26 


03440 


03523 


05700 




AM 


SMCNT,4 




07332 


11 


03440 


-0004 


05710 




TF 


MO0A0,A0SAVE 




07344 


26 


03445 


03523 


05720 




AM 


MO0AD,l,10 




07356 


11 


03445 


OOO-l 


05730 




B 


E89820«12 




07368 


49 


05956 


00000 


05740 




□ORG 


•-3 




07376 








05750 


TELSW 


OS 


.E91410 




07204 




0 




05760 


E91610 


TF 


SAVOFS, TEMP, , 


ENTER FROM E91420 vSAVE OFF-SET VALUE 


07376 


26 


07827 


03488 


05770 




TF 


SMADD,SAVE4,, 




07388 


26 


03435 


06523 


05780 




TF 


SMCNT,SAVE4 




07400 


26 


03440 


06523 


05790 




AM 


SMCNT,4,10 




07412 


11 


03440 


000-4 


05800 




TF 


MO0ADtSAVE4 




07424 


26 


03445 


06523 


0S81D 




AN 


MOOADtltlO 




07436 


11 


03445 


000-1 


05820 




SF 


EQRET 




07448 


32 


07376 


00000 


05830 


SAVAD 


OS 


t* 




07459 








05840 




TF 


SAVADtADSAVEf r 


SAVE ADDRESS OF BASE ELEMENT 


07460 


26 


07459 


03523 


05850 


EQRET 


OS 


tE91610 




07376 




0 




05860 




B 


E89820»12f ft 


BRANCH TO OUTPUT SYM WITH NEG OFF- SET 


07472 


49 


05956 


00000 


05870 




DORG 


•-3 




07480 








05880 


E91730 


TF 


SMADDtSAVElt t 


ENTER FROM E90600 


07480 


26 


03435 


03508 


05890 




TF 


SMCNT,SAVE2f , 


RESTORE TABLE ADDRESSES AND BRANCH TO 


07492 


26 


03440 


03513 










357 
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M00AD,SAVE3, , 


ASSIGN EQUIVALENT ADDRESSES 


07504 


26 


03445 


03518 








E88540-»36 




07516 


49 


04928 


00000 


05920 




00 RG 


»-3 




07524 






05930 






SMA00,SAVADtf 


ENTER FROM E90603 


07524 


26 


03435 


07459 






TC 

1m 


SMCNT, SAVAD 




07536 


26 


03440 


07459 


05950 






SMCNT,4tl0 




07548 


11 


03440 


000-4 






TF 


MOD AO, SAVAD 




07560 


26 


03445 


07459 






AM 


MOD AD, 1,10 




07572 


11 


03445 


000-1 


05980 




Im 


EBASE, SAVAD 




07584 


26 


03528 


07459 


05990 




»^ 


EBASE-lf ItlO 




07596 


12 


03527 


000-1 


06000 




SF 


EBASE 




0 7608 


32 


03528 


00000 








EBASE, STBL 




07620 


21 


03528 


02377 






SF 


EBASE-S 




07632 


32 


03525 


00000 


06030 




CF 


SAVOFS 




07644 


33 


07827 


00000 


06040 


TBASE 


DS 


t» 




07655 




0 






52 


•♦68 ,MODADfll, 


TEST IF DIM VAR 


07656 


43 


07724 


0344N 


06060 




SM 


SAVAD*1,10 




07668 


12 


07459 


000-1 






TF 


•♦30,SAVA0,11 




07680 


26 


07710 


0745R 


06080 




AM 


•♦18,5,10 




07692 


11 


07710 


000-5 


nA?nn 




TF 


tSAVOFS,, 


PLACE OFFSET INTO SYM AREA 


07704 


26 


00000 


07827 






B 


E88710, , , 




07716 


49 


05112 


00000 


AAi 1 n 




DORG 


•-3 




07724 




nAi 9n 




SM 


SAVADt6tlO 




07724 


12 


07459 


000-6 


06136 






SAVA0tSAV0FSt6, 


PLACE OFFSET INTO TABLE 


07736 


26 


0745R 


07827 


06140 






E88710, * , 




07748 


49 


05112 


00000 


06150 




DORG 


•-3 




07756 






C92010 




TEMP, TENP3t t 


ENTER FROM E89601 


07756 


26 


03488 


03498 


06170 




CF 


EQRET 




07768 


33 


07376 


00000 






TF 


SMAD0,SAVE1 




07780 


26 


03435 


03508 


HAi an 






SMCNT, SAVE2 




07792 


26 


03440 


03513 


06200 




TP 


M00AD»SAVE3 




07804 


26 


03445 


03518 


06210 






TELSW 




07816 


32 


07204 


00000 




SAVOr S 


DS 






07827 




0 




06230 






E 88540^36 




07828 


49 


04928 


00000 


06240 




00 RG 


•-3 




07836 




06250 






SUBADdtFCTENOf, 


ENTER FROM E87240 TO OUTPUT SUBPROGRAM 


07836 


26 


08011 


02318 


06260 






SUBADD, 14,10 




07848 


11 


08011 


000J4 






SM 


SUBAOD, 10,10 




07860 


12 


08011 


OOOJO 


06280 






& £ , ^if DM vw 9 & 




07872 


45 


07860 


0801J 


06290 






SUBADD,1»10 




07884 


12 


08011 


000-1 


06300 




TrM 


E92440>23»41,10 




07896 


16 


08157 


OOOMl 


06310 




TF 


SMADO, SUBAOD 




07908 


26 


03435 


08011 








SMADDt3,10 




07920 


12 


03435 


000-3 


06330 






MOOAO, SUBAOD 




07932 


26 


03445 


08011 


06340 




SM 


M0DAD,2,10 




07944 


12 


03445 


000-2 




a'' 


•♦32 •MODAD.ll, 


TEST FOR FIX OR FLOAT 


07956 


43 


07988 


0344N 






* 


L0C,FP2 




07968 


21 


03482 


02298 


06370 






•♦20 




07980 


49 


08000 


00000 


06380 




DORG 


•-3 




07988 








06390 




A 


LOCKLNG 




07988 


21 


03482 


02252 


06400 


E 9230 5 


CF 


MOO AD, ,6 




06000 


33 


0344N 


00000 


06410 


SUBADD 


DS 


, • 




08011 




0 


06420 




TF 


SYM,ZER13-l 




08012 


26 


03475 


11925 


06430 




TF 


•♦23,SMA0D,ll 




08024 


26 


08047 


0343N 


06440 




TF 


SYM,,, 


MOVE NAME TO SYM 


08036 


26 


03475 


00000 


06450 




TF 


SMA00,L0C,6, 


MOVE OBJ TIME ADDRESS TO TABLE 


08048 


26 


0343N 


03482 



13 



35S 
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06460 




SM 


SUBAOOtStlO 




08060 


12 


08011 


000-8 


06470 




TO 


SUBAD0»RECMK,6« 


STORAGE HAS BEEN ALLOCATED 


08072 


25 


0801J 


09784 


06480 




AM 


SUBADD*8f 10 




08084 


11 


08011 


000-8 


06490 


E92385 


AM 


SUBADD,2,10 




08096 


11 


08011 


000-2 


06500 




TO 


SUBADDtRECMKt6» 


STORAGE HAS BEEN ALLOCATED 


08108 


25 


0801J 


09784 


06510 




SM 


SUBA00«2tl0 




08120 


12 


08011 


000-2 


06520 


E92390 


8TM 


PGPRT,»<H2 




08132 


17 


11380 


-8144 


06530 




OC 


ItO 




08144 




1 




06540 




■". 

OS A 


LOC-4 




08149 




5 


X I 












08149 




-3478 




06550 




DSA 


SYM-ll 




08154 




5 


X 1 












08154 




-3464 




06560 




SF 


SMADD* (6 




08156 


32 


0343N 


00000 


06570 




TFM 


•-Ilt32»l0 




08168 


16 


08157 


000L2 


06580 


E92440 


NOP 


E92455 




08180 


41 


08252 


00000 


06590 




TF 


SUBADDtFCTENO 




08192 


26 


08011 


02318 


06600 




AM 


SU6ADD»3tlO 




08204 


11 


08011 


000-3 


06610 




TF 


SMAOOtFCTENO 




08216 


26 


03435 


02318 


06620 




TF 


MODAOff FCTENO 




08228 


26 


03445 


02318 


06630 




AM 


MODAOffltlO 




08240 


11 


03445 


000-1 


06640 


E92455 


SM 


SUBADDt iOt 10 




08252 


12 


08011 


OOOJO 


06650 




SM 


SMADOf 10* 10 




08264 


12 


03435 


OOOJO 


06660 




SM 


MOOAOtlOtlO 




08276 


12 


03445 


OOOJO 


06670 




C 


MOO AO t TEND 




08288 


24 


03445 


02303 


06680 


E92470 


BE 


E92860t 1 1 


TEST FOR END OF TABLE 


08300 


46 


08616 


01200 


06690 




BNR 


E 92455 f SUBADDt 1 1 




08312 


45 


08252 


0801J 


06700 




TOM 


E92440-fl»9 




08324 


15 


08181 


00009 


06710 




SM 


SUBAOOt 1 f 10 




08336 


12 


08011 


OOO-l 


06720 




CF 


SUBADDt #6 




06348 


33 


0801J 


00000 


06730 




TF 


••4'30t SUBADO 




08360 


26 


08390 


OBOll 


06740 




SM 


•-t-lBtltlO 




08372 


12 


08390 


000-1 


06750 




CF 






08384 


33 


00000 


00000 


06760 




BD 


E92570t SUBADDt 1 1 1 


TEST FOR DIM VAR 


08396 


43 


08440 


0801J 


06770 




AM 


SUBADDt It lOt 


FLAG INDICATES FUNCTION SUBPROGRAM IN 


08408 


11 


08011 


000-1 


06780 




AM 


LOCtStlO 




08420 


11 


03482 


000-5 


06790 




87 


E92305 




08432 


49 


08000 




06800 


E 92 5 70 


AM 


LOCtStlO 




08440 


11 


03482 


000-5 


06810 




CF 


MOOAOt t6 




08452 


33 


0344N 


00000 


06820 




TF 


SYM t2ERl3-'l 




08464 


26 


03475 


11925 


06830 




TF 


. ADSAVEtSMADOtllt 




08476 


26 


03523 


0343N 


06 8 AO 




TF 


SYM tAOSAVE tilt 




08488 


26 


03475 


0352L 


06850 




TF 


SMADDtL0Ct6t 




08500 


26 


0343N 


03482 


06860 




SF 


SMADOt t6 




08512 


32 


0343N 


00000 


06870 




TD 


MODE t SUBADDt lit 


SAVE NUMBER OF DIMENSIONS 


08524 


25 


03530 


0801J 


06880 




SM 


SUBAOOtTtlO 




08536 


12 


08011 


000-7 


06890 






MODEtStlO . 




08548 


1 3 


0353 0 


000-5 


06900 




AN 


99t5tl0 




08560 


11 


00099 


000-5 


06910 




A 


A0SAVEt99 




08572 


21 


03523 


00099 


06920 




TF 


SUBADDt ADSAVEt611 




08584 


26 


0801J 


0352L 


06930 




AM 


SUBADDtBtlO 




08596 


11 


08011 


000-8 


06940 




B7 


E92385 




08608 


49 


08096 




06950 


E92860 


TF 


TBASEtFCTENDtt 


ENTER FROM E92470 


08616 


26 


07655 


02318 


06960 




AM 


LOCtOltlOt 


FDR RECORD MARK 


08628 


11 


03482 


OOO-l 



359 
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06970 




AM 


CADDtlltlO 




08640 


11 


11291 


OOOJl 


06980 




C 


CENDtCADD 




08652 


24 


11296 


11291 


06990 




BNH 


EMP 




08664 


47 


08778 


01100 


07000 




SM 


CADDtUtlO 




08676 


12 


11291 


OOOJl 


07010 




CF 


CADDt»6 




08688 


33 


1129J 


00000 


07020 




AM 


CADOtOltlO 




08700 


11 


11291 


000-1 


07030 


6LP 


BT 


OUTAODtLOC 




08712 


27 


10706 


03482 


07040 




BTM 


0UTKt«-*-16 




08724 


17 


10128 


-8740 


07050 




DSA 


CSTltLOC^I 




08740 




5 


X 2 












08740 




-9801 














08745 




-3483 




07060 




SF 


LOC* 1 




08746 


32 


03483 


00000 


07070 




TD 


CADD,L0C«lt6 




08758 


25 


1129J 


03483 


07080 




B 


MSP 




08770 


49 


08798 


00000 


07090 




DORG 


•-4 




08777 








07100 


EMP 


SM 


CADDt09tlO 




08778 


12 


11291 


000-9 


07110 




B 


6LP 




08790 


49 


08712 


00000 


07120 




DORG 


•-4 




08797 








07130 


MSP 


MM 


LOCt05tlO 




08798 


13 


03482 


000-5 


07140 




BD 


BUFDUMt99 




08810 


43 


09928 


00099 


07150 




AN 


LOCtOltlO 




08822 


11 


03482 


000-1 


07160 




B 


BUFDUMttf 


GO TO OUTPUT BUFFER 


08834 


49 


09928 


00000 


07170 




DORG 


• -3 




08842 








07180 




ENTER HERE FROM E87530 AFTER ALL STORAGE ALLOCATION IS 










07190 


• •••• 


COMPLETE 












07200 


E93010 


TF 


DKAOOtINTOPl+5 




08842 


26 


10968 


02390 


07210 




AM 


TENDt9»10r 


ESPECIALLY FOR JAY 


08854 


11 


02303 


000-9 


07220 




TF 


SMADOtTBASE 




08866 


26 


03435 


07655 


07230 




TF 


SMCNTtTBASE 




08878 


26 


03440 


07655 


07240 




AM 


SMA0D»2 




08890 


11 


03435 


-0002 


07250 




AM 


SMCNTtS 




08902 


11 


03440 


-ooos 


07260 




B 


•♦32 




08914 


49 


08946 


00000 


07270 




DORG 


•-3 




08922 








07280 


E93060 


SM 


SMADOtlOtlO 




08922 


12 


03435 


OOOJO 


07290 




SM 


SMCNTtlOtlO 




08934 


12 


03440 


OOOJO 


07300 




C 


SMCNTtTENDt 




08946 


24 


03440 


02303 


07310 




BL 


E 93610 




08958 


47 


09328 


01300 


07320 




BNR 


E93200tSMCNTtllff 




08970 


45 


08990 


0344- 


07330 




B 


E 93 060 




08982 


49 


08922 


00000 


07340 




DORG 


•-3 




08990 








07350 


E93200 


BNR 


E93060tSMA00tlIf 




08990 


45 


08922 


0343N 


07360 




BNF 


•♦32tSMADDtll 




09002 


44 


09034 


0343N 


07370 




TDM 


SMAOO»0t6 




09014 


15 


0343N 


00000 


073B0 




B 


E93060 




09026 


49 


08922 


00000 


07390 




DORG 


•-3 




09034 








07400 




TDM 


SMADO,0>6t 


CLEAR RECORD MARK 


09034 


IS 


0343N 


00000 


07410 




SM 


SMA00f2tl0 




09046 


12 


03435 


000-2 


07420 


E 93330 


AM 


LOCt5,10 




09058 


11 


03482 


000-5 


07430 




TF 


SSYMWKtZER13-l 




09070 


26 


09542 


11925 


07440 




TF 


• •*-23tSMA0Dai 




09082 


26 


09105 


0343N 


07450 




TF 


SSYMWK, ,t 


MOVE FUNCTION NAME 


09094 


26 


09542 


00000 


07460 


BWP 


SF 


SSYMWK-ll 




09106 


32 


09531 


00000 


07470 




CM 


SSYMWK-10,00,10 




09118 


14 


09532 


000-0 


07480 




BNE 


WGP 




09130 


47 


09186 


01200 


07490 




TR 


SSYMWK-ll, SSYMWK-9 




09142 


31 


09531 


09533 
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1620 MONITOR It VERSION 2 FORTRAN II-D PHASE l-C 



PAGE 



07500 
07510 
075?0 
07530 

07 540 wr.p 

07550 
07560 
07570 
07580 
07590 



07600 
07610 
07620 
07630 
07640 



TFM 

CF 

B 

DORG 

TF 

TF 

TF 

TF 

BTM 

OS A 



AM 

TF 
TF 
BTM 
DC 



SSYMWK,00,10 
SSYMWK-l 
BWP 
• -4 

CARD*ll,SSYMWK 

CARD>16»L0C 

CARD*18,ALPHRM 

SMADD,L0C*6t 

0UTKt«-^L6 

CST17,CARD 



SMADD,2,10« 

SYM,ZER13-1 

SYM,E93330*47,ll. 

PGPRr,»+l2 

1*0 



MOVE OBJ TIME ADDRESS TO TABLE 



MOVE SYM NAME 



07650 



DSA LOC-4 



DSA SYM-ll 



07670 B E93060 

07680 DORG m-h 

07690 CST17 DC 2tl8 
J8 

07700 ALPHRM DC 2,0» 



07710 E93610 

07720 

07730 

07740 

07750 

07760 

07770 

07780 LTJUST 

07790 

07800 

07810 

07820 

07830 

07840 

07850 

07860 MVNANE 

07870 

07880 

07890 

07900 

07910 

07920 SSYMWK 
07930 



BO •♦20,SUBFCT 
B ERNEST 
DORG #-3 
TFM I0RT,«+23 

IOGT,COMSEC,7 
SSYMWK,ZER13-l 
SSYMWK.SAVSYM 
SSYMWK-11 
SSYMMK-lOtOOvlO 
MVNAME 

SSYMWK-11 •SSYMWK-9 
SSYMWKtOOtlO 
SSYMWK-l 
LTJUST 
DORG •-4 

TF COMNAMfSSYMHK 
SAVSYMtSSYMWK 
I0RT,*+23 
I0PT,C0MSEC,7 

HU 

DORG •-4 
DC 12.0 
-00000000000 
DC 



B 

TF 

TF 

SF 

CM 

BNE 

TR 

TFM 

CF 

B 



TF 
TFM 
B 
B 



09154 


16 


09542 


000-0 




33 




00000 


09178 


49 


09106 


00000 


09185 








09186 


26 


03361 


09542 


09198 


26 


03366 


03482 


09210 


26 


03368 


09326 


09222 


26 


0343N 


03482 


09234 


17 


10128 


-9250 


09250 




5 


X 2 


09250 




-9324 




09255 




-3350 




09256 


11 


03435 


000-2 


09268 


26 


03475 


1 1925 


09280 


26 


03475 


0910N 


09292 


17 


11380 


-9304 


09304 




1 




09309 




5 


X 1 


09309 




-3478 




09314 




5 


X 1 


09314 




-3464 




09316 


49 


08922 


00000 


09323 








09324 




2 




09326 




2 




09328 


43 


09348 


02293 


09340 


49 


09544 


00000 


09348 








09348 


16 


00565 


-9371 


09360 


49 


00566 


-9802 


09372 


26 


09542 


1 1925 


09384 


26 


09 542 


02243 


09396 


32 


09531 


00000 


09408 


14 


09532 


000-0 


09420 


47 


09476 


01200 


09432 


31 


09531 


09533 


09444 


16 


09542 


000-0 


094S6 


33 


09541 


00000 


09468 


49 


09396 


00000 


09475 








09476 


26 


09861 


09542 


09488 


26 


02243 




09500 


16 


00565 


-9523 


09512 


49 


00532 


-9802 


09524 


49 


09580 


00000 


09531 








09542 




12 




09543 




1 
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07940 


ERNEST 


BNF 


HU.DISKSW 








09544 


44 


09580 


02383 


07950 




BD 


HUfMULOEF 








09556 


43 


09580 


02384 


07960 




BTM 


ERR0R2»670»9 








09568 


17 


11318 


00070 


07970 


HU 


BTM 


0UTK«»^16 








09580 


17 


10128 


-9596 


07980 




OSA 


CSTl,AtPHRM 








09596 




5 


X 2 
















09596 




-9801 


















09601 




-9326 




07990 




TOM 


CADD,6,6, 


END OF 


PROGRAM 


INDICATOR 


09602 


15 


1129J 


00006 


08000 




TFM 


I0RT,»>23 








09614 


16 


00565 


-9637 


08010 




B 


I0PT»DKDATA»7 








09626 


49 


00532 


J0978 


08020 




AM 


0KADD»3»10 








09638 


11 


10968 


000-3 


08030 




TO 


DISK»DKDATA4-7 








09650 


25 


10986 


10985 


08040 




TFM 


IORT,«-f23 








09662 


16 


00565 


-9685 


08050 




B 


I0PT,0KDATA,7, 


0/P RM 


FOR PHASE 2-A 


09674 


49 


00532 


J0978 


08060 




TF 


PROGSTtLOC 








09686 


26 


02257 


03482 


08070 




BV 


• ♦12 








09698 


46 


09710 


01400 


08080 




BSBA 


• ♦12 








09710 


60 


09722 


00001 


08090 




TFM 


CALLP2-1,00600,7, 


START 1 


OF STRING 


SYMBOLS ON DISK 


09722 


16 


02399 


-0600 


08100 




TFM 


CALLP2-6,00000,7> 


INDEX 


REGISTER 


INDICATION 


09734 


16 


02394 


-0000 


08110 




BNF 


CALLP2tCALLP2 








09746 


44 


02400 


02400 


08120 




TFM 


FM0N^35tPHA10 








09758 


16 


02359 


-9777 


08130 




B7 


CALLP2^12 








09770 


49 


02412 




08140 


PHAID 


OSC 


2,22 








09777 




2 








22 


















08150 




DSA 


PHAIDA 








09783 




5 


X 1 
















09783 




-9785 




08160 




DC 
• 










09784 




1 




08170 


PHAIDA 


DSC 


IfO 








09785 




1 




08180 


RECMK 


0 
DS 


•PHAlOA-1 








09784 




0 




08190 




OC 


5tlS930 








09790 




5 








J593Q 
















08200 




DC 


3,070 








09793 




3 








-70 


















08210 




DSA 


CALLR2 








09798 




5 


X 1 
















09798 




-2400 




08220 




DC 
« 


I,* 








09799 




1 




08230 


CSTl 


OC 


2.01 








09801 




2 




08240 


COMSEC 


-1 

DSC 


2,20 








09802 




2 








20 


















08250 




OSA 


COMSC 








09808 




5 


X 1 
















09808 




-9810 




08260 




OC 
• 


1 , V 








09809 




1 




08270 


COMSC 


DSC 


1,0 








09810 




1 




08280 




0 
DC 


5 ,19663 








09815 




5 








J9663 
















08290 




DC 


3,001 








09818 




3 








-01 



















362 



1620 MONITOR II VERSION 2 FORTRAN II-O 



PHASE l-C 



PAGE 



08310 

08320 
08330 
08340 
08350 
08360 
08370 
08380 
08390 
08400 
08410 
08420 
08430 
08440 
08450 
08460 
08470 
08480 
08490 
08500 
08510 
08520 
08530 
08540 
08550 
08560 
08570 
08580 
08590 
08600 
08610 
08620 
08630 
08640 
08650 
08660 
08670 
08680 
08690 
08700 
08710 
08720 
08730 
08740 
08750 
08760 
08770 
08780 
08790 
08800 
08810 
08820 



DSA COMAR 



DC 



BILLY 
COMAR 



DAS 

DS 

OSS 

DSS 

DGM 



tBILLV-1 

48 

50 



COMNAM DS »C0MAR+35 

• OUTPUT BUFFER-SET UP POINTER AND LAST DISK 

• ADDRESS FOR PASS2 
BUFDUM TF LSTAD,DKAOD 

CM CADD*DISK4^8 

BNE BFDUMl 

TFM P2PTR,0 

B BFDUM2 

DORG •-3 

BFDUMl TF P2PTR,CEND 

SM P2PTR,DISK 

CM P2PTR,300 

BNE •♦36 

TFM P2PTR,0 

AM LSTA0t03tl0 

TFM I0RT,«+23 

B I0PT,0KDATA,7 

BF0UM2 TFM CA0D»0ISK 

TFM CEN0,DISK*75 

BTM OUTADDt 00001 

B E87270-24 

DORG •-4 

• OUTPUT CONSTANT ROUTINE 
• 

• BTM 0UTK,»*16 

• DSA LENGTH»HIGH-ORDER 



WK2 



OUTKl 
MK3 



DS 
TF 
TF 
TF 
AN 
TF 
AM 
AM 
OS 

c 

BE 

C 

BE 

C 

BH 
TR 
DS 
A 



5 

WKU 

WK2, 

MK2. 

OUTK-l, 

WK3f 

OUTK-l, 

WKl, 



CADO 

OUTK-l, II, 

MK2,11, 

5,10 

OUTK-1,11, 
1,10 



LENGTH 
MOVE IN LENGTH 



CONSTANT ADDRESS 



LADO, CAOO 
0UTK2 
CEND,CAD0 
I TNG 

TEST FOR SPACE FOR ENTIRE CONSTANT 
WKl, CENO 
TO 

CADO, •-•,6 



09823 




5 


X 1 


09823 




-9826 




09824 




1 




09827 




1 


X 2 


09826 




0 




09828 




48 




09876 




50 




09926 




1 




09861 




0 




09928 


26 


02308 


10968 


09940 


14 


11291 


J0994 


09952 


47 


09984 


01200 


09964 


16 


02313 


-0000 


09976 


49 


10080 


00000 


09984 








09984 


26 


02313 


11296 


09996 


12 


02313 


J0986 


10008 


14 


02313 


-0300 


10020 


47 


10056 


01200 


10032 


16 


02313 


-0000 


10044 


11 


02308 


000-3 


10056 


16 


00565 


J0079 


10068 


49 


00532 


J0978 


10080 


16 


11291 


J0986 


10092 


16 


11296 


J 1061 


10104 


17 


10706 


-0001 


10116 


49 


03764 


00000 


10123 









CUGTH, 



WK2,6, 



INCREMENT LENGTH 



10127 




5 




10128 


26 


11316 


11291 


10140 


26 


10211 


1012P 


10152 


26 


10211 


1021J 


10164 


11 


10127 


000-5 


10176 


26 


10295 


1012P 


10188 


11 


10127 


OOO-l 


10200 


11 


11316 


-0000 


10211 




0 




10212 


24 


11301 


11291 


10224 


46 


10576 


01200 


10236 


24 


11296 


11291 


10248 


46 


10436 


01200 


10260 


24 


11316 


11296 


10272 


46 


10328 


01100 


10284 


31 


1129J 


00000 


10295 




0 




10296 


21 


11300 


10211 
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08830 




A 


CA0D,NK2 


10308 


21 


11291 


10211 


08840 




B 


OUTK-l t, 6, 


10320 


49 


1012P 


00000 


08850 




DORG 


•-3 


10328 








08860 


• 


TRANSMIT DIGIT BY DIGIT 










08870 


TD 


TO 


CAOO, WK3,611» 


10328 


25 


1129J 


i029N 


08880 




AN 


CLGTH, 1,610, 


10340 


11 


11300 


OQO-l 


08890 




AM 


CAOOt It 10, 


10352 


11 


11291 


OOO-l 


08900 




AM 


MK3, 1,10, 


10364 


11 


10295 


OOO-l 


08910 




SM 


MK2,1,10 


10376 


12 


10211 


000-1 


08920 


• 


TEST FOR LAST CARD 










08930 




C 


CAOO, LADO 


10388 


24 


11291 


11301 


08940 




BE 


0UTK2 


10400 


46 


10576 


01200 


0895O 




C 


CAOO, CENO 


10412 


24 


11291 


11296 


08960 




BNE 


TD 


10424 


47 


10326 


01200 


08970 




INCREMENT TO NEXT CARD 










08980 


ITNC 


TF 


CAOO, CENO 


10436 


26 


11291 


11296 


08990 




AM 


CAOO, 4,10 


10448 


11 


11291 


000-4 


09000 




TR 


CAOOt Kl,6 


10460 


31 


1 129 J 


11307 


09010 




TF 


•♦35, CLOTH 


10472 


26 


10507 


11306 


09020 




SM 


•♦23t 3,10 


10484 


12 


10507 


000-3 


09030 




TF 


CAOOt •-•,6 


10496 


26 


1129J 


00000 


09040 




A 


CAOOt CLGTH,611, 


10508 


21 


1129J 


11300 


090S0 




TF 


CLGTH, CAOO 


10520 


26 


11306 


11291 


09060 




AN 


CLGTH, 3tlO 


10532 


11 


11306 


000-3 


09070 




AN 


CAOOt 4tl0 


10544 


11 


11291 


000-4 


09080 




AN 


CENDt 75,10 


10556 


11 


11296 


000P5 


09090 




B 


OUTKl 


10568 


49 


10284 


00000 


09100 




DORG 


•-3 


10576 








09110 




OUTPUT THREE SECTORS 










09120 


0UTK2 


TFM 


RETURN46,0UTK3 


10576 


16 


10962 


J0596 


09130 




B 


CKLl^U 


10588 


49 


10896 


00000 


09140 




OQRG 


•-3 


10596 








09150 


0UTK3 


AM 


CAOOt 4,10 


10596 


11 


11291 


000-4 


09160 




TR 


CAOOt Kl,6 


10608 


31 


1129J 


11307 


09170 




SM 


CLGTH, 3,10 


10620 


12 


11306 


000-3 


09180 




TF 


CADO, CL6TH,611 


10632 


26 


1129J 


11300 


09190 




AM 


CLGTH, 3,10 


10644 


11 


11306 


000-3 


09200 




A 


CAOO, CLGTH, 611 


10656 


21 


1129J 


11300 


09210 




TFM 


CLGTH, OISK^T 


10668 


16 


11306 


J0993 


09220 




TFM 


CAD0,DISK«8 


10680 


16 


11291 


JO 994^ 


09230 




B 


OUTKl 


10692 


. 49 


10284 


00000 


09240 




00 RG 


•-3 


10700 








09250 


« 


CONSTANT OUTPUT ROUTINE FOR PASS 1 










09260 


• 














09270 


• 




BTM OUTADO, NEW ADDRESS 











09280 




OS 


5 




10704 




5 




09290 


OUTAOD 


AM 


CAOO, 


9,10 


10706 


11 


11291 


000-9 


09300 




C 


CEND, 


CADD 


10718 


24 


11296 


11291 


09310 




BNH 


CKLCD 




10730 


47 


10816 


01100 


09320 




SM 


CAOD, 


5,10 


10742 


12 


11291 


000-5 


09330 


OUT 


TR 


CAOD, 


Kl,6, CONSTANT 


10754 


31 


1129J 


11307 


09340 




TF 


CAOD, 


OUTAOO-1,6, NEW ADDRESS 


10766 


26 


11 29 J 


10705 


09350 




AM 


CADD, 


4,10 


10778 


11 


11291 


000-4 


09360 




TF 


CLGTH 


,CADD 


10790 


26 


11306 


11291 


09370 




SM 


CLGTH 


•01,10 


10802 


12 


11306 


000-1 


09380 




BB 






10814 


42 


00000 


00000 
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PAGE 20 



09390 




00 RC 


• -9 


10816 








09A00 


* 


CHECK FOR LAST CARD 










09410 


CKLCD 


C 


LAOD, CEND 


10816 


24 


11301 


11296 


09420 




BE 


CKLl 


10828 


46 


10884 


01200 


09430 




TF 


CADD, CEND 


10840 


26 


11291 


11296 


09440 




AH 


CEND, 75,10 


10852 


11 


11296 


000P5 


09450 


CKL 


AM 


CADD, 4,10 


10864 


11 


11291 


000-4 


09460 




B 


OUT 


10876 


49 


10754 


00000 


09470 




DORG 


• -3 


10884 








09480 


• 


OUTPUT 










09490 


CKLl 


TFM 


RETURNl+6, CKL 


10884 


16 


10962 


J0864 


09500 


• 


DISK OUTPUT ROUTINE 










09510 




TFM 


I0RT,»+23 


10896 


16 


00565 


J0919 


09520 




B 


I0PT,DKDATA,7 


10908 


49 


00532 


J0978 


09530 




AM 


DKAOD, 3,10 


10920 


11 


10968 


000-3 


09540 




TFM 


CADD, DISK 


10932 


16 


11291 


J0986 


09550 




TFM 


CEND, DISK>75 


10944 


16 


11296 


J1061 


09560 


RETURN 


B 


•— • 


10956 


49 


00000 


00000 


09570 




DORG 


• -4 


10963 








09580 


OUTDK 


OSC 


1.0 


10963 




1 




09590 


DKAOD 


0 
DC 


5,00000 


10968 




5 








-0000 










09600 




DC 


3,003 


10971 




3 








-03 












09610 




OSA 


DISK 


10976 




5 


X 1 










10976 




J0986 




09620 




DC 


I,' 


10977 




I 




09630 


OKOATA 


DSC 
02 


2,02 


10978 




2 




09640 




DSA 


OUTDK 


10984 




5 


X 1 










10984 




J0963 




09650 




DC 


1,» 


10985 








09660 


• 


OUTPUT DISK AREA 










09670 


DISK 


OSC 


50,0 


10986 




50 








00000000000000000000000000000000000000000000000000 










09680 




DSC 


50,0 


11036 




50 








00000000000000000000000000000000000000000000000000 










09690 




DC 
• 


l.» 


11086 




1 




09700 




OSC 


49,0 


11087 




49 








0000000000000000000000000000000000000000000000000 










09710 




DSC 


50,0 


11136 




50 








00000000000000000000000000000000000000000000000000 










09720 




OSC 


50,0 


11186 




50 








00000000000000000000000000000000000000000000000000 










09730 




DSC 


50,0 


11236 




50 








00000000000000000000000000000000000000000000000000 










09740 




OS 


1 


11286 




1 




09750 


CADD 


OSA 


OISK-i-lOl 


11291 




5 


X 1 










■ 11291 




J1087 
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PAGE 


09760 


CEND 


DSA 


DISK^ISO 


11296 




5 


X 1 










11296 




J1136 




09770 


LAOO 


OSA 


OISK^300 


11301 




5 


X 1 










11301 




J1286 




09780 


CL6TH 


DSA 


DISK4-10B 


11306 




5 


X 1 










11306 




J 1094 




09790 


Kl 


OSC 


2,02 


11307 




2 




09800 




02 
DC 


2,0 


11310 




2 




09810 




-0 
DC 
f 


I.' 


11311 




1 




09820 


UKl 


DC 


5,0 


11316 




5 








-0000 










09830 


• 


OEND 










09840 


ERR0R2 


TF 


ERMES>14,*-1 


11318 


26 


11371 


11317 


09850 




RCTY 




11330 


34 


00000 


00102 


09860 




WATY 


ERMES 


11342 


39 


11357 


00100 


09870 




BB 




11354 


42 


00000 


00000 


09880 




DORG 


•-9 


11356 








09890 


ERMES 


OAC 


9. ERROR 00* 


11357 




9 


X 2 






ERROR 00* 










09900 


• ••• 


PGPRT MILL TYPE IF PROGRAM SWITCH 1 ON 










09910 


• 




PUNCH TAPE IF PUSTSN « 2 










09920 


• 




PUNCH CARDS IF PUSTSN * 4 










09930 


• 














09940 


• 


LINKAGE TO PGPRT 










09950 


• 




BTN PGPRT, •♦12 










09960 


• 




DC 1,X,, X« 0 OR I 










09970 


• 




OSA SADDR-4,NAME,EAD0R-4 










09980 


• 














09990 




OS 


5 


1 1378 




5 




10000 


PGPRT 


TFM 


FAF14>6,RACAR04^1 


11380 


16 


11434 


J1777 


10010 




TF 


FAFl-l,PGPRT-l 


11392 


26 


11427 


11379 


10020 




AN 


FAFl-rl,05,10 


11404 


11 


11427 


000-5 


10030 




TF 


FAFH-ll,«-» 


11416 


26 


11439 


00000 


10040 


FAFl 


TD 


MOVE IN START ADDRESS 


11428 


25 


00000 


00000 


10050 




AN 


FAFI4^6,2,10 


11440 


11 


11434 


000-2 


10060 




AM 


FAFI^ll. 01,10 


11452 


11 


11439 


000-1 


10070 




CM 


FAFl4^6,RACAR0'»-9 


11464 


14 


11434 


J1785 


10080 




BNH 


FAFl 


11476 


47 


11428 


01100 


10090 




AM 


FAF 1-1,5,10 


11488 


11 


11427 


000-5 


10100 




TF 


•♦23,FAF1-1,11 


11500 


26 


11523 


1142P 


10110 




TR 


RACAR04 12 MOVE IN NAME 


11512 


31 


11788 


00000 


10120 




BO 


FAF3,PGPRT-1,11, BRANCH IF ENO ADDRESS REQUIRED 


11524 


43 


11648 


1137R 


10130 




TF 


RACARD^35,I0ZER0 


1 1536 


26 


11811 


1 1923 


10140 




AM 


FAFl-1,2,10 


11548 


11 


11427 


000-2 


10150 


FAF2 


8NC1 


• ♦36 


11560 


47 


11596 


00100 


10160 




RCTY 




11572 


34 


00000 


00102 


10170 




WATY 


RACARO+1 


11584 


39 


11777 


00100 


10180 




BO 


•♦20, PUSTSN 


11596 


43 


11616 


02294 


10190 




B 


FAFl-1,,6 


11608 


49 


1142P 


00000 


10200 




DORG 


•-3 


11616 
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PAGE 



10210 




TFM 


I0RT,»+23 


1 1616 


16 


00565 


J 1639 


10220 




B 


I0PTtPTRA-4f 7 


11628 


49 






10230 




8 


FAFl-1,,6 


1 1640 


49 


1 142P 


00000 


10240 




□ORG 


»-4 


11647 








10250 


FAF3 


TF 


R AGAR 04- 35 1 RAMASK 


1 1648 


26 


11811 


1 1 0«i6 


10260 




AM 


FAFl-1,05.10 


1 1660 


1 1 


1 1427 




10270 




TFM 


FAF44-6, RACARO-i-27 


1 1672 


16 


1 1 702 


J1B03 


10280 




TF 


FAF4*ll»FAFl-lt 11 


11684 


26 


11 707 


1 142P 


10290 


FAF4 


TO 


MOVE IN END ADDRESS 


\ \yna 




nnnnn 


nnnnn 
uuuuu 


10300 




AM 


F AF4+6f 2f 10 




1 1 


11702 


000—2 


10310 




AM 


FAF4+11,1,10 


11720 


1 1 


1 1 707 




10320 




CM 


FAF4*6,RACAR0+35 


1 1732 


14 


11702 


J 18 1 1 


10330 




BNH 


FAF4 


11744 


47 


11696 


01100 


10340 




AM 


FAFl-l,lflO 


11756 


11 


11427 


000-1 


10350 




B 


FAF2 




49 


11560 


UUUUU 


10360 




00 RG 


•-3 


11776 








10370 


RACARO 


DSC 


12,707070707000 


11776 












707070707000 








10380 




OS 


24 


11811 








10390 




DC 
..1 


2,0» 


11813 




2 




10400 




OC 


50,0 


11863 




50 








-0000000000000000000000000000000000000000000000000 










10410 




OC 


50,0 


11913 




50 








-0000000000000000000000000000000000000000000000000 










10420 




OC 


22f0 


11935 




22 








-000000000000000000000 










10430 


iOZERO 


OS 


• •-12 


1 1923 








10440 


ZER13 


OS 


f»-9 


1 1926 








10450 


PTRA 


OSA 


RACARO^l 


11940 




5 


A 1 










1 1940 




Jl 777 




10460 




OC 


2 »00 


11942 




2 




10470 


6M3 


-0 
DGM 




11943 




1 




10480 


RAMASK 


OC 


11 #07070707070 


11954 




11 








-7070707070 










10490 


• 


DENO 










10500 




OORG 


16000 


16000 








10510 


BLK7 


DSC 
22 


2,22 


16000 




2 




10520 




OSA 


BLK7A 


16006 






X 1 










16006 








10530 




OC 
t 












10540 


BLK7A 


OSC 


ItO 


16008 




1 




10550 




0 
OC 


5,17700 


16013 




5 








J770Q 










10560 




OC 


3 tlOO 


16016 




3 








JOO 












10570 




OSA 


E 86440 


16021 




5 


X 1 










16021 




-2430 




10580 




OC 


l,» 


16022 




1 
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10590 LOPHC TDM GMl 



10600 GM DGM • 

10610 TO 6M2 ,GM 

10620 TO GM3 .GM 

10630 TFM lORT ••♦23 

10640 B I0PT«BLK7^7 * 

10650 TRA 

10660 TCO LOPHC 



II-O PHASE l-C PAGE 



16024 


15 


03268 


00000 


16035 




1 




16036 


25 


09926 


16035 


16048 


25 


11943 


16035 


16060 


16 


00565 


J6083 


16072 


49 


00532 


J6000 


16084 


36 


00000 


00500 


16096 


49 


00000 


00000 


16024 









10670 



365 





1620 


MONITOR II 






1-C 






lOZERO 


1 1923 


£90750 


06548 


PROGS T 




_ 




AOSAVE 


03523 


£90850 


06680 


PUSTSN 




GLP 


08712 


ALPHRM 


09326 


£90900 


06724 


R ACARO 


1 1 




0 3268 


AROUND 


02464 


E91050 


06884 


RAMASK 


1 1 a«A 


GM2 


09926 


BFDUMl 


099 84 


E91 120 




Kc 1 UKn 


10956 


GM3 


1 1943 


BF0UH2 


10080 


£91250 


07092 


ABASE 




GM 


16035 


BUFDUM 


09926 






AFTBL 


14935 


HU 


09580 


C ALL P2 


02400 


E91410 


07204 


B ILLY 


09827 


INOI V 


02424 


COMADD 


02262 


E91610 


07376 




if 


lOCAL 


00716 


COHNAM 


09861 


E91730 






16000 


lOGT 


00566 


COMSEC 


09802 




n«»A 


BLK8A 


02469 


lOPT 


00532 


0 I SKSW 


02383 


E92010 


07756 




02461 


lORBC 


00520 


OKDATA 


10978 


£92210 


07836 






lORT 


00565 


£86440 


02430 


£92290 


07956 


r Ann 


1 1291 


IQSK 


00554 


E8660L 


027 12 


£92305 




r Aan 




I TNG 


10436 


E86801 


02984 






CcNO 


11296 


JAY 


02367 


£86820 


03044 


£92390 


08132 




J^'f 


JUMP 


02429 


E87210 


03720 






CHI 


15139 


Kl 


1 1307 


E87270 


03788 


E92455 




CKL 1 


10884 


KLNG 


02252 


E87310 


03844 


£92470 






10816 


LAOO 


1 1301 


£87420 


04048 


£92570 






10864 


LDPHC 


16024 


£87490 


041 52 


£92860 




ri rru 


1 1306 


LLl 


03158 


£87670 


04280 






rnJicr 


09826 


LOG 


03482 


£88420 


04636 


E93060 






09810 


LSTAO 


02308 


£88470 


04680 


£93200 


naaon 


CONST 


02382 


MODAO 


03445 


£88540 


04892 


£93330 


090SII 


CSTlT 


09324 


MODE 


03530 


£88600 


05004 


E9361 0 


09328 


CSTl 


09801 


MSP 


08798 


£88660 


05068 


ENTLOG 


02267 


ntfinn 


1 naf A 


Nl 


02233 


£88710 


05112 


ERNEST 








N2 


02236 


£88900 


05344 


ERR0R2 


11318 


cBASc 


0352B 


NXLOC 


02372 


£89010 


05472 


FCTENO 


02318 






OUTGE 


07060 


E89600 


05752 


INTOPl 


02385 








L0963 


£89610 


05772 


LENGTH 


02248 


cRNcS 


11357 


OUTK 1 


1 0284 


£89660 


05840 


LTJUST 








0UTK2 


10576 


E89740 


05884 


MONCAL 


00796 


FAFl 


11428 


OUTK 3 


10596 


E89820 


05944 


MULOEF 


02384 


FAF2 


11560 


OUTK 


10128 


E 89930 


06052 


MVNAME 


09476 


FAF3 


11648 


OUT 


10754 


E90010 


06144 


OUTAOO 


10706 


FAF4 


11696 


P2PTR 


02313 


E 90580 


06340 


OUTLIT 


03128 


FLNG 


02250 


PGPRT 


11380 


E90620 


06380 


PHAIDA 


09785 


FMON 


02324 


PHAID 


09777 



PTCD 


03265 


PTRA 


11940 


RECLG 


02243 


RECMK 


09784 


SAVAO 


07459 


SAVEl 


03508 


SAVE2 


03513 


SAVE3 


03518 


SAVE4 


06523 


SMADO 


03435 


SMCNT 


03440 


STBL 


02377 


SYM 


03475 


XBASE 


07655 


TO 


10326 


TELSW 


07204 


TEMP2 


03493 


TEMP3 


03498 


TEMP4 


05423 


TEMP 5 


03503 


TEMP 


03488 


TEND 


02303 


WDLN 


03038 


WGP 


09166 


WKL 


11316 


WK2 


10211 


WK3 


10295 


W 


02240 


WW 


02296 


ZER13 


1 1926 


SAVOFS 


07827 




02243 


SSYMWK 


09542 


STMNTl 


03628 


STMNT2 


03676 


STMTNO 


03532 


SUBADD 


08011 


SUBFCT 


02293 


USEOFS 


02263 



END OF ONE ASSEMBLY. 
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00010 




MONITOR 2 OPTIMIZER 


PHASE 


2-A 














00020 


I CRT 


OS 


• 565 












00565 




0 




00030 


I06T 


OS 


• 566 












00S66 




0 




00040 


I OPT 


OS 


• 532 












00532 




0 




00050 




DORG 


2218 












02218 








00060 


HEADER 


OSS 


14 












02218 




14 




00070 


Nl 


OS 


2 












02233 




2 




00080 


N2 


OS 


5 












02238 




5 




00090 


W 


OS 


2 












02240 




2 




00100 


RECLG 


OS 


3 












02243 




3 




00110 


LENGTH 


OS 


5 












02248 




5 




00120 


F 


OS 


2 












02250 




2 




00130 


K 


OS 


2 












02252 




2 




00140 


BEGAD 


OS 


5 












02257 




5 




00150 


LOCOM 


OS 


5 












02262 




5 




00160 


UFSTR 


OSS 


30 












02263 




30 




00170 


FCTSH 


OS 


1 












02293 




1 




00180 


PUSTSN 


OS 


1 












02294 




1 




00190 


WW 


OS 


2 












02296 




2 




00200 


FP2 


OS 


2 












02298 




2 




00210 


TBASE 


OS 


5 












02303 




5 




00220 


LSTAO 


OS 


5 












02308 




5 




00230 


P2PTR 


OS 


5 












02313 




5 




00240 


FGTENO 


OS 


5 












02318 




5 




00250 




OS 


5 












02323 




5 




00260 


FMON 


TF 


•♦42,FM0N-1 












02324 


26 


02366 


02323 


00270 




TFM 


I0RT«*>23 












02336 


16 


00565 


-2359 


00280 




B 


I0GT»,7 












02348 


49 


00566 


-0000 


00290 




B 














02360 


49 


00000 


00000 


00300 




00 RG 


•-4 












02367 








00310 


JAY 


OS 


1 












02367 




1 




00320 




OS 


17 












02384 




17 




00330 


XRAOO 


OS 


5 












02389 




5 




00340 


LOXRAD 


OS 


5 












02394 




5 




00350 


FILEST 


OS 


5 












02399 




5 




00360 


INIT 


TF^M 


FILEST. 600 












02400 


16 


02399 


-0600 


00370 




BS 


•♦12»1 












02412 


60 


02424 


00001 


00380 




BLXM 


•♦12fO(5) 












02424 


66 


02436 


0-0-0 


00390 




BLXM 


•♦12,0(6) 












02436 


66 


02448 


0—00 


00400 




BLXM 


•♦12fADDSTR(21 












02448 


66 


02460 


05J57 


00410 




TOM 


BGNST^l 












02460 


15 


16000 


00000 


00420 




DC 
« 


!.•»• 












02471 




1 




00430 


INITA 


BTM 


GETXfSX,, 


GET 


FIRST TWO 


SYMBOLS 


02472 


17 


08382 


-5054 


00440 




BTM 


GETX,SY 












02484 


17 


08362 


-5061 


00450 




CM 


SX« 104*9 












02496 


14 


05054 


00J04 


00460 




BL 


• ♦36 












02508 


47 


a2544 


01300 


00470 




CM 


SX, 152*9 












02S20 


14 


05054 


OOJ52 


00480 




BNH 


ANALIZtff 


GO 


TO 


ANALYZE 


IF SX 


IS OPERATOR 


02532 


47 


02672 


01100 


00490 




CM 


SY, 134.9 












02544 


14 


05061 


00J34 


00500 




BE 


CDCLN... 


GO 


TO 


COLON CODE IF 


STATEMENTS NO. 


025S6 


46 


03020 


01200 


00510 




BL XM 


•♦12.C00Elt3l., 


SET 


COOEl FOR 


ARITH 


. STATMENTS 


02568 


66 


02580 


03JL6 


00520 


tNITB 


BLXM 


•♦12,5(71 












02580 


66 


02592 


0—-5 


00530 




BTM 


AOSL.SX 












02592 


17 


08688 


-5054 


00540 




BTM 


AOSL.SY 












02604 


17 


08688 


-5061 


00550 


LI 


BTM 


GETX.St 












02616 


17 


08382 


-5067 
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00560 




BTM 


ADSL,SL,f FILL STRING WITH COMPLETE STATEMENT 


02628 


17 


08668 


-5067 


00570 




CM 


SLf 132 


02640 


14 


05067 


-0132 










02652 


47 


02616 


01200 






87 


0(3),,, GO TO CODE SET IN XR 3 


02664 


49 


00 — 0 




006U0 


. 17 


BL X 


•+12, SX ( 1 ) 


02672 


65 


02684 


050N4 






TD 


7 PR 7 . ni TR f 1 1 


02684 


25 


05104 


050-3 








ZER2,5,10 


02696 


13 


05104 


000-5 






MA 




02708* 


70 


02726 


00099 


nnA4n 




B7 


99(2)*'^6 


02720 


49 


00-9R 




nnA<in 






INI TBfCODEIF (3) , , SET PROPER CODE IN XR 3 AND GO TO 


02728 


66 


02560 


03KJ6 


UUo6U 


r Ai 1 A 


BL XM 


iKirTR.rnrAii f^i.. pi acf tompi ftf ^tatpmfnT on string 


02740 


66 


02580 


03QJ2 




OUTA 


BL XM 


i N 1 i D ,U UUU 1 t 3 1 


02752 


66 


02560 


04LQ2 


00680 


I ma* 




1 ni l ID, uucrau \ 3 1 


02764 


66 


02580 


03RQ0 








T MP^U . 1 . 1 1 
i n.t o rf f 1 , L & 


02776 


15 


05106 


OOOOJ 








r M f TR . rnniiT 1 41 


02788 


66 


02580 


04LQ2 


00710 


rnncnn 


RTM 


U L 1 o 1 O , r A o 


02600 


17 


08222 


-2940 


00720 


DSKIO 


RTM 




02812 


17 


08382 


-5073 






TD 


nwi tcTf At CM— '^ 


02824 


31 


0QP59 


05070 






RVM 


•♦12,4(6) 


02836 


62 


02848 


0—04 






OTM 


MOD Vil T 19 


02848 


17 


08066 


-2860 


nn7An 




Rl XM 




02860 


66 


02872 


04LQ2 






BLXM 




02872 


66 


02884 


0- — 5 


nn7fln 




BTM 


aoslIsx 


02884 


17 


08688 


-5054 


00790 






ADSL,SY 


02896 


17 


08688 


-5061 


nnttnn 
00800 




RTM 

BTM 


ADSL,SN 


02908 


17 


08688 


-5073 










02920 


49 


02616 




00820 


SUBPF 


TDM 




02928 


15 


05107 


OOOOJ 




PASS2 


BTM 


PUT,SX 


02940 


17 


05212 


-5054 






BTM 


PUT, SY 


02952 


17 


05212 


-5061 


00850 


PASS2A 




GETXfSXf, PUT COMPLETE STATEMENT TO OUTPUT BUFFER 


02964 


17 


08382 


-5054 


00860 


BTM 


PUT,SX 


02976 


17 


05212 


-5054 


00870 




CM 


SX, 132,9 


02988 


14 


05054 


00J32 






BNE 


PASS2A 


03000 


47 


02964 


01200 


00890 




B7 




03012 


49 


02460 




00900 


COCLN 


TF 




03020 


26 


05094 


05054 






BNF 




03032 


44 


03056 


0509N 


00920 




BTH 


CLISTS,»«>12, * CLEAR LISTS FOR REFERENCED STATE. NO. 


03044 


17 


08222 


-3056 


00930 




BTM 


PUT,SX 


03056 


17 


05212 


-5054 






BTM 


PUT,SY 


03068 


17 


05212 


-5061 


00950 




BTM 


GETX,SX 


03080 


17 


08362 


-5054 






CM 


SX, 140,9 


03092 


14 


05054 


00J40 


00970 




BNE 


INITA^12 


03104 


47 


02484 


01200 


00980 




BTM 


PUT,SX 


03116 


17 


05212 


-5054 


00990 




B7 


INITA 


03128 


49 


02472 




01000 


••»••• 


CODEl SCANS ARITHMETIC STATEMENTS* IF STATEMENTSt AND IS 










01010 




ALSO USED BY THE CALL STATEMENT ROUTINE 










01020 


CODc 1 


CM 


SY,133,8 


03136 


14 


05061 


0-133 






BNE 


CODE IF 


03148 


47 


03216 


01200 


01040 




TF 


MBASE-1,SX 


03160 


26 


05100 


05054 


01050 




BD 


•♦20,MBASE,11 


03172 


43 


03192 


0510J 


01060 




B7 


CODE IF 


03184 


49 


03216 




01070 


CDIA 


TR 


BVLIST«6),SX-3 


03192 


31 


0QP59 


05051 


01080 




BXM 


•♦12,4161 


03204 


62 


03216 


0 — 04 


01090 


CODE IF 


TDM 


FFOPSW,0,, LEFT OF THE EQUAL SIGN ON BVLIST 


03216 


15 


05102 


00000 


01100 




BLXM 


•♦12,15171 


03228 


66 


03240 


0— J5 


Oil 10 


CDIC 


TF 


SX,BGNST(7) 




26 


05054 


1NRR9 
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PAGE 


01120 




CM 


SX, 132,9 


03252 


14 


05054 


00J32 


01130 




BE 


CDIB 


03264 


46 


03368 


01200 


01140 




BXM 


•♦12,5(7) 


03276 


62 


03286 


0—5 


01150 




CM 


SX,153,9 


03288 


14 


05054 


0OJ53 


01160 




BE 


•♦36 


03300 


46 


03336 


01200 


01170 




CM 


SX, 154,9 


03312 


14 


05054 


00J54 


01180 




BNE 


CDIC 


03324 


47 


03240 


01200 


01 190 




THE AOSBLV ROUTINE IS ENTERED MITH XR7 POINTING AT THE LEFT 










01200 


•••••• 


PAREN F0LL0MIN6 THE FOP OPERATOR. ANY FIXED POINT. NON- 










01210 




SUBSCRIPTED NAME APPEARING BEFORE I^HE CLOSING RIGHT PAREN 










01220 




WIIL BE PLACED ON THE BOUND VARIABLE LIST. UPON EXIT, XR7 WI 










01230 




BE POINTING AT THE SYMBOL FOLLOWING THE RIGHT PAREN. 










01240 




BTM 


ADSBVL,^^12 


03336 


1 7 


07460 


— 3348 


01250 




TDM 


FF0PSW,1,11 


03348 


15 


05102 


nnnn i 


01260 




B7 


CDIC 


03360 


49 


03240 




01270 


CDIB 


BNF 


•♦24,FF0PSW 


03368 


44 


03392 


05102 


01280 




THE PURGCM ROUTINE EXAMINES EACH ENTRY ON THE BOUND VARIABLE 










01290 




TABLE. FOR EACH VARIABLE THAT IS IN COMMON STORAGE, THE 










01300 




ENTRY AND ITS RELATED SUBSCRIPT TABLE ENTRY ARE CLEARED. 










01310 




BTM 


PURGCM, ^^12 


03380 


17 


07856 


-3392 


01320 


COID 


BLXM 


•♦12,5(71 


03392 


66 


03404 


0 5 


01330 




TF 


SX,BGNST(7) 


03404 


26 


05054 


1NRR9 


01340 




CM 


SX, 132,9, OUTPUT ALL SYMBOLS UNTIL A SUBSCRIPT IS 


03416 


14 


05054 


0OJ32 


01350 




BE 


CDIE,,, FOUND. THEN GO TO SEOPT 


03428 


46 


03768 


01200 


01360 




BXM 


•♦12,5(71 


03440 


62 


03452 


0 5 


01370 




TF 


SY,BGNST(7I 


03452 


26 


05061 


1NRR9 


01380 




CM 


SY,149,9 


03464 


14 


05061 


00J49 


01390 




BL 


COlEl 


03476 


47 


03748 


01300 


01400 




CM 


SY, 153,9 


03488 


14 


05061 


00 J53 


01410 




BE 


PASKIP 


03500 


46 


03572 


01200 


01420 




CM 


SY,154 


03512 


14 


05061 


.0154 


01430 




BE 


PASKIP 


03524 


46 


03572 


01200 


01440 




CM 


SY, 151,9 


03536 


14 


05061 


00J51 


01450 




BH 


CDlEl 


03548 


46 


03748 


01 100 


01460 




THE SEOPT ROUTINE WILL CHECK FOR POSSIBLE OPTIMIZATION OF 










01470 




SUBSCRIPT EXPRESSIONS. UPON ENTERING SEOPT, XR7 IS POINTING 










01480 




AT THE SOP, SX CONTAINS THE SUBSCRIPTED VARIABLE NAME, AND 










01490 




SY CONTAINS THE SOP. UPON LEAVING SEOPT, XR7 WILL BE POINTIN 










01500 




AT THE SYMBOL FOLLOWING THE RIGHT PAREN. SEOPT WILL OUTPUT 










01510 




ALL NECESSARY SYMBOLS FROM THE SUBSCRIPTED NAME TO THE RIGHT 










01520 




PAREN INCLUSIVE. 










01530 




BTM 


SEOPT, CDlO+12 


03560 


17 


05716 


—3404 


01540 


PASKIP 


BTM 


PUT,SX 


03572 


17 


05212 


-5054 


01550 




BTM 


PUT,SY 


03584 


17 


05212 


-5061 


01560 




TFM 


PCNT,,10 


03596 


16 


08351 


000-0 


01570 




BXM 


•♦12,5(71 


03606 


62 


03620 


O— 5 


01580 




TF 


SX,B6NST(7) 


03620 


26 


05054 


1NRR9 


01590 




BTM 


PUT,SX 


03632 


17 


05212 


-5054 


01600 




CM 


SX,124,9 


03644 


14 


05054 


00J24 


01610 




BNE 


• ♦32 


03656 


47 


03688 


01200 


01620 




AM 


PCNT,l,10 


03666 


11 


08351 


000-1 


01630 




87 


PASKIP+36 


03680 


49 


03608 




01640 




CM 


SX,104,9 


03688 


14 


05054 


00J04 


01650 




BNE 


PASKIP^36 


03700 


47 


03608 


01200 


01660 




SM 


PCNT,l,lO 


03712 


12 


08351 


000- 1 


01670 




BNZ 


PASKIP^36 


03724 


47 


03606 


01200 
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01680 




BXH 


CDlD+12,517) 




03736 


62 


03404 


0 5 


01 690 


CDlEl 


BTM 


PUT,SX 




03748 


17 


05212 


-5054 


0 1 700 




B7 


CDlD+12 




03760 


49 


03404 




01710 


CDIE 


BTM 


PUT.SX 




03768 


17 


05212 


-5054 


01720 




THE MRBVLT ROUTINE 


WILL CHECK TO SEE IF THERE ARE ANY 










01730 




ENTRIES ON THE BOUND VARIABLE LIST. IF THERE ARE, EACH ONE 










0 1 740 




WILL BE MATCHED AGAINST EACH ENTRY IN THE BOUND VARIABLE 










0 1 750 




TABLE. WHEN A MATCH 


IS FOUND, THE BV AND ITS SETAB ENTRIES 










01 760 


****** 


MILL BE CLEARED. 












0 1 770 




BNR 


•♦20,BVLlST-l(6l 




03780 


45 


03800 


0QP58 


01780 




B7 


INITA 




03792 


49 


02472 




01 790 




BTM 


MRBVLT, INITA 




03800 


17 


08066 


-2472 


01800 


CDCALL 


BL XM 


•♦12,15(7) 




03812 


66 


03824 


0 — J 5 


01810 




TF 


SL,BGNST(7) 




03824 


26 


05067 


1NRR9 


01820 




BXM 


•♦12,5(7) 




03836 


62 


03848 


0 5 


01830 




TF 


SN,BGNST(7) 




03848 


26 


05073 


1NRR9 


01840 




CM 


SN, 132,9 




03860 


14 


05073 


00J32 


01850 




BNE 


CDCL2 




03872 


47 


03944 


01200 


01860 




BTM 


PUT,SX 




03884 


17 


05212 


-5054 


01870 




BTM 


PUT,SY 




03896 


17 


05212 


-5061 


01880 




BTM 


PUT,SL 




03908 


17 


05212 


-5067 


01890 




BTM 


PUT,SN 




03920 


17 


05212 


-5073 


01900 




BTM 


PURGCM, INITA 




03932 


17 


07856 


-2472 


01910 


C0CL2 


BTM 


PURGCM,»-H2,, 


PURGCM IF FOP OPERATOR FOUND 


03944 


17 


07856 


-3956 


01920 


CDCL3 


BLXM 


•♦12,20(7) 




03956 


66 


03968 


0 — KO 


01930 




BTM 


ADSBVL,C010,, 


CHECK ARGUMENTS FOR BVLIST 


03968 


17 


07460 


-3392 


01940 


CDENO 


BNF 


CDN01,SUBPSW,t 


IF IN A SUBPROGRAM, ADJUST AOCQW FOR 


03980 


44 


04100 


05107 


01950 




TFM 


SAVIX,8,10 




03992 


16 


05206 


000-8 


01960 




S 


SAVIX,LOIR 




04004 


22 


05206 


05204 


01970 




MM 


SAVIX,5,10 




04016 


13 


05206 


000-5 


01980 




AM 


99,1,10 




04028 


1 1 


00099 


000- 1 


01990 




TF 


LOXRAD, BEGAD,, 


LOXRAD CONTAINS ADO* FOR SUBPROGRAM TR 


04040 


26 


02394 


02257 


02000 




AM 


L0XRAD,1,10 




04052 


11 


02394 


000-1 


02010 




A 


BEGAD, 99 




04064 


21 


02257 


00099 


02020 




TFM 


XRADD,381 




04076 


16 


02389 


-0381 


02030 




S 


XRADD,99 




04088 


22 


02389 


00099 


02040 


CONDI 


BTM 


PUT,SX 




04100 


17 


05212 


-5054 


02050 




BTM 


PUT,SY 




04112 


17 


05212 


-5061 


02060 




BTM 


PUT,SL 




04124 


17 


05212 


-5067 


02070 




CM 


PUT1^6,CAR0 




04136 


14 


05230 


-5396 


02080 




BE 


CDNOXT 




04148 


46 


04180 


01200 


02090 




TDM 


PEXIT*1,9,, 


GO TO OUTPUT FINAL BUFFER OF SYMBOLS 


04160 


IS 


05359 


00009 


02100 




B7 


PUT2 




04172 


49 


05274 




02110 


CDNOXT 


TF 


CLLBLK,GTBLKBt» 


OUTPUT ANY CALL RECORDS 


04180 


26 


04341 


08469 


02120 




TF 


PUTXZ,INT0P2 




04192 


26 


05701 


05378 


02130 




TFM 


I0RT,««23 




04204 


16 


00565 


-4227 


02140 




B 


I0GT,CALBLK,7 




04216 


49 


00566 


-4328 


02150 




BNR 


•♦20, CARD 




04228 


45 


04248 


05396 






87 


NEXTPH 












02170 




TFM 


I0RT,*^23 




04248 


16 


00565 


-4271 


02180 




B 


I0PT,PUTXX,7 




04260 


49 


00532 


-4351 


02190 




AM 


CLLBLK,3tlO 




04272 


11 


04341 


000-3 


02200 




AM 


PUTXZ,3tlO 




04284 


11 


05701 


000-3 


02210 




B7 


C0N0XT^24 




04296 


49 


04204 




02220 


NEXTPH 


TFM 


FN0N«35,CDND2tt 


CALL IN NEXT PHASE 


04304 


16 


02359 


-4359 


02230 




BTM 


FMONvINIT 




04316 


17 


02324 


-2400 
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02240 CALBLK DSC 2,2 
02 

02250 DSA CALLBK 



02270 


CALLBK 


DSC 


ItO 






0 




02280 


CLLBLK 


DC 


s.o 






-0000 


02290 




DC 


3,3 






-03 




02300 




DSA 


CARD 


02310 




DC 
• 


l»* 


02320 


PUTXX 


DSC 


2,2 






02 




02330 




DSA 


PUTXY 


02340 




DC 
« 


I.' 


02350 


CDN02 


DSC 


2,22 






22 




02360 




OS A 


CDN03 


02370 




DC 
• 


It* 


02380 


C0N03 


OSC 


IfO 






0 




02390 




DC 


5,17800 






J7800 


02400 




DC 


3,136 






J36 




02410 




DSA 


INIT 


02420 




DC 
f 


If • 


02430 


CDOUT 


BLXM 


•♦12,15(7) 


02440 




TF 


SL,BGNST(7» 


02450 




CM 


SL, 132,9 


02460 




BE 


CDOUT 1 


02470 




CM 


SL, 133,9 


02480 




BNE 


CD0UT2 


02490 




67 


•♦12,ST0RIR(7 


02500 




TFM 


PRCNT,! 


02510 


C00UT3 


BXM 


•♦12,5(7) ,11 


02520 




TF 


SL,BGNST(7) 


02530 




CM 


SL, 124,9 


02540 




BNE 


• ♦32 


02550 




SM 


PRCNT, 1,10 



04328 

04334 

04334 
04335 

04336 

04341 

04344 

04349 

04349 
04350 

04351 

04357 

04357 
04358 



2 

5 X 



-4336 
1 



3 

5 X 



-5396 
1 



2 

5 X 



-5696 
1 



04359 




2 




04365 




5 


X 1 


04365 




-4367 




04366 




1 




04367 




1 




04372 




5 




04375 




3 




04380 




5 


X 1 


04380 




-2400 




04381 




1 




04382 


66 


04394 


0— J5 


04394 


26 


05067 


1NRR9 


04406 


14 


05067 


00J32 


04418 


46 


04678 


01200 


04430 


14 


05067 


00J33 


04442 


47 


04666 


01200 


04454 


67 


04466 


0QLO6 


04466 


16 


05079 


-0001 


04478 


62 


0449a 


0— N 


04490 


26 


05067 


1NRR9 


04502 


14 


05067 


00J24 


04514 


47 


04546 


01200 


04526 


12 


05079 


000-1 
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6 



02560 




87 


»^68 


04538 


49 


04606 




02570 




CM 


SL» I99t9 


04546 


14 


05067 


00 J99 


02580 




BE 


»-32 


04558 


46 


04526 


01200 


02590 




CM 


SLt 104, 9 


04570 


14 


05067 


OOJ04 


02600 




BNE 


*«'24 


04582 


4 7 


04606 


01200 


02610 




AM 


PRCNT»1»10 


04594 


11 


05079 


000- 1 


02620 




CM 


PRCNT, 0 


04606 


14 


05079 


-0000 


02630 




BNE 


CD0UT3 


046 IB 


47 


04478 


01200 


02640 




TF 


BGNST(7> ,DOLLP 


04630 


26 


1NRR9 


05084 


02650 




BL X 


• + 12 1 STORI R (7) 


04642 


65 


04654 


00LO6 


02660 




BXM 


CD0UT'»-12,25(7) 


04654 


62 


04394 


0 K5 


02670 


CD0UT2 


BXM 


COOUT+12 , 5(7) 






04394 


0> — 3 


02680 


CDOUTl 


BLXM 


•♦12, 5(7) 


04678 


66 


04690 


0— -— 5 


02690 




TF 


SX,BGNST( 7) 


04690 


26 


05054 




02700 


CD0UT6 


CM 


SX, 199,9 


04702 


14 


05054 


00 J99 


02710 




BH 


CD0UT4 


04714 


46 


04854 


Oil 00 


02720 




BL 


CD0UT5 


04726 


47 


04762 


01 300 


02730 




BTM 


CL ISTS, •'*'12f f 


WHEN DOLLP FOUND, CLEAR LISTS AND TABLES 04738 


11 


08222 


—4750 


02740 




TFM 


SX,124 


04750 


16 


05054 


—0124 


02750 


CD0UT5 


BTM 


PUTtSXf « 


OUTPUT OPERATOR 04762 


Ij 


05212 


-5054 


02760 




BXM 


• 4-12,5(7) 


04774 


62 


04786 


0— -5 


02770 


CD0UT8 


TF 


SX,BGNST( 7) 


04786 


26 


05054 


1NRR9 


02780 


COOUTA 


CM 


SXf 132,9 


04798 


14 


05054 


00J32 


02790 




BNE 


CD0UT6 


04810 


47 


04702 


01200 


02800 




TDM 


INPSW,0 


04622 


15 


05106 


00000 


02810 




BTM 


PUT,SX 


04834 


17 


05212 


-5054 


02820 




B7 


INITA 


04846 


49 


02472 




02830 


CD0UT4 


BXM 


•••-12,5(7) 


04854 


62 


04866 


0 5 


02840 




tF 


SY,BGNST(7) 


04866 


26 


05061 


INRR'9 


02850 




CM 


SY, 149, 9 


04878 


14 


05061 


00J49 


02860 




BL 


CD0UT7 


04890 


47 


04938 


01300 


02870 




CM 


SY, 151,9 


04902 


14 


05061 


00J51 


02880 




BH 


C00UT7 


04914 


46 


04938 


01100 


02890 




BTM 


SE0PTiC00UT8*f 


OPTIMIZE SUBSCRIPT EXPRESSION 04926 


17 


05716 


-4786 


02900 


CD0UT7 


BNF 


CD0UT9tf NPSW 


04938 


44 


05018 


05106 


02910 




TF 


MBASE-lfSX 


04950 


26 


05100 


05054 


02920 




BO 


• 4-20tMBASEf 11 


04962 


43 


04982 


0510J 


02930 




B7 


CD0UT9 


04974 


49 


05018 




02940 




TR 


BVLIST(6),SX>3 


04982 


31 


0QP59 


05051 


02950 




BXM 


•♦12,4(6) 


04994 


62 


05006 


0—04 


02960 




BTM 


MR8VLT,*-*'12 


05006 


17 


08066 


-5018 


02970 


C00UT9 


BTM 


PUTfSX 


05018 


17 


05212 


-5054 


02980 




TF 


SX,SY 


05030 


26 


05054 


05061 


02990 




B7 


COOUTA 


05042 


49 


04798 




03000 


SX 


OS 


6 


05054 




6 




03010 




OC 
1 


1 1 • 


05055 




I 




03020 


SY 


OS 


6 


05061 








03030 


SL 


OS 


6 


05067 




6 




03040 


SN 


OS 


6 


05073 




6 




03050 




DC 
• 


It* 


05074 




I 




03060 


PRCNT 


OS 


5 


05079 




5 




03070 


OQLLP 


OC 


5,199 


05084 




5 








-0199 










03080 


LPAREN 


OC 


5,104 


05089 




5 
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03090 SBASE 


DC 


6,4 


05095 




6 






-00004 










03100 MBASE 


DC 


6,5 


05101 




6 






-00005 










03110 FFOPSM 


DSC 


1,0 


05102 




1 




03120 ZER2 


0 
DC 


2t0 


05104 




2 




03130 CALLSW 


-0 
DSC 


1,0 


05105 








03140 INPSW 


0 

DSC 


ItO 


05106 




1 




03150 SUBPSM 


0 

OSC 


l.O 


05107 




1 




03160 DIGSTR 


0 

OS 


,•-104 


05003 




0 




03170 


DSC 


50, 11230054500445500000111101100066181094475750000100 


05108 




50 






11230054500445500000111101100066181094475750000100 


05157 








03180 AODSTR 


OS 






0 




03190 


DSA 


PASS2 


05162 




5 


X 1 








05162 




-2940 




03200 


OS A 


IFA 


05167 




5 


X 1 








05167 




-2728 




03210 


DSA 


CODEOO 


05172 




5 


X 1 








05172 




-2800 




03220 


DSA 


INA 


05177 




5 


X 1 








05177 




-2776 




03230 


DSA 


OUTA 


05182 




5 


X 1 








05182 




-2752 




03240 


DSA 


SUBPF 


05187 




5 


X 1 








05187 




-2928 




03250 


DSA 


DSK 10 


05192 




5 


X 1 








05192 




-2812 




03260 


DSA 


CALLA 


05197 




5 


X 1 








05197 




-2740 




03270 


DSA 


ENDA 


05202 




5 


X 1 








05202 




-2764 




03280 BGNST 


OS 


1,15999 


15999 




1 




03290 LOIR 


OC 


2,8 


05204 




2 




03300 SAVIX 


-8 
OS 


2 


05206 




2 




03310 


OS 


5 • 


05211 




5 




03320 PUT 


TF 


PUT0UT,PUT-1,11 


05212 


26 


05392 


0521 J 


03330 PUTl 


TR 


CARD,PUT0UT'-4,2 


05224 


31 


-5396 


05388 


03340 


AM 


•-6,5,10 


05236 


11 


05230 


000-5 


03350 


CM 


•-18*CARD*200 


05248 


14 


05230 


-5596 


03360 


BE 


• ♦14 


05260 


46 


05274 


01200 


03370 


BB2 




05272 


42 
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R 



03380 


PUT2 


TFH 


I0RT.»*23 


05274 


16 


00565 


-5297 


03390 




B 


lOPT, INTOP. 7 


05286 


49 


00532 


-5365 


Q'ikOO 




AH 


INT0Pl-«-5t2» 10 


05298 


11 


05378 


000-2 


03410 




8 


• 4^36,00200. • C9T7 ST ON SW2 


05310 


49 


05346 


00200 


03420 




RCTV 




05322 


34 


00000 


00102 


03430 




WNTY 


CARD 


05334 


38 


05396 


00100 


03440 




TFM 


PUTU6.CAR0 


05346 


16 


05230 


-5396 


03450 


PEXI T 


BB 


CDNOXT 


05358 


42 


04180 


00000 


03460 




00 RG 


•-4 


05365 








03470 


INTOP 


DSC 


2.2 


05365 




2 




03480 




02 
OS A 


INTOPl 


05371 




5 


X 1 










05371 




-5373 




03490 




DC 
« 


1.' 


05372 








03500 


INTOPl 


DSC 


1,0 


05373 




1 




035 10 


I NT0P2 


0 
DC 


5.600 


05378 












-0600 










03520 




DC 


3,2 


05381 












-02 












03530 




OS A 


CARD 


05386 






X I 










05386 




-5396 




03540 




DC 


l,« 


05387 








03550 


PUTOUT 


OS 


5 


05392 








03560 




DC 
t 




05393 




I 




03570 




DAS 


1 


05395 






X 2 


03580 


CARD 


DSS 


300 


05396 




300 




03590 


PUTXY 


DSC 


1,0 


05696 








03600 


PUTX2 


0 
DC 


5,0 


05701 












-0000 










03610 




DC 


3,3 


05704 












-03 












03620 




DSA 


CARD 


05709 






X 1 










05709 




-5396 




03630 




DC 
« 


l,» 


05710 




1 




03640 
















036 50 
















03660 
















03670 






SEOPT 










03680 
















03690 
















03700 




DS 


5 


05715 




5 




03710 


SEOPT 


TR 


SEBUF-4,ISE.. 47 ZEROS 


05716 


31 


06872 


07064 


03720 




TFM 


SEEl442,SEBUF-3 


05728 


16 


05854 


-6873 


03730 




CM 


SY, 150,9, CHECK SUBSCRIPT OPERATOR 


05740 


14 


05061 


00J5O 


03740 




BNL 


• 4^24,,, BRANCH NOT SINGLE 


05752 


46 


05776 


01300 


03750 




BL XH 


SEEl, 5,, SINGLE OPERATOR 


05764 


66 


05812 


00005 


03760 




BH 


SEEl-12,., BRANCH TRIPLE 


05776 


46 


05800 


01100 
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03770 




BLXM 


SEEl • 8. • DOUBLE OPERATOR 


05788 


66 


05812 


00008 


03780 




BLXM 


SEEltll** TRIPLE OPERATOR 


05800 


66 


05812 


00011 


03790 


SEEl 


67 


•♦12»XRST0R(7),, BSX 


05812 


67 


05824 


0P-N5 


03800 




BXM 


•♦12,15(71., SKIP DUMMY 


05824 


62 


05836 


0 — J5 


03810 




IF 


TBUF-l,BGNSTf7),, GET EXPRESSION 


05836 


26 


07062 


INRR9 


03820 




TRNH 


SEBUF-3,TBUF-4 


05848 


30 


06873 


07059 


03830 




AM 


•-6.4.10 


05860 


11 


05854 


000-4 


03840 




BXM 


•+12.5(71 


05872 


62 


05884 


0 5 


03850 




BCXM 


SEEl+24.1.11, REDUCE REGISTER BY ONE 


05884 


64 


05836 


OOOOJ 


03860 


CKCOM 


BNF 


CLFLAG, FFOPSW 


05896 


44 


06028 


05102 


03870 




TFM 


•+23,SEBUF+8 


05908 


16 


05931 


-6884 


03880 




MA 


WKAREA,77777 


05920 


70 


06871 


77777 


03890 




CM 


WKAREA,,8 


05932 


14 


06871 


0-000 


03900 




BZ 


CLFLAG 


05944 


46 


06028 


01200 


03910 




TF 


•♦22,WKAREA 


05956 


26 


05978 


06871 


03920 




C 


L0C0M,4 


05968 


24 


02262 


00004 


03930 




BL 


PUTTOT 


05980 


47 


06664 


01300 


03940 




AM 


CKCOM+35,12tlO 


05992 


11 


05931 


000J2 


03950 




CM 


CKC0M + 35,SEBUF4-44 


06004 


14 


05931 


-6920 


03960 




BNE 


CKCOM+24 


06016 


47 


05920 


01200 


03970 


CLFLAG 


BNF 


•♦36,SEBUF*4 


06028 


44 


06064 


06880 


03980 




CF 


SEBUF+4 


06040 


33 


06880 


00000 


03990 




TOM 


SEBUF-3 ,9 


06052 


15 


06873 


00009 


04000 




BNF 


•♦36,SEBUF*16 


06064 


44 


06100 


06892 


04010 




CF 


SEBUF+16 


06076 


33 


06892 


00000 


04020 




TOM 


SEBUF+9 ,9 


06088 


15 


06885 


00009 


04030 




BNF 


♦♦36,SEBUF*28 


06100 


44 


06136 


06904 


04040 




CF 


SEBUF+28 


06112 


33 


06904 


00000 


04050 




TDM 


SEBUF+21,9 


06124 


15 


06897 


00009 


04060 




BNF 


•♦36,SEBUF»40 


06136 


44 


06172 


06916 


04070 




CF 


SEBUF+40 


06148 


33 


06916 


00000 


04080 




TOM 


SEBUF+33,9 


06160 


15 


06909 


00009 


04090 


CKFIX 


TF 


MBASE-l,SX 


06172 


26 


05100 


05054 


04100 




BD 


•+32.MBASE.11 


06184 


43 


06216 


0510J 


04110 




TF 


SEBUF+42.FP2 


06196 


26 


06918 


02298 


04120 




B7 


• ♦20 


06208 


49 


06228 




04130 




TF 


SEBUF+42.K 


06216 


26 


06918 


02252 


04140 




CF 


SEBUF>41 


06228 


33 


06917 


00000 


04150 




CM 


LOIR. 8. 10 


06240 


14 


05204 


000-8 


04160 




BNE 


• ♦24 


06252 


47 


06276 


01200 


04170 




BLXM 


POTAB, 336C4I ,. GO PLACE ON TABLE 


06264 


66 


06356 


0-336 


04180 


COMPSE 


MM 


LOIR, 48, 10 


06276 


13 


05204 


000M8 


04190 




BLX 


•♦12,99(4) 


06288 


65 


06300 


0-099 


04200 




C 


SEBUF+42,SETAB-2(4) ,, CHECK IF ON TABLE 


06300 


24 


06918 


0P116 


04210 




BE 


ONTAB,,, YES 


06312 


46 


06788 


01200 


04220 




BNR 


•♦20,SETAB(4),. CHECK TOP OF TABLE 


06324 


45 


06344 


0P118 


04230 




87 


lAVAIL,,, GO SEE IF IR AVAILABLE 


06336 


49 


06836 




04240 




BXM 


•-44,48(4) 


06344 


62 


06300 


0-048 


04250 


POTAB 


TFM 


INITUll,SEBUF + 8 


06356 


16 


06439 


-6884 


04260 




TR 


SETAB-47(4) ,SE8UF-3,, PLACE ON S.E. TABLE 


06368 


31 


0P071 


06873 


04270 




SF 


SETAB-47(4) 


06380 


32 


0P071 


00000 


04280 




TO 


IRUSE,SETAB-48(4) 


06392 


25 


07057 


0P070 


04290 




TD 


SX-4,SETAB-4fl(4) 


06404 


25 


05050 


0P070 


04300 




SF 


SX-4 


06416 


32 


05050 


00000 


04310 


INITl 


MA 


BVLD-l,SEBUF+8 


06428 


70 


07116 


06884 


04320 




CM 


BVLO-1,,10, CHECK DONE 


06440 


14 


07116 


000-0 
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04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 
04430 
04440 
04450 
04460 
04470 
04480 
04490 
04500 
04510 
04520 
04530 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 
04650 
04660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 

04740 

04750 
04760 
04770 

04780 
04790 
04800 

04810 

04820 



TABLE LOADED 

SET IR NUMBER 



BE CKLOIR,,, 

TD BVLD-5,IRUSE. 

TF •+22,BVLD-l 

C L0C0M,4,, CHECK IN COMMON 

CF BVLD-4 

BL •♦32 

TRNM BVTAB(5l,8VLD-5,. NOT COMMON 

B7 •♦20 

TR BVTAB{5),BVLD-5,, IN COMMON 

TF BVTA8-1 (5) , ISE^S 

BXM •♦12,6(5),11 

SF BVLD-4 

AM INITl+11,12,10 

CM INITl^ll,SEBUF*44,» CHECK DONE 

BNE INITl,,, NOT DONE 

CKLOIR C LOIR.IRUSE,, CHECK LOW INDEX REGISTER 

BL ^+24 

TF LOIR.IRUSE 

PUTTOT BXM •♦12,05(7),, UPDA 

67 •♦12,XRC0MP(7),, BSX 

BLX •♦12,XRST0R{7) 

BTM PUT,SX 

BTM PUT.SY,, PUT TOTAL EXPRESSION 

BXM •♦12,517) 

C 339,XRC0MP 

BE OUTSE,,, YES 

TF SY,BGNST(7) 

87 PUTT0T^48 

OUTSE B7 SEOPT-1,, 



LEAVE SEOPT 



ONTAB TD SX-4,SETAB~48(4) 

SF SX-4 

BTM PUT.SX,, PUT INDEXED VARIABLE 

BXM OUTSE, 05 (7),, UPDATE FOR NEXT OPERATOR 

• 

lAVAIL BNR P0TAB,SETAB>1(4) 

BCXM IAVAIL,48(4),11 

B7 PUTTOT,,, 60 NO IR AVAILABLE 



WKAREA 
SEBUF 



XRCOMP 
XRSTOR 
IRUSE 

T8UF 

ISE 



DS 1 
DC 4,0 

-000 

DC S,0 
-0000 
OS 43 
OSB 6,20 
DSC 6,0 
000000 
OS 5 
OS 5 
DC 2,0 
-0 

DC 6,* 

-oooo* 

DC 1,0 



06452 


46 


06628 


01200 


06464 


25 


07112 


07057 


06476 


26 


06498 


07116 


06488 


24 


02262 


00004 


06500 


33 


07113 


00000 


06512 


47 


06544 


01300 


06524 


30 


OPOMO 


07112 


06536 


49 


06556 




06544 


31 


OPOMO 


07112 


06556 


26 


OP0L9 


07069 


06568 


62 


06580 


0-0-0 


06580 


32 


07113 


00000 


06592 


11 


06439 


000J2 


06604 


14 


06439 


-6920 


066L6 


47 


06428 


01200 


06628 


24 


05204 


07057 


06640 


47 


06664 


01300 


06652 


26 


05204 


07057 


06664 


62 


06676 


0 5 


06676 


67 


06688 


OP-NO 


06688 


65 


06700 


0P-N5 








-5054 


06712 


17 


05212 


-5061 


06724 


62 


06736 


0—5 


06736 


24 


00339 


07050 


06748 


46 


06780 


01200 








INRR9 


06772 


49 


06712 




06780 


49 


0571N 




06788 


25 


05050 




06800 


32 


05050 


00000 


06812 


17 


05212 


-5054 


06824 


62 


06780 










OPl 17 


06848 


64 


06836 


0-040 


06860 


49 


06664 












06871 




4 




06876 




5 




06919 




43 










X 20 


07040 




6 




07050 




5 




07055 




5 




07057 




2 




07063 




6 




07064 




1 





379 
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04830 




DSC 


47, • 


07065 




47 








OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO* 










04840 




DC 
* 


If* 


07112 




1 




04850 


BVLD 


DC 


5,« 


07117 




5 








-000 • 










04860 


SETAB 


OSC 

1 


^•V 


07118 




1 




04870 




DSC 


47,0 


07119 




47 








00000000000000000000000000000000000000000000000 










04880 




OSC 


1,2 


07166 




1 




04890 




2 

OSC 


47,0 


07167 




47 








00000000000000000000000000000000000000000000000 










04900 




DSC 
3 


I #3 


07214 




1 




04910 




DSC 


47,0 


07215 




47 








00000000000000000000000000000000000000000000000 










04920 




OSC 
4 


1,4 


07262 




1 




04930 




OSC 


47,0 


07263 




47 








00000000000000000000000000000000000000000000000 










04940 




OSC 


1,5 


07310 




1 




04950 




5 

DSC 


47,0 


07311 




47 








00000000000000000000000000000000000000000000000 










04960 




OSC 
6 


1,6 


07358 




1 




04970 




DSC 


♦ 7,0 


07359 




47 








OOOOQOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 










04980 




DSC 
7 


1,7 


07406 




1 




04990 




OSC 


47,0 


07407 




47 








00000000000000000000000000000000000000000000000 










05000 




DC 
1 


l,» 


07454 




1 




05010 
















05020 
















05030 






ADSBVL 










05040 
















05050 




DS 


5 . 


07459 




5 




05060 


ADSBVL 


TFM 


PCNT,1,10, INITIALIZE PAREN COUNT 


07460 


16 


08351 


000-1 


05070 




BXM 


•♦12,5C7),, UPDATE STRING INDEX 


07472 


62 


07484 


0—5 


05080 




TF 


SX,BGNST(7) ,, GET SYMBOL 


07484 


26 


05054 


1NRR9 


05090 




CM 


SX, 124,9,, SX « LEFT PAREN 


07496 


14 


05054 


00J24 


05100 




BNE 


•♦32,,, NO 


07508 


47 


07540 


01200 


05110 




AM 


PCNT,l,10 


07520 


11 


08351 


000-1 


05120 




B7 


ADSBVL+12 


07532 


49 


07472 




05130 




CM 


SX, 104,9, SX s RIGHT PAREN 


07540 


14 


05054 


00J04 


05140 




BNE 


SXOP,,, NO 


07552 


47 


07600 


01200 


05150 




SM 


PCNT,1,10 


07564 


12 


08351 


000-1 


05160 




BN2 


ADSBVL+12 


07576 


47 


07472 


01200 


05170 




BXM 


ADSBVL-l,5(7),6, EXIT ADSBVL 


07588 


62 


0745R 


0 5 


05180 


SXOP 


BNH 


MBNAME,,, MUST BE A NAME 


07600 


47 


07758 


01100 


05190 




CM 


SX,155,9 


07612 


14 


05054 


00J55 


05200 




BNL 


MBNAME, MUST BE A NAME 


07624 


46 


07758 


01300 



3 811 
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05210 




CM 


SX, 149,9 




07636 


14 


05054 


00J49 


05220 




BL 


A0SBVL'M2,«» NOT 


SUBSCRIPT OP 


07648 


47 


07472 


01300 


05230 




BNE 


•+24t,, NOT 


SINGLE 


07660 


47 


07684 


01200 


052A0 




BTM 


CNTPE .45, lOt SKIP 


9 SYMBOLS 


07672 


17 


07746 


000M5 


05250 




CM 


SX, 151,9 




07684 


14 


05054 


00J51 


05260 




BH 


ADSBVL«I2,,, NOT 


SUBSCRIPT OP 


07696 


46 


07472 


01100 


05270 




BL 


• 4-24,,, MUST 


BE DOUBLE 


07708 


47 


07732 


01300 


05280 




BTM 


CNTPE, 75, 10, SKIP 


15 SYMBOLS 


07720 


17 


07746 


000P5 


05290 




BTM 


CNTPE, 60, 10, SKIP 


12 SYMBOLS 


07732 


17 


07746 


00000 


05300 




OS 


2 




07745 




2 




05310 


CNTPE 


BX 


A0SBVL4^24,»-1(7) 




07746 


61 


07484 


0PPM5 


05320 


MBNAME 


TF 


MBASE-1,SX 




07758 


26 


05100 


05054 


05330 




BD 


• 4^20,MBASE,1L, 


FIXED 


07770 


43 


07790 


0510J 


05340 




87 


ADSBVL«12,,, 




07782 


49 


07472 




05350 




TF 


ABASE-I,SX 




07790 


26 


08360 


05054 


05360 




BD 


A0SBVL«12,ABASE,11, 


ARRAY 


07802 


43 


07472 


0836J 


05370 




TF 


TBUF-l,SX 




07814 


26 


07062 


05054 


05380 




TR 


BVLIST(6),TBUF-4,, 


PUT ON LIST 


07826 


31 


0QP59 


07059 


05390 




BXM 


ADSBVL^12,4(6) 




07838 


62 


07472 


0—04 


05400 




OS 


5 




07854 




5 




05410 


PURGCM 


67 


•♦12.ST0RIR(5),, 


BSX 


07856 


67 


07868 


0Q306 


05420 




CM 


STORIR 




07868 


14 


08366 


-0000 


05430 




BE 


PUR6CM-1,,6 




07880 


46 


0785N 


01200 


05440 




BNR 


»4^24,BVTAB«11(5) 




07892 


45 


07916 


OPONl 


05450 




BTM 


GOPURG, •-12 




07904 


17 


07946 


-7892 


05460 




BCXM 


•-24,6(51 




07916 


64 


07892 


0-0-6 


05470 




BLX 


PUR6CN-1,ST0RIR(51, 


6, EXIT PURGCM 


07928 


65 


0785N 


0Q306 


05480 


















05490 




OS 


5 




07944 




5 




05500 


GOPURG 


TP 


M0,BVTAB4-6(5) 




07946 


25 


08353 


0P0M6 


05510 




TF 


BVTAB4^1l(5),BVTAB^5f5l 


07958 


26 


OPONl 


0P0M5 


05520 




TO 


MDC,BVTAB<t-6(5) 




07970 


25 


08355 


0P0M6 


05530 




AM 


STORIR, 6,10 




07982 


11 


08366 


000-6 


05540 




C 


MO,MDC 




07994 


24 


08353 


08355 


05550 




BE 


G0PURG412 




08006 


46 


07958 


01200 


05560 




MM 


MD, 48,10 




08018 


13 


08353 


000M8 


05570 




BLX 


•♦12,99(41 




08030 


65 


08042 


0-099 


05580 




TRNM 


SETAB-47(4I,ISE 




08042 


30 


0P071 


07064 


05590 




B7 


GOPURG-1,,6 




08054 


49 


0794N 




05600 


















05610 




OS 


5 




08065 




5 




05620 


HRBVLT 


67 


•♦12,ST0RIR(5I,, 


BSX 


08066 


67 


08078 


0Q306 


05630 




CM 


STORIR 




08078 


14 


08366 


-0000 


05640 




BNE 


• ♦24 




08090 


47 


08114 


01200 


05650 




BLXM 


MRBVLT-1,0(6),6 




08102 


66 


0806N 


0 — 00 


05660 




MA 


CMPRA,BVLIST-U6) 




08114 


70 


08371 


0QP58 


05670 




MA 


CMPRB,BVTAB*10(5) 




08126 


70 


08376 


OPONO 


05680 




C 


CMPRA,CMPRB 




08138 


24 


08371 


08376 


05690 




BNE 


• ♦24 




08150 


47 


08174 


01200 


05700 




BTM 


GOPURG, MRBVLT^48 




08162 


17 


07946 


-8114 


05710 




BC XM 


MRBVLT^60,6(5) 




08174 


64 


08126 


0-0-6 


05720 




BLX 


•♦12,ST0RIR(5) 




08186 


65 


08198 


0Q306 


05730 




BCXM 


MRBVLT+48,4(6),11 




08198 


64 


08114 


0— OM 


05740 




B7 


MRBVLT-1,,6, 


EXIT MRBVLT 


08210 


49 


0806N 




05750 


















05760 




OS 


5 




08221 




5 





38i 



05770 
05780 
05790 
05800 
05810 
05820 
05830 
05840 
05850 
05860 
05870 
05880 
05890 
05900 

05910 

05920 

05930 
05940 



1620 MONITOR. 11 VERSION 2 FORTRAN II-O PHASE 2-A 
tlO 



CLISTS CM L0IR,8> 

BNL CLTAB 

MM LOIR, 48, 10 

BLX •♦12,99(4) 

TRNM SETAB-47(4I.ISE 

BNR •♦20,SETAB(4) 

87 •♦20 

BXM •-32,48(41 

TFM LOIR, 8, 10 

CLTAB BLXM •♦12,0(5) 

BLXM CLISTS-1,0(6),6 



PCNT OS 2 

MO DC 2,0 

-0 

MOC DC 2,0 
-0 

ABASE DC 6,6 

-00006 

STORIR OS 5 

DC 1,0 

05950 CMPRA DC 4,0 
-000 

05960 DC 1,0 



05970 CMPRB 



DC 

-000 



05980 « 
05990 ••••• 
06000 

06010 GETX 
06020 
06030 
06040 

06050 GETSY 
06060 
06070 
06080 
06090 GETBLK DSC 
02 

06100 OS A 



OS 
BNR 
TFM 
B 
AM 
TF 
TR 
BB 

DORG 



GETX FORTRAN ROUTINE 



GETSY, INPUT 
lORT 
lOGT 
GTBLKB 

GETX-l, INPUT^4,6 
INPUT, INPUT^5, 

•-9 
2,2 



#•♦23 
, GETBLK 
,2 



f7 
tlO 

GET NEXT SYMBOL 
SLIDE DOWN 



06110 




DC 1,« 


06120 


GTBLKA 


DSC 1,0 






0 


06130 


GTBLKB 


DC 5,600 






-0600 


06140 




OC 3,2 






-02 


06150 




DSA INPUT 



0B222 


14 


05204 


000-8 


08234 


46 


08326 


01300 


08246 


13 


05204 


000M8 


08258 


65 


08270 


0-099 


08270 


30 


0P071 


07064 


08282 


45 


08302 


0P118 


08294 


49 


08314 




08302 


62 


08270 


0-048 


08314 


16 


05204 


000-8 


08326 


66 


08338 


0-0-0 


08338 


66 


0822J 


0—00 


08351 




2 




08353 




2 




08355 




2 




08361 




6 




08366 




5 




08367 




1 




08371 




4 




08372 




1 




08376 




4 




08381 




5 




08382 


45 


08430 


08482 


08394 


16 


00565 


-8417 


08406 


49 


00566 


-8456 


08418 


11 


08469 


000-2 


08430 


26 


0838J 


08486 


08442 


31 


08482 


08487 


08454 


42 


00000 


00000 


08456 








08456 




2 




08462 




5 


X 1 


08462 




-8464 




08463 




1 




08464 




1 




08469 




5 




08472 




3 




08477 




5 


X 1 



06160 



DC 1,» 



08477 
08478 



-8482 
1 
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061 70 




DAS 


1 


08481 




1 


X 2 


06180 


INPUT 


DC 


It' 


08482 








06190 




OS 


199 


08681 




199 




06200 




DC 
• 


It' 


08682 




I 




06210 




OS 


5 


08687 




5 




06220 


ADSL 


TF 


BGNST(7),»-l,ll 


08668 


26 


1NRR9 


0868P 


06230 




TDM 


BGNST*1(7|,0 


08700 


15 


10—0 


00000 


06240 




OC 
1 


l»»t» 


08711 




1 




06250 




BXM 


•+12,5171 


08712 


62 


08724 


0 5 


06260 




SB 2 




08724 


42 






06270 




OS 


5 


08730 




5 




06280 


RMNS 


TF 


RMNS-lf BGNST(7i t6 


08732 


26 


0873J 


1NRR9 


06290 




TR 


BGNST-4(7l,BGNST*l(7) 


08744 


31 


1NRR5 


10—0 


06300 




BB2 




08756 


42 






06310 




DC 


It* 


08758 




1 




06320 


BVLIST 


OS 


I 


08759 




1 




06330 




00 RG 


16002 


16002 








06340 


BLKOPT 


DSC 


IfO 


16002 




1 




06350 




0 
OC 


5,15930 


16007 




5 








J5930 










06360 




OC 


3,070 


16010 




3 








-70 












06370 




OC 


5,2400 


16015 




5 








-2400 










06380 


STFILE 


34 


BLKOPT, 701 


16016 


34 


16002 


00701 


06390 




38 


BLKOPT, 702 


16028 


36 


16002 


00702 


06400 




TRA 




16040 


36 


00000 


00500 










16052 


49 


00000 


00000 


06410 




TCO 


STFILE 


16016 








06420 




OEND 




00000 
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AODSTR 


05157 


60PURG 


07946 


CDIE 


03768 


INPUT 


08482 


PUTXZ 


05701 


ADSBVL 


07460 


6TBLKA 


06464 


CDCL2 


03944 


INTOP 


05365 


RECLG 


02243 


ANALIZ 


026 72 


GTBLKB 


08469 


CDCL3 


03956 


lOGT 


00566 


RMNS 


08732 


BLKOPT 


16002 


HEADER 


02218 


CDCLN 


03020 


lOPT 


00532 


SAVIX 


05206 


BVLIST 


08759 


lAVAIL 


06836 


COEND 


03980 


lORT 


00565 


S6ASE 


05095 


CALBLK 


04328 


INTOPl 


05373 


CONOl 


04100 


IRUSE 


07057 


SEBUF 


06876 


CALLBK 


04336 


INT0P2 


05378 


C0ND2 


04359 


ISE 


07064 


SEEl 


05812 


CALLSW 


05105 


LENGTH 


02248 


C0N03 


04367 


JAY 


02367 


SEOPT 


05716 


CDCALL 


03812 


LQXRAO 


02394 


COOUT 


04382 


K 


02252 


SETAB 


07118 


CDNDXT 


04180 


LPAREN 


05089 


CKCOM 


05896 


LI 


02616 


SL 


05067 


COOUTl 


04678 


MBNAME 


07758 


CKFIX 


06172 


LOCOM 


02262 


SN 


05073 


C0OUT2 


04666 


MR8VLT 


06066 


CLTAB 


06326 


LOIR 


05204 


SUBPF 


02928 


C00UT3 


04478 


NEXTPH 


04304 


CMPRA 


06371 


LSTAO 


02308 


SXOP 


07600 


C0OUT4 


04854 


PASKIP 


03572 


CMPRB 


08376 


MBASE 


05101 


SX 


05054 


CD0UT5 


04762 


PASS2A 


02964 


CNTPE 


07746 


MOC 


08355 


SY 


05061 


CD0UT6 


04702 


PURGCM 


07856 


COOEl 


03136 


MD 


08353 


TBASE 


02303 


CD0UT7 


04938 


PUSTSN 


02294 


DOLLP 


05084 • 


Nl 


02233 


• TBUF 


07063 


CD0UT8 


04766 


PUTOUT 


05392 


DSKIO 


02812 


N2 


02238 


UFSTR 


02263 




05318 


PurroT 


0&6&4 


EMOA 


02764 


3MT43 


06768 


H 


022*3 


:o3jrA 


04798 


ABASE 


33361 


FCTS«< 


02293 


SJTA 


02752 


WW 


3229S 


:<LDM 


06528 


ADSL 


336 33 


FMOM 


02324 


3JTSE 


06780 


XRAD3 


D2399 


-LFLA3 


06323 


BE34D 


32257 


FP2 


02298 


^2?T\ 


02313 


ZER2 


3513* 


CLISTS 


08222 


BSMST 


15999 


F 


02250 


!>ASS2 


02940 


STFILE 


1501S 


CLL3LK 


04341 


BVLD 


37117 


SETSY 


08430 


»CNT 


08351 


STOHIK 


383&S 


C30eD3 


02900 


BVr^B 


37040 


5ETX 


08382 


PExir 


05358 


SJBPStrf 


35107 


C30EIF 


03216 


CALLA 


02743 


IFA 


02728 


i>3T*8 


06356 




05871 


C3M0SE 


062 76 


ZMO 


35396 


IMA 


02776 


?\CHr 


05079 


X^C3»1? 


07050 


DISST^ 


05303 


COIA 


33192 


iHin 


36428 


PJTl 


05224 




07055 


FCTENO 


02318 


COIB 


33369 


tHlTk 


02472 


f»JT2 


05274 






FF3>SW 


05102 


COIC 


33243 


INITB 


02580 


PUT 


05212 






FILEST 


02399 


COlO 


33392 


tNir 


02400 


PUTXX 


04351 






SEr3LK 


0B%5b 


CDlEl 


93743 


IMPSrf 


05106 


PJTKY 


05696 







EMD 3F 3ME ASSEM3LV. 



as 4 



^i34ir]^ n t^E^sn^ z fsatra^ ii-o phase 2-B 



»A3 = 



33013 






3^ r A^ I 


I '3 


P'lASE i-Q 










33320 




OS 


t 532 






00532 








33030 


I 3^T 


3S 


t 5&5 






33565 




0 








OS 
















33050 




OS 


( 795 


































03070 


S/S-,AL 




* 475 
* 










0 




030B0 






2 213 






02218 














I* 






02218 




1 4 




rtTi nn 

I J: 


VI 1 


nc 








02233 




2 
























03120 




3S 








;^ 








03130 




3S 
















03140 




OS 


5 


















it 
































2 








OS 
















: 

I an 




OS 
































30 






F TSW 


OS 


1 














33210 


1* JSTSM 


















33220 




OS 
















30230 


F '2 


OS 


















I^CT An 










02303 












nc 
















00260 


P2PtS 


OS 
















00270 


FIFEMO 


OS 


5 


















OS 


















_ _ 




»f 42 








26 




02 32 3 








I D^T 




t 










00310 




} 


I DST 




• 


7 02348 


49 


00566 


-0000 


00320 












02360 


49 


nnnnn 




00330 






• •4 


















3S 
















00350 


S\ 


3S 


0 00 35 1 1 


















OS 


3 3305 1 f 


cw ' 
SKf t 




02377 








00370 


3P 


OS 




3Pt t 




02379 




2 




00380 


S V 


OS 




SVf t 




023B4 




3 




00^00 


LDXlSo 


DS 




































30^1 0 


F I L E ST 


9S 








_ 


















WW 


n72i7 


26 










JZ 






t PASSI I ' 




26 












p 




f 2 


tlO 02424 




02250 


000-2 






0"* N 


• -3 
























t °" 


02436 




08714 


03399 


J: . 




T = 


A3:3M,3 


E3A0 




02448 


7ft 


05 969 


02 2 5 7 


00480 




AM 


A3:3M.l 


as 






11 






00481 






A3:3W 






02472 


33 


05969 


00333 


00490 




S 


=r AOD^ESS 11 


Aocow ro 










00500 






A3JJST, 


A3:3M 




02484 


17 


03444 


-5959 


30510 






3ESA0,A3:3ri 




02496 


26 


02257 


05959 


00520 




I ^irULIZE 












00530 




T= 


•jrxz 




•LSTAO 


02508 


26 


07665 


02)03 


00540 










#•♦23 


02520 


16 


00565 


-2543 


00550 




a 






.PUTXK 


,7 02532 


49 


00566 


-7552 



385 
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00560 




A 


MEXT 


,P2PTIl 




02544 


21 


07706 


02313 


00570 




TP 




,MEXT 




02556 


25 


08015 


07705 


30571 




T? 




,PRE3JF 




02568 


25 


02586 


08315 


00572 




T*MM 


3 JFl 


• I!MPjr»124 




02580 


30 


37710 


09514 


00573 




A1 


»-6 


t75 


,10 


02592 


11 


02586 


003P5 


00574 




CM 


»-18 


»BJF4^75 




02604 


14 


02586 


-8310 


00575 




BL 


• -35 






02616 


47 


02580 


01333 


00580 




SM 


MEXr 


.1 


,10 


02628 


12 


07706 


033-1 


00590 


:leah 


B3 


:312B«33SW 






02640 


43 


10314 


08993 


00591 




AM 


SCMT 


f 1 


,10 


02652 


11 


09351 


003-1 


00600 




S 


5T JP STIIMS 


RECORD COMSTAMTS 












00610 




T3M 


35MSH-1 


tO 




02664 


15 


15300 


03333 


00620 




o: 

• 


If S* 






02675 




I 




00630 




TP 


SWA^EA 


tM13039 




02676 


26 


08997 


09334 


00640 




BLXM 


• ♦-12 


• 5C7) 




02688 


66 


02700 


0-— 5 


00650 


LI 


STM 


jETX 


fSX 




02700 


17 


04844 


-2377 


00660 




BTM 


A3SL 


• SX 




02712 


17 


04946 


-2377 


00670 




CM 


sx 


tl32 


i» 


02724 


14 


02377 


00J32 


00680 




BME 


LI 






02736 


47 


02700 


01200 


00681 




B«C1 


LIJ 






02748 


47 


02B20 


00100 


00682 




BMC4 


LIJ 






02760 


47 


02820 


00400 


00683 




CM 


SSMST^IO 


tl34 


,9 


02772 


14 


16009 


00J34 


00684 




BE 


LIJ 






32784 


46 


02820 


01200 


00685 




»;Ty 








02796 


34 


00000 


00102 


00686 




WMTY 


A3C3W-4 






02808 


38 


05965 


00100 


00690 


LIJ 


BLXM 


• ♦12 


,517) 




02820 


66 


02832 


0—5 


00700 




Bf 


3TSCL 


tSTSCL-1 




02832 


27 


05840 


05339 


00720 


L2 


T= 


LV 


.B&MSr(7) 




02844 


26 


09239 


11RR9 


00730 




CM 




,152 


,8 


02856 


14 


09239 


0-152 


00740 




B-l 


L3 






02868 


46 


02916 


01130 


00750 




TF 


\^ 


,B5MSr^l3l7) 




02B80 


26 


09251 


13—9 


00760 




BTM 


FJilCE 


,0 


,10 


02892 


17 


04166 


000-0 


00770 




axM 


3(6} 


• 0(SI 




02904 


62 


0—00 


0—00 


00780 


L3 


SXM 


L2 


,5(7) 




02916 


62 


02844 


0—5 


00790 


EKIT 


CM 


«^7 


,5 


,10 


02928 


14 


00339 


003-5 


00800 




B: 


L2 






02940 


46 


02844 


01200 


00810 




BXM 


L2 


,-5(7) 




02952 


62 


02844 


0— M 


00820 






DJTPJT STATEMENT NJMBER ADDRESSES 










00833 


:3DE5 


BXM 


• ♦12 


,-5(7) 




32964 


62 


02976 


0- — ^ 


00840 




BTM 


«MMS 


.T3 




02976 


17 


04990 


-9343 


00850 




T* 


i;>IST-4(7) 


• BS^ST^K 7) 




02988 


31 


1M=1^5 


I3--0 


00860 




CM 


9SMST(7) 


• 140 


,9 


03000 


14 


11**9 


03J40 


00873 




8<E 


:<FMT 






03012 


47 


03048 


01200 


00880 




T3M 


33SW 


.1 




03024 


15 


08993 


00001 


00890 




TK 


85>4ST-4( 7) 


tBG'^Sr^KT) 




03036 


31 


1M-IR5 


ID — 0 


00900 


:<F»iT 


CM 


i31ST(7) 


.129 


,9 


03048 


14 


11*R9 


33J28 


00910 




BME 


SETFCT 






03060 


47 


03136 


01200 


00920 




BTM 


>JTX 


,•♦16 




03072 


17 


06030 


-3088 


00930 




DSA 


9tBLAM<»3LAMK 




03D88 




5 


X 3 














03088 




-5974 
















03093 




-9026 
















03098 




-9026 




00940 




T= 


SXF 


,ADC3*< 




33133 


26 


09257 


05959 


00950 




SM 


SXF 


.13 


.10 


03112 


12 


09257 


OOOJO 
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PA5E 



00960 




SI 


% 3S 314 


1 6 1 1 0 


03124 


12 


05969 


033-6 


30970 


S!:TFk.T 


3L X 


» f 1 2 


»T3*-l ( 6 ) 


33136 


65 


03148 


0RL44 


00980 






S£ T MMf 


»4(6) 


03148 


45 


03300 


0 — 04 


00990 




TF 


4(5) 


tADCSrf 


03160 


26 


0--04 


05969 


01000 




r>IF 


E11*6 


tS(6) 


03172 


73 


09371 


0 — 08 


OlOiO 




r" M 


s;^r 


fO fB 


03184 


16 


09361 


0-300 


01020 






M3Typ 




03196 


47 


03256 


00100 


01030 




\Z Ti 






03208 


34 


00000 


00102 


010^0 






4 3C3W-4 




03220 


38 


05965 


03133 


01050 




s*Ty 






03232 


34 


00000 


00101 


01060 




WMTy 


5(6) 




03244 


38 


0 — 05 


00100 




M D T y P 




9(6) 


* 1 » 1 1 


03256 


1 5 


0--09 


O03OJ 


01080 






35>IST(7) 


tl2S ,9 


33268 


14 


1S**9 


03J28 


31090 




3 = 


:33E17 




03280 


46 


10242 


01200 


01100 




37 


L2 




03292 


49 


02844 




01 110 




FF 


^I40002 


»4(6) 


03300 


26 


03387 


0--04 


01120 






^40002 




03312 


33 


03387 


03330 


31130 




SI 


^40302 


t4 ,10 


03324 


12 


03387 


003-4 


01 140 






» JTi^ 


f 'f-lS 


03336 


17 


07522 


-3352 


31150 




DSA 


>I40002» A0:;3W 




03352 




5 


X 2 












03352 




-3387 














03357 




-5969 




01 160 




37 


S5TFCT+24 




03358 


49 


03160 




01170 


C3DE0 


37 


r XI r 




03366 


49 


02928 




01180 


>J40300 


OS 


5 




03377 




5 




01 190 


M*030l 


OS 


5 




03382 




5 




31200 


M40002 


OS 


5 




03387 




5 




01210 


VI40003 


OS 


5 




03392 




5 




01220 


^140004 


OS 


5 




03397 




5 




01230 




OS 


5 




03402 




5 




01240 


^40006 


OS 


5 




03407 




5 




01250 


>140007 


OS 


S 




03412 




5 




01260 


^40008 


OS 


5 




03417 




5 




01270 


M40009 


OS 


5 




03422 




5 




01280 


M40010 


OS 


5 




03427 




5 




01290 


^1 40011 


OS 


5 




03432 




5 




01300 


M40012 


OS 


5 




03437 




5 




01310 


*•**•• 


F3^rR4'«l ftSJJSr 












01320 




OS 


5 




03442 




5 




01330 


ADJ JST 


n 


»»23«»-l,ll 




03444 


25 


03467 


0344L 


01340 




S3 


333JT.210 




03456 


43 


03480 


00210 


01 350 




Ai 


«3JJST*1, 1,610 


03468 


11 


0344L 


000-1 


01360 


BB3JT 


B32 






03480 


42 






01380 


***••• 


F3*r**^ 3I» SEAR 












01390 




OS 


S 




034B6 




5 




31400 




TFM 


3»T1 


, DBASE 


034BB 


16 


03547 


-2472 


01410 




A 


3Pri-l 


,3PS1-1 ,11 


03500 


21 


03546 


0343P 






B3 


•«-24,FK,, 


IS ir FIXED OR FLOATIMS VARIABLE 










01430 




S«l 


3PT1,5,10, 


FLOAriMS, ADJJSr TABLE ADDRESS 


03524 


12 


03547 


000-5 


01440 






3PSI-1 


f t6 


03536 


26 


034BP 


00300 


01450 


3»T1 


OS 


f » 




03547 




0 




01460 




B^ 


• ♦12 




03548 


46 


03560 


01400 


01470 




Bi2 






03560 


42 






01480 


FX 


OS 


I 




03562 




1 




01490 


OBASE 


OS 


t»»10-1130 




02472 




0 
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01500 




OS 3 


03565 


3 


01510 


FLAO 


o: 2,1 


03567 


2 


01520 




-1 

OS 3 


03570 


3 


01530 


FXAD 


O: 2,21 


03572 


2 






Kl 






01540 


<EP4 


O: 5,-03798 


03577 


5 






-3793 






01550 


P^IMT 


O: 5,-03793 


03582 


5 






-379L 






01560 


TX/iZE 


O: 5,-33833 


03587 


5 






-380L 






01570 


REAO 


O: 5,04236 


03592 


5 






-4284 






01580 


03REF 


O: 00005, 17303,, 03REF, 


03597 


5 






J7300 






01590 


T/PE 


D: 5,04166 


03602 


5 






-4166 






01600 




DS 3 


03605 


3 


01610 


FmUL 


D: 2,3 
-3 


03607 


2 


01620 


FXHJL 


O: 5,03902 


03612 


5 






-3902 






01630 


FLEXP 


O: 5,04118 


03617 


5 






-411B 






01640 


FXEXP 


O: 5,04094 


03622 


5 






-4094 






01650 


D3NAX 


O: 5,17300 


03627 


5 






J7303 






01660 


ACCEPT 


O: 5,04238 


03632 


5 






-4238 






01670 


saB2 


O: 5,-02258 


03637 


5 






-2253 






01680 


ACCrAP 


O: 5,04262 


03642 


5 






-4262 






01690 


SUB3 


O: 5,-02263 


03647 


5 






-226L 






01700 


PJMCH 


O: 5,04214 


03652 


5 






-4214 






01710 


03BASE 


O: 00005, 17300,, OOBASE, 


03657 


5 






J7300 






01720 


PJMTAP 


O: 5,04190 


03662 


5 






-4190 






01730 




OS 3 


03665 


3 


01740 


FLSUB 


O: 2,2 


03667 


2 


01750 




-2 

OS 3 


03670 


3 


01760 


FXSUB 


O: 2,22 


03672 


2 






<2 






01770 




OS 3 


03675 


3 


01780 


FLDVD 


O; 2,9 


03677 


2 


01790 


FXOVD 


-9 

O: 5,03926 


03682 


5 






-3926 






01800 


FLROV 


O: 5,04046 


03687 


5 






-4046 
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01810 


PXROV 


O: 5t03950 
-395 0 




03692 


5 


01820 


FXTOFL 


D: 5,03998 
-3998 




03697 


5 


01830 


FLTDFX 


O: 5,0385* 
-385* 




03702 


5 


018^0 


i<FLSJB 


O: 5,0*022 
-*0i:2 




03707 


5 


01850 


*FXSUB 


O: 5,03878 
-3878 




03712 


5 


01860 


ftSNFL 


O: 5,0397* 
-397* 




03717 


5 


01870 


«S^4FX 


O: 5,0397* 
-397* 




03722 


5 


01880 


n 


O: 5,-03808 
-3803 




03727 


5 


01890 


SWCFX 


O: 5,-03813 
-381L 




03732 


5 


01900 


SKF 


O: 5,-02288 

-2283 




03737 


5 


□ 1910 


SWFFX 


O: 5,-2268 
-2263 




037*2 


5 


01920 


ATYPE 


O: 5,0**06 




037*7 


5 


01930 


SLASH 


D: 5,-03818 
-3813 




03752 


5 


019<^0 


dEP 


O: 5,-03823 
-382L 




03757 


5 


01950 


IFYPE 


O: 5,0*310 
-*3I0 




03762 


5 


01960 


FfyPE 


O: 5,0**30 
-**30 




03767 


5 


01970 


ETYPE 


O: 5,0**5* 
-**5* 




03772 


5 


01980 


flED3 


O: 5,-03828 
-3823 




03777 


5 


01990 


HTYPE 


O: 5,0*478 
-**78 




03782 


5 


02000 


XTYPE 


O: 5,-03833 
-383L 




03787 


5 


02010 


AST3P 


O: 5,02395 
-2395 




03792 


5 


02020 


FACAD 


O: 5,02*92 

-2*92 




03797 


5 


02030 


I3E^4D 


O: 5,-03838 
-383 3 




03802 


5 


02040 


IXI 


D: 5,0*070 
-*070 




03807 


5 


02050 


PAR 


O: 5,038*3 
-38*3 




03812 


5 


02060 


MAT 


OZ 5,-038*8 
-38*3 




03817 


5 


02070 


BGNST 


DS 1,15999 




15999 


1 


02080 




FORTRAN SYMBOL 








02090 




OS 5 




03822 


5 


02100 


SflFCT 


TF SRSY,*-1,11, 


MOVE IN PARAMErERS 


0382* 26 


03883 
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02110 




A1 


SIFCT-1,5,10 




03836 


11 


03823 


000-5 


02120 




TF 


S*GT,SRFCT-l,U 


03848 


26 


039*6 


0382L 


02130 




AM 


SRFCT-1,1,10 




03860 


11 


03823 


000-1 


02140 




TF 


S8ASE-1 




03872 


26 


0*159 


00000 


02150 


SflSY 


OS 


»• 




03883 




0 




02160 




BLX 


• 4-12,SBASEf 61 




0388* 


65 


03896 


0MJ60 


02170 




8^1 R 


SRNX, SBASE, 11 




03896 


45 


039*0 


0*16- 


02180 




TFM 


SRGT, 0,67 




03908 


16 


039*0 


-0000 


02190 




TOM 


RMSM,l,ll 




03920 


15 


0**18 


OOOOJ 


02200 


□PX 


OS 


t»-l 




03930 




0 




02210 


PFPSW 


OS 


»»-3 




03928 




0 




02220 




B 


SRFCT-1,,6 




03932 


49 


0382L 


00000 


02230 




03RS 


• -3 




03940 








02240 


SRNX 


TF 


, SBASE, 11, 


MOVE OBJECT ADDRESS OF SYMBOL TS GT 


03940 


26 


00000 


0*15- 


02250 


SRGT 


DS 


t*-5 




03946 




0 




02260 




TOM 


FPSW 


fO 


03952 


15 


093*7 


00000 


02270 




BMF 


• 4^68,SRST,1I 




03964 


4* 


0*032 


039*0 


02280 




BO 


»«^36,SKIPSW 




03976 


43 


0*012 


093*9 


02290 




CF 


SRGT, ,6 




03988 


33 


039*0 


00000 


02300 


OMSM 


OS 


• •-1 




03998 




0 




02310 


COMSW 


OS 






03999 




0 




02320 




TOM 


FPSW, 1.11 




04000 


15 


093*7 


OOOOJ 


02330 




TFL 


0PX,P27 




04012 


06 


03930 


0*078 


02340 




B 


•♦20 




04024 


49 


04044 


00000 


02350 




03 RG 


•-3 




04032 








02360 




TFL 


0PX,P17 




04032 


06 


03930 


0*102 


02370 




TO 


FXORFL, 1(6},, 


SET FIX OR FLOAT 


04044 


25 


04162 


0—01 


02380 




TO 


0MSW,2(6),, 


SET DIMENSION SWITCH 


04056 


25 


03998 


0—02 


02390 




TOM 


COMSW 


,01270 ,789 


04068 


15 


03999 


-JK70 


02400 


P27 


OS 


,•-1 




04078 




0 




02410 




BMF 


• «-24,0MSW 




04080 


44 


04104 


03998 


02420 




TOM 


COMSW, 00171, 79 


, SET COMMON SWITCH 


04092 


15 


03999 


-0J71 


02430 


P17 


DS 


• •-1 




04102 




0 




02440 




BO 


•♦20,0MSW,, 


IS IT DIMENSIONED 


04104 


43 


0*12* 


03998 


02450 




B7 


SRCFFL,,, 


NO, EXIT 


04116 


49 


0*136 




02460 




TF 


PI, 99995(61,, 


SET I MAX 


04124 


26 


09338 


9RR95 


02470 


SRCFFL 


CF 


FXORFL 




04136 


33 


0*162 


00000 


02480 




B 


SRFCT-1,,6, 


EXIT 


04148 


49 


0382L 


00000 


02490 


SBASE 


OSC 


lf4 




04160 




1 




02500 


FXORFL 


.4 
DC 


2,0 




04162 




2 




02510 




FORTRAN FORCE PROCEDURE •••••• 










02520 




OS 


2 




04164 




2 




02530 


F3RCE 


CM 


LV, 104,9 




04166 


14 


09239 


OOJO* 


02540 




BL 


F3RCEB«24 




04178 


47 


0*298 


01300 


02550 




CM 


RV, 104,'9 




04190 


14 


09251 


00J04 


02560 




BL 


F0RCEB4-24 




04202 


47 


04298 


01300 


02570 




BLX 


•♦12,LV*1(5) 




04214 


65 


04226 


0R2M0 


02580 




BLX 


• ♦12,RVn(6) 




04226 


65 


04238 


0RK52 


02590 




MA 


f:ode,fbase(5i 




04238 


70 


04321 


0L3J0 


02600 




CM 


RV,141,9 




04250 


14 


09251 


00J41 


02610 




BH 


FORCC 




04262 


46 


04330 


01100 


02620 


F3RCEB 


C 


FBASE-7I5),FBASE(6) 


04274 


24 


0L3-3 


OLLIO 


02630 




BNH 


• ♦24 




04286 


47 


04310 


01100 


02640 




MA 


F CODE, L 33 




04298 


70 


04321 


04328 
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02650 BLXM »*-12,0(6J 

02660 FCODE OS t» 

02670 882 

02680 L33 OSA L3 





F 3RCC 


CM 


F BASE* 


02700 




87 




02710 


F8ASE 


OS 








DC 


2 f 1 1 » 






-I 




02730 




DC 


2tS0 






NO 




02740 




OSA 


L3 


02750 


RFLA6 


DC 


I tO 


02760 




DC 


2t60t 1 






00 




02770 




DC 


2 9 59 






N9 




02780 




DSA 


CQ0E6 


02790 


RXFLAG 


DC 


I tO 


02800 




DC 


2,0«. 






-0 




02810 




DC 


2f0 






-0 




02820 




OSA 


C0DE9 


02830 


FTSW 


DSC 


1«0 






0 




02840 




DC 


2,2tt 






-2 




02850 




OC 


2»0 






-0 




02860 




OSA 


caoE7 



COMPUTED GOTO 



02870 


CALLX 


OC 


1,0 


02880 




DC 


2t0»* 






-0 




02890 




OC 


2,0 






-0 




02900 




OSA 


C00E12 


02910 


FFRSW 


OS 


1 


02920 




OC 


2,0,, 






-0 




02930 




OC 


2,0 






-0 





31)1 
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04310 66 
04321 
04322 42 
04328 

04328 
04330 14 
04342 49 
03310 
04350 

04352 

04357 

04357 
04358 

04360 

04362 

04367 

04367 
04368 

04370 

04372 

04377 

04377 
04378 

04380 

04382 

04387 

04387 
04388 

04390 

04392 

04397 

04397 
04398 
04400 



04322 0--00 
Q 



-2916 

0L3-3 000-0 



04286 
0 
2 



2 

5 X 



-2916 
1 



2 

2 

5 X 



J0074 
1 



2 

2 

5 X 



J0146 
1 



2 

2 

5 X 



J0098 
1 



2 
2 

5 X 



J0170 
1 

2 



02940 




OSA 


CODEO 




04407 


5 


X 


1 












04407 


-3366 






02950 


SUBPSW 


OS 


I 




04408 


1 






02960 




OC 


2,10,, 


PLUS 


04410 


2 










JO 














02970 




OC 


2,10 




04412 


2 










JO 














02980 




OSA 


CODEl 




04417 


5 


X 


1 












04417 


J0002 






02990 


RNSW 


DSC 
0 


1,0 




04418 


1 






03000 




OC 


2,0,, 


PRINT 


04420 


2 










-0 














03010 




DC 


2,0 




04422 


2 










-D 














03020 




DSA 


C0DE14 




04427 


5 


X 


1 



03030 FLASSW OS 
03040 DC 
-0 

03050 OC 
-0 

03060 OSA C0DE14 



1 

2,0,, 



2,0 



03070 CKSW OS 
03080 DC 
-0 

03090 DC 
-0 

03100 OSA C00E14 



03110 
03120 
03130 
03140 

03150 
03160 
03170 
03180 

03190 



1 

2,0,, 



2,0 



DC 



1,0 
2.5, 

2,5 



DC 
-5 

DC 
-5 

OSA CODEl 



DC 



1,0 
2,5, 
2,4 



DC 
-5 
DC 
-4 

OSA CODEl 



04427 
04428 
04430 

04432 

04437 

04437 
04438 
04440 

04442 

04447 

04447 
04448 

04450 

04452 

04457 

04457 
04458 

04460 

04462 

04467 

04467 
04468 



J0194 
1 
2 



2 

5 X 



J0194 
1 
2 



2 

5 X 



J0194 
1 



2 
2 

5 X 



J0002 
1 



2 
2 

5 X 



J0002 
1 



03200 
03210 
03220 

032 30 
03240 
03250 
03260 

03270 
03280 
03290 
03300 

03310 
03320 
03330 
033A0 

03350 
03360 
03370 
03380 

03390 
03400 
03410 
03420 

03430 
03440 



03450 
03460 

03470 
03480 

03490 
03500 

03510 
03520 
03530 
03540 

03550 
03560 
03570 
03580 

03590 
03600 
03610 
03620 

03630 
03640 
03650 
03660 

03670 
03680 
03690 



DC 



oc 



oc 



oc 



oc 

-0 



1620 MONITOR II 
2,0», 



OC 
-0 
DC 
-0 

DSA C0DE14 



2tO 



If 0 
2*0, 
2.0 



DC 
-0 

oc 

-0 

DSA C00E14 



IfO 
2,0,, 
2,0 



DC 
-0 

oc 

-0 

OSA C00E14 



1,0 
2,0., 
2,0 



OC 
-0 
OC 
-0 

OSA C0DEi4 



OC 
JO 
OC 
JO 

OSA CODEl 



1,0 

2,10,, 

2,10 



1,0 
2,5. 

2,5 



OC 
-5 
OC 
-5 

OSA COOEl 



1,0 
2,0, 



VERSION 2 FORTRAN I I-O 
ACCEPT 



ACCEPT TAPE 



PUNCH 



PUNCH TAPE 



DIVIDE 



04470 

04472 

04477 

04477 
04478 

04480 

04482 

04487 

04487 
04488 

04490 

04492 

04497 

04497 
04498 

04500 

04502 

04507 

04507 
04508 

04510 

04512 

04517 

04517 
04518 

04520 

04522 

04527 

04527 
04528 



PAGE 

2 
2 

5 X 



J0194 
1 



2 
2 

5 X 



JO 194 
1 



2 
2 

5 X 



J0194 
1 



2 

2 

5 X 



J0194 
1 



2 

2 

5 X 



J0002 
1 



2 
2 

5 X 



J0002 
1 



393 



DC 
-0 

DSA COOEO 



OC 



OC 



OC 



OC 



OC 



DC 
00 

oc 

N9 



1620 MONITOR tl 
2,0 



VERSION 2 FORTRAN II-D PHASE 2-B 



1,0 
2,49 
2,48 



DC 
M9 
OC 
N8 

DSA CQ0E8 



f t 



1,0 
2,49 
2,1 



OC 
N9 
DC 
-I 

DSA COOES 



DC 
00 
DC 
N9 

DSA C00E6 



1,0 

2,60,, 
2,59 



OC 
00 
DC 
N9 

OSA C00E6 



1,0 

2,60,, 
2,59 



OC 
00 
OC 
N9 

DSA C00E6 



ItO 

2,60,, 
2,59 



1,0 

2,60, 
2,59 



CONTINUE 



04532 

04537 

04537 
04538 

04540 

04542 

04547 

04547 
04548 

04550 

04552 

04557 

04557 
04558 

04560 

04562 

04567 

04567 
04568 

04570 

04572 

04577 

045T7 
04578 

04580 

04582 

04587 

04587 
04588 

04590 

04592 



PAGE 

2 

5 X 



-3366 
1 



2 

2 

5 X 



J0122 
1 



2 
2 

5 X 



J0026 
1 



2 
2 

5 X 



J0074 
I 



2 
2 

5 X 



J0074 
I 



2 
2 

5 X 



J0074 
I 



(0 4 



03700 

03710 
03720 
03730 
03740 

03750 
03760 
03770 
03780 

03790 

03800 
03810 
03820 

03830 
03840 
03850 
03860 

03870 
03880 
03890 
03900 

03910 
03920 
03930 
03940 



1620 MUMITOR 
DSA C0DE17 



VERSION 2 FORTRAN M-D 



PHASE 2-B 



DC 



DC 



DC 



DC 



DC 



ItO 
2.5, 
2.0 



DC 
-5 
OC 
-0 

DSA C00E4 



1.0 
2,0., 
2,2 



DC 
-0 
OC 
-2 

DSA CODED 



1.0 
2,0, 
2.0 



DC 
-0 
DC 
-0 

DSA CDCALL 



DC 
00 
DC 
00 

OSA COOED 



1.0 
2,60,, 
2,60 



DC 
00 
OC 
N9 

OSA COOEl 



IfO 

2,60,, 
2.59 



ItO 
2.0. 

2.0 



DC 
-0 
OC 
-0 

DSA COOES 



SENSE SMITCM 



COLON 



04597 
04598 

04600 

04602 

0460T; 

04607 
04608 

04610 

04612 

04617 

04617 
04618 

04620 

04622 

04627 

04627 
04628 

04630 

04632 

04637 

04637 
04638 

04640 

04642 

04647 

04647 
04648 

04650 

04652 

04657 



PAGE 
5 X 1 



J0242 
1 



2 
2 

5 X 



J0050 
1 



2 
2 

5 X 



-3366 
1 



2 
2 

5 X 



J0410 
1 



2 
2 

5 X 



-3366 
1 



2 
2 

■ 5 X 



J0002 
1 



2 
2 

5 X 



3ii5 
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PHASE 2-B 



03950 
03960 
03970 
03980 

03990 
04000 
04010 
04020 

04030 
04040 
04050 
04060 

04070 
04080 

04090 
04100 

04110 
04120 
04130 
04140 

04150 
04160 
04170 
04180 

04190 



DC 



OC 



OC 



DC 



DC 



OC 



1.0 
2.0. 
2.0 



OC 
-0 
OC 
-0 

OSA FCTl 



1.0 
2.0. 
2.0 



OC 
-0 
OC 
-0 

DSA FCTl 



ItO 
2.0 
2tO 



OC 
-0 
OC 
-0 

DSA FCTl 



1.0 
2f0., 

2,0 



DC 
-0 
DC 
-0 

DSA C0DE15 



1.0 
2.0. 

2.0 



OC 
-0 
DC 
-0 

OSA FCTRT 



1.0 
2.0,, 

2,60 



OC 
-0 
DC 
00 

DSA CODED 



RETURN 



04657 
04658 

04660 

04662 

04667 

04667 
04668 

04670 

04672 

04677 

04677 
04678 

04680 

04682 

04687 

04687 
04688 

04690 

04692 

04697 

04697 
04698 

04700 

04702 

04707 

04707 
04708 

04710 

04712 

04717 

04717 
04718 



-2964 
I 



2 
2 

5 X 



J0338 
1 



2 
2 

5 X 



J0338 
1 



2 
2 

5 X 



J0338 
1 



2 

2 

5 X 



J0218 
I 



2 

2 

5 X 



J0362 
1 



2 
2 

5 X 



-3366 
1 



3 96 
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04200 
04210 
04220 

04230 
04240 
04250 
04260 

04270 
04280 
04290 
04300 

04310 
04320 
04330 
04340 

04350 
04360 
04370 
04380 

04390 
04400 
04410 
04420 

04430 
04440 



DC 
-0 
DC 
-0 

OSA C0DE6 



2fO, 

2fO 



DC 



IfO 
2flf t 

2.0 



DC 
-1 

DC 
-0 

DSA C0DE14 



DC 



1*0 
2flft 

2.0 



DC 
-I 
DC 
-0 

DSA C00E14 



DC 



1.0 
2*ltf 

2.0 



DC 
-I 

DC 
-0 

DSA C00E14 



OC 



1.0 
2tl. 
2»0 



DC 
-I 
OC 
-0 

DSA CaDE14 



DC 



ItO 
2tlt 
2»0 



DC 
-I 
DC 
-0 

OSA CODE 14 



DC 
-1 



1*0 
2.1.t 



FINpL 



RECOROL 



04720 

04722 

04727 

04727 
04728 

04730 

04732 

04737 

04737 
04738 

04740 

04742 

04747 

04747 
04748 

04750 

04752 

04757 

04757 
04758 

04760 

04762 

04767 

04767 
04768 

04770 

04772 

04777 

04777 
04778 



PAGE 

2 
2 

5 X 



J0074 
1 



2 
2 

5 X 



J0194 
1 



2 

2 

5 X 



J0194 
1 



2 
2 

5 X 



J0194 
1 



2 
2 

5 X 



JO 194 
1 



2 
2 

5 X 



J0194 
1 



3y; 
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04450 


OC 


2tO 




04782 




2 






-0 














04460 


DSA 


C00E14 




04787 




5 


X 1 










04787 




JO 194 




04470 


OC 


IfO 




04788 




1 




04480 


DC 


2tO,, 


SO 


04790 




2 






-0 














04490 


DC 


2.0 




04792 




2 






-0 














04500 


OSA 


COSSAB 




04797 




5 


X 1 










04797 




J0290 




04510 


DC 


1.0 




04798 




1 




04520 


DC 


2,0,. 


SI 


04800 




2 




04530 


-0 
DC 


2,0 




04802 




2 






-0 














04540 


OSA 


CDDESS 




04807 




5 


X 1 










04807 




J0266 




04550 


DC 


l.O 




04808 




1 




04560 


DC 


2,0,, 


S2 


04810 




2 






-0 














04570 


DC 


2.0 




04812 




2 






-0 














04580 


OSA 


COOESS 




04817 




5 


X 1 










04817 




J0266 




04590 


DC 


ItO 




04818 




1 




04600 


DC 


2tO«. 


S3 


04820 




2 






-0 














04610 


DC 


2,0 




04822 




2 






-0 














04620 


DSA 


COOESS 




04827 




5 


X 1 










04827 




J0266 




04630 


DC 


1,0 




04828 




1 




04640 


OC 


2,0,, 


CALL LINK 


04830 




2 






-0 














04650 


DC 


2tO 




04832 




2 






-0 














04660 


DSA 


COCALL 




04837 




5 


X I 










04837 




J0410 






» GETX FORTRAN 












04680 


OS 


5 




04842 




5 




04690 GETX 


BNR 


GETSV, INPUT 




04844 


45 


04892 


09390 


04700 


TFM 


lORT 


,•♦23 


04856 


16 


00565 


-4879 


04710 


B 


lOGT 


,GETBLK ,7 


04868 


49 


00566 


-4918 


04720 


AM 


6TBLKB 


.2 ,10 


04880 


11 


04931 


000-2 



308 
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04730 GETSY 


TF 


GETX-l, INPUT+4,6, 


GET NEXT SYMBOL 


04740 


TR 


INPUT, INPUT+5,, 


SLIDE DOWN 




BB2 




04760 GETBLK 


osc 


2,2 






02 






04770 


dSA 


GTBLKA 




04780 


DC 
■ 


lt« 




04790 GtBLKA 


OSC 


1,0 




04800 GTBLKB 


0 
DC 


5,600 






-0600 




04810 


DC 


3*2 






-02 






04820 


DSA 


INPUT 




04830 


DC 


It* 






FORTRAN II ADSL AND 


RMNS ROUTINES 


04850 


OS 


5 


04860 ADSL 


TF 


BGNST(7l,»-l,ll 




04870 


TOM 


BGNST*1(7),0 




04880 


DC 






04890 


BXM 


•♦12,517) 




04900 


BB2 






04910 


DS 


S 




04920 RMNS 


TF 


RMNS-1,BGNST(7),6 




04930 


TR 


BGNST-4(7),BGNST^1(7) 


04940 


BB2 






04950 •«••»• 




04960 


OS 


5 




04970 GNRP 


BLXM 


•♦12,0151 




04980 


TDM 


GTSBSW,0 




04990 


BXM 


•♦12,5(5) 




05000 


CM 


BGNST(5),101»9 




05010 


SHE 


GNRP^24 




05020 


CM 


TMAX,,9, 


HAVE ANY TEMPS BEEN GENERATED 


05030 


BE 


GNONE 


05040 GYES 


BLX 


•♦12,TBASE(6) 




05050 


TFM 


GCNT,0,9 




05060 


BXM 


•♦12,-10(6) 




05070 


BMF 


GFREE,3(6) 




05080 GTPT 


AM 


GCNT, 1,10 




05090 


CM 


TMAX 




05100 GCNT 


OS 


#• 




05 110 


BME 


GYES+24 




05120 GNONE 


AM 


TMAX, 1,10 




05130 


BO 


FULLCK-24,GTSBSW 




05140 


TF 


GC0W,ADC0W,, 


MOVE AOCOW TO GCOH 


05150 


AM 


6C0W,19,10, 


ADO 19 FOR LENGTH OF INSTS 


05160 


A 


GCOWtLNG 


05170 


TF 


TCOW,GCOW,, 


SAVE CONSTANT ADDRESS 







0484L 


09394 


04904 


31 


09390 


09395 


04916 


42 






04918 




2 




04924 




5 


K I 


04924 




-4926 




04925 




1 




04926 




1 




04931 




5 




04934 




3 




04939 




5 


X I 


04939 




-9390 




04940 




1 








5 










0494N 


04958 


15 


lo'^'^o 


00000 


04969 




1 






62 


04982 


0 5 


04982 


42 






n^oon 




5 








?modr 


1NRR9 






1NRR5 


10— 0 


09014 


42 






05020 










66 


05034 


0-0-0 


0S034 


15 




00000 




62 


05058 


0-0-5 


05058 


14 




00 JOl 


05070 


47 




01200 


05082 


14 










nci on 
AC t ?o 


01200 






05 1 1 8 


0KL03 


05118 


1 A 




00—00 


05 130 


A? 


05 142 


0--1- 


05 142 


22 


05606 


0—03 




77 

1 1 


05 177 


000-1 


05166 


14 


05964 


-0000 


05177 




0 




05178 


47 


05130 


01200 


05190 


11 


05964 


OOO-l 


05202 


43 


05390 


06023 


05214 


26 


05831 


05969 


05226 


11 


05831 


000 J9 


05238 


21 


05831 


09327 


05250 


26 


05961 


05831 



391) 
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05180 




TDM 


SSl.l 




05262 


15 


06633 


00001 


05190 




BTM 


PUTX»^^16t, 


OUTPUT STORE FAC INST 


05274 


17 


06030 


-5290 


05200 




DSA 


TFLf6C0W,FACA0 




05290 




5 


X 3 












05290 




-9021 














05295 




-5831 














05300 




-3797 




05210 




MM 


GC0W,5,10, 


IS GCOW ODD OR EVEN 


05302 


13 


05831 


000-5 


05220 




BD 


GAD01,99 




05314 


43 


05586 


00099 


05230 




AM 


GC0W,2,10, 


ADO 2 TO GCOM 


05326 


11 


05831 


000-2 


05240 


GPUT 


TDM 


SS1,1 




05338 


15 


06633 


OOOOl 


05250 




BTM 


PUTX,»^16 




05350 


17 


06030 


-5366 


05260 




DSA 


8ff6C0WtBLANK 




05366 




5 


X 3 












05366 




-5974 














05371 




-5831 














05376 




-9026 




05270 




TF 


AOCOW.GCON,, 


RESERVE SPACE FOR NEW TEMP 


05378 


26 


05969 


05831 


05280 




TF 


GBASE,TBASE,, 


MOVE IN NEXT AVAILABLE TABLE ADDRESS 


05390 


26 


09324 


02303 


05290 




S 


6BASE-1,TMAX 




05402 


22 


09323 


05964 


05300 


FULLCK 


C 


GBASE,DOMAX 




05414 


24 


09324 


03627 


05310 




BNL 


GPUTA 




05426 


46 


05470 


01300 


05320 




BTM 


ERRT,FULMES 




05438 


17 


08736 


-9143 


05330 


MNCLOV 


BV 


•♦12 




05450 


46 


05462 


01400 


05340 




B7 


MONCAL 




05462 


49 


00796 




05350 


6PUTA 


TF 


GBASE,TC0H«6 




05470 


26 


0932M 


05961 


05360 




BLX 


•♦12»GBASEI6) 




05462 


65 


05494 


0RL24 


05370 


GFLA6 


TFM 


416), 10,10 




05494 


16 


0—04 


OOOJO 


05380 




TO 


1(6),FLAGSM 




05506 


25 


0— 01 


04428 


05390 




BD 


GTFINtGTSBSH 




05518 


43 


15106 


06023 


05400 




TDM 


FSWtO 




05530 


15 


08986 


00000 


05410 


6TJW 


67 


•♦12,GBASE(6) 




05542 


67 


05554 


0RL24 


05420 




CF 


6BASE'4 




05554 


33 


09320 


00000 


05430 




TF 


BGNST(5),6BASE»1 




05566 


26 


1N9R9 


09323 


05440 




B7 


GNRP-lt,6 




05578 


49 


0502J 




05450 


GADDl 


AM 


GCOH* 1,10, 


ADD 1 TO GCOW 


05586 


11 


05831 


000-1 


05460 




B7 


GPUT 




05598 


49 


05338 




05470 


GFREE 


80 


6TST,4(6) 




05606 


43 


05630 


0—04 


05480 




BNF 


NGFRE .GTSBSW 




05618 


44 


05650 


06023 


05490 


6TST 


BO 


GFLAGtGTSBSW 




05630 


43 


05494 


06023 


05500 




87 


GTPT 




05642 


49 


05154 




05510 


NGFRE 


TF 


TC0H^0(6) 




05650 


26 


05961 


0—00 


05520 




TOM 


SS1,1 




05662 


15 


06633 


OOOOl 


05530 




BTM 


PUTX,*^16,, 


OUTPUT STORE FAC INST 


05674 


17 


06030 


-5690 


05540 




DSA 


TFLtTCOMtFACAO 




05690 




5 


X 3 












05690 




-9021 














05695 




-5961 














05700 




-3797 




05550 




8 


GFLAG 




05702 




05494 


00000 


05560 


61 


DS 


5,» 




05713 




5 




05570 




DC 


5 t 10000 




05718 




5 








JOOOO 












05580 


GTCL 


SF 


GTCL-4 




05720 


32 


05716 
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05590 




CM 


GTCL-1,101,8 
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14 


05719 
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05600 




BE 
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PACE 



05610 




C 


TBASE-l.GTCL- 


1 




05756 


24 


02302 


05719 


05620 




BH 


GTFLCL 






05768 


46 


05808 


01100 


05630 




BB 








05780 


42 


00000 


00000 


05640 




DORG 


• -9 






05782 








05650 


GCLEAR 


TF 


•♦17,GTCL-1 






05782 


26 


05799 


05719 


05660 




TDM 


7 






05794 


15 


00007 


00000 


05670 




BB 


tfO 






05806 


N2 


00000 


00000 


05680 




DORG 


• -9 






05808 








05690 


GTFLCL 


TF 


•♦17,GTCL-1 






05808 


26 


05825 


05719 


05700 




CF 


4 






05820 


33 


00004 


00000 


05710 


GCOW 


DS 


5,» 






05831 




5 




05720 




B7 


GCLEAR 






05832 


49 


05782 




05730 


GTSCL 


TF 


GBASEtTBASE 






05840 


26 


09324 


02303 


05740 




S 


GBASE-UTMAX 






05852 


22 


09323 


05964 


05750 




An 


6BASEf3,10 






05864 


11 


09324 


000-3 


05760 




c 


GBASEtTBASE 






05876 


24 


09324 


02303 


05770 




BMH 


• ♦14 






05888 


47 


05902 


01100 


05780 




BB2 








05900 


42 






05790 




TDM 


GBASEtt6 






05902 


15 


0932M 


00000 


05800 




SM 


GBASE»3»10 






05914 


12 


09324 


000-3 


05810 




CF 


6BASEt,6 






05926 


33 


0932M 


00000 


05820 




AM 


&BASE.13.10 






05938 


11 


09324 


000J3 


05830 




B 


GTSCL*36 






05950 


49 




UUUUU 


05840 


rcow 


DS 








05961 




0 




05850 


TMAX 


DC 


3.0 






05964 




3 








-00 
















05860 


AOCOW 


OC 


5,0 






05969 












-0000 














05870 




DC 
• 


l,« 






05970 




1 




05880 


BTM 


OC 


2,17 






05972 




2 








J7 
















05890 


B 


DC 


2,49 






05974 




2 




05900 


DI 


M9 

DS 


5 






05979 




5 




05910 


01 


DS 


5 






05984 




5 




05920 


D2 


DS 


5 






05989 




5 




05930 


OJ 


DS 


5 






05994 




5 




05940 


D3 


DS 


5 






05999 




5 




05950 


DK 


OS 


5 






06004 




5 




05960 


04 


OC 


5,0 


















-0000 














05970 


Tl 


DS 


5 






06014 




5 




05980 


L 


DS 


3 






06017 




3 




05990 


LOl 


DC 


5,0 






06022 




5 








-0000 














06000 


6TSRSW 


DSC 


1,0 






06023 




1 




06010 




DISC OUTPUT ROUTINES FOR 


OBJECT PROGRAM 










06020 




OS 


5 






06028 




5 




06030 


PUTX 


TF 


PUTl 


, PUTX-l 


til 


06030 


26 


08020 


0602R 


06040 




AM 


PUTX-1 


t5 


tlO 


06042 


11 


06029 


000-5 


06050 




TF 


PUT2 


, PUTX-l 


til 


06054 


26 


08025 


0602R 


06060 




AM 


PUTX-l 


.5 


flO 


06066 


11 


06029 


000-5 
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TR 


TYPET 


.TYPEX 
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31 
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PUTXA 


TF 
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06090 




AM 


PUTX-l 


f2 


.10 


06102 


11 


06029 


000-2 


06100 


PUTXB 


C 


CODET 


.LSTYPE 




06114 


24 


07688 


07694 


06110 




BNE 


PUTDIF 






06126 


47 


06854 


01200 


06120 




C 


SAVCOH 


, AOCOW 




06138 


24 


06657 


05969 


06130 




BI^E 


OUTSEQ 






06150 


47 


06994 


01200 


06140 




C 


BAL 


,SLNG 




06162 


24 


07696 


07677 


06150 




BL 


PUTNXT 






06174 


47 


07154 


01300 


06160 


PUTEST 


BD 


PUTINS 


,COOET 




06186 


43 


06206 


07688 


06170 




B7 


PUTCAO 






06198 


49 


06686 




06180 




PLACE INSTRUCTIONS IN OUTPUT 


BUFFER 










06190 


PUTINS 


BLX 


• ♦12 


,NEXT(3) 




06206 


65 


06218 


07P-6 


06200 




TF 


2(3) 


,PUT1 


tU 


06218 


26 


00—2 


0802- 


06210 




C 


LOCOM 


,PUT3 


>11 


06230 


24 


02262 


0803- 


06220 




Br4H 


•♦24 






06242 


47 


06266 


01100 


06230 




BD 


FLG2 


• SS2 




06254 


43 


06626 


06634 


06240 


PUTXC 


C 


LOCOM 


• PUT2 


.11 


06266 


24 


02262 


0802N 


06250 




BHH 


• ♦24 






06278 


47 


06302 


01100 


06260 




BD 


•♦24 


,SS1 




06290 


43 


06314 


06633 


06270 




CF 


1(3) 






06302 


33 


00— I 
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06280 


PUTGT 


DS 


f» 






06313 




0 




06290 




MM 


SSXRl 


,-4 


• 10 


06314 


13 


08092 


000-M 


06300 




BXM 


• ♦12 


,7(3) 




06326 


62 


06338 


00—7 


06310 




BT 


XRFIL 


,PUT2 




06338 


27 


06506 


08025 


06320 


HERE 


BO 


FLG3 


,SS3 




06350 


43 


06646 


06635 


06330 


PUTXD 


MM 


SSXR2 


t-4 


.10 


06362 


13 


08094 


000-M 


06340 




BXM 


• ♦12 
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06374 


62 


06386 


00—5 


06350 




BT 


XRFIL 


,PUT3 


? 


06386 


27 


06506 


08030 


06360 


HERE2 


BD 


FLG4 


,SS4 




06398 


43 


06666 


06636 


06370 


PUTXe 


TFM 


SS4 


tO 


.8 ' 


06410 


16 


06636 


0-000 


06380 




SM 


BAL 


fl2 


.10 


06422 


12 


07696 


000J2 


06390 




AM 


NEXT 


»12 


.10 


06434 


11 


07706 


000J2 


06400 


PUTXF 


A 


AOCOW 


,SLNG 




06446 


21 


05969 


07677 


06410 




TF 


SAVCOW 


, AOCOW 




06458 


26 


06657 


05969 


06420 




A 


LNGAO 


tSLNG 
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06470 


21 
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07677 
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TFL 


SSXR2 


,FLG4^11 




06482 
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08094 


06677 


06440 
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PUTX-l 
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06494 
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00000 


06450 


XRFIL 


BLX 
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06506 
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06460 
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06518 


14 


00099 
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06470 




BE 


XRFIL2 
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06480 




TFL 
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,XRBASE(1} 




06542 


06 
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065R7 


06490 
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.11 


06554 


70 


00—0 


0650N 
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0650N 
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TF 
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FLG2 


SF 
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06630 


SS4 
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OS 
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B7 


PUTXC 
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49 
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06660 


FLG3 
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06646 
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00—0 
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06670 


SAVCOW 


OS 
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06657 




0 




06680 




B7 


PUTXD 






06658 


49 
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06690 


FLG4 


SF 
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,0 
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06666 


32 


00—0 


0-0-0 
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87 


PUTXE 






06678 


49 


06410 
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PLACE DSA 
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BUFFER 










06720 


PUTCAD 
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fSLNG 




06686 


21 


07706 


07677 


06730 
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BAL 


• SLNG 




06698 


22 


07696 


07677 


06740 
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06710 


13 


08094 


000-M 
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BLX 


• ■t-12 
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06722 


65 


06734 


07P-6 


06760 




BO 


• ♦32 


•SSXR2 




06734 


43 


06766 


08094 


06770 




TF 


0(3) 


• PUT3 


• 11 


06746 


26 
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0803- 


06780 




B7 


PUTQ 






06758 


49 
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BLX 


• ♦12 
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06778 
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TFL 
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06802 
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BO 
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06834 


07685 


06840 
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PUTXF 
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49 


06446 
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TFM 


SAVCOW 


•99999 




06834 


16 
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06860 




87 


PUTXF»24 






06846 


49 


06470 




06870 






THIS TYPE 
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06880 


PUTDIF 


TF 


LSTYPE 


•CODET 




06854 


26 


07694 


0768B 


06890 
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SAVCOW 


•AOCOW 




06866 


24 


06657 


05969 


06900 




BHE 


OUTSEQ 






06878 


47 


06994 


01200 


06910 




C 


BAL 


fSSLNG 




06890 


24 


07696 


07679 


06920 




BL 


PUTNXT 






06902 


47 


07154 


01300 


06930 


PUTXG 


AM 
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,1 


• 10 


06914 


11 


07706 


OOO-l 


06940 




TD 
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,TYPET 


• 6 


06926 


25 


07700 


07675 


06950 




AM 


NEXT 


• 2 


• 10 


06938 


11 


07706 


000-2 


06960 




TFM 


NEXT 


• 0 


• 610 


06950 


16 


07700 


000-0 


06970 




TF 


LNGAO 


• NEXT 




06962 


26 


07701 


07706 


06980 




SM 


BAL 
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• 10 


06974 


12 


07696 


000-3 


06990 




B7 


PUTEST 






06986 


49 
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OUT OF SEQUENCE 
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BAL 
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24 
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BAL 
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PUTXH 
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AM 
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11 
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07060 
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BAL 


,1 
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000-1 


07070 




TOM 
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PUTXH 
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11 
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SM 


BAL 


,5 


,10 


07090 


12 


07696 


000-5 
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BO 


PUTTA 


,C0DET-3 




07102 


43 


07134 


07685 


07120 


PUTXJ 


TF 


NEXT 


•AOCOM 


,6 


07114 


26 


07700 


05969 


07130 




B7 


PUTXG 






07126 


49 


06914 




07140 


PUTTA 


TF 


NEXT 


• PUT2 
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26 
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PUTXG 
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49 
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07180 




TD 


NEXT 


•FLGRM 


• 6 


07166 


25 


07700 


07674 


07190 




CM 


PREBUF 


• BUF4 




07178 


14 


08015 


-7935 


07200 




BE 


PUTPCH 






07190 


46 


07258 


01200 


07210 




AN 


PREBUF 


.75 


• 10 


07202 


11 


08015 


000P5 


07220 




TF 


NEXT 


•PREBUF 




07214 


26 


07706 


08015 


07230 




SM 


NEXT 


• 1 


• 10 


07226 


12 


07706 


000-1 


07240 


PUTXI 


TFM 


BAL 
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• 10 


07238 


16 


07696 
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07250 




87 


PUTXH 






07250 


49 


07078 




07260 
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OUTPUT BUFFER LOAD TO DISC 












07270 


PUTPCH 


TOM 


BUF4*75 






07258 


15 


08010 


00000 


07280 




06 M 


• 






07269 




1 




07290 




TFM 


lORT 


• •♦23 




07270 


16 


00565 


-7293 


07300 




B 


lOPT 


•PUTXX 


• 7 


07282 


49 


00532 


-7652 


07310 




AM 


PUTXZ 


,3 


.10 


07294 


11 


07665 


000-3 


07320 




TFM 


PREBUF 


,BUF1 




07306 


16 


08015 


-7710 


07330 




TFM 


NEXT 


,BUF1-1 




07318 


16 


07706 


-7709 


07340 




TFM 


• 4-18 


,BUF4+75 




07330 


16 


07348 


-8010 


07350 




TF 


BUF4475 


•N13089 




07342 


26 


08010 


09034 


07360 




SM 


• -6 


,12 


• 10 


07354 


12 


07348 


000J2 


07370 




CM 


•-18 


,BUF1 




07366 


14 


07348 


-7710 


07380 




BH 


•-36 






07378 


46 


07342 


01100 


07390 




B 


PUTXI 






07390 


49 


07238 


00000 


07400 


PUTC 


TF 


• ♦23 


• •-1 


.11 


07402 


26 


07425 


0740J 


07410 




CF 


• ♦11 






07414 


33 


07425 


00000 


07420 




C 


• -1 


•LOCON 


.6 


07426 


24 


0742N 


02262 


07430 




BH 


PUTCA 






07438 


46 


07498 


01100 


07440 




TR 


TYPET 


•TYPECR 




07450 


31 


07675 


08046 


07450 


PUTCB 


TF 


PUTX-1 


•PUTC-1 




07462 


26 


06029 


07401 


07460 




B 


PUTXA 






07474 


49 


06090 


00000 


07470 


PUTO 


TF 


PUTC-UPUTO-1 






07486 


26 


07401 


07485 


07480 


PUTCA 


TR 


TYPET 


•TYPECN 




07498 


31 


07675 


08061 


07490 




B 


PUTCB 






07510 


49 


07462 


00000 


07500 


PUTA 


TF 


PUT2 


•PUTA-1 


• 11 


07522 


26 


08025 


0752J 


07510 




AM 


PUTA-1 


• 5 


• 10 


07534 


11 


07521 


000-5 


07520 




TF 


PUT3 


, PUTA-1 


.11 


07546 


26 


08030 


0752J 


07530 




AM 


PUTA-1 


,1 


• 10 


07558 


11 


07521 


000-1 


07540 




TF 


PUTX-1 


, PUTA-1 




07570 


26 


06029 


07521 


07550 




TR 


TYPET 


,TYPEA 




07582 


31 


07675 


08076 


07560 




B 


OUTSEQ 






07594 


49 


06994 


00000 


07570 


PUTRM 


TR 


TYPET, TYPERM 






07606 


31 


07675 


07637 


07580 




TF 


PUTX-l^PUTRM- 


1 




07618 


26 


06029 


07605 


07590 




B7 


PUTXA 






07630 


49 


06090 




07600 


TVPERM 


OSC 


1»2 






07637 




1 




07610 
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DC 


2,2 






07639 




2 




07620 




-2 
OC 


2,5 






07641 




2 




07630 




-5 
DC 


2,10 






07643 




2 




07640 
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DC 


2,11 






07645 




2 




07650 




Jl 

DC 


5,100 
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5 








-0100 
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DC 
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07670 


PUTXX 


OSC 


2,2 


07652 


2 






02 








07680 




OS A 


PUTXY 


07658 


5 










07658 


-7660 


07690 




OC 


1,» 


07659 


I 


07700 


PUTXY 


OSC 


1.0 


07660 


1 


07710 


PUTXZ 
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DC 


5,0 


07665 


5 






-0000 






07720 




DC 


3,3 


07666 


3 






-03 








07730 




DSA 


BUFl 


07673 


5 










07673 


— 7710 


07740 


FLGRM 


OC 
f 


l,» 


07674 




07750 


TYPET 


DS 
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07675 


I 


07760 


SLNG 


DS 


2 


07677 


2 


07770 


SSLNG 


OS 


2 


07679 


2 


07780 


NLNG 


OS 


2 


07681 


2 


07790 


SQLNG 


OS 


2 


07683 


2 


07800 


CODET 


DS 


5 


07688 


5 


07810 




OS 


1 


07689 


1 


07820 


LSTYPE 


DC 


5,0 


07694 


5 






-0000 






07830 


SAL 


DC 


2,75 


07696 


2 






P5 








07840 


LNGAO 


DS 


5 


07701 


5 


07850 


NEXT 


DSA 


BUFl 


07706 


5 










07706 


-7710 


07860 




DAS 


1 
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BUF2 
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DSC 
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DGM 
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PREBUF 


DSA 


BUFl 
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08015 


-7710 
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PUT I 


OS 
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5 


07980 


PUT2 


DS 
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07990 


PUT3 


DS 


5 


08000 


TYPEX 


DSC 


1,1 


08010 




1 

OC 


2,12 






J2 




08020 




OC 


2,15 






J5 




08030 




DC 


2,20 






KO 




08040 




OC 


2,21 






Kl 




08050 




DC 


5,1 






-0001 


08060 




DC 
• 


!,• 


08070 


TYPECR 


OSC 


1.3 






3 




08080 




OC 


2,5 






-5 




08090 




OC 


2,8 






-8 




08100 




DC 


2.13 






J3 




08110 




DC 


2,14 






J4 




08120 




DC 


5,10 






-0010 


08130 




DC 
• 


l,« 


08140 


TYPECN 


DSC 


1,2 






2 




08150 




DC 


2,5 






-5 




08160 




DC 


2.8 






-8 




08170 




OC 


2,13 






J3 




08180 




DC 


2,U 






J4 




08190 




DC 


5,100 






-0100 


08200 




OC 
« 


1,« 


08210 


TYPEA 


OSC 


1,3 






3 




08220 




OC 


2,5 






-5 




08230 




OC 


2,13 






J3 




08240 




DC 


2,13 






J3 




08250 




OC 


2,14 






J4 




08260 




DC 


5,1000 






-1000 


08270 




DC 


If* 



08030 
08031 

08033 

08035 

08037 

08039 

08044 

08045 

08046 

08048 

08050 

08052 

08054 

08059 

08060 

08061 

08063 

08065 

08067 

08069 

08074 

08075 

08076 

08078 

08080 

08082 

08084 

08089 

08090 



5 
1 

2 

2 

2 

2 

5 

1 

1 

2 

2 

2 

2 

5 

1 

1 

2 

2 

2 

2 

5 

1 

1 

2 

2 

2 

2 

5 

1 
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08280 


S S XR I 


DC 
-0 


2 1 0 






08092 




2 




08290 


S 5XK2 


DC 


2 » 0 






08094 




2 




08 300 




-0 
OS 


5 






08099 




5 




08310 


CANDS 


TF 


CAN OS A 


» 


,11 


08100 


26 


08 166 


0809R 


08320 




BTM 


RMNS 


*DX 




08112 


17 


04990 


-8297 


08330 




BTM 


RMNS 


f OY 




08124 


17 


04990 


-8302 


083^0 




SF 


OX 






08136 


32 


08297 


00000 


08350 




TO 


DY-4 


»DX 




08148 


25 


08298 


08297 


08360 




TF 




tOY 




08160 


26 


00000 


08302 


08370 


CANDSA 


OS 




»»-5 




08166 




0 




08380 




AM 


CANDS-l 


»5 


,1U 


08172 


11 


08099 


000-5 


08390 




BTM 


RMNS 


,DX 




08184 


17 


04990 


-8297 


08400 




CM 


DX 


• 104 


,8 


08196 


14 


08297 


0-104 


08410 




8NE 


•♦32 






08208 


47 


08240 


01200 


08420 


CANORT 


AM 


CANDS-l 


tl 


,10 


08220 


11 


08099 


OOO-l 


08430 




B 


CANDS-l 


» 


,6 


08232 


49 


0809R 


00000 


08440 




03 RG 


• -3 






08240 








08450 




BTM 


SRFCT 


,•♦16 




08240 


17 


03824 


-8256 


08460 




DSA 


DX»OX 






08256 




5 


X 2 














08256 




-8297 
















08261 




-8297 




08470 




TF 


• ♦18 


,CAN0S-1 


til 


08262 


26 


08280 


08 09(^ 


08480 




TF 




,0X 




08274 


26 


00000 


08297 


08490 




B 


CANORT 






08286 


49 


0R220 


00000 


08500 


[)X 


OS 


• * 






08297 




0 




08510 


DY 


OS 


5 






08302 




5 




08520 


EXSIJ8 


BO 


EXXR 


,SBASE-5 




08304 


43 


08550 


04155 


08530 




BNF 


• ♦24 


,SSIL 




08316 


44 


08340 


06637 


08540 




BTM 


EXCLR 


,•♦12 




08328 


1 J 


08442 


-8340 


08550 




CM 


0(2) 


»27 


,610 


08340 


14 


00-0- 


000K7 


08560 




BE 


EXRT 






08352 


46 


08388 


01200 


08570 




BNF 


• ♦24 


,PFPSW 




08364 


44 


08388 


03928 


08580 




TDM 


SS4 


tl 




08376 


15 


06636 


00001 


08590 


EXRT 


TOM 


SS2 


,1 




08388 


15 


06634 


00001 


08600 




TDM 


SSIL 


tO 




08400 


15 


06637 


00000 


08610 




BSX 


• ♦12 


,•♦23(2 ) 




08412 


67 


08424 


08M35 


08620 




BTM 


PUTX 


»•-• 




08424 


17 


06030 


-0000 


08630 




OS 


5 






08440 




5 




08640 


EXCLR 


CM 


F 


tlO 


f 10 


08442 


14 


02250 


OOOJO 


08650 




BMH 


EXCLR-1 




,6 


084S4 


47 


0844J 


01100 


08660 




CM 


012) 


'3 


t610 


08466 


14 


00-0- 


000-3 


08670 




BE 


EXZER 






08478 


46 


08514 


01200 


08680 




CM 


Of 2 ) 


#9 


t610 


08490 


14 


00-0- 


000-9 


08690 




BNE 


EXCLR-1 




t6 


08502 


47 


0844J 


01200 


08700 


EXZER 


BTM 


PUTX 


,•♦16 




08514 


17 


06030 


-8530 


08710 




OSA 


TF»SVN9tCL£R 






08530 




5 


X 3 














08530 




-9007 
















08535 




-8709 
















08540 




-8714 




08720 




87 


EXCLR-1 




t6 


08542 


49 


0844J 




08730 


EXXR 


BMF 


• ♦24 


,SSIL 




08550 


44 


08574 


06637 


08740 




BTM 


EXCLR 


,•♦12 




08562 


17 


08442 


-8574 
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08750 




BNF 


EXJX 


,PFPSW 




08574 


44 


08662 


03928 


08760 




TF 


XR99 


,ADC0W 




08586 


26 


08729 


05969 


08770 




AM 


XR99 


,23 


,10 


08598 


11 


08729 


000K3 


08780 




TF 


XR98 


,1012) 


tU 


08610 


26 


08724 


00-1- 


08790 




TFM 


SS2 


til 


tlO 


08622 


16 


06634 


OOOJl 


08800 




BTM 


PUTX 


,•♦16 




08634 


17 


06030 


-8650 


08810 




DSA 


NA,XR99,XR98 






08650 




5 


X 3 














08650 




-9017 
















08655 




-8729 
















08660 




-8724 




08820 


EXJX 


BD 


•♦24 


,SSIL 




08662 


4J 


08686 


06637 


08830 




TFM 


OPX 


,10 


tlO 


08674 


16 


03930 


OOOJO 


08840 


EXJ 


TD 


SSXR2 


•SBASE-5 




08686 


25 


08094 


04155 


08850 




B7 


EXRT 






08698 


49 


08388 




08860 


SVN9 


DC 


5,79 






08709 




5 








-0079 














08870 


CLZR 


DC 


9t02667 






08714 




5 








-2667 














08880 


XR97 


OS 


5 






08719 




5 




08890 


XR98 


OS 


5 






08724 




5 




08900 


XR99 


DS 


5 






08729 




5 




08910 




DS 


5 






08734 




5 




08920 


ERRT 


RCTY 








08736 


34 


00000 


00102 


08930 




TNF 


EN2^6 


,SCNT 




08748 


73 


09385 


09361 


08940 




WATY 


EMI 






08760 


39 


09365 


00100 


08950 




WATY 


ERRT-l 




t6 


08772 


39 


0873N 


00100 


08960 




BB2 








08784 


42 






08970 




DAS 


1 






08787 




1 


X 2 


08980 


BLKl 


DSC 


2,02 






08788 




2 








02 
















08990 




DSA 


BLKIA 






08794 




5 


X 1 














08794 




-8796 




09000 




DC 
• 


lt» 






08795 




1 




09010 


BLKIA 


DSC 
0 


ItO 






08796 




1 




09020 




DC 


5,01476 






08801 




5 








-1476 














09030 




DC 


3,41 






08804 




3 








-41 
















09040 




DSA 


CODEl-2 






08809 




5 


X I 














08809 




JOOOO 




09050 




DC 


1,* 






08810 








09060 




DS 


1 






08811 




1 




09070 


8LK2 


DSC 


2,02 






08812 




2 








02 
















09080 




DSA 


BLK2A 






08818 




5 


X 1 














08818 




-8820 




09090 




DC 
• 


It* 






08819 




1 




09100 


BLK2A 


DSC 
0 


1,0 






08B20 




1 





4 08 



09110 




DC 


5,01536 


08825 


5 






-1536 






09120 




OC 


3,60 


08828 


3 






-60 








09130 




DSA 


COOEl-2 


08833 












08833 


JOOOO 


09 UO 




DC 


l.« 


08834 




09150 




DS 


1 


08835 


1 


09150 


BLK3 


DSC 


2,02 


08836 


2 






02 








09 170 




DSA 


BLK3A 


08842 














-8844 


09180 




DC 


l,» 


08843 


1 


09190 


BLK3A 


DSC 


liO 


08844 


1 


09200 




0 

DC 


5,01600 


08849 


5 






-1600 






09210 




DC 


3,41 


08852 








"hi 








09220 




DSA 


CODEl-2 














08857 


JOOOO 


09230 




DC 
• 


It* 


08858 




09240 




DS 


I 


08859 


1 


09250 


BLK4 


DSC 


2,02 


08860 


2 






02 












DSA 


BLK4A 


0BB66 












OBBoo 




09270 




OC 
• 


It' 


08867 




09280 


BLK4A 


DSC 
0 


ItO 


08868 


1 


09290 




DC 


5*01641 


08873 


5 






-1641 






09300 




OC 


3,41 


08876 


3 






-41 








09310 




DSA 


CODEl-2 


08881 












08881 


JOOOO 


09320 




DC 
t 


1,» 






09330 




DS 


I 


08883 


1 


09340 


BLK5 


OSC 


2,02 


08884 








02 








09350 




DSA 


BLK5A 


08890 


5 










08890 


-8892 


09360 




DC 
fl 


l,« 


08891 




09370 


BLK5A 


OSC 


ItO 


08892 


1 






0 
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09380 




DC 


5,01517 


08897 


5 








-1517 








09390 




DC 


3,019 


08900 


3 








-19 










09400 




DSA 


SUBCDS-2 


08905 


5 


X 










08905 


J4100 




09410 




DC 
t 


1,« 


08906 


1 




09420 




DS 


1 


08907 


1 




09430 


BLK6 


DSC 


2,02 


08908 


2 








02 










09440 




DSA 


8LK6A 


08914 


5 


X 










08914 


-8916 




09450 




DC 
• 


lt» 


08915 


1 




09460 


BLK6A 


DSC 


1,0 


08916 


1 




09470 




0 

OC 


5,01682 


08921 


5 








-1682 








09480 




OC 


3t019 


08924 


3 








-19 










09490 




OS A 


SUBCOS-2 


08929 


5 


X 










08929 


J4100 




09500 




DC 


l»» 


08930 






09510 




DS 


I 


08931 






09520 


BLK7 


DSC 


2,02 


08932 










02 










09530 




DSA 


BLK7A 


08938 




X 










08938 


-8940 




09540 




OC 
• 


lt» 


08939 






09550 


BLK7A 


DSC 


ItO 


08940 






09560 




0 
OC 


5,01701 


08945 










-1701 








09570 




OC 


3,019 


08948 










-19 










09580 




DSA 


SUBCDS-2 


08953 




X 










08953 


J4100 




09590 




DC 
t 


lt« 


08954 






09600 




DS 


1 


08955 






09610 


BLK8 


DSC 


2,02 


08956 










02 










09620 




DSA 


BLK8A 


08962 




X 










08962 


-8964 




09630 




DC 


1,» 


08963 






09640 


BLK8A 


OSC 


l.O 


08964 


1 
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09650 




DC 


5,01720 


08969 


5 






-1720 






09660 




DC 


3,019 


08972 


3 






-19 








09670 




DSA 


SUBCOS-2 


08977 


5 X 










08977 


J4100 


09680 




DC 
t 


l,» 


08978 


1 


09690 


CKCOW 


DC 


5,0 


08983 


5 






-0000 






09700 




DC 


1 » * 


08984 


1 


09710 


SSSW 


OS 


00001,, SSSW,, 


08985 


1 


09720 


FSW 


OS 


00001,, FSW,, 


08986 


1 


09730 


lOl 


OS 


00001, ,101,, 


08987 




09740 


102 


OS 


00001,, 1 02,, 


08988 


1 


09750 


103 


OS 


00001,, 1 03, f 


08989 


1 


09760 


STEMPl 


OS 


00001,, STEMPl,, 


08990 


1 


09770 


STEMP2 


OS 


00001,, STEMP2,, 


08991 


1 


09780 


CALLSW 


OS 


00001,, CALLSW,, 


08992 


1 


09790 


oosw 


DSC 
0 


1,0 


08993 


1 


09800 




OS 


00001,, EXIND,, 


08994 


1 


09810 


SUBSW 


OS 


00001, fSUBSWtf 


08995 


1 


09820 


REGSW 


OS 


1 


. 08996 


1 


09830 


RSW 


OS 


1 


08997 


1 


09840 


SWAREA 


OS 


t • 


08997 


0 


09850 


EXIND 


DC 
-0 


2,0 


08999 


2 


09860 


TFM 


DC 


00002, 16,, TFM, 


09001 


2 






J6 








09870 


SF 


DC 


00002,32,, SF, 


09003 


2 






L2 








09880 


CF 


DC 


00002,33, fCF 


09005 


2 






L3 








09890 


TF 


DC 


00002,26, ,TF, 


09007 


2 






K6 








09900 


AM 


DC 


00002, 11,, AM, 


09009 


2 






Jl 








09910 


MM 


DC 


00002, 13, .MM, 


09011 


2 






J3 








09920 


H 


DC 


00002, 48,, H, 


09013 


2 






M8 








09930 


BLX 


DC 


2,65 


09015 








05 








09940 


MA 


DC 


2,70 


09017 


2 






PO 








09950 


TR 


DC 


2,31 


09019 


2 






LI 








09960 


TFL 


DC 


2,6 


09021 


2 


09970 


N13089 


-6 
DC 


00013,0 


09034 


13 






-000000000000 






09980 


ZERO 


OS 


• •-u 


09023 


0 


09990 


ZER06 


OS 


t»-7 


09027 


0 
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10000 


ZER04 


OS 


,»-9 


09025 


0 


10010 


ZEROS 


OS 


• •-8 


09026 


0 


10020 


BLA!1K 


OS 


• •-8 


09026 


0 


10030 




DC 
, 


!»• 


09035 


1 


10040 


TZNR 


OS 


t»-2 


09033 


0 


10050 


N 13092 


DC 


9,00099,,, 


09040 


5 






-0099 






10060 


SUB 


DC 


00002, 22,, SUB, 


09042 


2 






K2 








10070 


N 13133 


DC 


5,00095, 


09047 


5 






-0095 






10080 


MOD 


DC 
-0 


2,0 


09049 


2 


10090 


MPY 


DC 


00002,23 


09051 


2 






K3 








10100 


BT 


DC 


00002,27, ,BT, 


09053 


2 






K7 








10110 


RCTY 


DC 


00002, 34,, RCTY, 


090S5 


2 






L4 








10120 


MATY 


DC 


00002, 39,, WAT Y, 


09057 


2 






L9 








10130 


6LN0 


DC 


00004,000, ,GLN0, 


09061 


4 






-000 








10140 


ADD 


DC 


00002, 21,, ADO, 


09063 


2 


10150 


SM 


Kl 
DC 


00002, 12,, SMt 


09065. 


2 






J2 








10160 


RVSN 


DC 


3,125 


09068 


3 






J2S 








10170 


RMOO 


DC 


3,123 


09071 


3 






J23 








10180 


MODMES 


DAC 


13, MIXED MODE* 


09073 


13 






MIXED MODE* 






10190 


DOMES 


DAC 


22, IMPROPER 00 NESTING* 


09099 


22 






IMPROPER DO NESTING* 






10200 


FULMES 


DAC 


20, SYMBOL TABLE FULL* 


09143 


20 






SYMBOL TABLE FULL* 






10210 


OOA 


DC 


00005,109, fOOA, 


09186 


5 






-0109 






10220 


MNS5 


DC 


00002, -05,, MNS5, 


09188 


2 


10230 


N13063 


-N 
DC 


5,00100,,, 


09193 


5 






-0100 






10240 


N13062 


DC 


5,00102,,, 


09198 


5 






-0102 






10250 


FAC 


DC 


00005, 101,, FACt 


09203 


5 






-0101 






10260 


FIVE 


DC 
-5 


2,5 


09205 


2 


10270 


RTNAME 


DS 


00005,, RTNAME,, 


09210 


5 


10280 


ST 


DS 


00005,, ST,, 


09215 


5 


10290 


I 


DS 


00004,, I,, 


09219 


4 


10300 


J 


DS 


00005,, J,, 


09224 


5 


10310 


P 


DS 


00005,, P,, 


09229 


5 


10320 


Q 


OS 


00005, ,0,, 


09234 


5 
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10330 


LV 


OS 


00005, »LV,, 


09239 


5 


10340 




OSC 
7 


1 1 7 


09240 


1 


10350 


XRSW 


DS 


1 


09241 


1 


10360 


RTAO 


OS 


00005ff vRTADt « 


09246 


5 


10370 


av 


DS 


00005t»RVt» 


09251 


5 


10380 




DSC 


1*2 


09252 


1 


10390 


SXF 


2 

DS 


5 


09257 


5 


10400 


J 40 004 


OS 


5 


09262 


5 


10410 


T2 


OS 


5 


09267 


5 


10420 


ANS 


OS 


00005»»ANS*« 


09272 


5 


10430 


ADTEMP 


DS 


00005*, ADTEMP,, 


09277 


5 


10440 


SL 


DS 


00005,*SL,, 


09282 


5 


10450 


MOllOO 


DC 


5,1100 


09287 


5 






-1100 






10460 


BNH 


DC 


2.47 


09289 


2 






M7 








10470 


C 


DC 


2,24 


09291 


2 






K4 








10480 


CM 


DC 


2*14 


09293 


2 






J4 








10490 


BL 


DC 


2,47 


09295 


2 






M7 








10500 


N01300 


DC 


5,1300 


09300 


5 






-1300 






10510 


BE 


DC 


2*46 


09302 


2 






M6 








10520 


N01200 


DC 


5,1200 


09307 


5 






-1200 






10530 


BO 


DC 


2,43 


09309 


2 






N3 








10540 


BNF 


DC 


2,44 


09311 


2 


10550 


FACM2 


N4 

DC 


5,02490 


09316 


5 






-2490 






10560 


BI 


DC 


2,46 


09318 


2 






N6 








10570 




DC 


1»0 


09319 


1 


10580 


GBASE 


OS 


5 


09324 


5 


10590 


LN6 


OS 


3 


09327 


3 


10600 


PI 


OS 


11 


09338 


11 


10610 


T3 


OS 


5 


09343 


5 


10620 




OSC 


1*0 


09344 


1 


10630 


OPZ 


0 
DS 


2 


09346 


2 


10640 


XR5 


OS 


• 329 


00329 


0 


10650 


XR7 


OS 


• 339 


00339 


0 


10660 


FPSW 


OSC 
0 


1,0 


09347 


1 


10670 


FPSWX 


OSC 


IfO 


09348 


1 


10680 


SKIPSM 


0 

OSC 


1*0 


09349 


1 


10690 


COMXSW 


0 

OSC 
0 


1.0 


09350 


1 
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10700 ERSWT DSC 1,0 
0 

10710 N00796 OSA MONCAL 



10711 
10720 

10730 

10740 

10750 

10760 
10770 

10771 

10772 

10773 

10774 

10790 



SPFPSH 
SCNT 



DS 1 
DC 4,0 
-000 
DC 1,* 



EMI 
EM2 



OAC 
DAC 



DAS 

DC 



I 

!•• 



OSC 50,0 

00000000000000000000000000000000000000000000000000 
OSC 50,0 

00000000000000000000000000000000000000000000000000 
OSC 50.0 

00000000000000000000000000000000000000000000000000 
OSC 49.0 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
DC 1 • • 



09351 

09356 

09356 
09357 
09361 

09362 

09365 

09379 

09389 
09390 

09391 

09441 

09491 

09541 
09590 



1 

5 X 



-0796 
1 
4 



1 

7 X 

5 X 

1 X 
1 

50 
50 
50 



10800 




00 RG 


10000 




10000 






10810 




SECONDARY LINKAGE FOR BLOCK 1 








10B20 




DC 


2.1 




10001 




2 


10830 


CODEl 


-1 
BXM 


COOEIP 


,-5(71 


10002 


62 


10434 


10840 




H 






10014 


48 


00000 


10850 


C0DE3 


BXM 


C0DE3P 


»-5C7» 


10026 


62 


12538 


10860 




H 






10038 


48 


00000 


10870 


C0DE4 


TR 


BGNST-4(7» 


,BGNST4^1(7) 


10050 


31 


1NRR5 


10880 




B 


C0DE4P 




10062 


49 


13494 


10890 


CODE 6 


TFM 


FMON+35 


,BLK2 


10074 


16 


02359 


10900 




BTM 


FMON 


,C0DE6 


10086 


17 


02324 


10910 


CODE 7 


TFM 


FMON+35 


,BLK2 


10098 


16 


02359 


10920 




BTM 


FMON 


,C0DE7 


10110 


17 


02324 


10930 


CODES 


BXM 


CODEaP 


,-10(71 


10122 


62 


13740 


10940 




H 






10134 


48 


00000 


10950 


C0DE9 


TFM 


FM0N«35 


• BLK2 


10146 


16 


02359 


10960 




BTM 


FMON 


•C0DE9 


10158 


17 


02324 


10970 


CODE 12 


B 


SUBC12 




10170 


49 


14150 


10980 




H 






10182 


48 


00000 


10990 


C0DE14 


TFM 


FMON+35 


,BLK3 


10194 


16 


02359 


11000 




BTM 


FMON 


,C0DE14 


10206 


17 


02324 


11010 


CODE 15 


TDM 


CALLSW 


,1 


10218 


15 


08992 


11020 




B 


C015P 




10230 


49 


13772 


11030 


CODE 17 


TFM 


FM0N*35 


,BLK2 


10242 


16 


02359 


11040 




BTM 


FMON 


,C0DE17 


10254 


17 


02324 


11050 


COOESS 


B 


SUBCDS 




10266 


49 


14102 


11060 




H 






10278 


46 


00000 


11070 


COSSAB 


B 


SUBCAB 




10290 


49 


14126 



0 N 

00000 
0— N 
00000 
10—0 
00000 
-8812 
J0074 
-8812 
J0098 
0— J- 
00000 
-8812 
J0146 
00000 
00000 
-8836 
J0194 
00001 
00000 
-8812 
J0242 
00000 
00000 
00000 
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11080 




H 








10302 


48 


nnnnn 


uuuuu 


11090 


CD12B 


B 


SUB12B 






10314 


49 




nnnnn 
uuuuu 


11100 




H 








10326 


48 


00000 


00000 


11110 


FCTl 


TFM 


FMON-f35 




«BLK4 


10338 


16 


02359 




11120 




BTM 


FMON 




»FCTl 










11 130 


FCT«T 


TFM 


FMON+35 




,BLK2 


10362 


16 


02359 




11 140 




BTM 


FMON 




,FCTRT 




1 1 






11150 


EOJ 


TFM 


FMON-t-35 




»BLK4 


1 naaA 






oo n 


11 160 




BTM 


FMON 




»60J 


1 naon 


17 






11170 


COCALL 


TFM 


FMON+35 




,BLK3 


1 nf 1 n 


1 A 






11180 




BTM 


FMON 




yCDCALL 


104ZZ 


17 




Iftti n 
J0410 


11190 


•••«•• 




THE FOLLOWING 


CODES ARITHMETIC OPERATORS 










11200 


CODE IP 


BTM 


RMNS 




fSL 


10434 


1 7 


04990 


—9282 


11210 




BTM 


RMNS 




,LV 


1 0446 




04990 




11220 




FF 


SR 




,BGNST(7) 








Tmrrq 


11230 




CM 


LV« 


133 


»a,EQUAL 


1 0470 


14 




0-133 


11240 




BE 


COOEIC 










1 1 034 


01200 


11250 




CM 


LV, 


115 


•8, EXPONENTIAL 


10494 


14 


09239 


0-115 


11260 




BE 


COOEID 






10506 


46 


12004 


01200 


11270 






CODE A00» 


SUBTRACT, MULTIPLY, DIVIDE 










11280 




CN 


SL, 


101 


•8,FAC 


10518 


14 


09282 


0-101 


11290 




BHB 


N60007 






10530 


47 


10804 


01200 


11300 




TO 


MOD 




•FLAGSW 


10542 


25 






11310 


CODE lA 


BTM 


SRFCT 




,•4-16 




17 


03824 


J0570 


11320 




DSA 


SR 






10570 






X 1 














10570 




_2372 




1 1 330 




DSA 


J 






10575 






X 1 














1 ns75 




•9224 




11340 


• 


TEST FOR MIXED NODE 










11350 




C 


MOO 




tFXORFL 


10576 


24 


09049 




11360 




BE 


• ♦36 






10588 


46 


10624 


ni ?nn 


11370 




BTM 


ERRT 




,MODMES 


10600 






-Qn7a 


11380 




TOM 


ERSWT 




,1 


10612 


15 


09351 


nnnni 


11390 




TO 


FX 




,FXORFL 


10624 


25 


03562 


04162 


11400 






FX IS USED 


BY 


OPSR ROUTINE 










11410 




BTM 


OPSR 




• LV 


10636 


17 


03488 


-9239 


11420 




CM 


LV 




•22 ,10 


10648 


14 


09239 


000K2 


11430 




BH 


PUTR 














11440 




TDM 


SStL 




• 1 ,11 


10672 


15 


06637 


OOOOJ 


11450 




TF 


OPX 




• LV 


10684 


26 


03930 


09239 


11460 




TF 


LV 




•FACAO 


10696 


26 


09239 




11470 


PUTR 


BLXM 


EXSUB 




••♦1612) 


10708 


66 


08304 


10P24 


11480 




DSA 


OPX 






10724 




5 


X 1 














10724 




-3930 




11490 




DSA 


LV 






10729 




5 


X 1 














10729 




-9239 




11500 




DSA 


J 






10734 




5 


X 1 














10734 




-9224 




11510 


COOEIH 


TO 


FLAGSM 




•FXORFL 


10736 


25 


04428 


04162 


11520 




TF 


BGNSTITI 




• FAC 


10748 


26 


INRR9 


09203 


11530 




TOM 


FSW 




• 1 ,11 


10760 


15 


08986 


OOOOJ 
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11540 




BT 


GTCL 


• SL 


11550 




BT 


GTCL 


• SR 


11560 




B 


EXIT 




11570 




DORG 


• -3 




11580 


N60007 


CM 


SR. 


lOl.B^FAC 


11590 




BNE 


N 60009 




11600 




TF 


SR 


• SL 


11610 




B 


CODEIB 




11620 




DORG 


•-3 




11630 


N60009 


BMP 


N60010 


,FSW 


11640 




BTM 


6NRP 


• •♦12 


11650 


N60010 


BTM 


SRFCT 


• •♦16 


11660 




OSA 


SL 




11670 




DSA 


N40001 




11680 




BLXM 


EXSUB 


••♦16(2) 


11690 




DSA 


TFL 




11700 




OSA 


FACAD 




11710 




OSA 


N40001 




11720 




TD 


MOD 


, FXORFL 


11730 




B 


CODEIA 




11740 




DORG 


»-3 




11750 






ENTRY IF 


RIGHT SYMBOL IS FAC» 


11760 


•••••• 


SET UP REVERSE DIVIDE 


11770 


CODEIB 


TD 


MOD 


•FLAGSM 


11780 




CM 


LV, 


120, a, SUBTRACT 


11790 




BME 


• ♦24 




11800 




TFM 


LV, 


124, 8, LEFT PAREN 


11810 




CM 


LV, 


121, 8, DIVIDE 


11820 




BNE 


CODEIA 




11830 




TFM 


LV, 


122,8, 


11840 




B 


CODEIA 




11850 




DORG 


•-3 




11860 






ENTRY IF 


OPERATOR IS AN EQUAL 


11870 


CODEIC 


BD 


CDIQZP 


,FTSW 


11880 


SLC 


BTM 


SRFCT 


,•♦16 


11890 




DSA 


SL 




11900 




DSA 


SX 




11910 




TO 


EX! NO 


.FXORFL 


11920 


CDIQZP 


BNF 


CODEIE 


,RSW 


11930 




TO 


EXIND 


,RFLAG 


11940 






FXORFL IS 


; SET BY SRFCT 


11950 


CODE IE 


BNF 


N60013 


,FSW 



10772 


27 


05720 


09282 


10784 


27 


05720 


02372 


10796 


49 


02928 


00000 


10804 








10804 


14 


02372 


O-lOl 


10816 


47 


10848 


01200 


10828 


26 


02372 


09282 


10840 


49 


10942 


00000 


10848 








10848 


44 


10872 


08986 


10860 


17 


05022 


J0872 


10872 


17 


03824 


J0888 


10888 




5 


X 1 


10888 




-9282 




10893 




5 


X 1 


10893 




-3382 




10894 


66 


08304 


lORlO 


10910 




5 


X 1 


10910 




-9021 




10915 




5 


X 1 


10915 




-3797 




10920 




5 


X 1 


10920 




-3382 




10922 


25 


09049 


04162 


10934 


49 


10554 


00000 


10942 








10942 


25 


09049 


04428 


10954 


14 


09239 


0-120 


10966 


47 


10990 


01200 


10978 


16 


09239 


0-124 


10990 


14 


09239 


0-121 


11002 


47 


10554 


01200 


11014 


16 


09239 


0-122 


11026 


49 


10554 


00000 


11034 








11034 


43 


11080 


04378 


11046 


17 


03824 


J 1062 


11062 




5 


X 1 


11062 




-9282 




11067 




5 


X 1 


11067 




-2377 




11 068 


25 


08999 


04162 


11080 


44 


11104 


08997 


11092 


25 


08999 


04358 


11104 


44 


11916 


08986 
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PAGE 



11^70 








11116 


25 


04162 


04428 




C0123 




CvnDCi cvTKin 
rAUKrL tcXlND 


11128 


24 


04162 


08999 


11980 




BE 


CODEIX 


11140 


46 


11276 


01200 


11990 






OUTPUTS FIX TO FLOAT OR FLOAT TO FIX INSTRUCTIONS 


















1 1 152 


26 


03382 


09071 


12010 




Tn 

!; 


C tf c V I Kin 


1 1 164 


25 


03562 


08999 






BTM 


OPSR «N40001 


11176 


17 


03488 


-3382 


1 7nln 




BNIF 


coin fFSW 


1 1188 


44 


11236 


08986 






SI* 


B 1 IT V m A. t ^ 


11200 


17 


06030 


J1216 


12050 




DSA 


Bin tNHOOOl tr AUAD 


11216 




5 


X 3 










11216 




-5972 












1 1221 




-3382 












1 1226 




-3797 




, 




zL 


CODclX 


11228 


49 


11276 




12070 


GUI 1 1 


TDM 


FSW ,-1 


11236 


15 


08986 


OOOOJ 


12080 




BLXM 


EXSUB t*'*'16t2) 


11248 


66 


08304 


11K64 


12090 




OSA 


OPX tN^^OOOl t N40002 


1 1264 




5 


X 3 










11264 




-3930 












11269 




-3382 












11274 




-3387 




12110 


muc IX 




crric CTcu 


1 1276 


43 


12366 


04378 






BMC2 


C0555 


11288 


47 


11434 


00200 


12130 




80 


f n'io^ ecu 


11300 


43 


11340 


08986 


12U0 




BLXM 


EXSUB ••416(21 


11312 


66 


08304 


11L28 


12150 




DSA 


TFLfFACAD,N40002 


11328 




5 


X 3 










1 1328 




-9021 












1 1333 




-3797 












1 1338 




-3387 






LOZZZ 


BTM 


sKrLf t'+lo 


1 1340 


17 


03824 


J1356 


12 170 




OSA 


SL,SX 


11356 




5 


X 2 










11356 




-9282 












11361 




-2377 




12 180 




BNF 


N60014 .RSW 


1 1362 


44 


11678 


08997 






TON 


SS2 .1 


11374 


15 


06634 


00001 


if >i n 




TOM 


RSW .0 


11386 


15 


08997 


00000 




* 


OUTPUT TRACE INSTRUCTION 










12220 




BTM 


PUTX .•♦lb 


11398 


17 


06030 


J1414 


12230 




DSA 


BT,TRACE.SX 


11414 




5 


X 3 










11414 




-9053 












11419 




-3587 












11424 




-2377 




12240 




8 


TCLEAR 


11426 


49 


11800 


00000 


12250 




DORG 


• -3 


11434 








12260 




OUTPUT FRF AC INSTRUCTION 










12270 


C0555 


BNF 


C0666 tFSM 


11434 


44 


11466 


08986 


12280 




BNF 


CD444 (RSW 


11446 


44 


11714 


08997 


12290 




B7 


CD333 


11458 


49 


11630 




12300 


C0666 


BTM 


SRFCT ••♦16 


11466 


17 


03824 


J1482 


12310 




DSA 


SL»SX 


11482 




5 


X 2 










11482 




-9282 





417 
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12320 










11487 




-2377 






BD 


COIPFP 


•PFPSW 


11488 


43 


11946 


03928 


12330 




TO 


SSXRl 


•SBASE-5 


11500 


25 


08092 


04155 


12340 




BTM 


SRFCT 


• •♦16 


11512 


17 


03824 


J1528 


12350 




OSA 


SR,N40002 




11528 




5 


X 2 












11528 




-2372 




12360 










11533 




-3387 






BD 


COIPFP 


•PFPSU 


11534 


43 


11946 


03928 


12370 




TD 


SSXR2 


•SBASE-5 


11546 


25 


08094 


04155 


12380 




BNF 


• ♦24 


• RSM 


11558 


44 


11582 


08997 


12390 




TDM 


SS3 


fl 


11570 


15 


06635 


.00001 


12400 




TFM 


SS2 


til 


tlO 11582 


16 


06634 


OOOJl 


12410 




BTM 


PUTX 


• •♦16 


11594 


17 


06030 


J1610 


12420 




OSA 


TFL«SX,N40002 




11610 




5 


X 3 












11610 




-9021 














11615 




-2377 




12430 










11620 




-3387 






B7 


TCLEAR 




11622 


49 


11800 




12440 


CD333 


TFM 


SS3 


• 101 


t9 11630 


16 


06635 


OOJOl 


12450 




BTM 


PUTX 


• •♦16 


11642 


17 


06030 


J1658 


12460 




OSA 


TFL.SX.FACAO 




11658 




5 


X 3 












11658 




-9021 














11663 




-2377 














11668 




-3797 




12470 




B 


TCLEAR 




11670 


49 


11800 


00000 


12480 




DORG 


•-3 




11678 








12490 


• 


OUTPUT TRACE INSTRUCTION 










12500 


N60014 


BL XM 


EXSUB 


•♦♦16(2) 


11678 


66 


08304 


11094 


12510 




DSA 


DPX,TRACE,SX 




11694 




5 


X 3 












11694 




-3930 














11699 




-3587 




12520 










11704 




-2377 






B 


TCLEAR 




11706 


49 


11800 


00000 


12530 




DORG 


•-3 




11714 








12540 


• 


OUTPUT FRFAC INSTRUCTION 










12550 


C0444 


BTM 


SRFCT 


• ♦♦16 


11714 


17 


03824 


J1730 


12560 




DSA 


SL,SX 




11730 




5 


X 2 












11730 




-9282 




12570 










11735 




-2377 






BNF 


N8X 


•PFPSW 


11736 


44 


11884 


03928 


12580 




BD 


N6X 


, SBASE-5 


11748 


43 


11820 


04155 


12590 




TFM 


SS3 


• 101 


•9 11760 


16 


06635 


OOJOl 


12600 


N7X 


BTM 


PUTX 


• •♦16 


11772 


17 


06030 


J 1788 


12610 




OSA 


TFL 




11788 




5 


X 1 


12620 










11788 




-9021 






DSA 


SX 




11793 




5 


X I 












11793 




-2377 




12630 




DSA 


FACAD 




11798 




5 


X 1 



4JS 
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11798 




-3797 




12640 


TCLEAR 


BNR 


EXIT 


,BGNST+ll 


11800 


45 


02928 


16010 


12650 




87 


CLEAR 




11B12 








12660 


N6X 


TFH 


SS2 


til tlO 


11820 


16 


*: 




12670 




jf 


N40005 




11832 




03402 


05969 


12680 








t 18 t 10 


11844 


11 


03402 


000J8 


12690 




BTH 




#♦♦16 


11656 


17 


06030 


J1872 


12700 




OS A 


MA MAnn/iR cy 




11872 




5 


X 3 












11872 




-9017 














11877 




-3402 














118B2 




-2377 




12710 


N8X 


TO 


SSXRl 


>SBASE-5 


11884 


25 


08092 


04155 


12720 




TDM 


SSI 


fl 


11896 


15 


06633 


00001 












1 1908 


49 


11772 




12740 




BTM 


SRFCT 


§•♦16 


1 1916 


17 


01824 


J1932 


12750 




DSA 


SR 




11932 




5 


X 1 












11932 




-2372 




12760 




OSA 


N40002 




1 1937 




5 


X 1 












1 1937 




-3387 




I27T0 




87 


CD123 




11938 


49 


11128 




12780 


COIPFP 


BTM 


SRFCT 


,•♦16 


11946 


17 


03824 


J1962 


12790 




OSA 


SRtN40002 




11962 






X 2 












- ■ 

1 1962 




■ 

-2372 














1 1967 




-3387 




12800 




BLXM 


EXSUB 


,•♦1612} 


11968 


66 


08304 


11R84 


12810 




DSA 


TFLfFACAD»N40002 


1 1984 




5 


X 3 












1 1984 




-9021 














11989 




-3797 














1 1994 




-3387 




12820 




B7 


C0555«^12 




1 1996 


49 


1 1446 




12830 




ENTRY OPERATOR 


IS EXPONENTIAL 












rone in 


CM 


SL, 101 


t8,FAC 


12004 


14 


09282 


0-101 


12850 




BNE 


N60015 




12016 


47 


12262 


01200 


12860 




BTM 


SRFCT 


• •♦16 


12028 


17 


03824 


J2044 


12870 




DSA 


SRtJ 




12044 




5 


X 2 












12044 




—2372 














12049 




-9224 




12880 




BO 


• ♦20 


•FLAGSU 


120S0 


43 


12070 


04428 


12890 




B7 


N60016 




12062 


49 


12166 




12900 




TO 


• ♦23 


tFLAGSM 


12070 


25 


12093 


04428 


12910 




CM 


FXORFL 


tO ,10 


12082 


14 


04162 


000—0 


12920 




BE 


• ♦36 




12094 


46 


12 130 


01200 


12930 




BTM 


ERRT 


•MODMES 


12106 


17 


08736 


-9073 


12940 




TOM 


ERSWT 


tl 


12118 


15 


09351 


00001 


12950 


N60017 


BLXM 


EXSUB 


••♦16(2) 


12130 


66 


08304 


12J46 


12960 




OSA 


OPX 




12146 




5 


X 1 












12146 




-3930 




12970 




DSA 


IXI 




12151 




5 


X 1 



4Jy 
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12151 




-3807 




12980 




OSA 


J 




12156 




5 


X I 












12156 




-9224 




12990 




87 


CODElH+12 




12158 


49 


10748 




13000 


N60016 


TO 


FX 


•FXORFL 


12166 


25 


03562 


04162 


13010 




BO 


• ♦24 


• FX 


12178 


43 


12202 


03562 


13020 




TFM 


UFSTR^l 


•11 •lO 


12190 


16 


02264 


OOOJl 


13030 




BTM 


OPSR 


• LV 


12202 


17 


03488 


-9239 


13040 




BLXM 


EXSUB 


••♦16(2) 


12214 


66 


08 304 


12K30 


13050 




OSA 


OPX 




12230 




5 


X 1 












12230 




-3930 




13060 




OSA 


LV 




12235 




5 


X 1 












12235 




-9239 




13070 




OSA 


J 




12240 




5 


X 1 












12240 




-9224 




13080 




TDM 


FXORFL 


.0 


12242 


15 


04162 


00000 


13090 




B 


CODEIH 




12254 


49 


10736 


00000 


13100 




OORG 


• -3 




12262 








13110 


N60015 


BNF 


N60018 


• FSM 


12262 


44 


12298 


08986 


13120 




BTM 


5NRP 


• •♦12 


12274 


17 


05022 


J2286 


13130 




TF 


SR 


•8GNST(7) 


12286 


26 


02372 


1NRR9 


13140 


N60018 


BTM 


SRFCT 


• •♦16 


12298 


17 


03824 


J2314 


13150 




DSA 


SL 




12314 




5 


X 1 












12314 




-9282 




13160 




OSA 


J 




12319 




5 


X I 












12319 




-9224 




13170 




TO 


FLAGSW 


•FXORFL 


12320 


25 


04428 


04162 


13180 




BLXM 


EXSUB 


••♦16(2) 


12332 


66 


08304 


12L48 


13190 




OSA 


TFL 




12348 




5 


X 1 












12348 




-9021 




13200 




OSA 


FACAO 




12353 




5 


X 1 












12353 




-3797 




13210 




OSA 


J 




12358 




5 


X 1 












12358 




-9224 




13220 




B7 


CODEIG 




12360 


49 


12028 




13230 


FCTIE 


TOM 


FTSW 


• 0 


12368 


15 


04378 


00000 


13240 




BD 


FCTIEA 


• FSH 


12380 


43 


12420 


08986 


13250 




BLXM 


EXSUB 


••♦16(2) 


12392 


66 


08304 


12M08 


13260 




OSA 


TFL^FACAO, 


N40002 


12408 




5 


X 3 












12408 




-9021 














12413 




-3797 














12418 




-3387 




13270 


FCTIEA 


TFM 


SS3 


•101 ,9 


12420 


16 


06635 


OOJOl 


13280 




SM 


Tl 


• I tlO 


12432 


12 


06014 


000-1 


13290 




BTM 


PUTX 


,•♦16 


12444 


17 


06030 


J2460 


13300 




OSA 


B 




12460 




5 


X I 
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12460 




-5974 




13310 




DSA 


Tl 




12465 




5 


X 1 












12465 




-6014 




13320 




OS A 


BLANK 




12470 




5 


X 1 












12470 




-9026 




13330 




SM 


ADCOW 


• 4 .10 


12472 


12 


05969 


000-4 


133^0 




BTM 


PUTA 


,♦♦16 


12484 


17 


07522 


J2500 


13350 




OSA 


SXF.ADCOM 


12500 




5 


X 2 












12500 




-9257 














12505 




-5969 




13360 




S 


TBASE-1, 


TMAX 


12506 


22 


02302 


05964 


13370 




TFM 


TMAX, 


0,9 


12518 


16 


05964 


00-00 


13380 




B 


CLEAR 




12530 


49 


02640 


00000 


13390 




DORG 


• -3 




12538 








13*00 


»••*»« 




OUTPUT FUNCTION LINKAGE OR REMOVE PARENTHESIS 










13410 


C0DE3P 


TF 


SL 


,BGNSTf7l 


12538 


26 


09282 


1NRR9 


13420 




CM 


SL, 


10L,8,FAC 


12550 


14 


09282 


O-lOl 


13430 




BL 


N60020 




12562 


47 


12610 


01300 


13440 




CM 


SL, 


154,8, ARITH STATEMENT CALL 


12574 


14 


09282 


0-rl54 


13450 




BH 


N60020 




12586 


46 


12610 


01100 


13460 




BXM 


CQDE3B 


,5(7) 


12598 


62 


12916 


0—5 


13470 


N60020 


BTM 


RMNS 


,SL 


12610 


17 


04990 


-9282 


13480 




TR 


BGNST>4(7) ,BGNST«lf7l 


12622 


31 


1NRR5 


10—0 


13490 




BTM 


RMNS 


• SR 


12634 


17 


04990 


-2372 


13500 




TF 


N40002 


»TBASE 


12646 


26 


03387 


02303 


13510 




SF 


SL-3 




12658 


32 


09279 


00000 


13520 




TF 


N40002-1 


,SL 


12670 


26 


03386 


09282 


13530 




TDM 


N40002 


,9 


12682 


15 


03387 


00009 


1 3540 




TF 


N40002 


,N40002 ,11 






03387 


0338P 


13550 




SF 


N40002 




12706 


32 


03387 


00000 


13560 




CM 


SR 


,101 ,9 


12718 


14 


02372 


OOJOl 


13570 




BE 


N60021 












13580 




BNF 


N60022 


,FSW 


12742 


44 


12766 


08986 


13590 




BTM 


GNRP 


,•♦12 


12754 


17 


05022 


J2766 


13600 


Ni60022 


BTM 


SRFCT 


,•♦16 


12766 


17 


03824 


J2782 


13610 




DSA 


SR 




12782 




5 


X 1 












12782 




-2372 




13620 




DSA 


SR 




12787 




5 


X 1 












12787 




-2372 




13630 




TD 


FLAGSW 


•FXORFL 


12788 


25 


04428 


04162 


13640 




B 


C0DE3A 




12800 


49 


12856 


00000 








•-3 




12808 








13660 


N60021 


TF 


SR 


•FACAO 


12808 


26 


02372 


03797 


13670 




TFM 


OPX 


•17 ,10 


12820 


16 


03930 


000J7 


13680 




TDM 


SBASE-5 


• 0 


12832 


15 


04155 


00000 


13690 




BTM 


PUTX 


• CODE 3 A^ 16 


12844 


17 


06030 


J2872 


13700 


•••••• 




OUTPUT LIBRARY FUNCTION LINKAGE 










13710 


C00E3A 


BLXM 


EXSUB 


••♦16(2) 


12856 


66 


08304 


12Q72 


13720 




DSA 


OPX 




12872 




5 


X 1 












12872 




-3930 
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13730 




DSA 


N40002 






12877 




5 


X I 














12877 




-3387 




13740 




OSA 


SR 






12882 




5 


X 1 














12882 




-2372 




13750 




TF 


B6NST(7) 


• FAC 




12884 


26 


1NRR9 


09203 


13760 




TOM 


FSW 


• 1 


• u 


12896 


15 


08986 


OOOOJ 


13770 




B 


EXIT 






12908 


49 


02928 


00000 


13780 




OORG 


•-3 






12916 








13790 


C0DE3B 


CM 


SL, 


154»8, ARITH STATEMENT CALL 


12916 


14 


09282 


0-154 


13800 




BE 


C0DE3C 






12928 


46 


13020 


01200 


13810 




CM 


SL* 


153 ,8 (FUNCTION CALL 




12940 


14 


09282 


0-153 


13820 




BE 


C00E3C 






12952 


46 


13020 


01200 


13830 


N60023 


CM 


SL* 


107, 8, IF 




12964 


14 


09i282 


0-107 


13840 




BE 


C00E7 






12976 


46 


10098 


01200 


13850 




TR 


B6NST-4(7) •BGNST^KT) 




12988 


31 


1NRR5 


10—0 


13860 




TR 


BGNST^KT) ,BGNST^6(7) 




13000 


31 


10—0 


10—5 


13870 




B7 


EXIT 






13012 


49 


02928 




13880 


• 


ARITH STATEMENT CALL OR FUNCTION CALL OPERATOR 










13890 


C0DE3C 


BXM 


•♦12 


•-10(7) 




13020 


62 


13032 


0— J- 


13900 


C0DE3Y 


BTM 


RMNS 


• SL 




13032 


17 


04990 


-9282 


13910 




BTM 


RMNS 


• LV 




13044 


17 


04990 


-9239 


13920 




TR 


BGNST-4(7) ,BGNST^1(7) 




13056 


31 


1NRR5 


10— 0 


13930 




BNF 


N60026 


• FSW 




13066 


44 


13092 


08986 


13940 




BTM 


GNRP 


• •♦12 




13080 


17 


05022 


J3092 


13950 


N60026 


CM 


LV, 


154,8,ARITH STATEMENT CALL 


13092 


14 


09239 


0-154 


13960 




BE 


N60027 






13104 


46 


13128 


01200 


13970 




TOM 


SS3 


• 1 




13116 


15 


06635 


00001 


13980 


N60027 


TFM 


SS2 


• 11 


• 10 


13128 


16 


06634 


OOOJl 


13990 




BTM 


SRFCT 


• •♦16 




13140 


17 


03824 


J3156 


14000 




OSA 


SL 






13156 




5 


X 1 














13156 




-9282 




14010 




DSA 


N40001 






13161 




5 


X 1 














13161 




-3382 




14020 




TF 


N40003 


•ADCOW 




13162 


26 


03392 


05969 


14030 




AM 


M40003 


• 11 


• 10 


13174 


11 


03392 


OOOJl 


14040 




TO 


FLAGSW 


•FXORFL 




13186 


25 


04428 


04162 


14050 




BTM 


PUTX 


• ♦♦16 




13198 


17 


06030 


J3214 


14060 




OSA 


BTM 






13214 




5 


X 1 














13214 




-5972 




14070 




DSA 


N40001 






13219 




5 


X 1 














13219 




-3382 




14080 




DSA 


N40003 






13224 




5 


X I 














13224 




-3392 




14090 




BO 


CaDE3Z 


•CALLX 




13226 


43 


13426 


04388 


14100 


CODE 3D 


BTM 


RMNS 


,SL 




13238 


17 


04990 


-9282 


14110 




TF 


SR 


,BGNST(7) 




13250 


26 


02372 


1NRR9 


14120 




BTM 


SRFCT 


,•+16 




13262 


17 


03824 


J3278 


14130 




DSA 


SL 






13278 




5 


X 1 
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13278 




-9282 




1<V140 




OS A 


SL 




13283 




5 


X I 




















1^1 50 




AMP 


* 


• 






13308 


09347 






5r 


SL 




1 3296 


32 


09282 


A A AAA 








PUTC 


#•■♦■16 


1 3308 




07402 


J3324 


1 &i nn 




USA 


SL 




1 3 324 






X I 












13324 




_ 

A^aT^ 










104 1 
* * 


DfKltynl rAKtri 


13326 


Ia 


1 ^^7n 


^T^AA 






Be 


N60032 




13338 














o on J 1 ~"» III 


f Ounid 1 » II 




fi 


1 MBB^ 

; 


10 0 








C00E3D 




1 3362 


49 


13238 


AAAA A 


« 




nnor 


* ' 












IhZhO 


M AAA 1 O 




ADJUST 


t ADCOW 


13370 


17 


03444 


—5969 


14250 


C0DE3X 




CET 


tCALLSM 


1 3382 


43 


13446 


08992 


14260 




TC 


SUNbT ill 


fFAC 


13394 


26 


INRR9 


09203 






I 


FSW 


fl 1 1 1 








0000 J 


14280 




B 


EXIT 




13418 


49 


02928 


00000 


14290 




DORG 


• —3 




13426 










CUUE3£ 


TOM 


CALLX 


tO 




"l 




AAAAA 
. UUUUU 






B 


CLEAR 






49 


02640 


AAAAn 

UUUUU 






DORG 


•-3 




1 3446 








14330 


CcT 


BXM 


• ♦12 




13446 


62 


13458 


0—5 






CM 


BGNSTin 


tl32 $9 














BE 


CLEAR 




13470 






01200 






BXM 


C00E3X^12 


t*5i7i 


13482 




13394 


0— N 


14370 




OUTPUT REVERSE 


9lwN IN5TRUI.riuNd rUR UNART MINUa 










14380 


C0DE4P 


TF 


SR 


•BGNSTIT) 


13494 


26 


02372 


1NRR9 


14390 




TF 


LV 


• RVSN 


13506 


26 


09239 


09068 


iH?n 




BTM 


OPSR 


fLV 




17 










cn 


SR 


tlOl f8 


1 r«4n 

1 ^ef ^ 


1^ 




O-lOl 
* 


14420 




SHE 


N60034 




13542 


47 


13638 


01200 


14430 




TO 


FX 


f FLAGSW 


13554 


25 


03562 


04428 


14440 




BTM 


PUTX 


#•♦16 


13566 


17 




J3582 


14450 




OSA 


BTM,LV«FACAO 




13562 




5 


X 3 












13582 




—5972 














1 ^^97 




—9239 






















14460 




B7 


EXIT 
















BLXM 


EXSUB 


• 16121 
I 161 Zl 




66 


OB 304 


L3ul8 


1447 1 




DSA 


0PX,LV«N40003 




13618 




9 


X 3 












13618 




-3930 














13623 




-9239 






















14480 




BT 


EXIT 




13630 


49 


02926 




14490 


N60034 


BNF 


N60035 


tFSM 


13638 


44 


13662 


08986 


14500 




BTM 


GNRP 


• •♦12 


13650 


17 


05022 


J3662 


14510 


N60035 


BTM 


SRFCT 


• •♦16 


13662 


17 


03824 


J3678 


14520 




OSA 


SR 




13678 




5 


X 1 












13678 




-2372 




14530 




DSA 


M40003 




13683 




5 


X 1 
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13683 




-3392 




14580 




TDM 


FSW 


• 1 


• 11 


13684 


15 


08986 


OOOOJ 


14590 




TO 


FLAGSM 


,FXORFL 




13696 


25 


04428 


04162 


14600 




TF 


BGNSTIT) 


,FAC 




13708 


26 


1NRR9 


09203 


14610 




TO 


FX 


•FXORFL 




13720 


25 


03562 


04162 


14620 




B7 


C00E4A 






13732 


49 


13602 




14630 


CQ0E8P 


CM 


BGNST(7) 


• 124 


• 9 


13740 


14 


1NRR9 


00J24 


14640 




BNE 


C0DE8 






13752 


47 


10122 


01200 


14650 




87 


C00E3 






13764 


49 


10026 




14660 


CD15P 


TR 


BGNST-4(7| 


• BGNST^KT) 




13772 


31 


INRR5 


10—0 


14670 




CM 


BGNST+IOITI 


• 132 


f9 


13784 


14 


10—9 


00J32 


14680 




BNE 


EXIT 






13796 


47 


02928 


01200 


14690 




TOM 


CALLX 


• 1 




13808 


15 


04388 


00001 


14700 




B7 


C0OE3y 






13820 


49 


13032 




14710 




DORG 


14100 






14100 








14720 




TERTIARY LINKAGE 


: BLOCK 5 












14730 




DC 


2,5 






14101 




2 




14740 


SUBCDS 


-5 
BTM 


RMNS 


• SR 




14102 


17 


04990 


-2372 


14750 




B 


COSSP 






14114 


49 


14198 


00000 


14760 


SUBCAB 


TFM 


FM0N^35 


• BLK6 




14126 


16 


02359 


-8908 


14770 




BTM 


FMON 


•SUBCAB 




14138 


17 


02324 


J4126 


147B0 


SUBC12 


TFM 


FMON^35 


•BLK7 , 




14150 


16 


02359 


-8932 


14790 




BTM 


FMON 


•SUBC12 




14162 


17 


02324 


J4150 


14800 


SUB12B 


TFM 


FM0N^35 


,BLK8 




14174 


16 


02359 


-8956 


14810 




BTM 


FMON 


•SUB12B 




14186 


17 


02324 


J4174 


14820 


CDSSP 


TR 


BGNST-4(7) 


,BGNST+6C7) 




14198 


31 


1NRR5 


10—5 


14830 




TF 


SX 


,8GNST-5f7) 




14210 


26 


02377 


1NRR4 


14840 




TO 


XRSW 


• SX-4 




14222 


25 


09241 


02373 


14850 




BTM 


SRFCT 


• •♦16 




14234 


17 


03824 


J4250 


14860 




DSA 


SX»SX 






14250 




5 


X 2 














14250 




-2377 
















14255 




-2377 




14861 




TD 


SPFPSW 


• FPSW 




14256 


25 


09357 


09347 


14870 




TO 


SPCOM 


•COMSW 




14268 


25 


15691 


03999 


14880 




TDM 


SKIPSW 


• 1 




14280 


15 


09349 


00001 


14890 




TO 


RXFLAG 


•FXORFL 




14292 


25 


04368 


04162 


14900 




BTM 


CANDS 


• •♦16 




14304 


17 


08100 


J4320 


14910 




OSA 


DUDI 






14320 




5 


X 2 














14320 




-5979 
















14325 




-5984 




14920 




TDM 


SS2 


.1 




14326 


15 


06634 


00001 


14930 




CM 


SR 


,150 


• 8 


14338 


14 


02372 


0-150 


14940 




BL 


XXI 






14350 


47 


15204 


01300 


14950 




BE 


XX2 






14362 


46 


14432 


01200 


14960 


XX3 


BXM 


•♦12 


•30(71 




14374 


62 


14386 


0— LO 


14970 




TF 


N40006 


,SUB3 




14386 


26 


03407 


03647 


14980 




BTM 


CANDS 


,•♦16 




14398 


17 


08100 


J4414 


14990 




OSA 


04, SY 






14414 




5 


X 2 














14414 




-6009 
















14419 




-2384 




15000 




BXM 


XX4 


,-3017) 




14420 


62 


14490 


0~L- 


15010 


XX2 


BXM 


• ♦12 


,15(7) 




14432 


62 


14444 


0— J5 
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15020 




TF 


N40006 


• SUB2 


14444 


26 


03407 


03637 


15030 




BTM 


CANDS 


f •♦16 


14456 


17 


08100 


J4472 


15040 




DSA 


D4.SY 




14472 




5 


X 2 












14472 




-6009 














14477 




-2384 




15050 




BXH 


XX4 


15(7) 


14478 


62 


14490 


0— - JN 


15060 


XX4 


TF 


N40005 


tADCOM 


14490 


26 


03402 


05969 


15070 




AM 


N40005 


fl2 ,10 


14502 


11 


03402 


000J2 


150R0 




80 


• ♦20 


fRXFLAG 


14514 


43 


14534 


04368 


15090 




87 


• ♦20 




14526 


49 


14546 
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10938 




5 


X 1 












10938 




-9057 




17330 




DSA 


A STOP 




10943 




5 


X 1 












10943 




-3792 




17340 




DSA 


N I 3063 




10^48 




5 


X 1 












10948 




-9193 





43 0 
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17350 




BTM 


PUTX 


,•♦16 


10950 


17 


06030 


J0966 


17360 




DSA 


H 




10966 




5 


X I 












10966 




-9013 




17370 




OS A 


J 




10971 




5 


X I 












1 0971 




224 




17380 




DSA 


BLANK 




10976 






X 1 












10976 




9026 




17390 




BTM 


PUTX 


f»+l6 


10978 


17 


06030 


J0994 


17400 




DSA 


B 




10994 




5 


X 1 
















-5974 




1 TAin 




DSA 


NOV f "O 




inoQQ 






1 












10999 




—9356 




17420 




DSA 


BLANK 




11004 




5 


X 1 




















17430 




SN 


ADCOW 


t4 ,10 


11006 


12 


05969 


000-4 


17440 




B7 


CLEAR 




11018 


49 


02640 




17450 


















17460 


N60046 


BTM 


PUTX 


,•♦16 


11026 


17 


06030 


J1042 


17470 




DSA 


H 




11042 




5 


X 1 












1 1 042 




9013 




17480 




DSA 


BLANK 




11047 




5 


X 1 












11047 








17490 




DSA 


BLANK 




11052 




^5 


X 1 












11052 








17500 




BTM 


PUTX 


,•♦16 


11054 


17 


06030 


J1070 


17510 




DSA 


B 




11070 




5 


X 1 












11070 




-5974 




17520 




DSA 


_ 

NOO 1 96 




11075 


















11075 




—9356 




17510 




DSA 


BLANK 




11080 






X 1 












11080 




-9026 




17540 






EOJ 




11082 


49 


10386 


nnnnn 


17550 


1 NSET 


TF 


INSETA 


, • i f * i 


11094 








17560 




AM 


I NSET**! 


,5 ,10 


11106 


ji J 


11093 


000-5 


17570 








, I NSET^l ,11 










17580 




AM 


I NSET*~1 




11130 




1 1 093 


000- 1 


17590 




TF 


SETAD-1 




11142 


26 


11238 


00000 


17600 


INSETA 


OS 


f • 




11153 




0 




17610 




TDM 


SETAD 


,4 


11154 


15 


11239 


00004 


17620 




TF 


SADCQW 




11166 


26 


11213 


00000 


17630 


INSETB 


DS 


#• 




11177 




0 




17640 




AN 


SAOCOW 


• 6 ,10 


11178 


11 


11213 


000-6 


17650 




TF 


SETAD 


•SADCOH ,6 


11140 


26 


1123R 


11213 


17660 




SF 


SETAD 


f t6 


11202 


32 


1123R 


00000 



431 



17670 SAOCOW DS 
17680 TDM 
17690 B 
17700 D0R6 
17710 SETAD DC 

-000< 

17720 •••••• 

17730 CqDE7P BE 
17740 TF 
17750 CM 
17760 BE 
17770 BTM 
17780 DSA 
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,♦ 

RMSW ,0 

INSET-1 , ,6 

•-3 

6,4 



OUTPUT IF CODING 
C0DE7B 
SL 
SL 

N60048 
SRFCT 
SL 



,BGNST^5(7I 
,101 



,•♦16 



17800 
17810 



17820 
17830 



DSA N4000S 



BLXM EXSUB 
DSA TFL 



DSA FACAO 
DSA N40003 



••♦16(21 



17840 TO FLAGSW 

17850 N60048 BNC3 ^^40 

17860 BTM PUTX 

17870 DSA BTM 



,FXORFL 
,•♦16 



17880 
17890 



17900 
17910 
17920 
17930 
17940 
17950 
17960 



17970 
17980 
17990 
18000 



DSA TRACE 
DSA FACAO 



OUTPUT FIXED VARIABLE IF TEST 
BO •♦20 , FLAGSW 

B N60049 
DORG v-S 

BXM •♦12 ,10(7) 
BTM PUTX ,*^16 
DSA CM,FACA0,ZER04 



TDM SKIPSW ,1 

BTM GSBI t«^12 

BTM PUTX ,•♦16 

DSA BL,N40003,N01300 



11213 




0 




11214 


15 


04418 


00000 


11226 


49 


1109L 


00000 


11234 








11239 




6 




11240 


46 


11950 


01200 


11252 


26 


09282 


10—4 


11264 


14 


09282 


O-lOl 


11276 


46 


11350 


01200 


11288 


17 


03824 


J 1304 


11304 




5 


X I 


11304 




-9282 




11309 




5 


X 1 


11309 




-3392 




11310 


66 


08 304 


11L26 


11326 




5 


X 1 


11326 




-9021 




11331 




5 


X 1 


11331 




-3797 




11336 




5 


X 1 


11336 




-3392 




11338 


25 


04428 


04162 


11350 


47 


11390 


00300 


11362 


17 


06030 


J1378 


11378 




5 


X 1 


11378 




-5972 




11383 




5 


X 1 


113B3 




-3587 




11388 




5 


X 1 


11388 




-3797 




11390 


43 


11410 


04428 


11402 


49 


11722 


00000 


11410 








11410 


62 


11422 


0— JO 


11422 


17 


06O3O 


J1438 


11438 




5 


X 3 


11438 




-9293 




11443 




'3797 




11448 




-9025 




11450 


15 


09349 


00001 


11462 


17 


11618 


J1474 


11474 


17 


06030 


J1490 


11490 




5 


X 3 



432 
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11490 




-9295 
















11495 




-3392 
















11500 




-9300 




18010 




BTM 


GSBI 


t»^12 




11502 


17 


11618 


J1514 


18020 




BTM 


PUTX 


,•♦16 




11514 


17 


06030 


J1530 






OS A 


DC t N^UUvl? 






11530 




5 


X 3 














11530 




-9302 
















11535 




-3392 
















11540 




-9307 




18040 


C0DE7C 


BTM 


GSBI 


#•♦12 




11542 


17 


11618 


J1554 


18050 




BTM 


PUTX 


,•♦16 




11554 


17 


06030 


J1570 


18060 




DSA 


B»N40003t 


ZEROS 




11570 




5 


X 3 














11570 




-5974 
















11575 




-3392 
















1 1 580 




—9026 




18070 




TDM 


SKIPSW 


,0 




11582 


15 


09349 


00000 


18080 




SM 


ADCOW 


,4 


,10 


11594 


12 


05969 


000-4 


18090 




B 


CLEAR 






11606 


49 


02640 


00000 


18100 


GSBI 


BXM 


• ♦12 


tS(T) 




11618 


62 


11630 


0 5 


18110 




TF 


SK 


•B6NST(7) 




11630 


26 


10809 


INRR9 










t •♦16 




1 1642 


1 7 




J1658 


18130 




OSA 


SK«N4p003 






11658 




5 


X 2 














11658 




J0809 
















11663 




-3392 




18140 




BNF 


• ♦34 


,RMSW 




11664 


44 


11698 


04418 


18150 




BTM 


INSET 


,•♦16 




11676 


17 


11094 


J1692 


18160 




OSA 


SK.AOCOM 






11692 




5 


X 2 














11692 




J0809 
















11697 




-5969 




18170 




TDM 


SSI 


,1 




11698 


15 


06633 


OOOOl 


18180 




B 


GSBI-1 




• 6 


11710 


49 


1161P 


00000 








M4000 1 


* ADCOW 




1 1 722 


26 


03382 




18200 




AM 


N40001 


^20 


,10 


11734 


11 


03382 


OOOKO 


18210 




TF 


N40004 


,FACAD 




11746 


26 


03397 


03797 


18220 




S 


N40004 


,FP2 




11758 


22 


03397 


02298 


18230 




AM 


N40004 


,1 


• 10 


11770 


li 


03397 


OOO-l 


18240 




TDM 


SSI 


,1 




11782 


15 


06633 


00001 


18250 




BTM 


PUTX 


,•♦16 




11794 


17 


06030 


J1810 


18260 




DSA 


BD«N40001 


•N40004 




11810 




5 


X 3 














1 1810 




—9309 
















11815 




-3382 
















11820 




-3397 




18270 




BXM 


• ♦12 


,15(71 




11822 


62 


11834 


0— J5 


18280 




TDM 


SKIPSW 


,1 




11834 


15 


09349 


00001 


18290 




BTM 


GSBI 


,•♦12 




11846 


17 


11618 


J1858 


18300 




BTM 


PUTX 


• •♦16 




11858 


17 


06030 


J1874 


18310 




OSA 


BtN40003f 


ZEROS 




11874 




5 


X 3 














11874 




-5974 
















11879 




-3392 
















11884 




-^026 





433 
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18320 




SM 


ADCOW 


• 4 ,10 


11886 


12 


05969 


000-4 


18330 




BTM 


GSBI 


,•♦12 


11898 


17 


11618 


J1910 


18340 




BTM 


PUTX 


• •♦16 


11910 


17 


06030 


J1926 


18350 




DSA 


BNF,N40003 


,FACM2 


11926 


5 


X 3 












11926 




-9311 














11931 




-3392 




18360 










11936 




-9316 






BXM 


C00E7C 


,-15(7J 


11938 


62 


11542 


0~JN 


18370 


C00E7B 


BXM 


• ♦12 


,15(7) 


11950 


62 


11962 


0— J5 


18380 




TF 


INDREC-2 


•BGNST(7| 


11962 


26 


12061 


1NRR9 


18390 




SF 


1 NDREC-4 




11974 


32 


12059 


00000 


18400 




TDM 


SKIPSW 


,1 


11986 


15 


09349 


00001 


18410 




BXM 


• ♦12 


,5(7) 


11998 


62 


12010 


0 5 


18420 




BTM 


GSBI 


• •♦12 


12010 


17 


11618 


J2022 


18430 




BTM 


PUTX 


,•♦16 


12022 


17 


06030 


J2038 


18440 




DSA 


BI^N40003^ 


INDREC 


12038 


5 


X 3 












12038 




-9318 














12043 




-3392 




18450 










12048 




J2063 






B7 


C00E7C 




12050 


49 


11542 




18460 


1 NOR EC 


DC 


7,0 




12063 


7 








-000000 










18470 


CGCOW 


OS 


5 




12068 




5 




18480 


*••••» 




OUTPUT COMPUTED 60 TO 








18490 


C0DE9P 


CM 


BGNSTITI 


•104 ^9 


12070 


14 


1NRR9 


00J04 


18500 




BNE 


C00E9 




12082 


47 


10146 


01200 


18510 




TF 


SL 


•B6NST^5(7) 


12094 


26 


09282 


10—4 


18520 




TDM 


SSI 


• 1 


12106 


15 


06633 


00001 


18530 




TDM 


SKIPSW 


• 1 


12118 


15 


09349 


00001 


18540 




BTM 


SRFCT 


• •♦16 


12130 


17 


03824 


J2146 


18550 




DSA 


SL 




12146 


5 


X I 


18560 










12146 




-9282 






OSA 


N40004 




12151 




5 


X 1 


18570 




BTM 






12151 




-3397 






PilTX 


• •♦16 


12152 


17 


06030 


J2168 


18580 




OSA 


MM 




12168 


5 


X 1- 


18590 










12168 




-9011 






DSA 


N40004 




12173 




5 


X 1 


18600 










12173 




-3397 






OSA 


NNS5 




12178 




5 


X 1 


18610 










12178 




-9188 






TDM 


SS2 


• 1 


12180 


15 


06634 


00001 


18620 




TF 


N40001 


•ADCOW 


12192 


26 


03382 


05969 


18630 




AM 

BtM 


N40001 


•18 ,10 


12204 


11 


03382 


OOOJB 


18640 




PUTX 


,•♦16 


12216 


17 


06030 


J2232 


18650 




OSA 


SM 




12232 




5 


X 1 


18660 










12232 




-9065 






DSA 


N13092 




12237 




5 


X 1 



43 4 
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12237 




-904C 




18670 




DSA 


N 40001 






12242 




5 


X I 














12242 




-3382 




18680 




TDH 


SS3 


.1 




12244 


15 


C6635 


00001 


i86S0 








t DuNs 1 ▼ 19 




12256 


26 


10809 


16014 


1 «^?n 




nl A 


SRrCT 


t 16 




12268 


17 


C3B2A 


J2284 






USA 


SK 






12284 




5 


X 1 














12284 




J0809 




18720 




OSA 








12289 




5 


X 1 














12289 




-3397 




18730 




TOM 


SKI PS W 


1 0 




12290 


15 


09349 


00000 










iRMSH 




12302 


4 A 


1236C 


C4418 






TF 




t AOCOW 




12314 


26 


12C68 


C5969 


18 760 






C6C0W 


t5 


tlO 


12326 


11 


12068 


COC-5 


18770 




BTK 


INSET 


t*«16 




12338 


17 


11094 


J23S4 


18780 




DSA 


SKtCGCOW 






12354 




5 


X 2 














12354 




J0809 
















12359 




J2068 




18790 


rnnPQfl 

UUUC 7D 


TOM 




1 1 




12360 


15 


06634 


OCOCl 


188C0 




BTM 


PUTX 






12372 


17 


06030 


J2388 


18810 




OSA 


B 






12388 




5 


X 1 














12368 




-5974 








OSA 








12393 




■ 5 


X 1 














12393 




-904C 




18830 




OSA 








12398 




5 


X 1 














12398 




■ 

-3397 




18840 




BLXM 


• ♦12 


f 2GI7I 




12400 


66 


12412 


C — KO 


18850 




CM 


BGNSTIT) 


tl04 


t9 


12412 


14 


1NRR9 


OOJ04 


18860 




BE 


CLEAR 






12424 


46 


0264C 


C1200 


1 Aflln 


CQDE9A 




SL 


touNST III 




12436 


26 


C9282 


1NRR9 






cw 


SL 


1 104 


t8 


12448 


14 


09282 


0-104 


1 Rflon 




BE 


N60072 






12460 


46 


12606 


01200 


laann 




TDM 


srfct*' 


1 1 




12472 


15 


09349 


COOOl 


1 AO 1 n 








t**l6 




12484 


17 


03 824 


J2500 


lAQ^n 




OSA 


t UUU t 






12500 




5 


X 2 














12500 




-9282 
















12505 




-3382 




laofn 




Imc 


SKIPSW 


tO 




12506 


15 


09349 


COOOO 








C00E9C 






12518 


44 


12576 


044 18 


18950 




TF 




•ADCOH 




12530 


26 


12068 


05969 


18960 




SM 


CGCOM 




tlO 


12542 


12 


12066 


000-2 


18970 




BTM 


INSET 


#•♦16 




12554 


17 


11094 


J2570 


18980 




OSA 


SLtCGCOW 






12570 




5 


X 2 














12570 




-9282 
















12575 




J206e 




18990 


CO0E9C 


BTM 


PUTC 


#•♦16 




12576 


17 


07402 


J2592 


19000 




OSA 


N40001 






12592 




5 


X 1 



435 
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12592 




-3382 




19010 




BXM 


C0DE9A ,5(7) 


12594 


62 


12436 


0 5 


19020 


N 60 07 2 


BTM 


ADJUST , AOCOW 


12606 


17 


03444 


-5969 


19030 




B7 


CLEAR 


12618 


49 


0264C 




19040 


••«»•• 


OUTPUTS FORMAT SPECIFICATIONS 










19050 


CD17P 


TF 


REP3 .AOCOW 


12626 


26 


13673 


05969 


19060 




AM 


AOCOW ,1 flO 


12638 


11 


05969 


COO-I 


19070 


C017A 


BTM 


RMNS tSX17 


12650 


17 


04990 


J2829 


19080 




CM 


SX17, 101.8,IS IT AN OPERATOR 


12662 


14 


12829 


C-lOl 


19090 




BNL 


C017B,,, YES» BRANCH 


12674 


46 


13082 


C1300 


19100 




BTM 


RMNS ,SV17 


12686 


17 


0499C 


J3569 


19110 




CM 


Syi7, 147,8«IS IT XTYPE 


12698 


14 


13569 


0-147 


19120 




BE 


CD17C 


12710 


46 


1283C 


01200 


19130 




CM 


SY17, 148,8, IS IT HTYPE 


12722 


14 


13569 


0-148 


19140 




BE 


C017D 


12734 


46 


1289C 


01200 


19150 




CM 


SY17, 124,8, IS IT LEFT PAREN 


12746 


14 


13569 


0-124 


19160 




BE 


CD17E 


12758 


46 


130IC 


01200 


19170 




TF 


FREQ1,SX17,, OTHER OPERATOR, SAVE FREO 


12770 


26 


12925 


12829 


19180 




TF 


REPl, AOCOW,, SAVE ADDRESS OF NEXT SPEC 


12782 


26 


12889 


05969 


19190 




AM 


REPl, 4, 10 


12794 


11 


12889 


000-4 


19200 




TF 


SX17,SV17 


12806 


26 


12829 


13569 


19210 




B 


C017B 


12818 


49 


13082 


00000 


19220 


SX17 


OS 


,• 


12829 




C 




19230 


C017C 


BTM 


PUT17,XTYPE,, PUT XTVPE AND LENGTH 


12830 


17 


13810 


-3787 


19240 




MM 


5X17,2,10 


12842 


13 


12829 


000-2 


19250 




SF 


97 


12854 


32 


00097 


COOOO 


19260 




BT 


PUT17C,99 


12866 


27 


13846 


C0099 


19270 




B 


C017A 


12878 


49 


12650 


00000 


19280 


REPl 


OS 


• • 


12889 




C 




19290 


CO 170 


BTM 


PUT17, HTYPE,, PUT HTYPEt LENGTH AND CONSTANTS 


12890 


17 


1381C 


-3782 


19300 




MM 


SX17,2,10 


12902 


13 


12829 


000-2 


19310 




SF 


97, ,9 


12914 


32 


00097 


00-00 


19320 


FREQl 


OS 


t» 


12925 




0 




19330 




BT 


PUT17C,99 


12926 


27 


13846 


C0099 


19340 


CD17F 


BTM 


RMNS ,SY17 


12938 


17 


04990 


J3569 


19350 




BT 


PUT17B,SY17 


12950 


27 


13894 


13569 


19360 




SM 


SX17*LtlO 


12962 


12 


12829 


0.00-1 


19370 




CM 


SX17,0,9 


12974 


14 


12829 


00-00 


19380 




BH 


C017F 


12986 


46 


12938 


CUOO 


19390 




B 


C017A 


12998 


49 


12650 


00000 


19400 


REP2 


OS 


»• 


13009 




0 




19410 


CD17E 


TF 


REP3, AOCOW,, SAVE FREQUENCY ADDRESS 


13010 


26 


13673 


C5969 


19420 




SM 


REPl, 1,10 


13022 


12 


13673 


000-1 


19430 




TF 


REP2, AOCOW 


13034 


26 


13009 


05969 


19440 




AM 


REP2,4,10 


13046 


11 


13009 


000-4 


19450 




TF 


FREQ2,SX17 


13058 


26 


13081 


12829 


19460 




B 


CD17A,,9 


13070 


49 


1265C 


00-00 


19470 


FREQ2 


OS 




13081 




0 




19480 


CD17B 


CM 


SX17r 104,8, RIGHT PAREN 


13082 


14 


12829 


0-104 


19490 




BE 


C017G 


13094 


46 


1359C 


01200 


19500 




CM 


SX17, 145, 8, E TYPE 


13106 


14 


12829 


0-145 


19510 




BE 


C017H 


13118 


46 


13570 


01200 


19520 




CM 


SX17, 121, 8, SLASH 


13130 


14 


12829 


0-121 


19530 




BE 


C017I 


13142 


46 


13306 


01200 


19540 




CM 


SX17, 144,8, A TYPE 


13154 


14 


12829 


0-144 


19550 




BE 


C017J 


13166 


46 


13326 


01200 
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19560 




CM 


SX17t 149 


»8, 


, I TYPE 


13178 


14 


12829 


C-149 


1957C 




BE 


C017K 






13190 


46 


13466 


G12C0 


19580 




CM 


SX17, 146 


tB 1 


iF TYPE 


13202 


14 


12829 


0-146 


19590 




BE 


CD17L 






13214 


46 


13486 


C1200 


19600 




CM 


SX17, 132 


»8i 


iSEMI COLON 


13226 


14 


12829 


0-132 


1961C 




BE 


CD17SC 






13238 


46 


13674 


012CC 


19620 




CM 


SX17, 124 


f8, 


,LEFT PAREN 


13250 


14 


12829 


C-124 


19630 




BNE 


CD17A,, , 




CMA 


13262 


47 


12650 


C1200 


196A0 


CD17M 


TF 


REP3iA0C0W,, 




SAVE REPEAT ACDRESS 


13274 


26 


13673 


05969 


19650 




SM 


REP3f 1» 10 






13286 


12 


13673 


COO-1 


19660 




B 


C017A 






13298 


49 


1265C 


ccooo 


19670 




DORG 


• -3 






13306 








19680 


CD17I 


BTM 


PUTl7f SLASH 






13306 


17 


1381C 


-3752 


19690 




B 


CD17A 






13316 


49 


12650 


ooooc 


19700 




DGRG 


♦-3 






13326 








19710 


CD17J 


BTM 


PUT17,ATVPE 






13326 


17 


1381C 


-3747 


19720 




BTM 


RMNS 




,SX17 


13338 


17 


04990 


J2829 


19730 




MM 


SX17.2, 10 






13350 


13 


12829 


OOC-2 


197A0 




SF 


97 






13362 


32 


00097 


CCOOO 


19750 




BT 


PUT17C,99 






13374 


27 


13846 


00099 


19760 


C017N 


CM 


FREQ1,0,9, 




PUT FREQ RETURN ADDRESS 


13386 


14 


12925 


00-00 


19770 




BE 


CD17A 






13398 


46 


1265C 


0120C 


19780 




BTM 


PUT17|REP 






13410 


17 


1381C 


-3757 


19790 


C0117 


BT 


PUT17I,REPl 






13422 


27 


13758 


12889 


19800 




BT 


PUT17Bf FREQl 






13434 


27 


13894 


12925 


19810 




TFM 


FREQl«0t9 






13446 


16 


12925 


CO-CC 


19820 




B 


CD17A 






13458 


49 


1265C 


00000 


19830 




00 RG 


•-3 






13466 








198A0 


CDr7K 


BTM 


PUT17,ITYPE 






13466 


17 


13810 


-3762 


19850 




B 


C017J+12 






13478 


49 


13338 


OOOOC 


19860 




OORG 


»-3 






13486 








19870 


C017L 


BTM 


PUT ITfFTYPE 






13486 


17 


1381C 


-3767 


19880 




BTM 


RMNS 


1 


,SX17 


13498 


17 


04990 


J2829 


19890 




BT 


PUT17C»SX17 






13510 


27 


13846 


12829 


19900 




TR 


BGNST-4C 7) 


1 


iBGNST«^l(7) 


13522 


31 


1NRR5 


10—0 


199 10 




BTM 


RMNS 


1 


iSXl7 


13534 


17 


0499C 


J2829 


19920 




BT 


PUTlTBtSXl? 






13546 


27 


13894 


12829 


19930 




B 


CD17N 






13558 


49 


13386 


00000 


19940 


SY17 


OS 


t • 






13569 




C 




19950 


CD17H 


BTM 


PUTlTf ETYPE 






13570 


17 


1381C 


-3772 


19960 




B 


C017L+12 






13582 


49 


13498 


OOOOC 


19970 




DORG 


•-3 






13590 








19980 


CD17G 


CM 


FREQ2,0,9, 




PUT FREQ RETURN ADDRESS 


13590 


14 


13C8I 


00-00 


19990 




BE 


C017A 






13602 


46 


1265C 


C1200 


20000 




TF 


FREQl »FREQ2 






13614 


26 


12925 


13081 


20010 




TF 


REPI.REP2 






13626 


26 


12889 


13009 


20020 




TFM 


FREQ2«0,9 






13638 


16 


13081 


CO-00 


20030 




BTM 


PUT17* REP4 




13650 


17 


1381C 


-3577 


20040 




B 


C01L7 






13662 


49 


13422 


00000 


20050 


REP3 


OS 


** 






13673 




C 




20060 


C017SC 


BTM 


PUT17,RED0 






13674 


17 


1381C 


-3777 


20070 




BT 


PUT17ItREP3 






13686 


27 


13758 


13673 


20080 


CD17XX 


BTM 


ADJUSTtADCOU 


• t 


ADJUST AOCOM TO EVEN ADDRESS 


13698 


17 


03444 


-5969 


20090 




TF 


N40002»SXF 






13710 


26 


03387 


09257 


20100 




BTM 


PUTA 




»«*16 


13722 


17 


07522 


J3738 



20110 DSA SXFtAOCOM 13738 5 X 2 



437 



1620 MONITOR II VERSION 2 FORTRAN II-D 













13738 




-9257 














13743 




-5969 




20120 




B 


CLEAR 




13744 


49 


0264C 


OCOOO 


20130 




OORG 


•-3 




13752 








20140 




OS 


5 




13756 




5 




20150 


PUT17I 


TR 


TYPET 


,TYPECR 


13758 


31 


07675 


08046 


20160 




TFM 


PUT3 


,PUT17I-1 


13770 


16 


08030 


J3757 


20170 




TFM 


PUTX-1 


,•♦20 


13782 


16 


06029 


J3802 


20180 




B7 


PUTXB 




13794 


49 


06114 




20190 




BB2 






13802 


42 






20200 




DS 


5 




13808 




5 




20210 


PUT17 


TR 


TYPET 


,TYPECN 


13810 


31 


07675 


C8061 


20220 




TF 


PUT3 


,PUT17-l 


13822 


26 


0803C 


13809 


20230 




B 


PUT17I*24 




13834 


49 


13782 


00000 


20240 




DS 






13845 




0 




20250 


PUT17C 


TR 


TYPET 


,TYPEK3 


13846 


31 


07675 


13952 


20260 




SF 


PUT17C-3 




13858 


32 


13843 


00000 


20270 




TFM 


PUT3 


,PUT17C-1 


13870 


16 


08030 


J3845 


20280 




B 


PUT17I*24 




13882 


49 


13782 


00000 


20290 




DS 


t« 




13893 




0 




20300 


PUT178 


TR 


TYPET 


,TYPEK2 


13894 


31 


07675 


13937 


20310 




SF 


PUT17B-2 




13906 


32 


13892 


00000 


20320 




TFM 


PUT3 


,PUT17B-1 


13918 


16 


0803C 


J3893 


20330 




B7 


PUT17I*24 




13930 


49 


13782 




20340 


TYPEK2 


DSC 
2 


lt2 




13937 




1 




20350 




DC 


2,2 




13939 




2 




20360 




-2 
DC 


2,5 




13941 




2 




20370 




-5 
DC 


2,10 




13943 




2 








JO 














20380 




DC 


2,11 




13945 




2 








Jl 














20390 




DC 


5,10000 




13950 




5 








JOOOO 












20400 




DC 
1 


l,« 




13951 




1 




20410 


TYPEK3 


DSC 


1,2 




13952 




1 




20420 




2 

DC 


2,3 




13954 




2 




20430 




-3 
DC 


2,6 




13956 




2 




20440 




-6 
DC 


2,11 




13958 




2 




20450 




Jl 
DC 


2,12 




13960 




2 








J2 














20460 




DC 


5,10000 




13965 




5 








JOOOO 












20470 




DC 


I,' 




13966 




1 




20480 




DORG 


14100 




14100 








20490 




DC 


2,2 




14101 




2 




20500 


NUBCCS 


-2 
TFM 


FMON+35 


,BLK5 


14102 


16 


02359 


-8884 
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20510 




BTM 


FMCN 


,SUBCDS 


14114 


17 


02324 


J41C2, 


2052G 


V«UBCAB 


TFH 


FMON+35 


,eLK6 


I4I26 


16 


02359 


-89C8 


20530 




BTM 


FMCN 


,SUBCA8 


14138 


17 


02324 


J4126 


2054C 


WU6C12 


TFM 


FM0N4-35 


fBLK7 


14150 


16 


02359 


-8932 


20550 




BTM 


FMCN 


,SUBC12 


14162 


17 


02324 


J4150 


20560 


WUB128 


TFM 


FMCN* 35 


*BLK8 


14174 


16 


02359 


-8956 


20570 




BTM 


FMCN 


« SUB12B 


14186 


17 


02324 


J4174 


20580 






OUTPUT RETURN 












20590 


FCTRTP 


TDM 


SS2 


.1 


14198 


15 


06634 


COOOl 


20600 




BTM 


SRFCT 


,•♦16 


14210 


17 


03824 


J4226 


206 10 




OS A 


RTNAME 




14226 




5 


X 1 












14226 




-921C 




20620 




OSA 


N400 1 1 




14231 




5 


X 1 












14231 




-3432 




20630 




BTM 


PUTX 


**'*'16 


14232 


17 


C6C3C 


J4248 


20640 




OSA 


TFL 




14248 




5 


X 1 












14248 




-9021 




20650 




OSA 


FACAO 




14253 




5 


X 1 












14253 




-3797 




20660 




OSA 


N40011 




14256 




5 


X 1 












14258 




-3432 




2067C 


N6C182 


CM 


LOXRAO 


tO 


14260 


14 


02394 


-0000 


20680 




BE 


N61A 




14272 


46 


14324 


01200 


20690 




TDM 


SS2 


• 1 


14284 


15 


06634 


CCOOl 


20700 




BTM 


PUTX 


f««16 


14296 


17 


G603C 


J4312 


20710 




DSA 


TR.XRADOfLOXRAO 


14312 




5 


X 3 












14312 




— 901S 














14317 




-2389 














14322 




-2394 




20720 


N61A 


TFM 


SS3 


flOl ,9 


14324 


16 


06635 


00 JO 1 


20730 




TF 


N40012 


tRTAO 


14336 


26 


03437 


C9246 


20740 




SM 


N40012 


• 1 ,10 


14348 


12 


03437 


000-1 


20750 




BTM 


PUTX 


• •♦16 


14360 


17 


06030 


J4376 


20760 




DSA 


B 




14376 




5 


X 1 












14376 




-5974 




20770 




OSA 


N40012 




14381 




5 


X 1 












14381 




-3437 




20780 




OSA 


BLANK 




14386 




5 


X 1 












14386 




-9026 




20790 




B7 


CLEAR 




14388 


49 


0264C 




20800 




OORG 


16002 




16002 








20810 


XBLK2 


OSC 


14*01793606010000 


16002 




14 








01793606010000 












20820 


XZ2X 


34 


XBLK2,701 




16016 


34 


16002 


C0701 


20830 




38 


XBLK2«702 




16028 


38 


16002 


C0702 


20840 




TRA 






16040 


36 


OOOOC 


00500 












16052 


49 


00000 


COOOO 
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20850 




TCD 


XZZX 






16016 








20860 




OORG 


lOOOO 






10000 








20870 




SECONDARY LINKAGE FOR BLOCK 3 












20880 




DC 
-3 


2,3 






10001 




2 




20890 


YODEl 


TFM 


FM0N*35 


,BLK1 




10002 


16 


02359 


-8788 


20900 




BTM 


FMCN 


,C00E1 




10014 


17 


02324 


J0002 


20910 


Y00E3 


TFM 


FMON+35 


,BLK1 




10026 


16 


02359 


-8788 


20920 




BTM 


FMCN 


,C0DE3 




10038 


17 


02324 


J0026 


20930 


Y0DE4 


TFM 


FMON+35 


,BLK1 




10050 


16 


02359 


-8788 


20940 




BTM 


FMCN 


,C00E4 




10062 


17 


02324 


J0050 


20950 


Y00E6 


TFM 


FMON+35 


• 6LK2 




10074 


16 


02359 


-8812 


20960 




BTM 


FMCN 


,C0DE6 




10086 


17 


02324 


J0074 


20970 


Y00E7 


TFM 


FMON+35 


• BLK2 




10098 


16 


02359 


-8812 


20980 




BTM 


FMCN 


,C0DE7 




10110 


17 


C2324 


J0098 


^0990 


YOOES 


TFM 


FMDN*35 


.BLKl 




10122 


16 


02359 


-8788 


21000 




BTM 


FMCN 


•C0DE8 




10134 


17 


02324 


J0122 


21010 


Y0DE9 


TFM 


FMON+35 


• BLK2 




10146 


16 


02359 


-8812 


21020 




BTM 


FMCN 


•C0DE9 




10158 


17 


C2324 


JO 146 


21030 


YqOE12 


B 


SUBC12 






10170 


49 


14150 


00000 


21040 




H 








10182 


48 


OOOOC 


00000 


21050 


YQ0E14 


TOM 


FX 


• 1 




10194 


15 


03562 


COOOl 


21060 




B 


CD14P . 






10206 


49 


10434 


GOOOO 


21070 


YQOEIS 


TFM 


FMON+35 


,BLKl 




10218 


16 


C2359 


-8788 


21080 




BTM 


FMCN 


,C0DE15 




10230 


17 


02324 


J0218 


21090 


YaOE17 


TFM 


FMON+35 


,BLK2 




10242 


16 


02359 


-8812 


21100 




BTM 


FMON 


yCOOElT 




10254 


17 


02324 


J0242 


21110 


YODESS 


B 


SUBCOS 






10266 


49 


14102 


00000 


21120 




H 








10278 


48 


00000 


COOOO 


21130 


YDSSAB 


B 


SUBCAB 






10290 


49 


14126 


COOOO 


21140 




H 








10302 


48 


00000 


GOOOO 


21150 


Y0128 


B 


SUB12B 






10314 


49 


14174 


COOOO 


21160 




H 








10326 


48 


OOOOC 


00000 


21170 


YCTl 


TFM 


FMON+35 


,BLK4 




10338 


16 


02359 


-8860 


21180 




BTM 


FMON 


,FCT1 




10350 


17 


02324 


J0338 


21190 


YCTRT 


TFM 


FMON+35 


,BLK2 




10362 


16 


02359 


-8812 


21200 




BTM 


FMON 


,FCTRT 




10374 


17 


02324 


J0362 


21210 


YOJ 


TFM 


FMON+35 


*6LK4 




10386 


16 


02359 


-8860 


21220 




BTM 


FMON 


,EGJ 




10398 


17 


02324 


J0386 


21230 


YOCALL 


CM 


LV 


• 131 


,8 


10410 


14 


09239 


C-131 


21240 




B 


CDC ALP 






10422 


49 


12632 


OCOOO 


21250 


#«•••« 




OUTPUT 10 STATEMENT 












21260 


C014P 


TDM 


FFRSW 


,0 




10434 


15 


04398 


00000 


21270 




TR 


BGNST-4(7» 


,BGNST+n7) 




10446 


31 


1NRR5 


10— 0 


21280 




TF 


SL 


,BGNST(7) 




10458 


26 


09282 


1NRR9 


21290 




CM 


LV 


• 142 


f6 


10470 


14 


C9239 


C-142 


21300 




BL 


C014JG 






10482 


47 


10952 


01300 


21310 




CM 


LV 


,147 


• 8 


10494 


14 


09239 


C-147 


21320 




BH 


CD14JG 






10506 


46 


10952 


CllOO 


21330 




TOM 


FFRSW 


,1 




10518 


15 


04398 


COOOl 


21340 




TFM 


lONQ 


,127 


,9 


10530 


16 


10649 


0OJ27 


21350 




CM 


LV 


,142 


,8 


10542 


14 


C9239 


0-142 


21360 




BE 


CD14FV 






10554 


46 


10682 


01200 


21370 




CM 


LV 


,143 


,8 


10566 


14 


09239 


C-143 


21380 




BE 


CD14FL 






10578 


46 


10766 


01200 
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21390 




CM 


LV 


tl46 t8 


10590 


14 


09239 


C-146 


214C0 




BE 


CD14RV 




10602 


46 


10872 


01200 


21410 




CM 


LV 


,147 ,8 


10614 


14 


09239 


C-147 


21420 




BE 


CD14RL 




10626 


46 


10892 


C1200 


21430 




SF 


FFRSW 




10636 


32 


04398 


ccooo 


21440 


IQNO 


OS 


, • 




10649 




c 




21450 




CM 


LV 


,144 ,8 


10650 


14 


09239 


0-144 


21460 




BE 


CD14SV 




10662 


46 


10912 


C1200 


21470 




B7 


C014SL 




10674 


49 


1C932 




21480 


CD14FV 


TF 


LV 


, FETCH 


10682 


26 


09239 


12631 


21490 




CM 


SL 


,101 ,8 


10694 


14 


09282 


C-101 


21 500 




BNE 


CD14JW 




10706 


47 


10976 


C1200 


21510 




BTM 


PUTX 


,•♦16 


10718 


17 


C603C 


J0734 


21520 




DSA 


BT,LV,N13092 




10734 




5 


X 3 












10734 




-9053 














10739 




-9239 














10744 




-9040 




21 530 




TR 


BGNST-4(7) 


,BGNST4-1(7) 


10746 


31 


1NRR5 


10 — C 


21 540 




B7 


C014A 




10758 


49 


11202 




21550 


C014FL 


TF 


LV 


, FETCH 


10766 


26 


09239 


12631 


21560 




BTM 


SRFCT 


,•♦16 


10778 


17 


03824 


J0794 


21570 




DSA 


SL.N40004 




10794 




5 


X 2 












10794 




-9282 














10799 




-3397 




21580 




TDM 


SS2 


,1 


10800 


15 


06634 


00001 


21 590 




BTM 


PUTX 


,•♦16 


10812 


17 


C603C 


J0828 


21600 




DSA 


TFL.FACAD,N40004 


10828 




5 


X 3 












10828 




-9021 














10833 




-3797 














10838 




-3397 




21610 




TF 


BGNST(7) 


,FAC 


10840 


26 


1NRR9 


09203 


21620 




BTM 


6NRP 


,•♦12 


10852 


17 


05022 


J0864 


21 630 




B7 


CD14FV>12 




10864 


49 


10694 




21640 


CD14RV 


TF 


LV 


, RECORD 


10872 


26 


09239 


12626 


21650 




B7 


CD14FV*12 




10884 


49 


10694 




21660 


CD14RL 


TF 


LV 


, RECORD 


10892 


26 


09239 


12626 


21670 




B7 


CDUFL«12 




10904 


49 


10778 




21680 


C014SV 


TF 


LV 


,FIN0 


10912 


26 


09239 


12621 


21690 




B7 


CD14FV*12 




10924 


49 


10694 




21700 


CD14SL 


TF 


LV 


• FIND 


10932 


26 


09239 


12621 


21710 




87 


CD14FL4-12 




10944 


49 


10778 




21720 


C014JG 


TFM 


tONO 


il26 .9 


10952 


16 


10649 


00J26 


21730 




BTM 


OPSR 


fLV 


10964 


17 


03488 


-9239 


21740 


C014JW 


BTM 


RMNS 


tSL 


10976 


17 


0499C 


-9282 


21750 




TDM 


SS2 


tl 


10988 


15 


06634 


00001 


21760 






OUTPUT INSTRUCTION FOR 10 DEVICE 










21770 




BTM 


SRFCT 


• •♦16 


11000 


17 


03824 


J1016 


21780 




DSA 


SL 




11016 




5 


X 1 












11016 




-9282 




21790 




DSA 


N40004 




11021 




5 


X 1 












11021 




-3397 
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21800 




BD 


C014FR 


,FFRSW 


11022 


43 


11078 


C4398 


21810 




BO 


C014RM 


,RMSW 


11034 


43 


11114 


C4418 


21820 




BNR 


C014NR 


,5(6) 


11046 


45 


11162 


0—05 


21830 




TFM 


OPY 


•27 ,10 


11058 


16 


12606 


000K7 


21840 




B7 


C014NR+12 


11070 


49 


11174 




21850 


C014FR 


BLXM 


1 EXSUB 


••♦16(2) 


11078 


66 


08304 


11-94 


21860 




DSA 


OPX,LVi 


>N40004 


11094 




5 


X 3 












11094 




-393C 














11099 




-9239 














11104 




-3 397 




21870 




B7 


C014A 




11106 


49 


11202 




21880 


CD14RM 


TF 


N40001 


•ADCOW 


11114 


26 


03382 


C5969 


21890 




AM 


N40001 


•11 •lO 


11126 


11 


03382 


COQJl 


21900 




TF 


SBASE 


•N40001 ,6 


11138 


26 


0416- 


03382 


21910 




TDM 


RMSH 


• 0 


11150 


15 


04418 


COOOO 


21920 


C014NR 


TFM 


OPY 


•17 ,10 


11162 


16 


12606 


C00J7 


21930 




BTM 


PUTX 


• •♦16 


11174 


17 


0603C 


J1190 


21940 




DSA 


0PY,LV, 


iN40004 


11190 




5 


X 3 












11190 




J2606 














11195 




-9239 














11200 




-3397 




21950 


CD14A 


TDM 


101 


• 0 


11202 


15 


08987 


cooco 


21960 




BNF 


• ♦20 


•FFRSW 


11214 


44 


11234 


04398 


21970 




B7 


CLEAR 




11226 


49 


0264C 




21980 




BTM 


RMNS 


• SL 


11234 


17 


04990 


-9282 


21990 




CM 


SL, 


132^8,SEMI COLON 


11246 


14 


09282 


0-132 


22000 




BE 


CD14EN 




11258 


46 


12184 


01200 


22010 




TF 


SL 


,BGNST(7) 


11270 


26 


09282 


1NRR9 


22020 




CM 


SL, 


109,8,00A 


11282 


14 


09282 


0-109 


22030 




BE 


CQDOA 




11294 


46 


12108 


0120C 


22040 




CM 


SL, 


124,8, LEFT PAREN 


11306 


14 


09282 


C-124 


22050 




BE 


CODEPA 




11318 


46 


11764 


01200 


22060 




BTM 


SRFCT 


,•♦16 


11330 


17 


03824 


J 1346 


22070 




DSA 


SL 




11346 




5 


X 1 












11346 




-9282 




22080 




DSA 


SR 




11351 




5 


X 1 












11351 




-2372 




22090 




BD 


COOARR 


,DMSW 


11352 


43 


1 1460 


03998 


221C0 






OUTPUT SIMPLE VARIABLE 








22110 


SIMVAR 


TDM 


SS2 


• 1 


11364 


15 


06634 


COOOl 


22120 




TF 


lONOA 


,I0N0 


11376 


26 


12599 


10649 


22130 




TD 


FX 


,FXORFL 


11388 


25 


03562 


04162 


22140 




BTM 


OPSR 


,ICNOA 


11400 


17 


03488 


J2599 


22150 


C096 


BL XM 


EXSUB 


.•♦16{2» 


11412 


66 


08304 


11M28 


22160 




DSA 


OPX 




11428 




5 


X 1 












11428 




-3930 




22170 




DSA 


lONOA 




11433 




5 


X 1 












11433 




J2599 




2218C 




DSA 


SR 




11438 




5 


X 1 
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11438 -2372 



22190 


CD14C 


TR 


8GNST-4(7) 


,BGNST^l(7l 




1 1440 


31 


1NRR5 


10 — C 


22200 




B7 


C014A 






11452 


49 


11202 




22210 






OUTPUT DIMENSION VARIABLES 


IN IC STATEMENTS 










22220 


COCARR 


TF 


LV 


,BGNST^5(7I 




11460 


26 


09239 


10—4 


22230 




CM 


LV 


• 148 


.8 


11472 


14 


09239 


0-148 


22240 




BL 


CODMAT 






11484 


47 


12276 


01 300 


22250 




BXM 


• ♦12 


,5(7) 




11496 


62 


11508 


C 5 


22260 




TOM 


101 


,1 


fll 


11508 


15 


08987 


GOOOJ 


22270 




CM 


LV 


,148 


,8 


11520 


14 


09239 


0-148 








COSSAB 










1029C 


C1200 


22290 




B7 


COOESS 






11544 


49 


10266 




22300 


CD14B 


TDM 


101 


,0 




11552 


15 


08987 


00000 


22 3 1 0 






FX 


•RXFLAG 












22320 




TF 


lONOA 


, IQNO 




11576 


26 


12599 


1C649 


22330 




BTM 


OPSR 


,ICNOA 




11588 


17 


03488 


J2599 


22 340 


CD94 




C0941 


• XRSW 












22350 




BTM 


PUTX 


f«^16 




11612 


17 


06030 


J1628 


22360 




DSA 


BT 






11628 




5 


X 1 














11628 




-9053 




22370 




DSA 


lONOA 






11633 




5 


X 1 














11633 




J2599 




22380 




DSA 


N13092 






11638 




5 


X 1 














11638 




-904C 




22390 




B7 


C014A 






11640 


49 


11202 






CD941 




• ♦32 


•SPFPSH 










09357 


22410 




TFM 


QPX 


,17 


,10 


11660 


16 


0393C 


C00J7 


22420 




87 


• ♦20 






11672 


49 


11692 




22430 




TFM 


OPX 


,27 


,10 


11680 


16 


0393C 


000K7 


22431 




TD 


PFPSW 


,SPFPSW 




11692 


25 


03928 


09357 


22440 




TDM 


SS2 


,1 




11704 


15 


06634 


CCOOl 


22450 




TD 


SBASE-5 


,XRSM 




11716 


25 


04155 


C9241 


22460 




BLXM 


EXSUB 


,•♦16(2) 




11728 


66 


08304 


11P44 


22470 




DSA 


OPX,I0NQA,SX 






1 1 744 




5 


X 3 














11744 




-393C 
















11749 




J2599 
















11754 




-2377 




22480 




B7 


C014A 






11756 


49 


11202 




22490 


COOEPA 


TFM 


PARCNTf ItlO 






11764 


16 


11891 


CCO-1 


22500 


C014NA 


BXM 


• ♦12 


,5(7» 




11776 


62 


11788 


0 5 


22510 




TF 


SL 


•BGNST(7) 




11788 


26 


09282 


1NRR9 


22520 




CM 


SLfl04,8 






11800 


14 


09282 


C-IC4 


22530 




BNE 


• ♦32 






11812 


47 


11844 


C1200 


22540 




SM 


PARCNT, 1,10 






11824 


12 


11891 


000-1 


22550 




B 


CD14NA 






11836 


49 


11776 


COOCO 


22560 




00 RG 


•-3 






11844 








22570 




CM 


SL,124,8 






11844 


14 


09282 


C-124 


22580 




BNE 


• ♦36 






11856 


47 


11892 


01200 


22590 




AM 


PARCNT, IflO 






11868 


11 


11891 


000-1 


22600 




B 


C014NA 






11880 


49 


11776 


COOOO 


22610 


PARCNT 


OS 


2.» 






11891 




2 




22620 




CM 


SL. 133,8 






11892 


14 


09282 


0-133 
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22630 




BNE 


CD14NA 




11904 


47 


11776 


C1200 


22640 




CM 


PARCNT, 1,10 




11916 


14 


11891 


OOO-I 


22650 




BH 


CD14NA 




11928 


46 


11776 


OIICO 


22660 




AM 


GLNO, 1,10 




11940 


11 


09061 


COO-l 


22670 




TF 


T2,GLNQ 




11952 


26 


09267 


C9061 


22680 




TDM 


(01,1 




11964 


15 


08987 


OOOOl 


22690 




BXM 


C0DE12 


,-15(7» 


11976 


62 


1017C 


0— JN 


22700 


C014E 


TDM 


101,0 




11988 


15 


08987 


CCOOO 


22710 




BXM 


• ♦12 


tl0(7) 


12000 


62 


12012 


0 — JO 


22720 




TR 


BGNST-4{7) 


,BGNST^6(7I 


12012 


31 


1NRR5 


10—5 


22730 




TF 


BGNST(7) 


tOOA 


12024 


26 


1NRR9 


09186 


22740 




BXM 


•♦12 


,5(7) 


12036 


62 


12048 


C— 5 


22750 




TR 


B6NST-4(7> 


,BGNST^1(7) 


12048 


31 


1NRR5 


10— 0 


22760 


CD14NC 


TR 


BGNST-4I7) 


• BGNST^KT) 


12060 


31 


1NRR5 


10— 0 


22770 




CM 


BGNST(7) 


,104 ,9 


12072 


14 


1NRR9 


00J04 


22780 




BNE 


CD14NC 




12084 


47 


12060 


C1200 


22790 




BLXM 


CD14A 


,5(7) 


12(}96 


66 


11202 


0 5 


228C0 


COOOA 


TDM 


101 


.1 


12108 


15 


08987 


00001 


22810 




TF 


T2 


,GLNO 


12120 


26 


09267 


C9061 


22820 




B7 


CD12B 




12132 


49 


10314 




22830 


CD14M 


SM 


GLNO 


tl tlO 


12140 


12 


09C61 


COO-l 


22840 




TDM 


101 


tO 


12152 


15 


08987 


00000 


22850 




TR 


BGNST-4(7» 


,BGNST^6(7) 


12164 


31 


1NRR5 


10—5 


22860 




87 


CD14A 




12176 


49 


11202 




22870 


CD14EN 


BO 


CD14N0 


,FFRSM 


12184 


43 


12244 


04398 


22880 




TF 


N40004 


•lOENO 


12196 


26 


03397 


03802 


22890 




BTM 


PUTX 


,•♦16 


12208 


17 


06030 


J2224 


22900 




DSA 


BTM 




12224 




5 


X 1 












12224 




-5972 




22910 




DSA 


N40004 




12229 




5 


X 1 












12229 




-3397 




22920 




DSA 


ZERO 




12234 




5 


X 1 












12234 




-9023 




22930 




B7 


CLEAR 




12236 


49 


0264C 




22940 


CD14N0 


TF 


N40004 


,OIOENO 


12244 


26 


03397 


12611 


22950 




TDM 


FFRSW 


.0 


12256 


15 


04398 


COOOO 


22960 




87 


CD14EN+24 




12268 


49 


12208 




22970 


•«•••« 




OUTPUT CODING 


FOR COMPLETE MATRICES IN 10 STATEMENTS 










22980 


CODMAT 


80 


SIMVAR 


,S8ASE-5 


12276 


43 


11364 


04155 


22990 




BTM 


PUTX 


,•♦16 


12288 


17 


06030 


J2304 


23000 




DSA 


TFM 




12304 




5 


X 1 












12304 




-9001 




23010 




DSA 


PAR 




12309 




5 


X I 












12309 




-3812 




23020 




OSA 


PI 




12314 




5 


X I 












12314 




-9338 




23030 




BD 


• ♦20 . 


,FXORFL 


12316 


43 


12336 


C4162 


23040 




87 


CMg9 




12328 


49 


12420 




23050 




BNF 


CM98 


,FPSV* 


12336 


44 


12396 


09347 


23060 




TOM 


SSI 


,1 


12348 


15 


06633 


ccqoi 
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BT t* 


PUTX 


,•♦16 


12360 


17 


06030 


J2376 






OS A 


cc CO at A tiitt 




12376 




5 


X 3 












12376 




-9003 














1238 1 




—2372 














12386 




-9026 




23090 




87 


• ♦20 




12388 


49 


12408 




231C0 


CM98 


TDM 


SS4 


»1 


12396 


15 


06636 


00001 








**^^ 


tCOMSW 


12408 


43 


12432 


C3999 






THM 


SS2 


f 1 


12420 


15 


C6634 


COCO 1 


?^ 1 An 




an 




» FFRS W 


12432 


43 


12576 


CA398 


7^ 1 




TC 


M A n nf^ A 


• MAT 


12444 


26 


03397 


03817 


0^1 Art 




RTM 




#•♦16 


12456 


17 


0603C 


J2472 


23160 




OSA 


Ur A t N4(J004 t 


SR 


12472 




5 


X 3 












12472 




-3930 














12477 




-3397 














12482 




-2372 




5ai In 




o5 


• ♦20 


,FXORFL 


12484 


43 


125C4 


04162 


?^ 1 on 










12496 


49 


12556 








RMF 




f FPSW 


12504 


44 


12556 


C9347 


•>^9 1 n 




THM 


SSI 


1 1 


12516 


1 5 


06633 


COOOl 






OTM 

nl* 


PUTX 


f •♦ 16 


12528 


1 7 


C603C 


J2544 


2322C 




OSA 


f* C CD D 1 A Kll^ 




12544 




5 


X 3 












12544 




-9005 














12549 




-2372 














12554 




-9026 




23230 


CM97 


Tr 


DoNST— 4 Iff 




12556 


31 


1NRR5 


IC — 0 


232A0 




87 


CDL4A 




12568 


49 


11202 








TF 


N40004 


• 


12576 


26 


03397 


12616 


23260 




87 


CM99«36 




12588 


49 


12456 




J? 




OS 


5 




12599 




5 




23280 


L VP 


OS 


5 




12604 




5 








OS 


2 




12606 




2 






u menu 


DC 


5,-02298 




12611 




5 








-229Q 












23310 


DRAY 


DC 


5,-02293 




126 16 




5 








-229L 
















DC 


5.-02273 




1262 1 












-227L 
















DC 


5,-02278 




12626 












-227Q 












23340 


FETCH 


DC 


5,-02283 




12631 




5 








-228L 














****** 


CALL EXIT AND 


f*Ai 1 1 t AIM nmiTtAiee 
IfALL LINK KuUTINcS 










23360 




BE 


COXIT 




12632 


46 


13152 


01200 




COL INK 


8XM 


•♦12 


tl5l7l 


12644 


62 


12656 


0— — J5 


23380 




BTM 


RMNS 


tSL 


12656 


17 


0499C 


-9282 


23390 




BTM 


RMNS 


• sx 


12668 


17 


0499C 


-2377 


234C0 




BTM 


RMNS 


.NAME 


12680 


17 


04990 


J3151 


23410 




TF 


NAME-4 


.SX 


12692 


26 


13147 


02377 


23420 




SF 


SL-3 




12704 


32 


09279 


COOOO 


23430 


CDLGT 


OS 


#• 




12715 




C 




23440 




TF 


NAME-8 


tSL 


12716 


26 


13143 


09282 


23450 




TF 


CDLGT 


.ACCOM 


12728 


26 


12715 


05969 



445 
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23460 




TDM 


SS2 


.1 




12740 


15 


06634 


00001 


23470 




AM 


CDLGT 


.50 


.10 


12752 


11 


12715 


OOONC 


23480 




BTM 


PUTX 


,•♦16 




12764 


17 


0603C 


J2780 


23490 




OSA 


TFM,N0T495 


.COLGT 




12780 




5 


X 3 














12780 




-9001 
















12785 




J3117 
















12790 




J2715 




23500 




TF 


CDLGT 


,A0COW 




12792 


26 


12715 


05969 


23510 




TOM 


SS2 


.1 




12804 


15 


06634 


COCCI 


23520 




AM 


CDLGT 


.19 


,10 


12816 


11 


12715 


ccojg 


23530 




BTM 


PUTX 


• •♦16 




12828 


17 


C603C 


J2844 


23540 




OSA 


TFM,N00565 


,COLGT 




12844 




5 


X 3 














12844 




-9001 
















12849 




J3122 
















12854 




J2715 




23550 




BTM 


PUTX 


,•♦16 




12856 


17 


06030 


J2872 


23560 




OSA 


B,N00716,N2THO 




12872 




5 


X 3 














12872 




-5974 
















12877 




J3127 
















12882 




J3132 




23570 




SM 


AOCOM 


.4 


.10 


12884 


12 


05969 


000-4 


23580 




BT 


PUTX2 


• NM22 




12896 


27 


12956 


13134 


23590 




BT 


PUTX17 


•N147RM 




12908 


27 


13008 


13139 


23600 




BT 


PUTX12 


.NAME 




12920 


27 


13052 


13151 


23610 




AM 


ADCOU 


• i 


.10 


12932 


11 


05969 


000-1 


23620 




B 


CLEAR 






12944 


49 


02640 


00000 


23630 




OS 


t* 






12955 




C 




23640 


PUTX2 


TR 


TYPET 


.TYPEM2 




12956 


31 


07675 


13083 


23650 




TFM 


PUT3 


,PUTX2-l 




12968 


16 


0803C 


J2955 


23660 




TFM 


PUTX- I 


,•♦20 




12980 


16 


06029 


J3000 


23670 




B7 


PUTXB 






12992 


49 


06114 




23680 




BB2 








13000 


42 






23690 




OS 


5 






13006 




5 




23700 


PUTX17 


TR 


TYPET 


.TYPECN 




13008 


31 


07675 


08061 


23710 




TFM 


PUT3 


,PUTX17-1 




13020 


16 


0803C 


J3007 


23720 




B 


PUTX2>24 






13032 


49 


1298C 


00000 


23730 




OS 


7 






13050 




7 




23740 


PUTX12 


TR 


TYPET 


•TYPei2 




13052 


31 


07675 


13098 


23750 




TFM 


PUT3 


,PUTX12-1 




13064 


16 


0803C 


J3051 


23760 




B7 


PUTX2^24 






13076 


49 


1298C 




23770 


TYPEM2 


DSC 


lf2 






13083 




1 




23780 




2 

DC 


2,2 






13085 




2 




23790 




-2 
DC 
-5 


2,5 






13087 




2 




23800 




DC 


2,10 






13089 




2 




23810 




JO 

DC 


2,11 






13091 




2 








Jl 
















23820 




DC 


5,10000 






13096 




5 








JOOOO 














23830 




DC 


I.* 






13097 




1 





4 46 
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23840 


rYPE12 


DSC 


lt2 


13098 








23850 




2 

DC 


2,12 


13100 




2 




■ 




J2 












23860 




DC 


2,15 


13102 




2 








J5 












23870 




DC 


2,20 


13104 




2 








KO 












23880 




DC 


2,21 


13106 




2 




23890 




Kl 
DC 


5,10G0C 


13111 




5 








JOOOO 










23900 




DC 
t 


1,' 


13112 




1 




23910 


N07495 


DC 


5,7495 


13117 




5 








-7495 










23920 


N0C565 


OSA 


lORT 


13122 




5 


X 1 










13122 




-0565 




23930 


N007I6 


DSA 


lOCAL 


13127 




5 


X 1 










■ 

13127 




—0716 




23940 


N2TH0 


DC 


5,20000 


13132 




5 








KOOOO 










23950 


NM22 


DC 
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00532 


-7652 


25960 




AM 


PUTXZ 


,3 


.10 


12196 


11 


07665 


COO-3 


25970 




TFM 


PREBUF 


,BUF1 




12208 


16 


08015 


-7710 


25980 




CM 


LNG 


,67 


• 10 


12220 


14 


09327 


00007 


25990 




BNE 


E0JW^24 






12232 


47 


12388 


01200 


26000 




TFM 


lORT 


,•♦23 




12244 


16 


00565 


J2267 


26010 






lOGT 


•CALBLK 


• 7 


12256 


49 


00566 


J3343 


26020 




AN 


CLLBLK 


,3 


,10 


12268 


11 


13356 


000-3 


26030 


EOJWG 


AM 


PREBUF 


,4 


,10 


12280 


11 


08015 


000-4 


26040 




A 


PREBUF 


,ADCOW 


,6 


12292 


21 


0801N 


05969 


26050 




AM 


PREBUF 


,3 


.10 


12304 


11 


08015 


COO-3 


26060 




TF 


LNG 


, PREBUF 


,11 


12316 


26 


C9327 


0801N 


26070 




AM 


PREBUF 


,68 


.10 


12328 


11 


08015 


00008 


26080 




CM 


PREBUF 


,BUF4^75 




12340 


14 


08015 


-801C 


26090 




BE 


EOJG+24 






12352 


46 


12160 


C1200 


26100 


EOJW 


CM 


LNG 


,67 


,10 


12364 


14 


09327 


C0007 


26110 




BE 


EOJWG 






12376 


46 


12280 


01200 


26120 




AM 


PREBUF 


,74 


,10 


12388 


11 


08015 


C00P4 


26130 




TF 


PREBUF 


,SIX92 


,6 


12400 


26 


0801N 


13222 


26140 




TFM 


lORT 


,•♦23 




12412 


16 


00565 


J2435 


26150 




B 


lOPT 


,PUTXX 


,7 


12424 


49 


00532 


-7652 


26160 




BO 


EOJSTN 


,PUSTSN 




12436 


43 


12772 


02294 


26170 


EOJEND 


AM 


AOCOW 


,1 


,10 


12448 


11 


05969 


COO-1 


26180 




TF 


LENGTH 


, AOCOW 




12460 


26 


02248 


05969 


26190 




TR 


FCTSW 


,GRBAGE 




12472 


31 


02293 


13294 


26200 




TF 


SCNT 


,LOCOM 




12484 


26 


09361 


02262 


26210 




MM 


LOCOH 


,5 


,10 


12496 


13 


02262 


COO-5 


26220 




BD 


• ♦20 


,99 




12508 


43 


12528 


C0099 


26230 




87 


• ♦20 






12520 


49 


12540 




26240 




SM 


LOCOH 


,1 


.10 


12528 


12 


02262 


COO-1 


26250 




TFM 


lORT 


,•♦23 




12540 


16 


00565 


J2563 


26260 




B 


lOPT 


,5ECT0 


,7 


12552 


49 


00532 


J3320 


26270 




TD 


• ♦21 


, JAY 




12564 


25 


12585 


02367 



45 2 
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II VERS 


26280 




CM 


• ♦9 




262S0 




BE 


ARNOT 




26300 




BD 


ARNOT 


tERSWT 


26310 




CF 


457 




26320 




TD 


SYSCAL 


t JAY 


26330 


LH I 


RCTY 






26340 




MNTY 


ADCQW-4 




26350 




WATY 


USEOCR 




26360 




RCTY 






26370 




WNTY 


SCNT~4 




26380 




MATY 


LCOMAO 




26390 




RCTY 






26400 




WATY 


ENOMES 




2641C 




BV 


• ♦12 




26420 




87 


MONCAL 




26430 


ARNOT 


TDM 


SYSCAL 


,2 


26440 




87 


LHl 




26450 


EOJSTN 


TD 


»*2l 


f PUSTSN 


26460 




CM 


#4-9 


,2 


26470 




BNE 


EOTGNY 




26480 




TFM 


TSW 


,1 


26490 




B7 


EOPETE 




26500 


EOTONV 


TFM 


TSH 


1 10 


26510 




TR 


INPUT^IO 


tSVTYNB 


26520 


EOPETE 


AM 


FCTEND 


,5 


26530 




BNF 


EOROD 


, FCTEND 


26540 




TDM 


FCTEND 


t8 


26550 




TF 


INPUT-t-9 


, FCTEND 


26560 




CF 


INPUT*6 




26570 




TDM 


FCTEND 


t4 


26580 




TF 


INPUT4-4 


tFCTEND 


26590 




CF 


INPUT 




26600 




BD 


CDPCH 


tCSU 


26610 




TDM 


INPUT^IO 




26620 




DC 


1 > * *• 




26621 




TD 


INPUT^S 




26630 


EOJRIT 


HNPT 


INPUT 




26640 




UNPT 


INPUT46 




26650 




SM 


FCTEND 


* 10 


26660 




c 


FCTEND 


tTBASE 


26670 




BNL 


EOPETE 




26680 




87 


EOJEND 




26690 


EQROO 


SM 


FCTEND 


f 15 


26700 




87 


E0JRIT*36 




26710 


COPCH 


TD 


INPUT*5 


.SVTYNB 


26720 




WNCO 


INPUT 




26730 




87 


E0JRIT*24 




26740 


USEDCR 


OAC 


8, LENGTH* 





VERSION 2 FORTRAN II-D 



LENGTH* 

26750 LCOMAO DAC 13, NEXT COMMON' 

NEXT COMMON* 
26760 CSW OS 1 
26770 TSH OS 1 
26780 NINERM DC 6,99999* 
R9999* 



tBlO 


12576 


14 


12585 


Q_0— i% 




12588 


46 


12752 


01200 




12600 


43 


12752 


09351 




12612 


33 


00457 


C COCO 




12624 


25 


C0475 


02 367 




1 2636 


34 


00000 


00102 




1 2648 


38 


05965 


00100 




12660 


39 


131C5 


00100 




12672 


34 


00000 


00 102 




12684 


36 


09357 


00100 




12696 


39 


13121 


CO 100 




12706 


34 


OOOOC 


00102 




12720 


39 


13385 


00100 




12732 


46 


12744 


01400 




12744 


49 


C0796 






12752 


15 


00475 


00002 




12764 


49 


12636 






12772 


25 


12793 


02294 


tBlG 


12784 


14 


12793 


0— 0—2 




12796 


47 


12828 


01200 


tlO 


12808 


16 


13147 


000-1 




12820 


49 


12852 




1 10 


12828 


16 


13147 


GOOJO 




12840 


31 


0940C 


13223 


,10 


12852 


XI 


02318 


000-5 


• 11 


12864 


44 


13052 


G231Q 




12876 


15 


02318 


00008 


til 


12888 


26 


09399 


C231Q 




12900 


33 


C9396 


00000 




12912 


15 


02316 


00004 


til 


12924 


26 


09394 


02310 




12936 


33 


0939C 


coooo 




12948 


43 


13072 


13146 




12960 


15 


09400 


ccnnci 




12971 




I 






12972 


25 


09395 


12971 




12984 


38 


09390 


CC200 




12996 


38 


09396 


CC200 


tiO 


13008 


12 


02318 


CCOJO 




13020 


24 


C2316 


02303 




13032 


46 


12852 


01300 




13044 


49 


12448 




tie 


13052 


12 


02318 


C00J5 




13064 


49 


13020 






1 3072 


25 


09395 


1 3223 




13084 


38 


09390 


C0400 




13096 


49 


13008 






13105 




8 


X 2 




13121 




13 


X 2 




13146 




1 






13147 




1 






13153 




6 
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26790 




DSC 


SOtO 


13154 






OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOOOOOOOOOOO 




26800 




DSC 


18*0 


13204 






000000000000000000 




26810 


SIX9Z 


DSC 
0 


1,0 


13222 


26820 


SVTYNB 


DNB 


1 


13223 


26830 




DNB 


50 


13273 


26840 




DNB 


19 


13292 


26850 




DC 
• 


l.« 


13293 


26860 


GRBAGE 


OS 


t»*l 


13294 


26870 




DC 


6,-0002 


13299 






-OOOOK 


26880 




DC 


19,1701234567891234567 


13318 






J701 234567891234567 


26890 




06M 




13319 


269G0 


SECTO 


OSC 


2,0 


13320 






00 




26910 




OS A 


SECTY 


13326 










133^6 


26920 




DC 


l.» 


13327 


26930 


SECTY 


DSC 
0 


1,0 


13328 


26940 




DC 


5,0 


13333 






-0000 




26950 




DC 


3,1 


13336 






-01 






26960 




OSA 


HEADER 


13341 










13341 


26970 




DC 
• 


It* 


13342 


26980 


CALBLK 


OSC 
02 


2,2 


13343 


26990 




OSA 


CALLBK 


13349 










13349 


27000 




DC 
• 




13350 


27010 


CALL6K 


OSC 
0 


1,0 


13351 


27020 


CLLBLK 


DC 


5,0 


13356 






-0000 


27030 




DC 


3,3 


13359 






-03 






27040 




OSA 


8UF1 


13364 










13364 


27G50 




DC 
1 


I,* 


13365 


2706C 


SARGSW 


OS 


1 


13366 


27C7C 


SUBCOW 


DS 


5 


13371 


27080 


BCCW 


OS 


5 


13376 



50 
18 
1 

1 

5C 
19 
1 

C 
6 



J3328 
1 

I 

5 

3 

5 X 
-2218 

2 

5 X 

J3351 
1 

1 

5 

' 3 
5 X 



-7710 
1 

1 

5 
5 
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DC 


2,45 




13 8 








71 1 nn 


GNE2 


MS 
DC 
-I 


2,1 








2 




27110 


FOUR 


DC 


2,4 




13382 




2 




27120 


_ _ _ 


-4 
DAC 


19, END OF COMPILATION* 


13385 




1 9 


X 






END 


OF COMPILATION* 












27130 




DORG 


160C2 




16002 








271A0 


XBLK4 


DSC 


14,01804104110000 


16002 




14 








01804104110000 












27150 


X vvx 


TO 


SECT0-1,GM 




16016 


25 


13319 








34 


XBLK4,701 










00701 


27170 




38 


XBLK4,702 




16040 


38 


16002 


C07C2 


27180 




TRA 






16052 


36 


OOOCC 


00500 














49 


CCCCC 


UUUUu 


* 




TCD 


XVVX 




16016 








27200 




DORG 


14100 












27210 




TERTIARY LINKAGE 


: BLOCK 6 










27220 




DC 


2t6 




14101 








27230 




-6 
TFM 


FM0N*35 


■ 

iBLKS 


14102 


16 


02359 


"8884 






BTM 


FMON 


•SUBCOS 




17 






27250 


XUHC AO 


TR 


BGNST— 4 (71 


fBGNST-*-!! (7) 


14126 


31 


INRR5 


tO-JO 


27260 




B 


SCABP 




14138 


49 


14198 


COOOO 


27270 


XUBC12 


TFM 


FMON* 35 


tBLK7 


14150 


16 


02359 


-8932 


27280 




BTM 


FMON 


tSUBCl2 


14162 


17 


02324 




27290 


XUB 128 


TFM 


FMaN>35 


ffBLKS 


1 ^ 1 OA 












BTM 


FMON 


fSUBl2B 




IT 




J4174 






TF 


sx 


f B6NST-"5( 7) 


14198 


26 


02377 


1NRR4 






BTM 


SRFCT 


,•♦16 


14210 


17 


03824 


J4226 


27330 




OS A 


SX,SX 




14226 






X 2 












_ 




■"2377 














14231 








273*0 




TOM 


SKIPSW 


tl 


14232 


15 


09349 


CCOOl 


27350 




TO 


RXFLAG 


ffFXORFL 


14244 


25 


04368 


C4162 


27360 


C0A6Z 


BD 


• ♦32 


,FXORFL 














TF 


L 


,FP2 




9A 


OAftl 7 








87 


CDABH 






49 


14300 








TF 


L 


tK 


t Aa^n 


26 


0601 7 


02252 


27*00 


CuABW 


BTM 


CANDS 


,•♦16 




^ 


08100 


J4316 


27410 




OSA 


D4,SY 




14310 


















143 16 




—6009 






















27420 




CF 


04 




14322 


33 


06009 


finnnn 


27430 




M 


04 


tL 


14334 


23 


06009 


C6017 


27440 




MA 


04 


.99 


14346 


70 


C60C9 


C0099 


27450 


COSABl 


BD 


C0SAB7 


,IC1 


14358 


43 


14406 


08987 


27460 




BNF 


CDSABX 


• FPSW 


14370 


44 


14766 


09347 


27470 




BNF 


C0SAB7+12 


tFSW 


14382 


44 


14416 


08986 


27480 




BTM 


6NRP 


,•♦12 


14394 


17 


05022 


J4406 


27490 


C0SAB7 


BNF 


CDSABX 


,FPSW 


14406 


44 


14766 


C9347 


27500 




TDM 


SSI 




14418 


15 


06633 


00001 












455 
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27510 




TF 


N40005 


lAOCOU 




14430 


26 


03402 


C5969 


27520 




AM 


N40005 


t35 


tlO 


14442 


11 


03402 


00OL5 


27530 




BTM 


PUTX 


,•♦16 




14454 


17 


C6030 


J4470 


27540 




OSA 


TFM,N40005,04 






14470 




5 


X 3 














14470 




-9001 
















14475 




-3402 
















14480 




-6009 




27550 




B7 


C0SAB8 






14482 


49 


14658 




27560 


C0SA85 


TO 


FX 


, RXFLAG 




14490 


25 


03562 


04368 


27570 




TF 


N40005 


,IONO 




14502 


26 


03402 


10649 


27580 




BTM 


OPSR 


,N40005 




14514 


17 


03488 


-3402 


27590 


CDSAB4 


TFM 


OPX 


,17 


,10 


14526 


16 


C393C 


CC0J7 


27600 


CDSAB3 


BXM 


• ♦12 


,-5(7» 




14538 


62 


14550 


0 N 


27610 




CM 


BGNST^5(7) 


.133 


.9 


14550 


14 


10—4 


CO J 33 


27620 




BE 


CDABU 






14562 


46 


1491C 


C1200 


27630 




BTM 


PUTX 


,•♦16 




14574 


17 


C603C 


J459C 


27640 




OSA 


OPX,N40005,D4 






14590 




5 


X 3 














14590 




-3930 
















14595 




-3402 
















14600 




-6009 




27650 




BNF 


COABP 


,101 




14602 


44 


14994 


08987 


27660 




TDM 


SKIPSM 


.0 




14614 


15 


09349 


COOOO 


27670 




TR 


BGNST-4(7) 


,66NST^1(7) 




14626 


31 


1NRR5 


10 — 0 


27680 




TOM 


101 


tO 




14638 


15 


08987 


00000 


27690 




B7 


C014A 






14650 


49 


11202 




27700 


C0SAB8 


TFM 


SS2 


.11 


,10 


14658 


16 


06634 


CCOJl 


27710 




BTM 


PUTX 


,•♦16 




14670 


17 


C603C 


J4686 


27720 




OSA 


AOD,N40005,SX 






14686 




5 


X 3 














14686 




-9063 
















14691 




-3402 
















14696 




-2377 




27730 




BO 


FPCL 


,CALLSH 




14698 


43 


14878 


C8992 


27740 




TF 


04 


.BLANK 




14710 


26 


060C9 


09026 


27750 




BO 


C0SAB5 


.101 




14722 


43 


1449C 


08987 


27760 




TF 


N40Q05 


•FACAO 




14734 


26 


03402 


03797 


27770 




TFM 


OPX 


.6 


.10 


14746 


16 


03930 


000-6 


27780 




87 


C0SAB3 






14758 


49 


14538 




27790 


CDSABX 


A 


04 


.SX 




14766 


21 


06009 


02377 


27800 




BO 


CDSABZ 


.101 




14778 


43 


14858 


08987 


27810 




BXM 


•♦12 


,-517) 




14790 


62 


148C2 


0— N 


27820 




TF 


XR5 


,XR7 




14802 


26 


00329 


00339 


27830 




TF 


TCOW 


.04 




14814 


26 


05961 


06009 


27840 




TOM 


GTSBSW 


.1 


.11 


14826 


15 


06023 


OOOOJ 


27850 




TFM 


GNRP-l 


.CDABXT 




14838 


16 


05021 


J5086 


27860 




B7 


GYES-24 






14850 


49 


05082 




27870 


CDSAB2 


TOM 


SS2 


.1 




14858 


15 


06634 


COdOl 


27880 




87 


CDSAB5 






14870 


49 


14490 




27890 


FPCL 


TF 


N40005 


.FACAO 




14878 


26 


03402 


03797 


27900 




TFM 


OPX 


.16 


,10 


14890 


16 


0393C 


C0OJ6 


27910 




B7 


CDSAB3 






14902 


49 


14538 




27920 


CDABU 


TDM 


RSW 


,1 


,11 


14910 


15 


08997 


OOOOJ 


27930 




TO 


RFLAG 


, RXFLAG 




14922 


25 


04358 


C4368 


27940 




BTM 


PUTX 


.•+16 




14934 


17 


0603C 


J 49 50 
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27950 




OS A 


TFMtFACA0«D4 






14950 




5 


X 3 














14950 




-9001 
















14955 




-3797 
















14960 




-6009 




27960 




TF 


8GNST (7 ) 


fFAC 




14962 


26 


1NRR9 


C9203 


27970 




BTH 


GNRP 


»«+12 




14974 


17 


05022 


J4986 


27980 




B7 


COABX T 






14986 


49 


15086 




27990 


COABP 


TF 


BGNST ( 7 ) 


fFAC 




14994 


26 


1NRR9 


09203 


28000 




TDM 


FSW 


, I 


» 1 1 


15006 


15 


08986 


COOOJ 


28010 




TO 


FLAGSW 


fRXFLAG 




15018 


25 


04428 


C4368 


28020 




BNF 


COABXT 


tFPSW 




15030 


44 


15086 


09347 


28030 




BD 


• *20 


tCALLSh 




15042 


43 


15062 


C8992 


28040 




B7 


COABXT 






15054 


49 


15086 




28050 




BTM 


GNRP 


.•♦12 




15062 


17 


05022 


J5074 


28060 




SF 


0(6) 






15074 


32 


0 — 00 


00000 


28070 


COABXT 


TOM 


SKtPSW 


,0 




15086 


15 


09349 


COOOO 


28080 




B7 


EXIT 






15098 


49 


02928 




28090 


GTFIN 


TD 


1(61 


iRXFLAG 




15106 


25 


0 — 01 


04368 


28 100 




TDM 


4(6) 


tl 




15118 


15 


0 — 04 


COOOl 


28110 




TF 


0(6) 


«TC0W 




15130 


26 


0 — 00 


05961 


28120 




87 


GTJM 






15142 


49 


05542 




28130 




OORG 


16002 






16002 








28140 


XBLK6 


DSC 


14»01808201914100 




16002 




14 








01808201914100 














28150 


xuux 


34 


XBLK6.701 






16016 


34 


16002 


C0701 


28160 




38 


XBLK6.702 






16028 


38 


16002 


00702 


28170 




TRA 








16040 


36 


00000 


CC500 














16052 


49 


OOOOC 


COOOO 


28180 




TCD 


XUUX 






16016 








28190 




OORG 


14100 






14100 








28200 




TERTIARY LINKAGE BLOCK 7 












28210 




OC 


2,7 






14101 




2 




28220 


YUBCOS 


-7 
TFM 


FMON*35 


• BLK5 




14102 


16 


€2359 


-8884 


28230 




BTM 


FMON 


tSUBCOS 




14114 


17 


02324 


J4102 


28240 


YUBCAB 


TFM 


FMON+35 


• BLK6 




14126 


16 


02359 


-8908 


28250 




BTM 


FMON 


•SUBCAB 




14138 


17 


02324 


J4126 


28260 


YUBC 12 


TF 


XR5 


,XR7 




14150 


26 


00329 


00339 


28270 




B 


CD12P 






14162 


49 


14198 


COOOO 


28280 


YUB12B 


TFM 


FMON+35 


tBLKB 




14174 


16 


02359 


-8956 


28290 




BTM 


FMON 


,SUBI2B 




14186 


17 


02324 


J4174 


28300 






OUTPUT INITIALIZING INSTRUCT! 


[ON FOR DO COOING AND PLACE 










28310 


••••*« 


INOICIES ON DO 


LIST 












28320 


C012P 


BXM 


• ♦12 


.5(5) 




14198 


62 


1421C 


C-O-5 


28330 




BD 


C012C 


.101 




14210 


43 


14246 


08987 


28340 




TF 


T2 


,BGNST(5) 




14222 


26 


09267 


1N9R9 


28350 




SF 


T2-3 






14234 


32 


09264 


COOOO 


28360 


CD12C 


AM 


OOREF 


• 21 


.10 


14246 


11 


03597 


OOOKl 


28370 




C 


OOREF 


.G6ASE 




14258 


24 


03597 


09324 


28380 




BNH 


C012E 






14270 


47 


14342 


CHOC 


28390 




BTM 


ERRT 


, OFLMS 




14282 


17 


08736 


J4315 


28400 




BV 


• ♦12 






14294 


46 


14306 


01400 


28410 




87 


MONCAL 






14306 


49 


00796 




28420 


OFLMS 


OAC 


14.00 TABLE 


FULL» 




14315 




14 


X 2 



00 TABLE FULL* 

45 7 
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28430 


CD12E 


TF 


OOMAX 




.OOREF 


14342 


26 


03627 


03597 


28440 




AM 


DOMAX 




.21 .10 


14354 


11 


03627 


COOKl 


28450 




TF 


OOREF 




.T2 .6 


14366 


26 


0359P 


09267 


28460 




BXM 


• ♦12 




.5(5) 


14378 


62 


14390 


0-0-5 


28470 




TF 


SL 




.BGNST(5) 


14390 


26 


09282 


IN9R9 


28480 




SF 


SL-3 






14402 


32 


09279 


COOOO 


28490 




BLX 


• ♦12 




,00REF(4) 


14414 


65 


14426 


0L597 


28500 




TF 


9(4) 




»SL 


14426 


26 


C-009 


09282 


28510 




BXM 


• ♦12 




.10(5) 


14438 


62 


14450 


0-OJC 


28520 




TF 


SR 




.BGNST(5) 


14450 


26 


02372 


1N9R9 


28530 




TFM 


SS2 




til ,10 


14462 


16 


06634 


OOOJl 


28540 




TDM 


SKIPSH 




,1 


14474 


15 


09349 


00001 


28550 




BTM 


SRFCT 




,•♦16 


14486 


17 


03824 


J4502 


28560 




OSA 


SL 






14502 




5 


X 1 














14502 




-9282 




28570 




DSA 


N40001 






14507 




5 


X 1 


28580 












14507 




-3382 






BTM 


SRFCT 




,•♦16 


14508 


17 


03824 


J4524 


28590 




OSA 


SR 






14524 




5 


X 1 














14524 




-2372 




28600 




DSA 


N40003 






14529 




5 


X 1 














14529 




-3392 




28610 




BTM 


PUTX 




,•♦16 


14530 


17 


C6C3C 


J4546 


28620 




OSA 


TF 






14546 




5 


X 1 














14546 




-9007 




28630 




DSA 


N40001 






14551 




5 


X I 














14551 




-3382 




28640 




OSA 


N40003 






14556 




5 


X I 














14556 




-3392 




28650 




TOM 


SKIPSW 




.0 


14558 


15 


09349 


COOOO 


28660 




TF 


5(4) 




.AOCOW 


14570 


26 


0-005 


05969 


28670 




BXM 


• ♦12 




.10(5) 


14582 


62 


14594 


0-OJO 


28680 




TF 


N40001 




,BGNST(5) 


14594 


26 


03382 


1N9R9 


28690 




SF 


N40001-3 






14606 


32 


03379 


COOOO 


28700 




TF 


13(4) 




.N40001 


14618 


26 


0-013 


03382 


28710 




BXM 


• ♦12 




• 5(5) 


14630 


62 


14642 


0-0-5 


28720 




TF 


SL 




.BGNST(5) 


14642 


26 


09282 


1N9R9 


28730 




CM 


SL. 


132 


•8. SEMI COLON 


14654 


14 


09282 


C-132 


28740 




BE 


N60084 






14666 


46 


14702 


01200 


28750 




CM 


SL. 


104 


,8. RIGHT PAREN 


14678 


14 


09282 


0-104 


28760 




BNE 


N60085 






14690 


47 


14734 


01200 


28770 


N 600 8 4 


TF 


17(4) 




.ZERG4 


14702 


26 


0-017 


09025 


28780 




BD 


C014E 




,IC1 


14714 


43 


11998 


C8987 


28790 


C012A 


8 


CLEAR 






14726 


49 


C2640 


00000 


28800 




OORG 


•-3 






14734 








28810 


N 600 8 5 


BXM 


• ♦12 




,5(5) 


14734 


62 


14746 


C-O-5 


28820 




TF 


N40003 




,BGNST(5» 


14746 


26 


03392 


1N9R9 


28830 




CM 


N40003 




.120 .9 


14758 


14 


03392 


0OJ20 


28840 




BNE 


• ♦48 






14770 


47 


14818 


01200 



458 
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TR 














100— c 


2886C 




TF 


N40003 


,BGNST(5I 








C3392 




28870 




SF 


N40003 






"2^1 p 








28880 




SF 


N40003-3 












i> ri p r\n 


28890 




TF 


17(4) 


,N40003 






1q 


0 017 




289CC 




B 


CD12A-12 








49 


14714 


uUULu 


28910 




DORG 


*-3 






14850 








28920 




DORG 


16002 






16C02 








28930 


XBLK? 


DSC 


14,01810101914100 




16002 




14 








01810101914100 














28940 


X r Tx 


34 


XBLK7,701 






16016 


34 


16002 


CC70 1 


28950 




38 


XBLK7.702 






16028 


38 


16002 


C0702 


28960 




TRA 








16040 


36 


OOOOC 


00500 














1 ^r?f 


49 


UUUUU 




_____ 




TCD 


XTTX 






16016 








_- _ - 




□ORG 


14100 






14100 








g 




TERTIARY LINKAGE BLOCK 8 
















DC 


2»8 






■ 

14 101 




2 




290 10 


_ ___ 


-8 
TFM 


FMON+35 


tBLKS 




14 102 


16 


02359 


-8884 


29020 




BTM 


FMON 


f SUBCDS 






ll 




J41C2 


29030 




TFM 


FMON+35 


tBLK6 




1 a!i 








29040 




BTM 


FMON 


f SUBCAB 




14 138 


17 


02324 


J4l26 




_..__ . _ 


TFM 


FMON+35 


f BLK7 




14150 


16 


02359 


-8932 


29060 




BTM 


FMON 


tSUBC12 




14 162 


17 


02324 




29070 


ZU812B 


BD 


UUl2DP-t'24 


t lOl 




14174 




1 Ofl 


08987 


29080 




B 


CD12BP 






14186 


Aa 
49 


14198 


f\f\nnn 
UUuUU 


29090 


•«««•« 




THE FOLLOWING 


OUTPUTS THE 


TFCT AT TUP CMfi nc A nn 1 nnD 












rni 7RP 




T2 


tT3 




26 




09343 


291 10 




TDM 


DOSW 


tO 




14210 




1 aqIt 


UUwUU 


29120 




TF 


DOTEMP 


.OOREF 




14222 


26 




03597 


29 130 




TDM 


CKSW 


f 1 
















TDM 


SKIPSW 


f 1 




14246 


15 


09349 


0000 1 


291 50 


CD12Y 


C 


T2 


tOOREF 






ft 


?^AAfl 




29160 




BNE 


C012X 






1 A3Tn 


*^ 


1 t^oA 


ni rq? 


29170 


CD12D 


BLX 


• ♦12 


•DGREFI4) 




1 A9n7 


*^ 




« 






TF 


SL 


•17(41 




14294 


26 


09282 


0—017 


29 190 




MF 


F6BIT 


• SL 




1 A^?a 


Ia 






29200 




CM 


SL 


» 






14 


09282 


0-000 




_-_ . _ 


OS 


t»-4 






1 2a^n 








29220 




TDM 


SKIPSW 


• 1 












29230 




TFM 


N40005 


• 1100 






1 A 




1 1 nn 






BE 


N60092 






» 7«7 
14354 


46 


14568 


C1200 


29250 




BNF 


CD12AA 


•FGBIT 












29260 




TFM 


OPZ 


• 22 


• 10 


14378 


16 


09346 


CC0K2 


29270 




TFM 


OPW 


• 46 


• 10 


14390 


16 


14922 


000M6 


29280 




TFM 


N40005 


• 1300 






16 




-1300 


29290 




87 


C012BB 






14414 


49 


14446 




29300 


C012AA 


TFM 


OPl 


• 21 


• 10 


14422 


16 


09346 


COOKl 


29310 




TFM 


OPW 


• 47 


• 10 


14434 


16 


14922 


C00M7 


29320 


G012BB 


BTM 


SRFCT 


• •♦16 




14446 


17 


03824 


J4462 


29330 




OSA 


SL 






14462 




5 


X 1 














14462 




-9282 




29340 




OSA 


N40001 






14467 




5 


X 1 



450 
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29350 




TDM 


SS2 


• 1 


29360 




B 


N60095 




29370 




DORG 


•-3 




29380 


C012X 


TDM 


CKSW 


• 0 


29390 




BTM 


ERRT 


•DOMES 


29400 




TOM 


ERSWT 




29410 




SM 


DOREF 


• 21 


29420 




CM 


DOREF 


•OOBASE 


29430 




BL 


EXITA 




29440 




B 


C012Y 




29450 




DORG 


•-3 




29460 


N60092 


TFM 


OPZ 


• U 


29470 




TFM 


OPW 


• 47 


29480 




TFM 


N40001 


• 1 


29490 


N60095 


TF 


SL 


• 9(4) 


29500 




BTM 


SRFCT 


• •♦16 


29510 




OSA 


SL 





29530 
29540 
29550 



29560 
29570 
29580 



29600 
29610 
29620 



29630 
29640 
29650 
29660 



29670 
29680 
29690 



OSA N40004 



TOM SSI •! 
BTM PUTX ••♦16 
OSA OPZ^N40004^N40G01 



TF SL 
BTM SRFCT 
DSA SL 



OSA N40001 



•13(4) 
• •♦16 



TFM SS2 •ll 
BTM PUTX ••♦16 
OSA C^N4C004^N40001 



TF N40004 ,5(4) 

TDM SSI ,1 

BTM PUTX ,•♦16 

DSA OPW,N40004,N400CS 



SM DOREF 
C DOREF 
BE N601C7 



,21 

•DCBASE 





14467 




-3382 






14468 


15 


06634 


OGOOl 




14480 


49 


14604 


OCCCO 




14488 










14488 


15 


04438 


coooc 




14500 


17 


08736 


-9099 




14512 


15 


09351 


00001 


• 10 


14524 


12 


03597 


CCOKl 




14536 


14 


03597 


-3657 




14548 


47 


14912 


01300 




14560 


49 


14258 


CCOOO 




14568 








• 10 


14568 


16 


09346 


COOJl 


• 10 


14580 


16 


14922 


000M7 


• 10 


14592 


16 


03382 


COO-1 




14604 


26 


09282 


C-009 




14616 


17 


03824 


J4632 




14632 




5 


X I 




14632 




-9282 






14637 




5 


X 1 




14637 




-3397 






14638 


15 


06633 


CCOOl 




14650 


17 


C603C 


J4666 




14666 




5 


X 3 




14666 




-9346 






14671 




-3397 






14676 




-3382 






14678 


26 


09282 


0-013 




14690 


17 


03824 


J4706 




14706 




5 


X 1 




14706 




-9282 






14711 




5 


X 1 




14711 




-3382 




• 10 


14712 


16 


06634 


COOJl 




14724 


17 


0603C 


J4740 




14740 




5 


X 3 




14740 




-9291 






14745 




-3397 






14750 




-3382 






14752 


26 


03397 


0-005 




14764 


15 


06633 


CCOOl 




14776 


17 


0603C 


J4792 




14792 




5 


X 3 




14792 




J4922 






14797 




-3397 






14802 




-3402 




• 10 


14804 


12 


03597 


GCOKl 




14816 


24 


03597 


C3657 




14828 


46 


14868 


C12C0 



40 « 
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29700 




TF 


N40003 


.DCREF 


14840 


26 


C3392 


C3597 


29710 




AM 


N40003 


t21 tic 


14852 


11 


C33S2 


CCOKl 


29720 




C 


DOREF 


tN40003 t611 


14864 


24 


0359P 


0339K 


29730 




BE 


CD12D 




14876 


46 


14282 


C12CC 


297^*0 


N6CIC7 


BD 


• ♦24 


tCKSM 


14868 


43 


14912 


C4438 


29750 




TF 


DOREF 


fOCTEHP 


14900 


26 


C3597 


14947 


29760 


EXITA 


TDH 


SKIPSH 


»o 


14912 


15 


09349 


00000 


29770 


OPVi 


DS 


f 




14922 




0 




29780 




BD 


CDl4f 


f ICl 


14924 


43 


1214C 


08987 


29790 




B7 


CLEAR 




14936 


49 


0264C 




298C0 


COTEMP 


DS 


5 




14947 




5 




29810 




OQRG 


16002 




16002 








29820 


XHLK8 


DSC 


14.01812001914100 


16002 




14 








01812001914100 












29830 


X s sx 


34 


XBLK8»701 




16016 


34 


16002 


00701 


29840 




38 


XBLK8«702 




16028 


38 


16002 


C0702 


29850 




TRA 






16040 


36 


OOOOC 


CC500 












16C52 


49 


COOQC 


00000 


2986C 




TCO 


XSSX 




16016 








29870 




DENO 


PASSU 




C2400 









461 
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ACCEPT 


03632 


COOEIE 


11104 


GTBLKA 


04926 


N60027 


13128 


BI 


09318 


ACCTAP 


03642 


CODEIG 


12028 


GTBLKB 


04931 


N60G32 


13370 


BLANK 


09026 


ADJUST 


03444 


CODEIH 


10736 


GTFLCL 


05808 


N60034 


13638 


BLKIA 


08796 


ADTEKP 


09277 


CODEIP 


10434 


GTSBSM 


06023 


N6003S 


13662 


BLKl 


08788 


CALBLK 


13343 


COOEIX 


1 12.76 


HEADER 


02218 


N60041 


10622 


BLK2A 


08820 


CALLBK 


13351 


C0DE3A 


12856 


INOREC 


12063 


N60043 


10690 


BLK2 


08812 


CALLSW 


08992 


C00E3B 


12916 


INSETA 


11153 


N60044 


10810 


BLK3A 


08844 


CANDRT 


08220 


CQDE3C 


13020 


INSETB 


11177 


N60045 


1C870 


BLK3 


08836 


CANDSA 


08166 


C0DE3D 


13238 


J40004 


09262 


N60046 


11026 


BLK4A 


08868 


C012AA 


14422 


C00E3E 


13326 


LCOHAO 


13121 


N60048 


11350 


BLK4 


08860 


CD12BB 


14446 


C0DE3P 


12538 


LENGTH 


02248 


N60049 


11722 


BLK5A 


08892 


CD12BP 


14198 


C00E3X 


13382 


LOXRAO 


02394 


N60072 


126C6 


BLK5 


08884 


CD14EN 


12184 


C00E3Y 


13032 


LSTYPE 


07694 


N60C84 


14702 


BLK6A 


08916 


CD14FL 


10766 


C00E3Z 


13426 


MNCLGV 


05450 


N60085 


14734 


BLK6 


08908 


CD14FR 


11078 


CQ0E4A 


13602 


HOOHES 


09073 


N60C92 


14568 


BLK7A 


08940 


CD14FV 


10682 


CCDE4P 


13494 


MONCAL 


00796 


N60095 


14604 


BLK7 


08932 


CD14JG 


10952 


C0DE6A 


10614 


N00565 


13122 


N60107 


14888 


BLK8A 


08964 


CD14JM 


10976 


C00E6B 


10562 


N00716 


13127 


N60182 


14260 


BLK8 


08956 


C014NA 


11776 


CGDE6P 


10434 


N00796 


09356 


NINERM 


13153 


8L 


09295 


CD14NC 


12060 


C00E7B 


11950 


NO 1100 


09287 


OUTSEQ 


06994 


BLX 


09C15 


C014ND 


12244 


C00E7C 


11542 


N01200 


09307 


PARCNT 


11891 


6NF 


09311 


CDI4NR 


11162 . 


C00E7P 


11240 


N01300 


09300 


PASSU 


02400 


BNH 


09289 


CD14RL 


10892 


C0DE8P 


13740 


N07495 


13117 


PREBUF 


08015 


BNR 


13378 


CD14RM 


11114 


CG0E9A 


12436 


N13062 


09198 


PUNTAP 


03662 


B 


059 74 


CD14RV 


10872 


C0DE9B 


12360 


N 13063 


09193 


PUSTSN 


02294 


BTM 


05972 


CD14SL 


10932 


C0DE9C 


12576 


N13089 


09034 


PUT17B 


13894 


BT 


09053 


C014SV 


10912 


C00E9P 


12070 


N13092 


09040 


PUT17C 


13846 


BUFl 


07710 


CD17SC 


13674 


COOEPA 


11764 


N13133 


09047 


PUT 17 1 


13758 


BUF2 


07785 


CD17XX 


13698 


CGDESS 


10266 


N147RM 


13139 


PUTCAD 


06686 


BUF3 


07860 


CDIPFP 


11946 


COOMAT 


12276 


N40000 


03377 


PUTDIF 


06854 


BUF4 


07935 


COIQZP 


11080 


COMXSN 


09350 


N40001 


03382 


PUTEST 


06186 


CALLX 


04388 


COABXT 


15086 


D4LNEG 


15796 


N40002 


03387 


PUTINS 


062C6 


CANDS 


08100 


CDCALL 


10410 


DIGENO 


12611 


N40003 


03392 


PUTNXT 


07154 


CDlll 


11236 


COCALP 


12632 


DOBASE 


03657 


N40004 


03397 


PUTPCH 


07258 


CD117 


13422 


COLINK 


12644 


DOTEMP 


14947 


N40005 


03402 


PUTX12 


13052 


CD123 


11128 


CDSIXR 


15712 


ENOMES 


13385 


N40006 


03407 


PUTX17 


13008 


CD12A 


14726 


CDSABl 


14358 


ECJEND 


12448 


N40007 


03412 


RECORD 


12626 


CD12B 


10314 


CDSAB3 


14538 


EGJRIT 


12984 


N40008 


03417 


RFLSUB 


03707 


CD12C 


14246 


C0SAB4 


14526 


EOJSTN 


12772 


N40009 


03422 


RFXSUB 


03712 


C012D 


14282 


CDSAB5 


14490 


ECPETE 


12852 


N40010 


03427 


RTNAME 


09210 


CD12E 


14342 


CDSAB7 


14406 


EOTONY 


12828 


N40011 


03432 


RXFLAG 


04368 


CD12P 


14198 


C0SAB8 


14658 


FCTIEA 


12420 


N40012 


03437 


AOCOW 


05969 


CD12X 


14488 


COSABX 


14766 


FCTIGI 


10760 


N60007 


10804 


ADD 


09063 


CD12Y 


14258 


CDSA8Z 


14858 


FCTENO 


02318 


N60009 


1084a 


ADSL 


04946 


CD14A 


11202 


CDSSA8 


10290 


FCTRTP 


14198 


N60010 


10872 


AM 


09009 


CD14B 


11552 


CDSSS3 


14718 


FILEST 


02399 


N60013 


11916 


ANS 


09272 


CD14C 


11440 


CLLBLK 


133 56 


FLA6SH 


04428 


N60014 


11678 


ARNDT 


12752 


CD14E 


11988 


CCOARR 


11460 


FLTOFX 


03702 


N60015 


12262 


ASTOP 


03792 


CD14M 


12140 


C0DE12 


10170 


FORCEB 


04274 


N60016 


12166 


ATYPE 


0 3747 


CD14P 


10434 


C00E14 


10194 


FliLLCK 


05414 


N60017 


12130 


BAL 


07696 


CD15P 


13772 


C0DE15 


10218 


FULMES 


09143 


N60018 


12298 


ABOUT 


03480 


CD17A 


12650 


C0DE17 


10242 


FXORFL 


04162 


N60020 


12610 


BCGW 


13376 


CD17B 


13082 


CCDEIA 


10554 


FXTOFL 


03697 


N60021 


12808 


BD 


09309 


CD17C 


12830 


CODEIB 


10942 


GCLEAR 


05782 


N60022 


12766 


BEGAD 


02257 


CD17D 


12890 


COOEIC 


11034 


GETBLK 


04918 


N60023 


12964 


BE 


09302 


CD17E 


13010 


CODEIO 


12004 


GRBAGE 


13294 


N60026 


13092 


BGNST 


15999 


eD17F 


12938 
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CC 17G 


1359C 




C 


09291 


FCTIH 


10892 


GNONE 


05190 


MM 




CDl 7H 


135 70 




CSW 


13146 


FCTIJ 


11760 


GNRP 


050 22 




noi fifl 


CD 171 


13306 




01 


05979 


FCTIK 


11398 


GPUTA 


05470 


MOO 




CC17J 


13326 




02 


05989 


FCTll 


11940 


GPUT 


05338 


MPY 




CD 17K 


13466 




03 


05999 


FCTIP 


10434 


GSBI 


11618 


N0098 




CD17L 


13486 




D4 


06009 


FCTl 


10338 


GTCL 


05720 






CC 17M 


132 74 




DFLMS 


14315 


FCTRT 


10362 


GTFIN 


15106 




1 a 1 ^3 


CD17N 


13386 




01 


05984 


FCTSW 


02293 


GTJW 


0 5542 




1 1 


CD17P 


12626 




OJ 


05994 


FETCH 


12631 


GTPT 


05154 


MIA 




CD222 


11340 




OK 


06004 


FFRSW 


04398 


GTSCL 


05840 


WAV 


1 1 n^n 


CD 333 


11630 




DMSW 


03998 


FGBIT 


14325 


GTST 


05630 




1 1772 


CC4AA 


11714 




DGA 


09186 


FIND 


12621 


GYES 


05106 


way 


1 ii fit 


CD555 


11434 




DOMAX 


03627 


FIVE 


09205 


HERE2 


06398 






CD666 


11466 




DOMES 


09099 


FLAO 


03567 


HERE 


06350 


WCYT 


n77rA 


CD9A1 


11648 




DOREF 


03597 


FLOVD 


03677 


H 


09013 






CC94 


11600 




OOSW 


08993 


FIEXP 


03617 


HTYPE 


03782 




r7APi 
1 ( 1 ai 


CD96 


11412 




DRAY 


12616 


FLG2 


06626 


INPUT 


09390 






CDABP 


14994 




OX 


08297 


FLG3 


06646 


INSET 


11094 


WPTVP 




COABU 


14910 




DY 


08302 


FL64 


06666 


101 


08987 




r 0 70 


CDABW 


14300 




EMI 


09365 


FL6RM 


07674 


102 


08988 




1 ^ aifln 


C0AB2 


14256 




EM2 


09379 


FLMUL 


03607 


103 


08989 


no 


^7Q 
n^f nfl 


CDLGT 


12715 




ECJG 


12136 


FLRDV 


03687 


lOCAL 


00716 




r^^A7 


CDPCH 


13072 




EOJJ 


12032 


FLSUB 


03667 


lOENO 


03802 


noTi 


1 fa^^ 


CDSIJ 


15654 




EOJP 


12008 


FMCN 


02324 


IGGT 


00566 


now 




CDSIN 


15626 




EOJ 


10386 


FORCC 


OA330 


lONOA 


12599 


OPX 




COSIS 


15282 




EOJWG 


12280 


FORCE 


04166 


lONO 


10649 


npv 




CDSIT 


15028 




EOJW 


12364 


FOUR 


13382 


lOPT 


00532 


nD7 




COSIV 


14834 




EOROD 


13052 


FP2 


02298 


lORT 


00565 


Dl 7 


ni 1 n> 


CDSIZ 


15526 




ERRT 


08736 


FPCL 


14878 


IQ 


03727 


D 1 




CDSSP 


14198 




ERSWT 


09351 


FPNXR 


1S692 


I 


09219 


D57 


ntr 7A 
r 5^1 1 


CDXIT 


13152 




ETYPE 


03772 


FPSk 


09347 


ITYPE 


03762 


P9DTR 


n^fli ? 


CET 


13446 




EXCLR 


08442 


FPSWX 


09348 


IXI 


03807 


DAB 




CF 


09005 




EXINO 


08999 


FREOl 


12925 


JAY 


02367 


DCDCU 


03928 


CGCOW 


12068 




EXITA 


14912 


FREQ2 


13081 


JGPP 


15816 


DD I WT 




CKCOW 


08983 




EXIT 


02928 


F 


02250 


JOE 


11557 


D 




CKFMT 


0 3048 




EXJ 


08686 


FSM 


08986 


JPl 


15418 


DUMP W 


1 ^fl 1 n 


CKSW 


04438 




EXJX 


08662 


FTSM 


04378 


J 


09224 


Dl IT I 7 


nan \n 


CLEAR 


02640 




EXRT 


08388 


FTVPE 


03767 


JWG 


02508 


PIITI 




CL2R 


08714 




EXSUB 


08304 


FXAO 


03572 


K 


02252 


DIIT9 


nnr ?K 


CH96 


12576 




EXXR 


08550 


FXDVD 


03682 


LIJ 


02820 


PIJT3 


08C30 


CM97 


12556 




EXZER 


08514 


FXEXP 


03622 


LI 


02700 


PlITA 




CM98 


12396 




FACAO 


03797 


FXMUL 


03612 


L2 


02844 


PUTC A 


n7AQfl 


CM99 


12420 




FACM2 


09316 


FXRDV 


03692 


L33 


04328 


Diirrn 


n7An^ 


CM 


09293 




FAC 


09203 


FX 


03562 


L3 


02916 


DM-rr 




COOEO 


03366 




FBASE 


03310 


FXSUB 


03672 


LDl 


06022 


DiiTn 




CODEl 


10002 




FCODE 


04321 


GAOOl 


0 5586 


LOVD 


15864 


DiiTrr 


TAP if 


C0DE3 


10026 




FCTll 


10582 


GBASE 


09324 


LHl 


12636 


oil TO 




C0DE4 


10050 




FCT12 


11558 


6CNT 


05177 


LNGAO 


07701 


PUTRM 


07606 


CODES 


02964 




FCT13 


11204 


6C0W 


05831 


LNG 


09327 


PUTR 


10708 


caoE6 


10074 




FCTiA 


10832 


GETSV 


04892 


LOCOM 


02262 


PUTTA 


071 34 


COOET 


10098 




FCT18 


11386 


GETX 


04844 


L 


06017 


PUTX2 


12956 


CODES 


10122 




FCTIC 


11418 


GFLAG 


05494 


LSTAD 


02308 


PUTXA 


06090 


C0DE9 


10146 




FCTIO 


11430 


GFREE 


05606 


LVP 


12604 


PUTXB 


06114 


COOET 


07688 




FCTIE 


12368 


61 


05713 


LV 


09239 


PUTXC 


06266 


CODOA 


12108 




FCT IF 


11342 


GLNO 


09061 




090 1 7 


PUTXD 


06362 


COHSW 


03999 




FCTIG 


10748 


GM 


02432 


MAT 


03817 


PUTXE 


06410 
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PUTXF 


■ 

06446 




SQLN6 


07683 


UFSTR 


02263 


VOOE 1 


1C002 


TYPECN 


08C61 


PUTXG 


069 14 




SRFCT 


03824 


WATY 


09057 


V00E3 


10026 


TYPECR 


08046 


PUTXH 


07078 




SR6T 


03946 


H 


02240 


Y00E4 


10050 


TYPEK2 


13937 


PUTXI 


07238 




SRNX 


03940 


WW 


02296 


YO0E6 


10074 


TYPEK3 


1 39 52 


PUTX J 


071 14 




SR 


02372 


XOOX 


16002 


Y0DE7 


10098 


fYPEM2 


13C83 




06030 




SRSY 


03883 


XBLK2 


16002 


Y00E8 


10122 


TYPERM 


07637 


PUTXX 


07652 




SSI 


06633 


XBLK3 


160Q2 


V0DE9 


10146 


USEOCR 


13105 


PUTXY 


07660 




SS2 


06634 


XBUK4 


16002 


YOJ 


10386 


WUB12B 


14174 


P U T X Z 


07665 




SS3 


06635 


XBLK6 


16002 


ZCTl 


1(3338 


WUBC12 


14150 


Q 


09234 




SS4 


06636 


XBLK7 


16002 


ZCTRT 


10362 


WUBCAB 


14126 


QZP 


14908 




SSIL 


06637 


XBLK8 


16002 


ZD12B 


10314 


MUBCDS 


14102 


RCTY 


09055 




SSLNG 


07679 


XCTl 


10338 


ZER04 


09025 


XOCALL 


10410 


READ 


0 3592 




SSSN 


08985 


XCTRT 


10362 


ZEROS 


09026 


XOSSAB 


10290 


RECLG 


02243 




SSXRl 


08092 


X012B 


10314 


ZER06 


09027 


X0DE12 


10170 


REDO 


03777 




SSXR2 


08094 


XODEl 


10002 


ZERO 


09023 


X00E14 


10194 


REGSW 


C8996 




ST 


09215 


XC0E3 


10026 


ZOOEl 


10002 


XODEl 5 


10218 


REPl 


12889 




SUB2 


03637 


X00E4 


10050 


Z0DE3 


10026 


X0DE17 


10242 


REP2 


13009 




SUB3 


03647 


X0DE6 


10074 


ZQ0E4 


10050 


XODESS 


10266 




1 3673 




SUB 


09042 


X00E7 


10098 


Z00E6 


10074 


XRBASE 


06597 


REP4 


03577 




SUBSM 


08995 


X00E8 


10122 


ZQ0E7 


10098 


XRFIL2 


06580 


REP 


03757 




SVN9 


08709 


X00E9 


10146 


Z00E8 


10122 


XUB126 


14174 


RFL AG 


04358 




SHCFX 


03732 


XOJ 


10386 


ZO0E9 


10146 


XUBC12 


14150 


RMNS 


04990 




SWFFX 


03742 


XR5 


00329 


ZOJ 


10386 


XUBCAB 


14126 


RMOO 


09071 




SWF 


03737 


XR7 


00339 


ZRM 


15690 


XUBCDS 


14102 


RMSVf 


04418 




SXl 7 


12829 


XR97 


08719 


SADCOW 


11213 


YOCALL 


10410 


RSNFL 


03717 




SXF 


09257 


XR98 


08724 


SARGSW 


13366 


YDSSAB 


10290 


RSNFX 


03722 




sx 


02377 


XR99 


08729 


SAVCOW 


06657 


Y0DE12 


10170 


RSH 


08997 




SY17 


13569 


XRAOO 


02389 


SETFCT 


03136 


Y0DE14 


10194 


RT AD 


09246 




SY 


02384 


XRFIL 


06506 


SETNMT 


03300 


YO0E15 


10218 


R V 


09251 




Tl 


06014 


XRSW 


09241 


SIMVAR 


11364 


Y00E17 


10242 


R VSN 


09068 




T2 


09267 


XSSX 


16016 


SKIPSW 


09349 


YCDESS 


10266 


SB ASE 


04160 




T3 


09343 


XTTX 


16016 


SPFPSM 


09357 


YUB128 


14174 


SCABP 


14198 




TBASE 


02303 


XTYPE 


03787 


SRCFFL 


04136 


YUBC12 


14150 


SCNT 


09361 




TCOW 


05961 


XUUX 


16016 


STEMPl 


08990 


YUBCAB 


14126 


SECTO 


13320 




TFL 


09021 


XVVX 


16016 


STEMP2 


08991 


YUBCDS 


14102 


SECTY 


13328 




TFM 


09001 


XMWX 


16016 


SUB12B 


14174 


ZDCALL 


10410 


SETAO 


11239 




TF 


09007 


XXI 


15204 


SUBC12 


14150 


Z0SSA6 


1C290 


SF 


09003 




TMAX 


05964 


XX2 


14432 


SUBCAB 


14126 


ZGDE12 


10170 


S I X9Z 


13222 




TRACE 


03587 


XX3 


14374 


SUBCOS 


14102 


Z0DE14 


10194 


SK 


10809 




TR 


09019 


XX4 


14490 


SUBCOW 


13371 


Z00E15 


1C218 


SLASH 


03752 




TSW 


13147 






SUBPS W 


044C8 


Z00E17 


10242 


SLC 


11046 




TYPEA 


08076 


XYYX 


16016 


SVTYN8 


13223 


ZOOESS 


10266 


SLNG 


07677 




TYPE 


03602 


xzzx 


16016 


SMAREA 


08997 


ZUB12B 


14174 


SL 


09282 




TYPET 


07675 


YCTl 


10338 


SYSCAL 


00475 


ZUBC12 


14150 


sn 


09065 




TYPEX 


08031 


YCTRT 


10362 


TCLEAR 


11800 


ZUBCAB 


14126 


SPCOM 


15691 




TZNR 


09033 


YD12B 


10314 


TYPE12 


13098 


ZUBCDS 


14102 
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lORT 


ENTRY POINTS AND 
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lORBC 


OS 
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C 
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lOPT 


OS 
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00532 




C005C 


lOSK 


OS 






554 






00554 


c 


00060 


I OCT 


OS 






566 






00566 


c 


000 70 


ERRET 


OS 






602 






006C2 


c 


00080 


lORT 


OS 




1 


565 






00565 


c 


oocsc 


I OCAL 


OS 
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00716 


c 


00100 


MONC AL 


OS 




1 
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c 


001 10 


D IC 


OS 




1 
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c 
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00130 


♦ »» 


COMMUNICATION AREA 










00 140 




DORG 


221 


8 








022 18 




00150 


p 






FLOATING POIM 


WORD LENGTH 


022 19 


2 


00 1 60 




nc 


2 1 1 


FIXED 


POINT WORD 


LENGTH 


02221 


2 


00 17C 


PROGST 


n« 




STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00180 


COHADD 


n< 


* 


STARTING ADDRESS 


OF COMMON AREA 


0223 1 


5 


00190 


Nl 


OS 


2 ' 


NUMBER OF WORDS 


IN LOGICAL RECORD 


02233 


2 


002C0 


N2 


OS 


5tt 


NUMBER OF LOGICAL RECORDS 


02238 


5 


002 10 


W 


DS 


2»« 


MORD LENGTH 






02240 


2 


00220 


RECLG 


DS 


3tf 


RECORD LENGTH 








3 


00230 


ENTLN 


OS 


5tf 


ENTRY 


ADDRESS 


TO 


LOG SUBROUTINE 


02248 


5 


00240 


ENTEXP 


DS 


S*» 


ENTRY 


ADDRESS 


TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00250 


ENTSC2 


DS 


5,, 


ENTRY 


ADDRESS 


TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02258 


5 


00260 


ENTSC3 


DS 


S«f 


ENTRY 


ADDRESS 


TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02263 


5 


00270 


ENTSOX 


DS 


5f f 


ENTRY 


ADDRESS 


TO 


SWITCH 0 FIXED SUBROUTINE 


02268 


5 


00280 


ENTF 10 


OS 


5,f 


ENTRY 


ADDRESS 


TO 


FIND SUBROUTINE 


02273 


5 


00290 


ENTREC 


DS 


5tt 


ENTRY 


ADDRESS 


TO 


RECORD SUBROUTINE 


02278 


5 


00 300 


ENTFET 


OS 


5tt 


ENTRY 


ADDRESS 


TO 


FETCH SUBROUTINE 


02283 


5 


00310 


ENTSMD 


OS 


5,, 


ENTRY 


ADDRESS 


TO 


SWITCH 0 SUBROUTINE 




5 


00320 


ENTDRR 


DS 


5«, 


ENTRY 


ADDRESS 


TO 


ARRAY SUBROUTINE 


02293 


5 


00330 


ENTOEC 


DS 


Stf 


ENTRY 


ADDRESS 


TO 


DISK END SUBROUTINE 


02298 


5 


00340 


ENTCOS 


DS 


5«« 


ENTRY 


ADDRESS 


TO 


COSINE SUBROUTINE 


02303 


5 


00350 


ENTSIN 


DS 


5*t 


ENTRY 


ADDRESS 


TO 


SINE SUBROUTINE 


02308 


5 


00360 


ENTATN 


DS 


5«t 


ENTRY 


ADDRESS 


ro 


ARCTANGENT SUBROUTINE 


02313 


5 


00370 


ENTSQT 


OS 


5tt 


ENTRY 


ADDRESS 


TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00360 


ENTABS 


DS 


Sfft 


ENTRY 


ADDRESS 


TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00390 




DS 


70* 


tRESERVEO FOR ENTRIES TO ADDED SUBROUTINES 


02393 


7C 


004C0 




COMMON WORKING AREAS 








00410 


STOP 


OAC 


5, STOP* 








02395 








STOP 
















00420 


RECHK 


DS 




t 


STOP+8 






02403 


C 


00430 


OKBUFF 


OSS 


29 










02404 


29 


00440 


FAC 


OS 


60 










02492 


60 


00450 




OC 


1 


fl 








02493 


1 


00460 


SAVE 


DS 


72 










02565 


72 


00470 


BETA 


DS 


38 










02603 


38 


00480 




OGM 












02604 


1 


00490 


GAM 


DS 




t 


SAVE-10 






02555 


C 


00500 


TAFE 


OS 






SAVE -30 




02535 


C 


00510 


IHSA 


DS 




• 


BETA -28 






02575 


0 


00520 


HESERR 


DAC 
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02607 
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ER E 
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DUOM 


DS 




t 
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FLZALP 
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02802 




5 


X 1 














02802 




-2687 
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00710 
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-2821 




00730 




DC 1 
• 


t * 
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02829 




3 








-00 
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0078C 
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B FIXENO 
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02848 


49 
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00820 


ZEROM 
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5 
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PT 
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00850 
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05245 








07420 




1620 FORTRAN II-O 


FORMAT 


- SUBROUTINES 










07430 




OORG 


START^1637 






05488 








07440 


WATYl 


TFM 


MAX 


• 0687 


.8 




05488 


16 


05914 


C-687 


07450 




8 


WRTALP 








O550O 


49 


0554C 


COOOO 


07460 




OORG 


•-3 








05508 








07470 


WAPTl 


TFM 


MAX 


• 0887 


.8 




05508 


16 


05914 


0-887 


07480 




B 


WRTALP 








O5520 


49 


0554C 


00000 


07490 




OORG 


•-3 








05528 








07500 


WACOl 


TFM 


MAX 


,1060 


• 8 




05528 


16 


05914 


CJ080 


07510 


WRTALP 


TDM 


RWEFSW 


.1 




COMMON FOR EACH WRITE 


05540 


15 


05943 


00001 


07520 


RWA 


TF 


OATINH+2 


.MAX-2 


. » 


INITIALIZATION FOR EACH RD OR WRITE 


05552 


26 


06049 


C5912 


07530 




SF 


MAX-1 








05564 


32 


05913 


00000 


07540 


REPSW 


OS 


2 


.•-3 






05572 




2 




07550 


MATSW 


OS 


1 


• •-2 


• • 


SET TO 1 WHEN MATRIX HAS CONTROL 


05573 




1 




07560 


REPSW3 


OS 


2 


• • 






05575 




2 




07570 




TFM 


•-1 


.00000 


• 711 




05576 


16 


05575 


-000- 


07580 




TDM 


SWL^l 


.2 






05588 


15 


05925 


00002 


07590 


LOCD 


OS 


2 


.♦-1 


• LOC 


OF DECIMAL AS SPEC BY FORMAT 


05598 




2 




07600 


L0CD2 


OS 


2 


,•-3 




TWICE LOC 0 


05596 




2 




07610 




TFM 


MESERR+8 


,679 


• 9 




05600 


16 


C2615 


C0079 


07620 




TFM 


MAX2 


,INH 






05612 


16 


06027 


-6053 


07630 




A 


MAX2 


• MAX 






05624 


21 


06027 


05914 


07640 




A 


MAX 2 


• MAX 






05636 


21 


06027 


05914 


07650 


••«••« 




CONTINUATION OF 


RWA. ALSO USED AFTER EACH OUTPUT 










07660 








RECORD NOT TERMINATED BY COMPLT MACRO 










07670 




TFM 


LAST 


• INH 






05648 


16 


05726 


-6053 


07680 


RWA2 


TOM 


COMPSW 


.-I 






05660 


15 


05668 


CCOOJ 


07690 


COMPSW 


OS 




• •-3 


•-1 PRQHIBITS^O REQUIRES OUTPUT 


05668 




C 




07700 




TR 


INH-1 


•STZERO^l 




05672 


31 


06052 


06230 


07710 




TR 


INH^86 


•STZERG 






05684 


31 


06139 


06229 


07720 




CM 


MAX-2 


.06 


• 10 




05696 


14 


05912 


CGO-6 


07730 


WIDTH 


OS 


3 


• •-2 


♦ 


NO. OF EFF. DIGITS IN FIELP 


05705 




3 




07740 




BNE 


• ♦24 








05708 


47 


05732 


01200 


07750 




RCTY 










05720 


34 


OOOOC 


C0102 


07760 


LAST 


OS 


5 


.♦-5 


, ADR 


OF RM AT END OF VARIABLE OUT REC 


05726 




5 




07770 




BD 


BSWF 


(RWEFSW 






05732 


43 


05816 


05943 


07780 


R ADO IT 


TFM 


lORT 


,•♦23 






05744 


16 


00565 


-5767 


07790 




B 


lOGT 


.OATINH- 


4,7 




05756 


49 


00566 


-6043 


07800 




CM 


MAX-2 


.06 


• 10 




05768 


14 


05912 


COO-6 


07810 




BNE 


• ♦24 






ALLOWS GCCF SWITCH FOR RATY 


05780 


47 


05804 


01200 



48 0 
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BC4 


_ 






05792 


46 


0572C 


0040C 






TDM 


FLT END- 


5.2 




05804 


1*3 


C3113 


C0002 


n7pf f! 








CONTROLS POSITION IN FORMAT SPECS 














AM 








05816 


I 1 


05851 


-0005 






TP 


• 1 fi 


• SWF 


• 1 1 


05828 


26 


05846 


C685J 


n-Totn 






cue 


» 


fOf BR TO />Ck INDlCAifcC BY rUKnA I orti^* 


05840 


49 


0585J 


COOOO 


n7fl flP 






K 


»• 




05851 




5 




n7pqn 


0 ATV 1 




MAX 


.0687 


• 8 


05852 


16 


05914 


0-687 


n7ann 




a 


DHAI D 






05864 


49 


05904 


COOOO 


n7Q 1 n 




DORG 


♦ 3 






05872 








n705r 




TFM 


MAX 


,0887 


.8 


05872 


16 


05914 


0-887 






B 


RDALP 






05884 


49 


C5904 


00000 


n7qAn 




00 RG 


»-3 






05892 








n7a^n 




TFM 


MAX 


f 1080 


.8 


05892 


16 


05914 


CJ080 


07960 




TDM 


RWEFSM 


.0 




05904 


15 


05943 


00000 




MAX 


OS 


4 


.•-I 




05914 




4 




n7alr 




B 


RWA 






05916 


49 


05552 


COOOO 


07990 




DORG 


•-4 






05923 








n fl fi n (1 




SWL IS A TRINARY SMITCH USED TO BRANCH TO THE PROPER SOURCE 












• •••4 


TO OBTAIN 


THE LOCATION THAT GOES WITH THE FORMAT MACRO 














BEING PERFORMED 


BB FOR OBJECT PROGRAM 




















NOP FOR RECG CONTROL 




















B FOR MATRIX CONTROL 














NOP 


MATRX 2 






05924 


41 


06408 


COOOO 


08060 


INPLUS 


OS 


5 


»• 


• WORKING POSITION OF I/O RECORD 


05935 




5 






TDM 


SWL* I 


.9 


•• MATRIX CONTROL SETS SWL TO 49 


05936 


15 


05925 


00009 


08080 


R WEFSW 


OS 


1 


.•-4 


• 1 FOR WRT^ 0 FOR R0« FLAG FOR E 


05943 




1 






WI0TH2 


OS 


3 


.•-1 




05946 




3 




nn?nn 
08 100 




BO 


SHC*12 


•MATSW 




05948 


43 


05984 


C5573 


081 10 




NOP 








05960 


41 


OOOOC 


COOOO 


2f < 




DS 


5 


.•-5 


• TEMP ACR OF DEC PT IN GAMMA 


05966 




5 




08 1 30 


LOC 


OS 


5 


• • 


•• CORE LOCATION TO BE USED 


05971 




5 




08 140 


****** 






AFTER LOC 


ADR OBTAINED BR TO PROPER MACRO 














TDM 


SWL*1 


• 2 




05972 


15 


05925 


C0002 


08 160 




BD 


• ♦20 


.RWEFSW 


•• BR IF WRITING 


05984 


43 


06004 


05943 


08170 




B 


SWC AOJ 


. 


• 6 


05996 


49 


0603M 


COOOO 


08180 






•-4 






06003 






ccooo 


08190 






COMPSW 


.0 


•• SET TC REQUIRE OUTPUT 


06004 


15 


05668 


082C0 




Cr 


LOC 




06016 


33 


05971 


00000 


08210 


HAX2 


DS 


5 


.• 


• TWICE MAXIMUM CHAR FOR OUTPUT 


06027 




5 








B 








06028 


49 


OOOOC 


ccooo 


08230 


SMCACJ 






,•-5 


•• RETURN ACD CF MACRO IN CONTROL 


06034 




c 




08240 




nnnr 


•~4 






06035 








08250 


A T m 1 p 
uA I UU U 




OUDH 






06C39 




5 


X 1 














06039 




-2607 










2,0 






06041 




2 




08270 




-0 
OGM 








06042 








08280 


DATINH 


DSA 


INH 






06047 




5 


X 1 














06047 




-6053 




08290 






2.0 






06049 




2 




083CC 




-0 
OGM 








06050 








08310 




DC 


1 


.0 




06C51 




1 










481 
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3 






PAGE 


08320 


ENDFOR 


DAC 


1.0 






06053 






X 2 


08330 


INH 






.ENOFOR 




06053 




Q 




08340 






174 






06227 




1 74 




08350 


IN 


DS 


176 


,INH+174 




06227 




176 




08360 


STZERC 


DC 
-0 


2 


,00 




06229 




2 




08370 




00 






.0246810 


06230 


-0 


-0-0- 


G-0-0 


08380 




00 






,0246810 


06242 


-0 


-0-G- 


C-O-0 


08390 




00 






,0246810 


06254 


-C 


-0-C- 


C-0-0 


08400 




00 




. 


,0246810 


06266 


—0 




Q-Q^Q 


08410 




00 






•0246810 


06278 


-0 




Q_(3_C 


08420 




00 






•0246810 


06290 


-0 


-0-0- 


c_o-o 


08430 




00 






•0246810 


06302 


-0 


-0-0- 


C-O-0 


08440 




OC 
-0 


2 


!oo 




06315 




2 




08450 


FLZERS 


DC 
.« 


2 


.o« 




06317 




2 




08460 




DS 


5 






06322 




5 




08470 


HATR I X 


TOM 


MATSW 


.1 


,, MACRO TO PROCESS MATRICIES 


06324 


15 


05573 


CCCOl 


08480 




TDM 


SWL*1 






06336 


15 


05925 


CC009 


08490 




TF 


LOCAOJ 


.FP2 




06348 


26 


0638C 


C3052 


08500 




BNF 


MATRX2-12.MATRIX-1 




06360 


44 


06396 


06323 


08510 




TFM 


LOCAOJ 


• 00 


• 10 


06372 


16 


06380 


000-C 


08520 


LOCAOJ 


OS 


2 


• •-3 


•• ADJUST LOC FOR MATRIX 


06380 




2 




08530 




S 


LOCAOJ 


.K 




06384 


22 


0638C 


02221 


08540 




S 


MATRIX-l 


.LOCAOJ 




06396 


22 


06323 


06380 


08550 


MATRX2 


A 


MATRIX-l 


.LOCAOJ 


,, RETURN FROM SWL, EACH MATRIX ELEMENT 


06408 


21 


06323 


06380 


08560 




TF 


LOC 


.MATRIX-l 


•• MOVE ADJUSTED LOCATION 


06420 


26 


05971 


C6323 


08570 




SH 


PAR 


.1 


• 10 


06432 


12 


03843 


COO-1 


08580 




BNE 


• ♦24 






06444 


47 


06468 


01200 


08590 




TOM 


MATSW 


•0 




06456 


15 


05573 


COOOO 


08600 




BNL 


SWC^12 






06468 


46 


05984 


01300 


08610 




BB 








06480 


42 


OOOOC 


COOOO 


08620 




DORG 


•-9 






06482 








08630 




MACRO FOR 


AN I/O CARRIAGE RETURN DURING A FORMAT STATEMENT 










08640 


SLASH 


TDM 


COMENO*! 


.9 




06482 


15 


06647 


CC009 


08650 




BO 


SLASH2 


.RWEFSW 


•• BR IF WRITING 


06494 


43 


C65 14 


05943 


08660 




B 


COMEND 






06506 


49 


06646 


COOOO 


08670 




DORG 


•-4 






06513 








08680 


SLASH2 


BD 


I OCR 


•COMP SW 


•• BR TO 10 CR IF OUTPUT RECORD BLANK 


06514 


43 


06654 


C5668 


08690 




CM 


DATINH^2 


• 06 


• 10 


06526 


14 


06049 


COO— 6 


08700 




8H 


WRITE 




•• BR IF NOT TYPEWRITER OUTPUT 


06538 


46 


06622 


0 1 100 


08710 




TF 


LAST 


Iflzers 


• 6 


06550 


26 


0572C 


06317 


08720 




SM 


LAST 


.02 


•10^ ERASE BLANKS FROM END OF I/O RECORD 


06562 


12 


05726 


COO-2 


08730 




CM 


LAST 


.00 


• 610 


06574 


14 


0572C 


(300-0 


08740 




BE 


•-36 






06586 


46 


06550 


01200 


08750 




CM 


LAST 


• INH 




06598 


14 


05726 


-6053 


08760 




BL 


COM END 






06610 


47 


06646 


C1300 


08770 


WRITE 


TFM 


iORT 


• •♦23 




06622 


16 


00565 


-6645 


08780 




B 


lOPT 


•OATINH-4 


• 7 


06634 


49 


00532 


-6043 


08790 


COMEND 


B 


RWA2-12 






06646 


49 


05648 


CCOOO 


08800 




DORG 


•-4 






06653 








08810 


lOCR 


CM 


MAX-2 


• 08 


• 10 


06654 


14 


05912 


000-8 


08820 


CKM 


DS 


3 


• •-2 


• DEC SPEC PLUS CHAR OF ARG 


06663 




3 




08830 




BNL 


WRITE 






06666 


46 


06622 


C1300 



48 2 
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08840 




B 


COMEND 






06676 


49 


06646 


nnnnn 


08850 




00 RG 


»-4 






06685 








08860 








HACRC TERMINATING l/G CONTROL 










08870 




OS 


3 






06687 




3 




08880 


COMPLT 




CQMENO+1 


.2 




06688 


15 


06647 


00002 


08890 


CHAK2 


OS 


3 




f TNICc MUCIrlcu CHARAL 1 cR loT IC 










08900 




g 


SLASH+12 






06700 




nAAQA 

06494 


coooo 


089 10 




DORG 


•-4 






06707 








08920 


REDO 


BO 


REDO A+24,«AT SU 








06776 




08930 




TO 


REDOA*23 


.CCMPSk 






9S 


r An^A 


n^AAfl 


08940 




JfH 


SWC ADJ 


,REDO A 


•f MACRO PERMITS REDOING BACK TO ( 


nA7f f 


1 A 




6752 


08950 






SWL 








AQ 






08960 




00 RG 


*-4 














08970 


REDQA 


TOM 


SWL*l 




•, RETURN FROM SWL IF MORE DATA 




1 S 
1 ^ 


- - 


COOCl 


08980 




TOM 


COMPSW 


t 


»• VOID REDO USING SWC EFFECT ON COMPSW 


- _ 

nA77t 


15 


05668 


r fi n n n 


08990 


TERM 




5 




• REFERENCE AOR IN I/O RECORD 






5 




09CCO 




AM 


SWF 


f5 




nA77A 






-0005 






jp 


SWF 


• SWF 


• 11 


06788 


iA 






09020 




g 


SLASH 








AO 


TAAfl? 


liUVIUU 








•-4 














09040 




B7 


• 






06808 




06808 




09050 






MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES 










09060 








SUB rROM 


DCB CLJ tkitYff Ai 1 «# Venn 
KcP SM« INITIALLY ScT TO ZcRU 










09070 








IF REPSW 


MCr* CCT TflDCBC BCnH Akin DCBCAT CnBitAT 

Ntu • at I lUKCrS NcUO ANU KcrtAi rURMAf 










09C80 


•••••• 






IP RcPSW 


ZERO( LAST FORMAT REPETITION IS COMPLETE 










09090 








ff C D C D CLi 


PLuat aieP UUHN AND RcPcAl rURMAT SPEC 










09 100 


REP 


AM 


SWF 


• 7 




06616 




05851 




09 1 10 




SM 


REP SW 


«1 


• 10, CONTROL REPETITION OF FIEI^OS 


06828 


17 


05572 


rrn-i 


09120 




BH 


REP 2 








AA 


06888 


ni inn 


09 130 




BE 


BSWF 








46 




C12G0 


09 140 






REP SM 


• SWF 


• 11 


06864 


21 


05572 


C585 J 


091S0 




BNH 


BSWF 






06876 








09 160 


REP2 


SM 


SWF 


• 2 






12 


05851 


"0002 


09170 






SWF 


• SWF 


• 11 


06900 


26 






09 180 




g 


SWF-23 






06912 


49 




rrnnn 


09 190 




00 RG 


•-4 














092CO 


REP3 


SF 


REPSW3-1 






06920 




05574 


nnnnn 
uuuuu 


09210 


Vt A 


OS 


5 


f • 


• WORKING AREA AOR REF TO FAC OR GAM 


0693 1 














SWF 


• 7 


• 10 




J . 




- - _ 






SM 


REPSH 3 


tl 


• 10 




1 ? 




rnnl 1 


- _ 






REP 2 








AA 


Uo o o o 


CI 100 


09250 




BE 


BSWF 






06968 


46 


05816 


C 1 200 


09260 






REPSW 3 


• SWF 


• 11 


06980 


2 1 


05575 


C58S J 








REP 2-12 








49 




nnnnn 
uuuuu 


09280 


OPT 


OS 


5 


»• 


• TEMP LOC OF DEC PT IN OUTPUT RD 


07003 




5 




09290 


ERF9 


TFM 


SWC ADJ 


•ER COM 


2 •• MACRO FOR ERROR F9 WHEN WRITING 


07004 


16 


06034 


-7080 








LAST 


,MAX 2 












09310 




TFM 


EI 


• 679 


• 9 


07028 


16 


0261 5 


000 79 


09320 




B 


SWL 






07040 


49 


05924 


00000 


09330 




00 RG 


•-4 






07047 








09340 


XTVPE 


AM 


SWF 


• 3 


•• MACRO FOR SKIPPING FIELDS 


07048 


11 


05851 


-0003 


09350 




A 


LAST 


• SWF 


• n 


07060 


21 


05726 


0585J 


09360 




B 


BSWF 






07072 


49 


05816 


COOCO 


09370 




DORG 


•-4 






07C79 








09380 


ERC0H2 


RCTY 








07080 


34 


OOOOC 


00102 


09390 


MA2 


OS 




• •-5 


• WORKING AREA AOR REF TO FAC OR GAM 

483 


07086 




C 
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PAGE 



09400 




WATY 


OUOH 




09410 




RCTY 






09420 


CHAR 


OS 


5 


• •-5 , 


09430 




TR 


EI*1 


,FLZERS-1 ♦ 


09440 




BSBB 


8SWF-12 




09450 


0PTM2 


OS 


5 


• •♦5 . 


09460 




OS 


5 




09470 




DORG 


0800C 




09480 




38 


A3 


•00702 


09490 




36 


A3 


•00703 


09500 




B 


• ♦22 




09510 




DORG 


• -3 




09520 


A3 


DSC 


9 


•019433033 






0194 33033 




09530 




OSA 


FIX 




09540 




TRA 






09550 




TCD 


08000 





MODIFIED CHARACTERISTIC 
RESTORES RECORD MARK 



TEMP ADR OF DEC PT IN I/O REC, -2 



09560 •••••• 

09570 ♦♦«»♦ 

09580 

09590 

09600 

09610 

09620 

09630 

09640 

09650 

09660 

09670 

09680 

09690 

09700 

09710 

09720 

09730 

09740 

09750 

09760 

09770 

09780 

09790 

09800 

09810 

09820 

09830 

09840 

09850 

09860 »••• 

09870 

0988C 

09890 

09900 



1620 FORTRAN I I-O 
1620 FORTRAN II-D 



I WA FORMAT 
I WA FORMAT 



SECONDARY LINKAGE 



07092 
07104 
07110 
07116 
07128 
07144 
07144 
08000 
06000 
08012 
08024 
08032 
08032 

08045 



08045 
08046 
08058 49 
08000 
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02607 
OOOOC 
5 

02616 
05804 



08032 
08032 
08046 



-3854 
00000 
00000 



00100 
00102 



C6316 
C0002 



C07C2 
00703 
OOOOC 



00500 
OOOOC 



DORG 


START 




03851 








OS 


3 




03853 




3 




TFL 


FAC 


•FIX-1 •ll 


03854 


06 


02492 


0385L 


B 


IFIX 




03866 


49 


04998 


COOOO 


BLXK 


FMON 


• ♦(0) 


03878 


66 


07228 


C3878 


00 


00100 


• •o 


03890 


-0 


OOlOC 


00000 


BLXM 


FMON 
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03902 


66 


07228 


03902 


00 


00100 


* fO 


03914 
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00100 


00000 
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FMON 
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03926 


66 


07228 


C3926 


00 


00100 


t tO 


03938 


-0 


00 IOC 


00000 


BLXM 


FMON 
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03950 


66 


07228 


03950 
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00100 


• fO 
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-0 


OOlOC 
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BLXM 


FMON 
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66 


07228 
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03986 
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COOOO 


BLXM 


FMON 
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03998 


66 


07228 


03998 
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04010 
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TFL 
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06 


02492 
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TF 
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10270 
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HO 
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10440 
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0572C 
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05816 


00000 


10460 




OORG 


•-4 
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BH 


ER F8 I 








04814 


46 


04894 
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TF 
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C5726 


11820 




SM 
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TF 
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05705 
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TF 


WA 
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26 


06931 


C2792 
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TDM 


97 


.0 






04694 


15 


00097 


CCOOO 


11860 




TFM 


99 


,00 


tlO 




04706 


16 


00C99 


CCO-0 


11870 




BD 


EF WRT 


.RWEFSW 






04718 


43 


04986 


C5943 


11880 




TF 


FAC 


.FLZALP 


.11 




04730 


26 


02492 


C279P 
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TFM 


SWCADJ 


.READ EF 
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C6034 


-4358 


11900 


RDFCH 


BNR 
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45 


04786 


0593N 
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TFM 


EF2SW 
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16 


04285 


-5250 


11920 




B7 
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04778 


49 
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12 
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49 


0440N 


CGOCC 


16690 


WA3 


OS 


5 


Irefsw 


t 


TEMP STORE FOR ZERO INSERT 


ADDRESS 04405 




5 




16700 




DORG 


• -4 








04521 








16710 


k<RTE2 


TR 


GAM + 1 


.MASK 






04522 


31 


02556 


05325 


16720 




BD 


ERF8E 


.CHAR-2 






04534 


43 


05126 


C71C8 


16730 




TD 


GAM^8 


.char 






04546 


25 


02563 


C7110 


16740 




TD 


6AM^6 


.CHAR-1 






04558 


25 


C2561 


C71C9 


16750 




BNF 


• ♦24 


.char 






04570 


44 


04594 


071 10 


16760 




TDM 


6AM^3 


t2 






04582 


15 


02558 


C00C2 


16770 




TF 


TERM 


.GAM^2 


.6 




04594 


26 


0677N 


02557 


16780 




TR 


DPT 


.OPG 


.611 




04606 


31 


07CCL 


C5960 


16790 




B 


WEF DEC 








04618 


49 


05094 


00000 


16800 




DORG 


•-4 








04625 








16810 








3 CASES FOR 


URITING F TYPE. CHAR IS EXP-LOCO- 


-F 








16820 








char is NEC 


. EXP 


IS NEG 










16830 








CHAR IS NEG 


. EXP 


IS POSITIVE (WRTFPE) 










16840 








CHAR IS POSITIVE 


(WRTFPC) 










16850 


WRTF 


TR 


GAM^l 


.MASK EP^7 






04626 


31 


02556 


C5333 


16860 




BD 


F ZERO 


.FLTENO-4 






04638 


43 


04874 


C3114 


16870 




BO 


ER F8 E 


•CHAR-2 






04650 


43 


05126 


07108 



497 
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VERSION 


2 FORTRAN II-O SUBROUTINES SET 


3 






PAGE 


16880 




CM 


CKH 


.000 


.9 




04662 


14 


06663 


CO-00 


16890 




BNH 


F ZERO 








04674 


47 


04874 


CllOO 


16900 




C 


CKW 


(WIDTH 






04686 


24 


06663 


C57C5 


16910 




BH 


ER F8 E 








04698 


46 


05126 


CllOO 


16920 




TF 


CHAR 2 


.CHAR 






€4710 


26 


C6698 


C7110 


16930 




A 


CHAR 2 


• CHAR 






04722 


21 


06698 


C7110 


16940 




BNF 


WRTFPC 


.CHAR 






04734 


44 


0495C 


C711C 


16950 




TFM 


• ♦35 


.GAM 






04746 


16 


04781 


-2555 


16960 




A 


• ♦23 


.CHAR 2 






04758 


21 


04781 


06698 


16970 




TF 


GAM 








04770 


26 


02555 


00000 


16980 




BNF 


WRTFPE 


.FAC 






04782 


44 


04918 


02492 


16990 




TF 


LAST 


.GAM^2 


t6 




04794 


26 


05720 


C2557 


17000 




TF 


0PTM2 


.GM2F 


t611. 


SET SIGN LEFT OF DEC PT 


04806 


26 


0714M 


C304L 


17010 




TF 


WA3 


.OPT 






04818 


26 


04405 


07003 


17020 


FNCNEZ 


AM 


WA3 


• 2 


♦ . 


INSERT ZERO FROM DEC PT TO 


04830 


11 


04405 


-0002 


17030 




BO 


WEF DEC 


.WA3 


.11. 


FIRST NON ZERO DIGIT ON RIGHT 


04842 


43 


05094 


C440N 


17040 




TFM 


WA3 


.70 


.610 




04854 


16 


0440N 


COOPO 


17050 




B 


FNCNEZ 








04866 


49 


0483C 


00000 


17060 




DORG 


•-4 








04873 








17070 


FZERO 


TFM 


DPTM2 


.70 


f610. 


F TYPE OUTPUT EQUALS ZERO 


04874 


16 


0714M 


COOPO 


17080 




TF 


CHAR 2 


.LOCO 2 






04886 


26 


06698 


C5596 


17090 




TDM 


CHAR-2 


tO 


til 




04898 


15 


07108 


0000- 


17100 




B 


CLR70S-12 








04910 


49 


05046 


COOOO 


17110 




DORG 


•-4 








04917 








17120 


kRTFPE 


TF 


0PTM2 


• OPG 


.611 




04918 


26 


0714M 


05960 


17130 




TR 


DPT 


.OPG 


.611 




04930 


31 


0700L 


05960 


17140 




B 


WEF DEC 








04942 


49 


05094 


COOOO 


17150 




DORG 


•-4 








04949 








17160 


WRTFPC 


TF 


• ♦30 


• TERM 






04950 


26 


0498C 


06775 


17170 




S 


• ♦18 


•GHAR 2 






04962 


22 


04980 


06698 


17180 




TF 




•GAM^2 






04974 


26 


OOOOC 


02557 


17190 




TF 


CLR70S^30 


• TERM 






04986 


26 


05088 


C6775 


17200 




C 


CHAR 


• LOCO 






04998 


24 


07110 


05598 


17210 




BNL 


CLR 70S 








05010 


46 


05058 


01300 


17220 




A 


OPG 


•CHAR 2 






05022 


21 


05966 


06698 


17230 




TR 


DPT 


• OPG 


• 611 




05034 


31 


070GL 


05960 


17240 




TF 


CLR7CS+30 


• LAST 






05046 


26 


05088 


05726 


17250 


CLR70S 


TFM 


• ♦35 


•MASK Fl 






05058 


16 


05093 


-5337 


17260 




A 


•♦23 


•CHAR 2 






05C70 


21 


05093 


C6698 


17270 




TF 


TERM 


t 


• 6 




05082 


26 


C677N 


COOOO 


17280 


WEFDEC 


TFM 


OPT 


t03 


• 610 




05094 


16 


070CL 


000-3 


17290 




TFM 


LAST 


• 00 


• 610 




05106 


16 


0572C 


000-0 


17300 




B 


BSWF 








05118 


49 


05616 


COOOO 


17310 




DORG 


»-4 








05125 








17320 


ERF8E 


TR 


OUD H^21 


•FLZERS- 


57 




05126 


31 


02628 


C6260 


17330 




TR 


GAM^l 


• MASK 


f t 


MOVES E^OO ALPHAMERICALLY 


05138 


31 


02556 


05325 


17340 




TD 


6AM^8 


• FAC 






05150 


25 


02563 


02492 


17350 




TO 


GAM^6 


•FAC-1 






05162 


25 


02561 


C2491 


17360 




TFM 


GAM^3 


• 451 


f9 




05174 


16 


02556 


00M51 


17370 




BNF 


• ♦24 


• FAC 






05186 


44 


0521C 


02492 


17380 




TOM 


GAM^3 


»2 






05198 


15 


02558 


C0002 


17390 




TR 


DUD H^13 


«GM1M2F 


• 11 




05210 


31 


0262C 


C291M 


17400 




TF 


OUD H^12 


.DUO H+ 


14 




05222 


26 


02619 


02621 


17410 




TFM 


DUD H+14 


.03 


.10 




05234 


16 


02621 


COO-3 


17420 




CM 


0ATINH^2 


.08 


.10 




05246 


14 


06049 


COO-8 


17430 




TFM 


EI + 2 


,67800 




SETS ERROR F 6 ERASES REC MARK 


05258 


16 


02617 


07800 



49S 



1620 MONITOR 11 VERSION 2 FORTRAN II-D 



SUBROUTINES SET 3 



PAGE 35 







BL 


ER CCM 2 




05270 


47 


0708C 


C1300 


I 7450 




TF 


OATDUD+2 


t D A T I NH* 2 


05282 


26 


0604 I 


C6049 


17A60 




TFM 


lORT 


t»^23 


05294 


1 6 


00565 


- 5 3 1 7 






B 


lOPT 


,DATDUD-4 ,7 


05306 


49 


00532 


-6035 


17480 




B 


ERC0M2 




05318 


49 


07C8C 


CCOCC 


1 7490 




00 RG 


*-4 




05325 








1 7500 


MASK 


DSC 


10 


,451070700» 


05325 




IC 








451C70700' 












17510 


MASKER 


OS 




,MASK+l 


05326 




C 




17520 


MASKF I 


OAC 


3 1 , ooooocoocoooooooooooooooooooco • 


05337 




3 1 


X 2 






oocoooccocooooooccooccoooooooo* 










1753C 




DORG 


08000 




0800C 








17540 




38 


AlO 


f0C702 


08C0C 


38 


08032 


00702 






36 


AlO 


t00703 


C8C12 


36 


08032 


C0703 


17560 




B 


• ♦22 




08C24 


49 


C 8046 


00000 






DORG 


»-3 




08C32 








17580 


AlC 


DSC 


9 


f019541009 


08C32 




9 








019541009 












1 7590 




DSA 


HTYPE+24 




Q8C45 




5 


X I 












08045 




-45C2 




1 7600 




TRA 






08046 


36 


OOCCC 


CC5CC 












08058 


49 


OOOOC 


OOOOC 


176 10 




TCO 


n Q n n 
UoOOO 




08000 








17620 




DORG 


7154 




07154 








17630 


CLOTT 


TFH 


QQQ«6 


tSET^12 


07154 


16 


07216 


-4154 


1 7640 




87 


CLQBB412 




07166 


49 


07186 








TFM 


QQQ+6 


tSET 


07174 


16 


072 16 


-4142 


17660 




MA 


QQQ-*'! 1 


t00344 


07186 


70 


C7221 


C0344 


1 7670 




BLXM 


FMQN 


t*^12(0 ) 


07198 


66 


07228 


0 7210 




UvJH 


BLXM 




#•-•(0) tU 


07210 


66 


OOOOC 


0000- 


1 7690 




OSA 


1 




07226 




5 


X 1 












. ■ 

07226 




-0001 




17700 


UN 


BSBA 


•♦12 




07228 


60 


0724C 


0000 1 


17710 




BLX 


• ♦12 


t00344 ( 1 ) 


07240 


65 


07252 


C03M4 


17720 




TO 


OOOOOfl) 


fRECMK 


07252 


25 


000-C 


C2403 


17730 




TR 


SLIP-5 


•99995(1) 


07264 


3 1 


07396 


999R5 


17740 




TF 


00314 


t00016(l) 


072 76 


26 


00314 


000 J6 


17750 




TFM 


BAS^ll 


tFIL-5 




!t 




—7424 


17760 




AM 


BAS+11 


tooooe 


07300 


1 1 


07335 


-0008 






BCX^ 


•-12 


»-00001(2) 


07312 


64 


07300 


00-0 J 


17780 


BAS 


TFL 


MBASE 


•DUMMY 


07324 


06 


07418 


99999 


17790 




TFM 


lORT 


• •♦23 


07336 


16 


00565 


-7359 


17800 




B 


lOGT 


•MOATA ,1 


07348 


49 


00566 


-7402 


17810 




TRNM 


99995(1) 


•SLIP-5 


07360 


30 


999R5 


07396 






TDM 


QQQ 


.6 


07372 


15 


07210 


C0006 


178 30 




BSBB 


00000(1) 




07384 


60 


000— c 


CC002 


17840 


SLIP 


OS 


6 




07401 




6 




17850 


MOATA 


DSC 
02 


2 f 02 




07402 




2 




17860 




DSA 


MBASE>8 




07408 




5 


X 1 












07408 




-7410 




17870 




DC 


1 t • 




07409 




1 





49 9 
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17880 




DSC 
0 


1 • 


0 


07410 




1 




17890 


MBASE 


OS 


8 




07418 




8 




179C0 




OSA 


FIX 




07423 




5 


X 1 












07423 




-3854 




17910 




DC 
• 


1 • 


t 


07424 




1 




17920 


FIL 


DC 


5 • 


00000 


07429 




5 








-0000 














17930 




DC 


3 » 


033 


07432 




3 








-33 














17940 




DC 


5 f 


00033 


07437 




5 








-0033 














17950 




DC 


3 • 


033 


07440 




3 








-33 














17960 




DC 


5 • 


00033 


07445 




5 








-0033 














17970 




DC 


3 , 


016 


07448 




3 








-16 














17980 




DC 


5 • 


00066 


07453 




5 








-0066 














17990 




DC 


3 t 


016 


07456 




3 








-16 














18000 




DC 


5 , 


00082 


07461 




5 








-0082 














18010 




DC 


3 f 


017 


07464 




3 








-17 














18020 




DC 


5 , 


00099 


07469 




5 








-0099 














18030 




DC 


3 t 


009 


07472 




3 








-09 














18040 




DC 


5 • 


00108 


07477 




5 








-0108 














18050 




DC 


3 • 


016 


07480 




3 








-16 














18060 




DC 


5 • 


00124 


07485 




5 








-0124 














18070 




DC 


3 • 


017 


07488 




3 








-17 














18080 




DC 


5 • 


00141 


07493 




5 








-0141 














18090 




DC 


3 , 


009 


07496 




3 








-09 














18100 




DORG 


0600C 


06000 








18110 




34 


82 


,00701 


06000 


34 


06044 


C07CI 


18120 




38 


82 


,00702 


06C12 


38 


06044 


00702 


18130 




36 


82 


,00703 


06024 


36 


06044 


00703 


18140 




B 


• ♦22 




06036 


49 


06058 


CO 000 


18150 




DORG 


•-3 




06044 








18160 


B2 


OSC 


9 


.016835004 


06044 




9 








016835004 












18170 




DSA 


7100 




06057 




5 


X 1 












06057 




-710C 




18180 




TRA 






06058 


36 


OOOOC 


CC5C0 



5 00 
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18210 DENU QSTZS 06082 





1620 


MONITOR II 


VERSION 2 


FORTRAN II-O 


ALSFQl 


06372 


FNCNEZ 


04830 


OPG 


ATAN.6 


03430 


FXNINE 


04912 


DPTM2 


ATYPEl 


04802 


GK1M2F 


02914 


DPT 


BEF2SW 


05390 


HROMRT 


05330 


DUOH 


BREFSW 


05326 


HTVPEl 


05150 


DUO 


CLR70S 


05058 


IFLOAT 


05006 


DUMMY 


CQHAOD 


02231 


IMINUS 


04862 


EEXP2 


CONEND 


06646 


IMSAPF 


02787 


EEXPM 


COHPLT 


06688 


INCR6C 


05218 


EEXP 


CGNPSW 


05668 


INPLUS 


05935 


EF2SW 


OAFMGN 


05202 


IRBLNK 


04842 


EFALP 


□ALONG 


05194 


ITYPEl 


04502 


EFCOM 


DATDUO 


06039 


L0GDI6 


04942 


EFDEC 


DATINH 


06047 


LOCADJ 


06380 


EF0I6 


DOFMCN 


05210 


MASKEP 


05326 


EFENO 


OIODCA 


02821 


MASKFl 


05337 


EFFIX 


OKBUFF 


02404 


MATRIX 


06324 


EFMIN 


OKOATA 


02813 


MATRX2 


06408 


EFMHl 


eEXP22 


04786 


MESERR 


02607 


EFMW 


EEXPAD 


04922 


MONCAL 


00796 


EFROl 


EFALPH 


04550 


N0RM60 


05268 


EFR02 


EFCHKS 


04742 


OOOSET 


05086 


EFWRT 


EFEND2 


05158 


GDOREV 


05550 


EI 


EFLOAT 


050 94 


ONEFAC 


05782 


ENOO 


EFPLUS 


04546 


OVFLGh 


02960 


ENTLN 


EFTERM 


05102 


PROGST 


02226 


ERF7A 


EFTVPE 


04558 


RADGIT 


05744 


ERF7 


ENOFOR 


06053 


READEF 


04358 


ERF7S 


EN0R60 


05306 


REAOIF 


04962 


ERF8E 


ENTABS 


02323 


REPSM3 


05575 


ERF8I 


ENTATN 


02313 


R^EFSW 


05943 


ERF9 


ENTCOS 


02303 


lOOMK 


02782 


ERRET 


ENTOED 


02298 


99MK 


02777 


ERROR 


ENTDRR 


02293 


9SCPF 


03238 


ERXV 


ENTEXP 


02253 


AlO 


08032 


ERXVS 


ENTFET 


02283 


Al 


08068 


ETYPE 


ENTFID 


02273 


A3 


08032 


EXP 


ENTREC 


022 78 


A5 


08032 


FAC 


ENTSC2 


022 58 


A6 


08032 


FAX81 


ENTSC3 


02263 


A7 


08032 


FAX8 


ENf SOX 


02268 


A8 


08032 


FAXIl 


ENTSIN 


02308 


A9 


08032 


FAX! 


ENTSQT 


02318 


ALSFQ 


06364 


FCHNB 


ENTSWD 


02288 


ATYPE 


04406 


FDVRl 


ERCGM2 


07080 


AXJ 


05920 


FOVR 


ERF8ES 


C4826 


Bl 


06044 


FIL 


ERRF7E 


0 52 50 


B2 


06044 


FIXl 


ERRF7I 


04882 


BAS 


07324 


FIXU 


EXPENT 


02812 


BETA 


02603 


FIXI 


FINDIN 


02915 


BSWF 


05816 


FIX 


FINISH 


03111 


CHAR2 


06698 


FKGDD 


FIXEND 


03068 


CHAR 


07110 


FLOAT 


FLOATl 


C5056 


CKW 


06663 


FLZER 


FLTEND 


03118 


CLOBB 


07174 


FLZ 


FLZALP 


02797 


GLOTT 


07154 


FMl 


FLZERS 


06317 


DID 


00820 


FMGN 



50 1 
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05966 


FNH 


02792 


LOGE 


03366 


07144 


FPIMK 


02772 


MASKF 


05411 


07003 


FP2 


03052 


MASKI 


05211 


02607 


F 


02219 


^*ASK 


05325 


02687 


FSBRl 


05288 


MATSW 


05573 


99999 


FSBR 


04C22 


PAX2 


06027 


04738 


FTYPE 


04430 


MAX 


05914 


04866 


FXl 


03270 


MBASE 


07418 


04878 


FX9 


03250 


MDATA 


07402 


04285 


FXOl 


04802 


KEDC8 


04502 


04634 


FXORl 


04944 


PF 


03054 


04526 


FXDR 


03950 


MU 


03020 


04974 


FXC 


0 3926 


Nl 


02233 


05042 


FXERR 


02984 


N2 


02238 


05126 


FXH 


02772 


NCOIV 


06046 


04590 


FXMl 


04740 


QNEZ 


03302 


04534 


FXM 


03902 


GUT 


04837 


04526 


FXSRl 


04694 


OVFLC 


05844 


04382 


FXSR 


03878 


PAR 


03843 


04502 


FXZ 


03260 


PI0V2 


03526 


04534 


FZERO 


04874 


PI 


03462 


04986 


GAM 


02555 


PSI 


05502 


02615 


GM2F 


0 3043 


QQO 


07210 


03076 


GZAQQ 


04502 


QSTSl 


06304 


02248 


HO 


04673 


QSTS 


06296 


05082 


HTYPE 


04478 


QSTZS 


06082 


04974 


ICCN2 


05238 


GZl 


06895 


04558 


ICGN3 


05202 


QZ2 


06899 


05126 


ICONS 


04794 


QZF 


06903 


04894 


ICQN6 


05346 


RACDl 


05892 


07004 


lOlG 


04650 


RACD 


04286 


00602 


IFIX 


04998 


RAPTl 


05872 


02984 


IMSA 


02575 


RAPT 


04262 


03120 


INH 


06053 


RATYl 


05852 


06132 


IN 


06227 


RATY 


04238 


04454 


lOCAL 


00716 


RDAFL 


C5102 


04687 


IGCR 


06654 


RDALP 


05904 


02492 


lOGT 


00566 


ROA 


05C26 


06192 


ICPT 


00532 


RDFCH 


04754 


04118 


lORBC 


00520 


REAOA 


04906 


05758 


lORT 


00565 


READI 


04914 


04094 


lOSK 


0C554 


RECIP 


05980 


04878 


IROIG 


04806 


RECLG 


02243 


05334 


IREAD 


04634 




02403 


04046 


ITYPE 


04310 


REDCA 


06752 


07429 


K 


02221 


REDO 


06708 


04502 


LAST 


05726 


REFSW 


04405 


05384 


LNIC 


03681 


REP2 


06888 


04070 


LNl 


0 3557 


REP3 


06920 


03854 


LN2 


0 3588 


REP 


06816 


02967 


LN4 


03619 


REPSW 


05572 


03998 


LN8 


0 36SC 


RESET 


06808 


03742 


LNENT 


02807 


RSGNl 


04964 


02802 


LQC02 


05596 


RSGN 


03974 


02969 


LOCO 


05598 


RWA2 


05660 


07228 


LOG 


05971 


RkA 


05552 



5U2 
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TEN34 


03334 


HAPT 


04190 


WRT I 2 


04558 


WIDTH2 05946 


SET 1 


0oo64 


TERH 


06775 


MA 


06931 


WRT I 3 


04766 


WRITEA 05170 






TRACE 


02684 


WATYl 


0S486 


WRT I 


04594 


WRITEI 04334 






TRFX 


02946 


MATY 


04166 


W 


0224C 


WRITIl 04502 


SLASH 




TinlOP I 


03398 


MIDTH 


05705 


XQTZ 


C4990 


WRTALP 05540 


SL IP 


0 74 01 


TKO 


03712 


W JRS 


03018 


XTYPE 


07048 


WRTE2S 04962 


START 


C3851 


UNFLC 


02860 


WRITE 


06622 


ZEROM 


02859 


V»RTFPC 04950 


S TOP 








WRT A2 


05274 


ZERO 


02767 


WRTFPE 04918 


ShCFX 


03166 


MA3 


04405 


WRTA 


05218 


SIXTEN 


03494 


WRTSGN 04730 


SMC 


05972 


WACOl 


05528 


WRTE2 


04522 


SLASH2 


06514 


ZERFAC 02836 


SWF 


C5851 


WAgD 


04214 


WRTE 


04938 


STZERO 


06229 




SWL 


C5924 


WAFX 


05294 


WRTF 


04626 


SWCAOJ 


06034 




TAPE 


02535 


WAPTl 


05508 


WRTFS 


05074 


WEFDEC 


05094 





END OF ONE ASSEMBLY. 



5 0 3 

1620 MONITOR II VERSION 2 FORTRAN II-D SUBROUTINES SET 4 PAGE 1 



OOCIO 






1620 


FORTRAN II-O 


SUBROUTINES WITH FLOATING POINT HARDWARE 






00020 






lORT 


ENTRY 


POINTS AND CONTANTS 






00030 


lORBC 


OS 








t520 






00520 


C 


00040 


lOPT 


OS 








,532 






00532 


C 


00C5O 


lOSK 


OS 








,554 






00554 


C 


00060 


lOGT 


DS 








,566 






00566 


C 


00070 


ERRET 


OS 








,602 






00602 


C 


00080 


IGRT 


OS 








,565 






00565 


C 


00090 


lOCAL 


OS 








,716 






00716 


C 


00100 


MONCAL 


OS 








,796 






00796 


C 


00110 


010 


OS 








,820 






00820 


C 


00120 






1620 


FORTRAN II-O IN CORE AREAS 






00130 






COMMUNICATION AREA 










00140 




00 RG 


221 


8 








02218 




00150 


F 


OS 




2tt 


FLOATING POINT 


WORD LENGTH 


02219 


2 


00160 


K 


DS 




2tt 


FIXED 


POINT WORD 


LENGTH 


02221 


2 


00170 


PROGST 


OS 




5*« 


STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00180 


COMOD 


OS 




5ft 


STARTING ADDRESS 


OF COMMON AREA 


02231 


5 


00190 


Nl 


OS 




2tt 


NUMBER OF WORDS 


N LOGICAL RECORD 


02233 


2 


00200 


N2 


OS 




Stf 


NUMBER OF LOGICAL RECOROS 


02238 


5 


00210 


W 


OS 




2,, 


WORD 


LENGTH 






02240 


2 


00220 


RECLG 


DS 




it* 


RECORD LENGTH 






02243 


3 


00230 


ENTLN 


OS 




5tt 


ENTRY 


ADDRESS 


TO 


LOG SUBROUTINE 


02248 


5 


00240 


ENTEXP 


DS 




5tf 


ENTRY 


ADDRESS 


TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00250 


eNTSC2 


DS 




5«> 


ENTRY 


ADDRESS 


TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02258 


5 


00260 


ENTSC3 


DS 




5tff 


ENTRY 


ADDRESS 


TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02263 


5 


00270 


ENTSDX 


DS 




Stt 


ENTRY 


ADDRESS 


TO 


SWITCH D FIXED SUBROUTINE 


02268 


5 


00280 


ENTFID 


DS 




Stt 


ENTRY 


ADDRESS 


TO 


FIND SUBROUTINE 


02273 


5 


00290 


ENTREC 


DS 




5», 


ENTRY 


ADDRESS 


TO 


RECORD SUBROUTINE 


02278 


5 


00300 


ENTFET 


DS 




5*t 


ENTRY 


ADDRESS 


TO 


FETCH SUBROUTINE 


02283 


5 


00310 


ENTSWC 


DS 




5tt 


ENTRY 


ADDRESS 


TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00320 


ENTORR 


DS 




5f • 


ENTRY 


ADDRESS 


TO 


ARRAY SUBROUTINE 


02293 


5 


00330 


ENTOED 


OS 




Stt 


ENTRY 


ADDRESS 


TO 


DISK END SUBROUTINE 


02298 


5 


00340 


ENTCOS 


OS 




5>t 


ENTRY 


ADDRESS 


TO 


COSINE SUBROUTINE 


02303 


5 


00350 


ENTSIN 


DS 




5tt 


ENTRY 


ADDRESS 


TO 


SINE SUBROUTINE 


02308 


5 


00360 


ENTATN 


DS 




5>t 


ENTRY 


ADDRESS 


TO 


ARCTANGENT SUBROUTINE 


02313 


5 


00370 


ENTSQT 


DS 




5tt 


ENTRY 


ADDRESS 


TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00380 


ENTABS 


DS 




5tt 


ENTRY 


ADDRESS 


TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00390 




OS 




70. 


fRESERVEO FOR ENTRIES TO ADCEC SUBROUTINES 


02393 


7C 


00400 


• •••• 




COMMON WORKING AREAS 








00410 


STOP 


DAC 




5, STOP* 








02395 


5 






STOP* 














00420 


RECMK 


DS 








,ST0P*8 






02403 


C 


00430 


OKBUFF 


OSS 




29 










02404 


29 


00440 


FAC 


DS 




60 










02492 


6C 


00450 




OC 




1 










02493 


1 


00460 


SAVE 


OS 




72 










02565 


72 


00470 


BETA 


DS 




38 










02603 


38 


0048C 




OGM 














02604 


1 


00490 


GAM 


OS 








,SAVE-1C 






02555 


C 


0O5C0 


TAFE 


OS 








,SAVE -30 




02535 


C 


OOSIO 


IMSA 


OS 








,BETA -28 




02575 


C 


00520 


MESERR 


DAC 




6,ER E • 








02607 


6 






ER 


E 
















00530 


DUDH 


OS 








,MESERR 






02607 


0 









1620 MONITOR II 


VERSICN 


2 FORTRAN II-O SUBROUTINES 


SET 


4 






PAGE 


00540 


61 


OS 




»«-2 










02615 




C 




00550 


cue 


OS 


70 












02687 




7C 




00560 




DC 


40 


tO 










02727 




4C 








-ooooooooqooooooooooooooocooooooocooccco 














00570 




DSC 


40 


fO 










02728 




4C 








oocoooooocooooooccococoooooooooooooooooo 














00580 


ZERO 


OS 




f » 










02767 




C 




00590 




1620 FORTRAN II-O 


INDIRECT 


Annoccc nrvcc akid Mnrtcfcn 
AUUKcbo BUAti AINU nULlrlbU 














00600 






CONSTANTS (USING 


K AND F) 














00610 


FXH 


OS A 


FAC+1 












02772 




5 


X 1 




















C2772 




-2493 




00620 


FP IMK 


OS 




tFXH 










02772 




c 




00630 


99FK 


DC 


5 


t99 










02777 




5 








-0099 




















006A0 


lOOMK 


DC 


5 


• 100 










02782 




5 








-0100 




















00650 


IMSAPF 


DSA 


IMSA 












02787 




5 


X 1 




















02787 




-2575 




00660 


FNH 


OS A 


FAC-I 












02792 




5 


X 1 




















02792 




-2491 




00670 


FLZALP 


DSA 


ZERO-78 












02797 




5 


X 1 




















02797 




-2689 




00680 


FLZ 


DSA 


2ERO-80 












02802 




5 


X 1 




















02802 




-2687 




0069C 


LNENT 


DC 


5 


• -1 










028C7 




5 








-OOOJ 




















00700 


EXPENT 


DC 


5 


t-1 










02812 




5 








-OOOJ 




















00710 


DKOATA 


DSC 


2 












02813 




2 




00720 




00 
DSA 


DIOOOA 












02819 




5 


X 1 




















02819 




-2821 




00730 




DC 


1 












02820 




1 




00740 


DIODOA 


DSC 
0 


1 


• 0 










02821 




I 




00750 




DC 


5 


.0000 










02826 




5 








-0000 




















00760 




DC 


3 


• 000 










02829 




3 








-00 






















00770 




DSA 


OKBUFF 












02834 




5 


X 1 




















02834 




-2404 




00780 




DC 


1 


• • 










02835 




1 




00790 




1620 FORTRAN 11-0 


IN CORE 


SUBROUTINES 














00800 


ZERFAC 


TFL 


FAC 


•FLZER 










02836 


06 


02492 


03742 


00810 




B 


FIXEND 


•ZERO-94 .7 








02848 


49 


03068 


-2673 


00820 


ZEROM 


DS 


5 


»• 




ZERO MINUS 94 PLUS TWO TIMES 


F 




02859 




5 




00830 


UNFLO 


TFL 


FAC 


•FLZER 


• » 


ERR F5 UNFL IN FEXP 






02860 


06 


02492 


C3742 
















5 0 5 
















1620 MONITOR II 


VERSION 


2 FORTRAN II-D SUBROUTINES 


SET 


4 






PAGE 


00840 




B 


ERXV+12 




» , 


FAC IS FL PT ZERO 






02872 


49 


03132 


CCOCC 


00850 


TRACE 


TFL 


TRACE-1 


,FAC 


• 6 








02884 


06 


C288L 


C2492 


00860 




BNC4 


FIXENO 












02896 


47 


03068 


C0400 


00870 




RCTY 


GAM-1 


• 


• 2 








02908 


34 


-2554 


CCIC2 


00880 


FINDIN 


DC 


1 




• •-4 








02915 




1 




00890 


GMIM2F 


J 

OS 




• •-5 


• 


GAMMA MINUS ONE MINUS TWO TIMES 


F 


02914 




C 




00900 




BNF 


TRFX 


•FAC-1 


• , 


BRANCH IF FIXED ARGUMENT 






02920 


44 


02946 


02491 


00910 




WNTY 


FNH 


• 




TYPE FLOATING ARGUMENT 






02932 


38 


0279K 


CClOO 


00920 




SB 














02944 


42 


OOOOC 


CCOOG 


00930 




DORG 


•-9 












02946 








00940 


TRFX 


WNTY 


FXH 


t 


• 6, 


TYPE FIXED ARGUMENT 






02946 


38 


0277K 


COICC 


00950 




BB 














02958 


42 


OOCCC 


COOOO 


00960 




DORG 


•-9 












02960 








00970 


OVFLOW 


TFM 


FAC 


• 0199 


• 8910 








02960 


16 


C2492 


0-JR9 


00980 


FMl 


DS 


2t *-2 












02969 




2 




00990 


FKCDD 


DS 


I 


• •-4 


t 


0 F OR K ODC^ 1 F AND K EVEN 






02967 




1 




01000 




TF 


FAC-2 


•9SCPF 


• • 


SET RESULT TO ALL NINES 






02972 


26 


0249C 


03238 


01010 


ERROR 


RCTY 


FINISH 


t 


• 6 








02984 


34 


0311J 


00102 


01020 




WATY 


MESERR 












02996 


39 


02607 


CClOO 


01030 




B 


EN00412 












03C08 


49 


03088 


COOOO 


01040 


MU 


BNF 


• ♦24 


• MU-1 


1 1 


SET CORRECT SIGN ON FAC 






03020 


44 


03044 


03019 


01050 




SF 


FAC 


•GAM 










03032 


32 


02492 


02555 


01060 


GM2F 


DS 




• • 




GAMMA MINUS TWO TIMES F 






03043 




0 




01070 




TOM 


FXERR+25 


•02009 


l79^ 


RESET ERROR EXIT 






. 03044 


15 


03009 


-2-09 


01080 


MF 


DS 


2 


#•-1 


t 


MINUS F 






030S4 




2 




01090 


FP2 


OS 


2 


#•-3 


t 


F PLUS TWO 






03052 




2 




01100 


WJRS 


OS 




tMU-2 










03018 




C 




OHIO 




TFM 


FXERR>30 


•EN0D^12 








03056 


16 


03014 


-3088 


01120 


FIXENC 


BB 














03068 


42 


OOOOC 


COOOO 


01130 




DORG 


»-3 












03076 








01140 


FXERR 


OS 




•ERROR 










02984 




C 




01150 


ENOD 


TF 


FAC 


• SAVE 


• » 


MOVE EXPONENT 






03076 


26 


02492 


02565 


01160 




BNF 


• ♦24 


f99 


• • 


SET PROPER SIGN 






03088 


44 


03112 


C0099 


01170 




SF 


FAC-2 


• ENDD 










03100 


32 


02490 


03076 


01180 


FINISH 


DS 




• • 










03111 




C 




01190 


FLTENC 


DS 




•FINISH^7 








03118 




C 




01200 




BB 




> 


,0 








03112 


M2 


OOOOC 


COOOO 


01210 




DORG 


•-4 












03119 








01220 


ERXV 


BNF 


• ♦24 


• FAC 










03120 


44 


03144 


C2492 


01230 




AM 


EI 


• 01 


• 10 








03132 


11 


02615 


CCO-1 


01240 




TFM 


ERROR+30 


, FIXEND 


1-12 








03144 


16 


03014 


-3(J56 


01250 




87 


ERROR 












03156 


49 


02984 




01260 




OS 


5 












03167 




5 




01270 


SWCFX 


TD 


SWC-1 


•SWCFX- I 








03168 


25 


C5971 


03167 


01280 




TFL 


SWC-2 


•SWCFX- 


2 








0318C 


06 


C597C 


C3166 


01290 




SF 


SHC-1 












03192 


32 


05971 


COOOO 


01300 




B7 


SMC 












03204 


49 


05972 




01310 


• •»»« 


1620 FORTRAN I 1-0 


FLOATING 


POINT CCNTANTS 














01320 


9SCPF 


DC 


28 


,9999999999999999999999999999 






03238 




28 








R99999g999999999999999999999 
















01330 




DSC 


2,99 












03239 




2 




01340 


*«••« 


1620 FORTRAN II-D 


FIXED POINT CCNTANTS 














01350 


FX9 


DC 


10 


•9999999999 








03250 




IC 





5U6 



0136C 

01370 

0138C 
01390 

OMCO 

01410 

0U20 

01430 

014A0 

0U50 

01460 

01470 

01480 

01490 

015C0 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

0162C 

0165C 
01660 
01670 



FXZ 

FXl 



PICV2 
LNl 
LN2 
LN4 
LN8 
LNIO 
TWO 



DUMMY 
START 



1620 f'CNITCR II VERSION 2 FORTRAN II-O 

DC 10 rOOCOCCCOOO 

-OOOOOOOOC 

DC 10 ,0000000001 
-OCCOOOCOl 

CONSTANTS FOR RELGCATABLE SUBROUTINES 
DC 30, lOOOOOCCOOOOOOOOOOOOOOOOOCOCCO 
JOOCOOOOOCOOCOOOCOOOCCOOOOOOOO 
DC 2, 01 

-1 

DC 30, 218776162394955256222611491638 
Kl 8 7 76 162394 9552562226 1149 1638 
DC 2, 01 

-1 

DC 30, 434294481903251827651128918917 

M34294481903251827651128918917 

DC 2, 00 

-0 

DC 30, 628318530717958647692528676656 

028318530717958647692528676656 

DC 2, 01 

-1 

DC 30, 540419500270584155443578364610 
N404 195002 705841554435 78364610 , 
DC 2, 00 

-0 

DC 30, 314159265358979323846264338328 
L141 59265358979323846264338328 
DC 2, 01 

-1 

OC 30, 6000000O0OGOOO00GGOO0OO000000O 

OOOOOOOOOCCOOOOOOOOOCCOOOOOOOO 

OC 2, 00 

-0 

DC 30, 157079632679489661923132169164 
J570 79632679489661923132 169164 
OC 2, 01 

-1 

OC 31, OOOOOOCOOOOCOOOOOOOOOOOOOCCCOOO 

-OGOOOOOOGOOOOGOOOOOCOOOOOOOOOC 

OC 31, 69314718G559945309417232121458 

-693147180559945309417232121458 

OC 31« 1386294361119890618834464242916 

J386294361 1198906 18834464242916 

DC 31, 20794415416798359282S169636437S 

KO 79441541679835928251696364375 

OC 31, 2302585092994045684017991454684 

K302 585092994045684C17991454684 

OC 31, 2000000000000000000000000000000 

KOOOOOOOOOOOOOOOOOOOGOOOOOOOOOO 

DC 28 .O 

-OOOOOOOOCOOOOOOOOOGOCOGOOOO 

OC 2 ,-99 

RR 

OS ,99999 
OS ,03851 
OORG 3789 



SUBROUTINES SET 4 



03260 
0327C 

03300 

03302 

03332 

03334 

03364 

03366 

03396 

03398 

03428 

03430 

03460 

03462 

03492 

03494 

03524 

03526 

03557 

03588 

03619 

03650 

03681 

03712 

03740 

03742 

99999 
03851 
03789 



10 
IC 

30 

2 
30 

2 
30 

2 
3C 

2 
3C 

2 
3C 

2 
30 

2 
3C 

2 
31 
31 
31 
31 
31 
31 
28 

2 

C 
C 



507 

1620 MONITOR II VERSION 2 FORTRAN II-O SUBROUTINES SET 4 PAGE 5 



OU75 




OSA 


MATY 














03793 




5 


X 1 






















03793 




-4166 




01680 




OSA 


REP3 














C3798 




5 


X 1 






















03798 




-6920 




01690 




OS A 


TRACE 














03803 




5 


X 1 






















03803 




-2884 




01700 




OSA 


SMC 














03808 




5 


X 1 






















03808 




-5972 




01710 




OSA 


SNCFX 














03813 




5 


X 1 






















03813 




-3168 




01720 




OSA 


SLASH 














03818 




5 


X 1 






















03818 




-6482 




01730 




OSA 


REP 














03823 




5 


X 1 






















03823 




-6816 




01740 




OSA 


REDO 














03828 




5 


^ I 






















03828 




-6708 




0175G 




OSA 


XTVPE 














03833 




5 


X 1 






















03833 




-7048 




01760 




OSA 


COMPLT 














03838 




5 


X 1 






















03838 




-6688 




01770 


PAR 


OSA 


0 














03843 




5 


X 1 






















03843 




-COCC 




01780 




OSA 


MATRIX 














03848 




5 


X 1 






















03848 




-6324 




01790 




1620 FORTRAN II-O 


ALL 


SUBR IN 


CORE 














018C0 


«»••• 


1620 FORTRAN il-D 


ALL 


SUBR IN 


CORE - : 


SECONDARY LINKAGE 










01810 




OORG 


START 














03851 








01820 




OS 


3 














03853 




3 




01830 


FIX 


TFL 


FAC 


,FIX-l 


til 










03854 


06 


02492 


C385L 


0184C 




B 


FIXl 














03866 


49 


10604 


COOOC 


01850 


FXSR 


BNF 


FXSRU20 


,FAC 


f » 


CHANGE SIGN 


ON 


FAC 


03878 


44 


10816 


C2492 


01860 




B 


FXSRl 














03890 


49 


10796 


COOCO 


01870 


FXM 


M 


FAC 


,FXM-l 


.11 










03902 


23 


02492 


0390J 


01880 




B 


FXMl 














03914 


49 


10842 


COOCO 


01890 


FXD 


LD 


99 


,FAC 


1 1 


FAC » FAC/J 






03926 


28 


00099 


02492 


019C0 




B 


FXOl 














03938 


49 


10904 


COOOO 


01910 


FXDR 


TFM 


FXD-l 


,FAC 


t f 


FAC 


= J/FAC 






03950 


16 


03925 


-2492 


01920 




B 


FXDRl 














03962 


49 


11046 


COOCO 


01930 


RSGN 


TFL 


FAC 


,RSGN-1 


tll 










03974 


06 


02492 


C397L 


01940 




B 


RSGNl 














03986 


49 


11066 


COOCO 


01950 


FLCAT 


TFL 


FAC 


, FLOAT- 1 


,11 










03998 


06 


C2492 


0399P 


01960 




B 


FLOATl 














0401C 


49 


11158 


COOOC 


01970 


FSBR 


BNF 


FSBRH-26 


,FAC-2 


t • 


CHANGE SIGN 


ON 


FAC 


04022 


44 


11416 


C2490 


01980 




B 


FSBRl 














04C34 


49 


1139C 


COOOO 



SOS 



16?C MONITOR II VERSION 2 FORTRAN I I-D SUBROUTINES SET A 



PAGE 



01990 


FDVW 


TFL 


SAVE 


,FAC 








04046 


06 


02565 


C2492 


020C0 




B 


FDVRl 










04C58 


49 


11436 


COOOO 


02010 


FIXI 


TF 


IMSA 


•FIXI-1 «11, 


IMSA 


« I 




04070 


26 


C2575 


C406R 


0202C 




B 


FIXIl 










04082 


49 


11492 


OCOCC 


02030 


FAXI 


TF 


IMSA 


•FAXI-1 tllf 


IMSA 


- I 




04094 


26 


02575 


C409L 


02CA0 




B 


FAXIl 










04106 


49 


11866 


CCOCO 


02050 


FAXB 


TFL 


SAVE-40 


•FAXB-1 


LOAD 


B 




04118 


C6 


C2525 


C411P 


02C6C 




B 


FAXBl 










04130 


49 


123CC 


CCOOC 


02070 


SET 


TFL 


FAC 


.00344 ,11 








04142 


C6 


02492 


C034M 


02080 




B 


SETl 










04154 


49 


12524 


COOOO 


02090 








WRITE ALPHAMERIC 
















02100 


WATY 


TF 


SWF 


,WATY-1 








04166 


26 


05851 


C4165 


02110 




B 


WATYl 










04178 


49 


05488 


COOOO 


02120 


WAPT 


TF 


SWF 


.WAPT-l 








04190 


26 


05851 


C4189 


02130 




B 


WAPTl 










04202 


49 


05508 


00000 


02U0 


WACO 


TF 


SWF 


»UACD-1 








04214 


26 


05851 


C4213 


02150 




B 


WACDl 










04226 


49 


05528 


CCOOO 


02160 








READ ALPHAMERIC 
















02170 


RATY 


TF 


SWF 


,RATY-1 








04238 


26 


05851 


04237 


02180 




B 


RATYl 










04250 


49 


05852 


CCOOC 


02190 


RAPT 


TF 


SWF 


,RAPT-1 








04262 


26 


05851 


C4261 


02200 




B 


RAPTl 










04274 


49 


05872 


00000 


02210 


RACO 


TF 


SWF 


,RACD-l 








04286 


26 


05851 


04285 


02220 




B 


RACDl 


t tS 








04298 


49 


05892 


C-OCC 


02230 


ITYPE 


AM 


SWF 


f3 








04310 


11 


05851 


-0003 


0224C 




B 


ITYPEl 


. .8 








C4322 


49 


09666 


C-OOC 


02250 


WRITEI 


TFM 


WA 


.GAM*2 








04 3 34 


16 


06931 


-2557 


02260 




B 


WRITI 1 


f .8 








04346 


49 


1C18C 


C-OCC 


02270 


READEF 


BNF 


EF RD2-H2,L0C 








04358 


44 


08732 


C5971 


02280 




B 


EF ROl 


t *8 








04370 


49 


08688 


C-OOC 


0229C 


EF^^W 


TF 


FLTEND 


,ICQN6+6 








04382 


26 


C3118 


05384 


02300 




B 


EFMWl 


.8 








04394 


49 


09160 


C-OOC 


02310 


ATYPE 


AM 


SWF 


.3 








04406 


11 


05851 


-0003 


02320 




B 


ATYPEl 


• t8 








04418 


49 


C54C2 


C-000 


02330 


• »«« 






MACRO FOR F TYPE 


REAO 


ANC 


WRITE 










02340 


FTVPE 


CF 


RMEFSW 










04430 


33 


05943 


OOOOC 


0235C 




B 


EF COM 


f .8 








04442 


49 


0714C 


C-000 


02360 








MACRO FOR E TYPE 


READ 


ANC 


WRITE 










0237C 


ETYPE 


SF 


RWEFSW 










04454 


32 


05943 


00000 


02380 


MA3 


OS 


5 


» * f 


TEMP 


STORE FOR ZERO INSERT ADDRESS 


04465 




5 




02390 




B 


EfCUt* 


t f8 








04466 


49 


0714C 


c-000 


02400 


HTYPE 


AM 


SWF 


.3 








04478 


11 


05851 


-0003 


02410 




B 


HTYPEl 










04490 


49 


08446 


COOOO 



02420 »»••♦ 1620 FORTRAN II-O ALL SUBR IN CCRE - SUBROUTINES 

02430 WRTE2 TR GAM*1 .MASK 04502 31 C2556 C5305 

02440 BD ERF8E ,CHAR-2 04514 43 051C6 C71C8 

02450 TO GAM+8 .CHAR 04526 25 02563 07110 

02460 TO GAM*6 ,CHAR-1 04538 25 02561 C7109 

02470 BNF •♦24 .CHAR 04550 44 04574 C7110 

02480 TOM GAM43 ,2 04562 15 02558 C0002 

02490 TF TERM ,GAM*2 »6 04574 26 0677N 02557 

02500 TR OPT tDPG .611 04586 31 07CCL C596C 

02510 B MEF DEC 04598 49 05074 COOOO 

02520 DORG •-4 04605 

02530 •••••« 3 CASES FOR WRITING F TYPE.CHAR IS EXP-LOCD-F 

02540 •••••• CHAR IS NEG. EXP IS NEG 
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02550 


•«•••• 






CHAR IS 


NEG 


• EXP 


IS POSITIVE 


(WRTFPE) 












02560 








CHAR IS 


POSITIVE 






(WRTFPC) 












02570 


WRTF 


TR 


GAM + 1 




.MASK EP+7 
















04606 


31 


02556 


C5313 


02580 




BD 


F ZERO 




.FLTEND 


-4 
















04618 


43 


04854 


C3114 


02590 




BO 


ER F8 E 




, CHAR-2 


















04630 


43 


C5106 


07108 


02600 




CM 


CKW 




• 000 




.9 














04642 


14 


06663 


CC-00 


02610 




BNH 


F ZERO 






















04654 


47 


04854 


CllCO 


02620 




C 


CKW 




.WIDTH 


















04666 


24 


C6663 


C5705 


02630 




BH 


ER F8 E 






















04678 


46 


05106 


01100 


02640 




TF 


CHAR 2 




.CHAR 


















04690 


26 


06696 


C7110 


02650 




A 


CHAR 2 




.CHAR 


















04702 


21 


06698 


C7110 


02660 




BNF 


WRTFPC 




.CHAR 


















04714 


44 


04 93C 


G711C 


02670 




TFM 


• ♦35 




• GAM 


















04726 


16 


04 761 


-2555 


02680 




A 


• ♦23 




.CHAR 2 


















04738 


21 


04761 


C6698 


0269C 




TF 


GAM 






















04750 


26 


C2555 


CCOOO 


02700 




BNF 


WRTFPE 




.FAC 


















04762 


44 


04898 


C2492 


02710 




TF 


LAST 




.GAM+2 




.6 














04774 


26 


0572C 


02557 


02720 




TF 


DPTM2 




• GM2F 




• 61U 


SET SI 


GN LEFT 


OF 


DEC 


PT 


04786 


26 


0821R 


C304L 


02730 




TF 


WA3 




• DPT 


















04798 


26 


04465 


C7003 


02740 


FNCNEZ 


AM 


WA3 




• 2 




• 1 


INSERT 


ZERO 


FROM 


DEC 


PT TO 


04810 


11 


04465 


-C002 


0275C 




BO 


WEF DEC 




• WAS 




• 11. 


FIRST 


NCN ZERO DIGIT 


ON RIGHT 


04822 


43 


05074 


C446N 


02760 




TFM 


WA3 




• 70 




• 610 














04834 


16 


0446N 


CCOPC 


02770 




B 


FNCNEZ 






















04846 


49 


0481C 


CCOOO 


02780 




DORG 


•-4 






















04853 








02790 


FZERQ 


TFM 


0PTM2 




• 70 




• 610^ 


F TYPE 


OUTPUT 


EQUALS 


ZERO 


04854 


16 


0821R 


OOOPO 


02800 




TF 


CHAR 2 




•LOCD 2 


















04866 


26 


06698 


C5596 


02810 




TDM 


CHAR-2 




• 0 




• 11 














04878 


15 


071C8 


COOO- 


02820 




B 


CLR7CS-12 




















04890 


49 


05026 


00000 


02830 




DORG 


•-4 






















04897 








02840 


WRTFPE 


TF 


0PTM2 




• DPG 




• 611 














04898 


26 


0821R 


05960 


02850 




TR 


OPT 




• DPG 




• 611 














04910 


31 


070CL 


05960 


02860 




B 


HEF DEC 






















04922 


49 


05074 


COOOO 


02870 




DORG 


•-4 






















04929 








02880 


KRTFPC 


TF 


• ♦30 




• TERN 


















04930 


26 


0496C 


C6775 


02890 




S 


• ♦18 




•CHAR 2 


















04942 


22 


0496C 


C6698 


02900 




TF 






•GAM^2 


















04954 


26 


00000 


02557 


02910 




TF 


CLR70S^30 


• TERM 


















04966 


26 


05068 


C6775 


02920 




C 


CHAR 




• LOCO 


















04978 


24 


0711C 


05598 


02930 




BNL 


CLR 70S 






















04990 


46 


05038 


CI 300 


02940 




A 


DPG 




•CHAR 2 


















05002 


21 


05966 


06698 


02950 




TR 


DPT 




• DPG 




• 611 














05014 


31 


0700L 


0596C 


02960 




TF 


CLR7OS^30 


• LAST 


















05026 


26 


05068 


05726 


02970 


CLR70S 


TFM 


• ♦35 




•MASK F 


















05038 


16 


05073 


-5317 


02980 




A 


• ♦23 




•CHAR 2 


















05050 


21 


05073 


06698 


02990 




TF 


TERM 








• 6 














05062 


26 


0677N 


OOOOC 


03000 


WEFDEC 


TFM 


DPT 




!o3 




• 610 














05074 


16 


0700L 


000-3 


03010 




TFM 


LAST 




• 00 




• 610 














05086 


16 


0572C 


CO 0-0 


03020 




B 


BSWF 






















05098 


49 


05816 


00000 


03030 




DORG 


•-4 






















05105 








03040 


ERF8E 


TR 


DUD H+21 


•FLZERS 


-57 
















05106 


31 


02628 


C6260 


03050 




TR 


GAM+1 




• MASK 




» » 


MOVES 


E + GO 


ALPHAMERICALLY 


05118 


31 


02556 


05305 


03060 




TD 


GAM^B 




»FAC 


















05130 


25 


02563 


02492 


03070 




TO 


GAM+6 




•FAC-1 


















05142 


25 


02561 


0249 1 


0308C 




TFM 


GAM + 3 




.451 




,9 














05154 


16 


02558 


C0M51 


03C9C 




BNF 


• ♦24 




.FAC 


















05166 


44 


0519C 


02492 


031C0 




TOM 


GAM+3 




,2 


















05178 


15 


02558 


00002 
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03110 




TR 


DUO H+13 


,GM1M2F 


,11 


05190 


31 


C262C 


d291M 


0312C 




TF 


DUD H+12 


,DUD H+14 




05202 


26 


02619 


02621 


03130 




TFf* 


DUD H+14 


,03 


,10 


05214 


16 


02621 


CCO-3 


03UC 


ERCO^^ 


CM 


DATINH+2 


,08 


,10 


05226 


14 


06049 


COO-8 


03150 




TFM 


EI + 2 


,67800 


•f SETS ERRCR F 8 ERASES REC MARK 


05238 


16 


C2617 


C78C0 


03lfcC 




BL 


ER COM 2 






05250 


47 


07C8C 


01300 


03170 




TF 


DATDUD*2 


,0ATINH+2 




05262 


26 


C604I 


C6049 


03180 




TfH 


lORT 


,•♦23 




05274 


16 


00565 


-5297 


03190 




B 


lOPT 


,0ATDUD-4 


• 7 


05286 


49 


00532 


-6035 


032CO 




B 


ERC0M2 






05298 


49 


0708C 


00000 


03210 




DORG 








05305 








03220 










MASKS 










03230 


WASK 


DSC 


10 


•451070700 




05305 




10 








451C707C0* 














032A0 


^«ASKEP 


OS 




,MASK+1 




05306 




C 




03250 


fASKF 


OAC 


31 » OCCOOOOOOOOOOOOOOOOOOOOOOOOOOO • 


05317 




31 


X 2 






OOOCOOOOOCOOOOOOOOOCOCOOOOOOOO* 










03260 


MASKI 


OS 




,MASKF+39 




05356 




C 




03270 


ICCN6 


B 


EF ALPH 


t 


• 1 


05378 


4R 


09184 


COOOC 


03280 




00 RG 


•-3 






05386 








03290 


ICCN5 


B 


EFRD 2 


t 


fl 


05386 


4R 


0872C 


OOOOO 


O33C0 




DORG 


•-3 






05394 








03310 


IC0N3 


B 


WRT 12 




tl 


05394 


4R 


10236 


COOCC 


03320 




DORG 


•-3 






05402 








03330 


ATYPEl 


TF 


WIDTH2 


• SWF 




05402 


26 


C5946 


0585J 


033AC 




TF 


INPLUS 


• LAST 




05414 


26 


05935 


05726 


03350 




A 


LAST 


•WIDTH2 




05426 


21 


05726 


05946 


03360 




C 


LAST 


• MAX2 




05438 


24 


05726 


C6027 


03370 




8H 


ERF9 






05450 


46 


07004 


01100 


03380 




TF 


TERM 


• LAST 




05462 


26 


06775 


05726 


03390 




B7 


ENOOV 






0 5474 


49 


12764 




03400 




OORG 


START41637 




05488 








03410 


WATYl 


TF« 


MAX 


• 0687 


• 8 


05488 


16 


05914 


0-687 


03420 




B 


WRTALP 






05500 


49 


05540 


OOOOO 


03430 




DORG 


•-3 






05508 








03440 


kAPTl 


TFM 


MAX 


,0887 


• 8 


05508 


16 


05914 


C-887 


03450 




B 


WRTALP 






05520 


49 


0554C 


OOOOO 


03460 




OORG 


•-3 






05528 








03470 


taACDl 


TFM 


MAX 


• 1080 


• 8 


05528 


16 


05914 


CJ08C 


03480 


WRTALP 


TDM 


RHEFSM 


• 1 


,, COMMON FOR EACH WRITE 


05540 


15 


05943 


COOOl 


03490 


RMA 


TF 


OATINH+2 


•MAX-2 


•• INITIALIZATION FOR EACH RO OR WRITE 


05552 


26 


06049 


C5912 


03500 




SF 


MAX-1 






05564 


32 


05913 


OOOOO 


03510 


REPSW 


OS 


2 


• •-3 




05572 




2 




03520 


NATSH 


OS 


1 


• •-2 


•• SET TO 1 WHEN MATRIX HAS CONTROL 


05573 




1 




03530 


REPSW3 


OS 


2 


t* 




05575 




2 




03540 




TFM 


• -1 


•00000 


• 711 


05576 


16 


05575 


-000- 


03550 




TOM 


SML^l 


t2 




05588 


15 


05925 


C0002 


03560 


LOCO 


OS 


2 


• •-I 


•LOC OF DECIMAL AS SPEC BY FCRNAT 


05598 




2 




03570 


L0CD2 


OS 


2 


• •-3 


• TWICE LCC D 


05596 




2 




03580 




TFM 


MESERR«^8 


• 679 


• 9 


05600 


16 


02615 


00079 


03590 




TFM 


MAX2 


• INH 




05612 


16 


06027 


-6053 


03600 




A 


MAX2 


• MAX 




05624 


21 


06C27 


C5914 


03610 




A 


MAX 2 


• MAX 




05636 


21 


C6027 


C5914 


03620 






CONTINUATION OF RMA. ALSO USED AFTER EACH OUTPUT 










03630 








RECORD NOT 


TERMINATED BY COMPLT MACRO 










03640 




TFM 


LAST 


• INH 




05648 


16 


05726 


-6053 



5J 
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03650 


RMA2 


TDM 


COMPSW 


t-1 






03660 


COMPSW 


OS 




• •-3 




•-1 1 


03670 




TR 


INH-1 


,STZER0+1 




03680 




TR 


INH+86 


•STZERC 






03690 




CM 


MAX-2 


• 06 




• 10 


03700 


WIDTH 


OS 


3 


• •-2 




• 


03710 




BNE 


• ♦24 








03720 




RCTY 










03730 


LAST 


OS 


5 


• •-5 




• ADI 


03740 




BO 


BSWF 


•RWEFSW 






03750 


RAOOIT 


TFM 


iORT 


• •♦23 






03760 




B 


lOGT 


•OATINH-4 


• 7 


03770 




CM 


MAX-2 


• 06 




• 10 


03780 




BNE 


• ♦24 


t 




t » 


03790 




BC4 


•-72 








03800 




TOM 


FLT ENO-5,2 






03810 








CONTROLS 


POSITIl 


03620 


BSkF 


AM 


SWF 


t5 






03830 




TF 


•♦18 


• SWF 




• 11 


03840 




B 


SWF 


f 




• 6^ 


03850 


SWF 


OS 


5 


t« 






03860 


RATYl 


TFM 


MAX 


• 0687 




f8 


03870 




8 


RDALP 








03880 




OORG 


•-3 








03890 


RAPTl 


TFM 


MAX 


• 0887 




• 8 


03900 




B 


RDALP 








03910 




OORG 


•-3 








03920 


RACOl 


TFM 


MAX 


• 1080 




• 8 


03930 


ROALP 


TDM 


RWEFSW 


fO 






03940 


MAX 


OS 


4 


• •-I 






03950 




8 


RWA 








03960 




OORG 


•-4 









PROHIBITS^O REQUIRES OUTPUT 



NO. OF EFF. DIGITS IN FIELD 



ADR OF RM AT END OF VARIABLE OUT REC 



ALLOWS GOOF SWITCH FOR RATY 



BR TO ACR INDICATED BY FORMAT SPEC. 



03970 
03980 
03990 



SHL IS A TRINARY SWITCH USED TO BRANCH TO THE PROPER SOURCE 
TO OBTAIN THE LOCATION THAT GOES WITH THE FORMAT MACRO 



05660 


15 


05668 


COOOJ 


05668 




C 




05672 


31 


06052 


06230 


05684 


31 


06139 


06229 


05696 


14 


05912 


COO-6 


05705 




3 




05708 


47 


05732 


C1200 


05720 


34 


OOOOO 


C0102 


05726 




5 




05732 


43 


05816 


05943 


05744 


16 


0C565 


-5767 


05756 


49 


00566 


-6043 


05768 


14 


05912 


000-6 


05780 


47 


05804 


C1200 


05792 


46 


C572C 


00400 


05804 


15 


03113 


00002 


05816 


11 


05851 


-0005 


05828 


26 


05846 


C585J 


05840 


49 


0585J 


COOOC 


05851 




5 




05852 


16 


05914 


C-687 


05864 


49 


C5904 


OOOOO 


05872 








05872 


16 


05914 


C-887 


05884 


49 


05904 


OOOOO 


05892 








05892 


16 


05914 


0J080 


05904 


15 


05943 


COOCO 


05914 




4 




05916 


49 


05552 


OOOOO 


05923 









BEING PERFORMED 



BB FOR OBJECT PROGRAM 



04000 


•••••• 










NOP FOR REDO CONTROL 










04010 












B FOR MATRIX CONTROL 










04020 


SWL 


NOP 


MATRX 2 








05924 


41 


06408 


OOOOO 


04030 


INPLUS 


OS 


5 


t* 


t 


WORKING POSITION OF I/O RECORD 


05935 




5 




04040 




TDM 


SWL^l 


t9 


t • 


MATRIX CONTROL SETS SWL TO 49 


05936 


15 


05925 


00009 


04050 


RWEFSW 


OS 


1 


• •-4 


• 


1 FOR WRT, 0 FOR RO, FLAG FOR E 


05943 




1 




04060 


WI0TH2 


OS 


3 


• •-1 






05946 




3 




04070 




8D 


SWC^12 


•MATSW 






05948 


43 


05984 


05573 


04080 




NOP 










05960 


41 


OOOOO 


OOOOO 


04090 


DP6 


DS 


5 


• •-5 


• 


TEMP AOR OF DEC PT IN GAMMA 


05966 




5 




04100 


LOC 


OS 


5 


»• 


• • 


CORE LQCATICN TO BE USED 


05971 




5 




04110 


•••«•• 






AFTER LOC 


ADR 


OBTAINED BR TO PROPER MACRO 










04120 


SWC 


TOM 


SWL^l 


• 2 






05972 


15 


05925 


00002 


04130 




80 


• ♦20 


•RWEFSW 


t • 


BR IF WRITING 


05984 


43 


06004 


C5943 


04140 




6 


SWC ADJ 




• 6 




05996 


^9 


0603M 


OOOOO 


04150 




DORG 


•-4 








06003 








04160 




TDM 


COMPSW 


,0 


f » 


SET TO REQUIRE OUTPUT 


06004 


15 


05668 


OOOOO 


04170 




CF 


LOC 








06016 


33 


05971 


OOOOO 


04180 


MAX2 


OS 


5 


• • 




TWICE MAXIMUM CHAR FOR OUTPUT 


06027 




5 




04190 




8 










06028 


49 


OOOOO 


OOOOO 


04200 


SWCAOJ 


OS 




• •-5 




RETURN ACD GF MACRO IN CONTROL 


06034 




0 





5J2 
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042 IC DORG »-4 0603S 

0A220 CATDUC DSA OUCH 06039 



04230 DC 
-0 

04240 DGK 
04250 DATINH DSA 



C6C39 
06041 



-26C7 
2 



06042 
06047 



1 

5 X 



04260 




DC 


2,00 






04270 




-0 
DGH 








04280 




DC 


1 




,0 


04290 


ENCFOR 


OAC 


1*0 






04300 


INH 


0 

OS 






tENOFOR 


04310 




OS 


174 






04320 


IN 


OS 


176 




» INH«I74 


04330 


STZERO 


OC 


2 




»00 






-0 








04340 




00 








04350 




00 








04360 




00 






t 


04370 




00 








04380 




00 








04390 




00 








044CO 




00 








04410 




DC 


2 




!oo 






-0 








04420 


FLZERS 


OC 


2 




tO» 


04430 




DS 


5 






04440 


MATRIX 


TDM 


MATSM 




,1 


04450 




TDM 


SWL^l 




,9 


04460 




TF 


LOCADJ 




,FP2 


0447C 




BNF 


MATRX2- 


12,MATRIX- 


04480 




TFM 


LOCAOJ 




tOO 


04490 


LOCADJ 


DS 


2 




f •-3 


04500 




S 


LOCADJ 




tK 


04510 




S 


MATRIX- 


1 


tLGCAOJ 


04520 


MATRX2 


A 


MATRIX- 


1 


.LOCADJ 


04530 




TF 


LOC 




.MATRIX- 


04540 




SM 


PAR 




.1 


04550 




BNE 


• ♦24 






04560 




TDM 


MATSW 




• 0 


04570 




BNL 


SWC«12 






04580 




BB 








04590 




OORG 


•-9 






04600 




MACRO FOR 


AN I/O CAP 


04610 


SLASH 


TDM 


C0MEND41 


.9 


04620 




BD 


SLASH2 




.RMEFSM 


04630 




B 


COMEND 






04640 




DORG 


•-4 






04650 


SLASH2 


BD 


I OCR 




•COMP SW 



.0246810 
,0246810 
.0246810 
.0246810 
,0246810 
.0246810 
,0246810 



.10 



MACRO TO PROCESS MATRICIES 



ADJUST LCC FOR MATRIX 



RETURN FROM SWL, EACH MATRIX ELEMENT 
MOVE ADJUSTED LOCATION 



A FORMAT STATEMENT 



06047 
06049 

06050 
06051 

06053 

06053 
06227 
06227 
06229 

06230 -0 

06242 -0 

06254 -0 

06266 -0 

06278 -0 

06290 -0 

06302 -0 
06315 

06317 



BR IF WRITING 



BR TO IC CR IF OUTPUT RECORD BLANK 



06482 
06494 
06506 
06513 
06514 



06322 
06324 
06336 
06348 
06360 44 
06372 16 
06380 
06384 
06396 
06408 
06420 
06432 
06444 
06456 
06468 46 
06480 42 
06482 



15 
15 
26 



22 
22 
21 
26 
12 
47 
15 



-6053 
2 



C 

174 
176 

2 

-0-C- 

-c-c- 

-0-0- 
-C-0- 
-0-C- 
-0-0- 
-0-0- 
2 



5 

05573 
C5925 
06380 
06396 
C638C 
2 

06380 
06323 
06323 
05971 
03843 
06468 
05573 
C5984 
00000 



06647 
06514 
06646 



C-0-0 
C-O-C 
0-0-0 
c-0-0 
C-0-0 
c-0-0 
C-0-0 



CCOOl 
00009 
C3052 
06323 
COO-0 

C2221 
C6380 
C6380 
06323 
CCO-l 
C1200 
CCOOO 
01300 
CCCCC 



00009 
05943 
CCOCC 



43 06654 05668 



513 
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04660 




CM 


DATINH+2 


.06 


,10 


06526 


14 


06049 


COO-6 


04670 




BH 


WRITE 




,, BR IF NCT TYPEWRITER OUTPUT 


06538 


46 


C6622 


ClIOO 


0468C 




TF 


LAST 


!flzers 


.6 


06550 


26 


0572C 


C6317 


04690 




SM 


LAST 


.02 


.10. ERASE BLANKS FROM END OF I/O RECORD 


06562 


12 


05726 


COO-2 


04700 




CM 


LAST 


,00 


.610 


06574 


14 


0572G 


CCO-0 


04710 




BE 


•-36 






06586 


46 


C655C 


C1200 


04720 




CM 


LAST 


• INH 




06598 


14 


05726 


-6053 


04730 




BL 


COM END 






06610 


47 


06646 


C1300 


04740 




TFM 


lORT 


,•♦23 




06622 


16 


00565 


-6645 


04750 




B 


lOPT 


,0ATINH-4 ,7 


06634 


49 


C0532 


-6043 


04760 


COf^END 


B 


RWA2-12 






06646 


49 


05648 


CCOCC 


04770 




DORG 


•-4 






06653 








04780 


lOCR 


CM 


MAX-2 


,08 


,10 


06654 


14 


05912 


COO-8 


04790 


CKh 


OS 


3 


♦ •-2 


• DEC SPEC PLUS CHAR OF ARC 


06663 




3 




04800 




BNL 


WRITE 






06666 


46 


06622 


01300 


04810 




B 


COMENO 






06678 


49 


06646 


COOOO 


04820 




OORG 


•-4 






06685 








04830 








MACRO TERMINATING I/O CONTROL 










04840 




DS 


3 






06687 




3 




04850 


COMPLT 


TOM 


C0MEND4-1 


.2 




06688 


15 


06647 


CC002 


04860 


CHAR2 


DS 


3 


,•-1 


. TWICE MCCIFIEO CHARACTERISTIC 


06698 




3 




04870 




B7 


$LASH^12 






06700 


49 


06494 




04880 


REDO 


BD 


REDO A4-24.MAT SW 




06708 


43 


06776 


05573 


04890 




TD 


RE00A423 


, COMPSW 




06720 


25 


06775 


05668 


04900 




TFM 


SWC ADJ 


.REDO A 


,, MACRO PERMITS REDOING BACK TO I 


06732 


16 


06034 


-6752 


04910 




B 


SWL 






06744 


49 


05924 


00000 


04920 




OORG 


• -4 






06751 








04930 


RECOA 


TDM 


SWL+1 


.1 


,. RETURN FROM SWL IF MORE DATA 


06752 


15 


05925 


CCOOl 


04940 




TDM 


COMPSW 


. 


,, VOID REDC USING SWC EFFECT ON COMPSW 


06764 


15 


05668 


COOOO 


04950 


TERM 


DS 


5 


,» 


, REFERENCE ACR IN I/O RECORD 


06775 




5 




04960 




AM 


SWF 


,5 




06776 


11 


05851 


-0005 


04970 




TF 


SWF 


,SWF 


,11 


06788 


26 


05851 


C585J 


04980 




B 


SLASH 






06800 


49 


06482 


00000 


04990 




DORG 


♦-4 






06807 








05000 


RESET 


B7 


RESETl 






06808 


49 


12668 




05010 






MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES 










05020 


•«»»•» 






SUB FROM 


REP SW, INITIALLY SET TO ZERO 










05030 


••»•«« 






IF REPSW 


NEG , SET TOREPS REQO AND REPEAT FORMAT 










05040 








IF REPSW 


ZERO, LAST FORMAT REPETITION IS COMPLETE 










05050 


••••«« 






IF REPSW 


PLUS, STEP DOWN AND REPEAT FORMAT SPEC 










05060 


REP 


AM 


SWF 


,7 




06816 


11 


C5851 


-C007 


05070 




SM 


REP SW 


tl 


,10. CONTROL REPETITION OF FIELDS 


06828 


12 


05572 


COO-l 


05080 




BH 


REP 2 






06840 


46 


06888 


CllOO 


05090 




BE 


BSWF 






06852 


46 


05816 


C12C0 


05100 




A 


REP SW 


,SWF 


.11 


06864 


21 


05572 


C585J 


05110 




BNH 


BSWF 






06876 


47 


05816 


01100 


05120 


REP 2 


SM 


SWF 


,2 




06888 


12 


05851 


-C002 


05130 




TF 


SWF 


,SWF 




06900 


26 


05851 


0585 J 


05140 




B 


SWF-2 3 






06912 


49 


05828 


COOOO 


05150 




DORG 


•-4 






06919 








05160 


REP3 


SF 


REP SW 3-1 






06920 


32 


05574 


COOOO 


05170 


MA 


OS 


5 




, WORKING AREA ACR REF TC FAC OR GAM 


06931 




5 




05180 




AM 


SWF 


,*7 


,10 


06932 


11 


C5851 


000-7 


05190 




SM 


REPSW 3 


.1 


.10 


06944 


12 


05575 


000-1 


05200 




BH 


REP 2 






06956 


46 


06888 


CllOO 


052 10 




BE 


BSWF 






06968 


46 


05816 


C1200 



5J 4 
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TOR II 


VERSION 
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4 






PAGE 


05220 




A 


REPSW 3 


»SWF 




• 1 1 




06980 


21 


05575 


C585J 


05230 




B 


REP 2-12 










06992 


A9 


C6876 


CCOOO 


05240 


CPT 


OS 


5 


• • 




* 


TEMP LCC OF DEC PT IN OUTPUT RD 


07003 




5 




05250 




IFF 


sue ADJ 


,ER CQH 




» » 


MACRO FCR ERROR F9 WHEN WRITING 


07004 


16 


C6034 


-7080 


05260 




TF 


LAST 


.MAX 2 








07016 


26 


05726 


C6C27 


05270 




Iff* 


EI 


,679 




• 9 




07028 


16 


C2615 


C0079 


05280 




B 


SWL 










07040 


49 


05924 


CCCCO 


0529C 




DORG 


• -4 










07047 








05300 


XTYPE 


AM 


SWF 


>3 




f • 


MACRO FCR SKIPPING FIELDS 


07048 


11 


05851 


-C003 


05310 




A 


LAST 


,SWF 




» 1 1 




07C60 


21 


05726 


C585J 


05320 




B 


BSWF 










07072 




G5816 


00000 


0533C 




DORG 


»-4 










07079 








05340 




RCTY 












07080 


34 


OOOCC 


0C1O2 


05350 


kA2 


OS 


5 


»»-5 




• 


WORKING AREA ADR REF TG FAC OR GAM 


07C86 




5 




05360 




WATY 


DUDH 










07C92 


39 


C26G7 


00100 


C537C 




RCTY 












07104 


34 


OOOOC 


00102 


05380 


CHAR 


OS 


5 


f*-5 




* 


MODIFIED CHARACTERISTIC 


07110 




5 




05390 




TR 


EI + 1 


.FLZERS- 


1 


» » 


RESTORES RECORD MARK 


07116 


31 


C2616 


06316 


05400 




BSB8 


BSWF-12 










07128 


60 


058C4 


C0002 


05410 


EFCOH 


AM 


SWF 


»3 








07140 


11 


05851 


-0CC3 


05420 




TF 


WIDTH 


,SWF 




• 11 




07152 


26 


057C6 


csasj 


05430 




AM 


SWF 


f2 








07164 


11 


05851 


-C002 


05440 




TF 


LOG D 


,SWF 




• 1 1 




07176 


26 


05598 


C585J 


05450 




TF 


INPLUS 


,LAST 








07188 


26 


05935 


05726 


05460 




TF 


WIDTH 2 


tWIDTH 








07200 


26 


05946 


C5705 


05470 




A 


WIDTH 2 


, WIDTH 








07212 


21 


05946 


C5705 


05480 




A 


LAST 


•WI0TH2 








07224 


21 


05726 


C5946 


05490 




C 


LAST 


• MAX 2 








07236 


24 


05726 


G6027 


055C0 




BH 


ER F9 










07248 


46 


07CC4 


CllOO 


05510 




TF 


TERM 


• LAST 








C7260 


26 


C6775 


C5726 


05520 




SM 


TERM 


.2 








07272 


12 


C6775 


-C002 


05530 




TF 


CHAR 


•WIDTH 








07284 


26 


C711C 


C5705 


0554C 




TF 


UA 


,FNH 








07296 


26 


06931 


02792 


05550 




TDM 


97 


.0 








C7308 


15 


00C97 


CCCOO 


05560 




TFM 


99 


• 00 




• 10 




07320 


16 


CC099 


CCO-0 


05570 




BO 


EF WRT 


•RWEFSW 








07332 


43 


07536 


C5943 


05580 




TF 


FAC 


•FLZALP 




• 1 1 




07344 


26 


02492 


0279P 


05590 




TFM 


EFTERM+18 


•EF TYPE 






07356 


16 


08286 


-7724 


056C0 




TFM 


SWCAOJ 


•READ EF 






07368 


16 


06034 


-4358 


05610 


ROFCH 


BNR 


• ♦20 


•INPLUS 




• 11 




07380 


45 


0740C 


0593N 


05620 




87 


ERRF7E 










07392 


49 


08416 




05630 




CH 


INPLUS 


• 00 




• 610 1 


ELIMINATE LEADING BLANKS 


07400 


14 


0593N 


CCO-0 


05640 




BNE 


FCH NB 










07412 


47 


0748C 


01200 


05650 




SM 


CHAR 


• 1 




• 10 




07424 


12 


0711C 


COO-1 


05660 




AM 


INPLUS 


•2 








07436 


11 


05935 


-0002 


05670 




C 


INPLUS 


• LAST 








07448 


24 


05935 


C5726 


05660 




BL 


RO FCH 










07460 


47 


07380 


01300 


05690 




B 


EFEND«12 










07472 


49 


08304 


00000 


05700 




00 RG 


•-4 










07479 








05710 


FCHNB 


CM 


INPLUS 


• 20 




• 610^ 


PROCESS FIRST NON BLANK CHARACTER 


07480 


14 


C593N 


COOKO 


05720 




BE 


EF MIN 










07492 


46 


07700 


01200 


05730 




CM 


INPLUS 


• 10 




• 610 




07504 


14 


0593N 


CCOJO 


05740 




BE 


EF PLUS 










07516 


46 


07712 


C1200 


05750 




B 


EFTVPE436 








07528 


49 


0776C 


00000 


05760 




DORG 


•-4 










07535 








05770 


EFWRT 


C 


LOC D 


• F 








07536 


24 


0559P 


02219 
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VERSION 
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4 






PAGE 


05780 




BNH 


• ♦24 










07548 


47 


07572 


01100 


05790 




TF 


LOC 0 


• F 








07560 


26 


05598 


C2219 


05800 




TF 


LOCO 2 


tLGC 0 








07572 


26 


05596 


C5598 


05810 




A 


LOCD 2 


• LOC D 








07584 


21 


05596 


C5598 


05820 




TR 


GAM-59 


.MASK F- 


1 






07596 


31 


02496 


05316 


05830 




TFM 


WA 


• GAM 








07608 


16 


06931 


-2555 


05840 




TFM 


WA2 


•FAC-1 








07620 


16 


07C86 


-2491 


0585Q 




TFM 


SWCAOJ 


• EFMW 








07632 


16 


C6C34 


-4382 


05860 




SM 


WIDTH 


• 2 




• 10 




07644 


12 


05705 


000-2 


05870 




BNF 


SWL 


•RWEFSW 








07656 


44 


05924 


C5943 


05880 




SM 


TERM 


• 8 








07668 


12 


06775 


-CQC8 


05890 




SM 


WIDTH 


• 4 




• 10 




07680 


12 


05705 


000-4 


05900 




B 


SWL 










07692 


49 


05924 


00000 


05910 




00 RG 


•-4 










07699 








05920 


EFMIN 


SF 


99 










07700 


32 


00099 


CCOOO 


05930 


EFPLUS 


SM 


CHAR 


.1 




• 10 




07712 


12 


0711C 


000-1 


05940 


EFTYPE 


AM 


INPLUS 


• 2 








07724 


11 


05935 


-0002 


05950 




CM 


INPLUS 


.00 




• 610 




07736 


14 


0593N 


cco-c 


05960 




BE 


LOG DIG 










07748 


46 


081C8 


C1200 


05970 




CM 


INPLUS 


.70 




• 610 




07760 


14 


0593N 


OOOPO 


0598C 




BH 


EF DIG 










07772 


46 


08208 


GLIOO 


05990 




BE 


LOG DIG 










07784 


46 


08108 


C1200 


06000 




CM 


INPLUS 


• 03 




• 610 




07796 


14 


0593N 


000-3 


06010 




BE 


EF DEC 










07808 


46 


0814C 


01200 


06020 




BNF 


ERRF7 E 


•RWEFSW 








07820 


44 


08416 


05943 


06030 




TFM 


EXP 


• 000 




• 9 




07832 


16 


07853 


00-00 


06040 




TDM 


E EXPAD^l 


• 1 








07844 


15 


08089 


00001 


06050 


EXP 


DS 


3 


• •'2 






VALUE OF CALC CHAR FOR OUTPUT 


07853 




3 




06060 




CM 


INPLUS 


• 45 




!610 




078S6 


14 


0593N 


000M5 


06070 




BE 


E EXP 










07868 


46 


08044 


01200 


06080 




CM 


INPLUS 


• 40 




• 610 




07880 


14 


0593K 


COOMO 


06090 




BNL 


ERRF7E 










07892 


46 


08416 


01300 


06100 


EEXP2 


CM 


INPLUS 


• 20 




• 610 




07904 


14 


0593N 


OOOKO 


06110 




BE 


E EXP M 










07916 


46 


08032 


01200 


06120 




CM 


INPLUS 


• 10 




• 610 




07928 


14 


0593K 


COOJO 


06130 




BE 


E EXP 










07940 


46 


08044 


012G0 


06140 


EEXP22 


BO 


•♦24 


• 97 








07952 


43 


07976 


00097 


06150 




SM 


CHAR 


• 1 




• 9 




07964 


12 


0711C 


00-01 


06160 




C 


INPLUS 


• TERM 








07976 


24 


05935 


06775 


06170 




BNL 


EEXPAO-12 








07988 


46 


08076 


G1300 


06180 




TD 


EXP-1 


•INPLUS 




• 11 




08000 


25 


07852 


0593N 


06190 




AM 


INPLUS 


• 2 








08012 


11 


05935 


-0002 


06200 




B 


EEXP22^12 








08024 


49 


07964 


COOOO 


06210 




DORG 


•-4 










08031 








06220 


tEXPM 


TOM 


E EXPAD^l 


• 2 








08032 


IS 


08089 


00002 


06230 


EEXP 


AM 


INPLUS 


• 2 








08044 


11 


05935 


-0002 


06240 




SM 


CHAR 


• 1 




.10 




08056 


12 


0711C 


COO-1 


06250 




B 


E EXP 2 










08068 


49 


07904 


00000 


06260 




DORG 


•-4 










08075 








06270 




TO 


EXP 


•INPLUS 




• 11 




08076 


25 


07853 


0593N 


06280 


EEXPAC 


A 


CHAR 


• EXP 








08088 


21 


0711C 


07853 


06290 




B 


EF END 










08100 


49 


08292 


00000 


063C0 




OORG 


»-4 










08107 








06310 


LOGO I G 


BNF 


EF DIG 


• 98 








08108 


44 


08208 


CC098 


06320 




SM 


CHAR 


.1 




f 10 




08120 


12 


0711C 


000-1 


06330 




B 


EF TERF 










08132 


49 


08268 


00000 
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PAGE 



C634C 




DORG 


»-4 






08139 








06 3 50 


EFCEC 


BD 


ERRF7 E 


»97 




08 140 


43 


084 16 


00097 


0636C 




TFN 


LOG D 


»0Q 


• 10 


08152 


16 


05598 


000-0 


06370 




TFN 


EFTERM+18 


,EF PLtS 




08164 


16 


08286 


-7712 


06380 




TDH 


97 


»-l 




08176 


15 


C0C97 


CCOOJ 


06390 




SM 


CHAR 


f 1 


• 10 


08188 


12 


0711C 


000-1 


064C0 




B 


EF TERM 






08200 


49 


08268 


00000 


06AIO 




DORG 


•-4 






08207 








06A20 


EFDIG 


CF 


98 






08206 


33 


00098 


ccooo 


06A30 


CPTM2 


OS 


5 


»* 


, TEMP ADR CF DEC PT IN I/O REC, -2 


08219 




5 




06A40 




CM 


WA 


tFAC-l 




08220 


14 


06931 


-2491 


06450 




BNL 


• ♦36 


» 


•, TRUNCATES LCM ORDER DIGITS 


08232 


46 


08268 


C1300 


06460 




TO 


WA 


.INPLUS 


• 611 


08244 


25 


0693J 


C593IM 


06470 




AM 


WA 


,1 




08256 


11 


C6931 


-0001 


0648C 


EFTERf 


C 


INPLUS 


.TERM 




08268 


24 


05935 


06775 


06490 




BL 


EFTYPE 






08280 


47 


07724 


CI300 


06500 


EFEND 


BNF 


EFEND2 


»FNH 


•11, ZERO CHECK 


08292 


44 


08324 


C279K 


06510 




TFN 


FAC 


,99 


• 1011 


08304 


16 


02492 


CCORR 


06520 




B 


SWL 






08316 


49 


05924 


00000 


06530 




OORG 


•-3 






08324 








06540 


EFEND2 


S 


CHAR 


• LOC 0 




08324 


22 


0711C 


05598 


06550 




BD 


ERR F7E 


tCHAR-2 




08336 


43 


08416 


C7108 


06560 




SF 


CHAR-l 






08348 


32 


07109 


CCOCO 


06570 




TF 


FAC 


.CHAR 




08360 


26 


02492 


C711C 


06580 




SF 


FNH 


t 


• 6 


08372 


32 


0279K 


COOOO 


06590 




BNF 


SWL 


t99 




08384 


44 


05924 


00099 


0660C 




SF 


FAC-2 






08396 


32 


02490 


00000 


06610 




B 


SWL 






08408 


49 


05924 


00000 


06620 




DORG 


•-4 






08415 








06630 


ERRF7E 


TF 


FAC 


.FLZALP 


•11, F PLUS 2 ZEROS TO FAC 


08416 


26 


02492 


0279P 


06640 




TOM 


EI 


.7 


•ll^ SET ER FT INDICATION SWITCH 


08428 


15 


02615 


COOOP 


06650 




B 


EFEND 






08440 


49 


08292 


COOOO 


06660 




DORG 


•-4 






08447 








06670 






MACRO FOR HOLLERITH TYPE READ AND WRITE 










06680 


HTYPEl 


BSBA 


• ♦12 






08448 


60 


0846C 


CGOCl 


06690 




TFM 


00314 


,00000 




08460 


16 


00314 


-COOO 


06700 




A 


00314 


,-SWF 




08472 


21 


C0314 


0SB5J 


06710 




BLXM 


• ♦12 


,0000011) 




08484 


66 


08496 


000-0 


06720 




AM 


SMF 


,00002 




08496 


11 


05851 


-0002 


06730 




MA 


HRDWRT46 


,LAST 




08508 


70 


08634 


05726 


06740 




MA 


HRDWRT^ll 


,SWF 




08520 


70 


08639 


05851 


06750 




BD 


• ♦36 


,RHEFSM 




08532 


43 


08568 


05943 


06760 




MA 


HRDWRT^6 


,SUF 




08544 


70 


08634 


05851 


06770 




MA 


HROWRT^ll 


• LAST 




08556 


70 


08639 


C5726 


06780 




SM 


SHF 


•0C002 




08568 


12 


05851 


-0002 


0679C 




A 


SHF 


•0C314 




08580 


21 


05851 


00314 


06B00 




A 


LAST 


•00314 




08592 


21 


05726 


00314 


06810 




C 


LAST 


• MAX2 




08604 


24 


05726 


C6027 


06820 




BH 


ER COM2 














06830 


HROWRT 


TF 


DUMMY! 1) 


•OUMMYll) 




08628 


26 


999R9 


999R9 


06840 




BXM 


• ♦12 


•00002(1) 




08640 


62 


08652 


000-2 


06850 




BCXM 


•-24 


•-00002(2) 




08652 


64 


08628 


CO-OK 


06860 




TDM 


COMPSW 


• 0 




08664 


15 


05668 


COOOO 


06870 




BSBB 


BSWF 






08676 


60 


05816 


00002 


06880 


EFRDl 


CF 


LOC 






08688 


33 


05971 


COOOO 


06890 




TF 


FIXEND^6 


•I CON 5*6 


08700 


26 


03074 


05392 
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06900 




B 


FIXl 








08712 


49 


10604 


00000 


06910 




OORG 


•-4 








08719 








06920 


EFRD2 


TDM 


FIXEND^I ,2 






08720 


15 


03C69 


00002 


06930 




TFL 


LOC 


• FAC 


• 6 




08732 


06 


0597J 


02492 


06940 




B 


ER F7 








08744 


49 


10140 


OOOOC 


06950 




DORG 


•-4 








08751 








06960 


■»•••• 






MACRO FOR 


A TYPE READ ANC WRITE 












06970 


READA 


MA 


XQTZ^^ll 


• LOC 






08752 


70 


08847 


05971 


06980 




BD 


WRITEA 


•RHEFSW 






06764 


43 


09016 


05943 


06990 




CF 


INPLUS 


• 


• 6 




08776 


33 


0593N 


COOOO 


07000 




AM 


INPLUS 


• 01 


• 10 




08788 


11 


05935 


000-1 


07010 




C 


INPLUS 


• TERM 






08600 


24 


05935 


06775 


07020 




BL 


•-36 








08812 


47 


08776 


Q13CC 


07030 




BNF 


RDAFL 


• LOC 






06824 


44 


08948 


C5971 


07040 


XQTZ 


CF 


LOC 




• 7 




06836 


33 


05971 


-0000 


07050 




TF 


LOC 


Ifxz 


• 6 




08848 


26 


059 7 J 


03260 


07060 




S 


WIDTH2 


• K 






06860 


22 


05946 


02221 


07070 


ROA 


BH 


ERF7A 








06672 


46 


08928 


01100 


07080 




A 


XQTZ*ll 


•WIDTH2 






08864 


21 


08847 


05946 


07090 




MA 


LOC 


,XQfZ^ll 






06696 


70 


05971 


06647 


07100 




TF 


LOC 


,TERM 


• 611 




08906 


26 


0597J 


C677N 


07110 




B7 


ERF7 








08920 


49 


1014C 




07120 


ERF7A 


TDM 


EI 


f7 


.11 




06928 


15 


C2615 


COOOP 


07130 




B7 


ERF7 








08940 


49 


10140 




07140 


RDAFL 


TFM 


LOC 


,00 


,610 




08948 


16 


0597J 


000-0 


07150 




SM 


XQTZ+U 


,00002 






08960 


12 


08847 


-C002 


07160 




MA 


LOC 


,XQTZ+ll 






08972 


70 


05971 


06647 


07170 




TF 


LOC 


• FLZ 


,611 




08984 


26 


0597J 


0280K 


07180 




S 


WI0TH2 


• F 






08996 


22 


05946 


02219 


07190 




B7 


RDA 








09008 


49 


08872 




07200 


WRITEA 


TF 


FAC 


,LOC 


,11 




09016 


26 


02492 


0597J 


07210 




BNF 


HAFX 


,FAC-l 






09028 


44 


0914C 


02491 


07220 




SM 


XOTZ+ll 


•00002 






09040 


12 


08847 


-0002 


07230 




S 


WI0TH2 


• F 






09052 


22 


05946 


C2219 


07240 


WRTA 


BH 


WRTA2 








09064 


46 


C912C 


01100 


07250 




A 


XOTZ^ll 


•WIDTH2 






09076 


21 


08847 


05946 


07260 




MA 


LOC 


•XQTZ+11 






09088 


70 


05971 


08847 


07270 




TF 


TERM 


• LOC 


• 611 




09100 


26 


0677N 


C597J 


07280 




87 


BSWF 








09112 


49 


05816 




07290 


WRTA2 


SM 


WIDTH2 


.02 


• 10 




09120 


12 


05946 


OCO-2 


07300 




87 


WRTA 








09132 


49 


09064 




07310 


WAFX 


S 


MIDTH2 


.K 






09140 


22 


05946 


C2221 


07320 




B7 


WRTA 








09152 


49 


09064 




07330 








E AND F TYPE MANTISSA WR I T ING , FLOAT ARG 


IF REQ. 










07340 


«••••• 






COMPUTE DEC PT IN GAM AND CUTPUT RECORD. 


MOVE 










07350 


•«»*«• 






MANTISSA 


DIGIT BY DIGIT, RIGHT TO LEFT, 


FROM FAC 










07360 








TO GAM. INSERT SIGN, CHECK WIDTH, AND ZERO, . 










07370 


•»«••• 






BR TO WRT 


F FOR F TYPE CONTINUATION 












07380 


EFMWl 


TFL 


FAC 


,LOC 


.11 




09160 


06 


02492 


C597J 


07390 




BNF 


FLOATl 


,FAC-l 






09172 


44 


11158 


02491 


07400 


EFALPH 


TDM 


FLTEND-5 


,2 






09184 


15 


03113 


00002 


07410 




TF 


DPT 


,TERM 






09196 


26 


07003 


06775 


07420 




S 


DPT 


,LCC D 2 






09208 


22 


07003 


C5596 


07430 




TFM 


DPG 


,GAM 






09220 


16 


05966 


-2555 


07440 




S 


DP6 


,LOC D 2 






09232 


22 


05966 


05596 


07450 




TF 


DPTM2 


,DPT 






09244 


26 


08219 


07003 
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PAGE 



07460 




SM 


DPTM2 














0747C 


b F A L P 


SH 


MA 2 








13 




-OQCl 


0 74 8 C 




TD 


WA 


* ^ 


• 1 1 




9K 




C708C 










* 


• o 




3 3 


0693 J 


CCOOO 


075CC 




SM 


MA 












~C002 


0 7 5 1 C 




Q 




* 






*■ 




C2792 








fc F ALP 






09328 


46 


09268 


C 1100 


07530 








nn 


»6 10 


09340 


16 


C 69 3 J 


CCO'"0 


07540 




BNF 


CF 


*FAC 2 




09352 


44 


09376 


C2490 


07550 




TFP 


MA 


»20 


• 610 




16 




CCOKC 




FFTHK <; 


TFM 




*fnrn 


*9 


09376 


16 


06663 


CC— CO 






* 


ritu 






09388 


21 


C6663 


05598 


07580 






CKM 


*FAC 




noA?^ 


21 




TAAA^ 


07590 




TF 


CHAR 


f CKM 












n7A?n 








tF 




09424 


22 


071 IC 


022 19 










tLOC 0 




09436 


24 


057C5 


05598 


n7Atn 




Ri 


CP CB 






09448 


47 


05106 


01300 


ri7A^^ 




riii 


CAr 


t— 70 


» 1 0 • 


09460 


14 


02492 


OOOP- 










fRMEFSM 




09472 


44 


09492 


C5943 














09484 


49 


C95C4 




07640 




tti 








09492 


47 


0951 6 


01300 


07650 




Rn 


* 


tFNH 


til 








02 79K 






TniK 




4 t-l 






, ^ 


1 /I 


0000 J 


07670 




TFM 


CHAR ~ 


,-099 


t9 


09528 


16 


07 lie 


C0~9R 


0 7680 




BNF 


WRTF 


•RMEFSM 




09540 


44 


04606 


05943 




****** 






MRITE E TYPE. ASSEMBLE EXP IN GAM USING A MASK, 










07700 








THE CHAR AND SIGN. MOVE LEFT GAM AND RIGHT GAM TO 










077 10 


****** 






OUTPUT. THEN GO TO INSERT DECIMAL POINT 












WRTt 


_ ■ 


MIuTH 


tF 




09552 


22 


05705 


02219 


07730 




BNL 






t» BR IF F NOT LARGER THAN EFF WIDTH 




46 


04502 


01300 


07740 




80 




,FLTEND-4 




09i76 


43 


096 12 


03114 










tMIDTH 






f ^ 






07760 




80 


ERPBt 


•CHAR-2 




09600 




05106 


07108 






TFM 


* , J 


,GAM 




09612 


16 


09659 


-2555 


07780 




* 




tMIDTH 




09624 


21 


09659 


C5705 


07790 








tMIDTH 




nnf f a 


21 




05705 


07800 












09648 


26 


02555 


UOOUO 








HRTE2 






09660 


49 


04502 


OOOUG 


n7flpn 




nnor 








09667 










****** 






MACRO FOR 


1 TYPE READ AND WRITE 










07840 




_ 


WIDTH2 


tSMF 


• 11 


09668 


26 


05946 


0585 J 


07850 






LAST 


tMI0TH2 












07860 






LAST 


• MAX2 




no AO 9 




n«79A 




07870 






ER F9 








46 


n7ftnA 










INPLUS 


tLAST 






26 






n7BQn 




TFM 


IR 0164^6 .FAC 






16 


09978 


— 2492 


n7Qnn 




TFM 


sue ADJ 


tMRITE I 




09740 


16 


06034 


-4334 


n7a I n 




80 


SML 


tRMEFSM 






43 


C5924 


05943 


07920 




TF 


TERM 


, FPIMK 




09764 


26 


06775 


02772 


07930 




TF 


FAC 


tFXZ 




09776 


26 


02492 


03260 


07940 




TFM 


SNC ADJ 


tREAOI 




09788 


16 


06034 


J0080 


07950 




CHAR BY CHAR IS MOVED INTO FACtRIGHT JUSTIFIECtUNTU SIGN 










07960 


•««••• 


QR H CHAR 


ARE EXAMNEO. 










07970 


•••••• 


ERROR F7 


WILL OCCUR 


IF MORE THAN K CHAR ARE AVAIL TO READ 










07980 


IREAO 


SM 


WIDTH2 


t2 


tlO 


09800 


12 


05946 


CCO-2 


07990 




BL 


SNL 






09812 


47 


05924 


C1300 












5 J y 
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PAGE 


ueOuu 




SM 


INPLUS 


f2 




09824 


12 


05935 


—0002 






BNR 


•♦20 


t INPLUS 


tU 


09836 


45 


09856 


0593N 






B7 


ERRF7I 






09848 


49 


10048 




08030 




CM 


INPLUS 


t70 


t610 


09856 




0593K 


OOOPO 


08040 




BH 


IR DIG 






09868 


46 


09972 


CilOO 


08050 




BE 


IR BLNK 










10008 




08060 




CM 


INPLUS 


tOO 


t610 


noflo? 


14 


0593N 


000—0 


08070 




BE 


IR BLNK 






09904 


46 


10006 


C 1200 


08080 




CM 


INPLUS 


t2C 


t610 


099 16 




0593N 


CCOKO 


08090 




BE 


I MINUS 






noof n 








08 LOO 




CM 


INPLUS 


tlO 


• 610 






0593N 


uoo^o 


08110 




BE 


SML 








46 






08 120 




B 


ERR F7I 






09964 


49 


1004 8 


rrnno 


08130 




DORG 


•-4 






09971 








08140 


IRD 16 


TD 




•INPLUS 


tU 


09972 


25 




0593N 






C 


•.6 


• TERM 




09984 


24 


09978 


06775 


08 160 




BL 


ERR F7 


I 




09996 




10048 


C 1 300 


08170 


IBRi MK 
IKBLNK 


SM 


IR DI6«6 ,1 




10008 


12 


C9976 


— 0001 


08180 




B 


1 READ 






10020 


49 


09800 


00000 


08190 




DORG 


•-4 






10027 








08200 


IM INUS 


SF 


FAC 






10028 


32 


02492 


rnnnr 


08210 




B 


SWL 








49 


05924 


OOOOC 






DORG 


•-4 






10047 








08230 


ERRF7I 


TF 


FAC 


• FXZ 


•• SET FIXED ZERO INTO FAC 




26 


02492 


C3260 


08240 




TFM 


EI 


• 677 


•911^ SET ERRCR F7 INDICATION 


10060 


16 


02615 


0007P 






B 


SML 






10072 


49 


05924 


OOOOC 






DORG 


•-4 






10079 








no97n 


READ! 


SF 


FPIMK 




t6 


10080 


32 


0277K 


COOOO 


no9Dn 




TF 


FLT END 


!lCON 24-6 




10092 


26 


031 18 


10178 






BNF 


FLOATl 


• LOC 




10 104 


44 


11156 


05971 


na^i r 




CF 


LOC 






101 16 


33 


05971 


OOOOC 




DC Ante: 


TFL 


LOC 


• FAC 


t6 


10128 


06 


0597 J 


02492 




COC7 


BNF 


BSWF-12 


tEl 


•• BR IF NCT ERROR TYPE F7 


10140 


44 


058G4 


02615 






CF 


EI 


» 


•• ERASE ERRCR F7 INDICATION 


10152 


33 


02615 


00000 


naif n 




B 


ER COM 


2 




10164 


49 


07080 


OOOOC 






DORG 


•-4 






10171 








08360 


IC0N2 


B 


READ IF 


• 


tl 


10172 


4R 


10126 


CCOOO 


08370 




DORG 


•-4 






10 179 








08380 


****** 






RETURN FROM 


SWL VIA SMC IF MRITING I TYPE 










08390 


****** 






VALUE PUT IN FAC IN I FORM^EXPANDED TO ALPHA IN 










084C0 


****** 






GAMMA RIGHT 


TC LEFT. HO CONTAINS ADR OF HIGH ORDER 










084 10 


****** 






DIGIT IN GAM. AFTER VALUE IN GAM IS S I6NE0«CHECKE0 










08420 


****** 






FOR WIDTH, 


MOVE TO OUTPUT RECORD. 












****** 






ERF8I RESULTS IF VALUE TOO LARGE FOR FORMAT SPECS. 










QB440 


WRI TI 1 


TFM 


MA2 


,FAC*1 




10180 


16 


07086 


-2493 


08450 




TFL 


FAC 


• LOC 


• 11 


1 n?nf 




?n3Afi 




08460 




BNF 


MRTI2*12 tFAC-l 






AA 




n^AOi 


08470 




TF 


FIXEND+6 tIC0N3-f6 




10216 






05400 


0848C 




B 


FIXI 






10228 


AO 


1 nAOA 


f\f\t\t\f\ 
uuUuu 


08490 




00 RG 


•-4 






10235 








08500 


WRTI2 


TDM 


FIXEND+l .2 




10236 


15 


03069 


00002 


08510 




TR 


GAM- 1 9 


•MASK I 




10248 


31 


02536 


05356 


08520 




TFM 


HO 


,GAM4^l 




10260 


16 


10351 


-2556 


08530 


WRTI 


SM 


WA 2 


• I 




10272 


12 


07086 


-0001 


08540 




SM 


MA 


• 2 




10284 


12 


06931 


-0002 


08550 




TD 


MA 


• MA 2 


,611 


10296 


25 


0693J 


07080 



5 20 
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0856C 




BD 


I OIG 


»WA 2 


• 11 




10308 


43 


10328 


0708C 


085 70 




B 


I DIG+12 








10320 


49 


1034C 


COOOO 


08580 




00 RG 


•-4 








10327 








08590 


lOIG 


TF 


HO 


,WA 






10328 


26 


10351 


06931 


08600 




CF 


GAM 


t 


1 1 


PREVENTS PREMATURE TERM. FOR NEG ARG 


10340 


33 


02555 


COOGC 


08610 


HO 


OS 


5 


• • 


• 


AOR OF HI CROER NON ZERO DIGIT 


10351 




5 




08620 




BNF 


WRTI 


,HA 


• U 




10352 


44 


10272 


C693J 


08630 




CM 


HO 


,GAM^1 






10364 


14 


10351 


-2556 


08640 




BNE 


WRT SGN 








10376 


47 


10408 


C1200 


08650 




TFM 


LAST 


• 7CG0 


• 68 




10388 


16 


0572C 


OPOOO 


08660 




B 


BSMF 








10400 


49 


05816 


COOCO 


08670 




□ORG 


•-■4 








10407 








08680 


MRTSGN 


BNF 


WRT 13 


• FAC 






10408 


44 


10444 


02492 


08690 




SM 


HO 


• 2 






10420 


12 


10351 


-0002 


087C0 




TFM 


HO 


• 20 


• 610 




10432 


16 


1035J 


COOKO 


0871C 


WRTI3 


SM 


HO 


• 1 






10444 


12 


10351 


-0001 


08720 




TFM 


OUT 


• GAM 






10456 


16 


10515 


-2555 


08730 




S 


OUT 


• HO 






10468 


22 


10515 


10351 


08740 




C 


OUT 


•WIDTH 2 






10480 


24 


1C51S 


05946 


0875C 




BH 


ER F8 I 








10492 


46 


10572 


OllOO 


08760 




SF 


OUT 








10504 


32 


10515 


GOOCO 


08770 


CUT 


OS 


5 


• • 


• HI 


ORDER HKG ADR IN I/O RECORD^ I TYPE 


10515 




5 




08780 




A 


OUT 
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C664C 


-0000 


03600 




TOM 


SWL^13 


t2 


06706 


15 


06599 


C0002 


03610 


• 




. RWA3 


LO IX A2 WITH -.MAX.-l AND ST IN •IX2HL0. 










03620 


RWA3 


TFM 


00314 


,99997 


06718 


16 


CC314 


R9997 


03630 




S 


00314 


,MAX 


06730 


22 


00314 


03188 


03640 




TF 


IX2HL0 


,00314 


06742 


26 


06796 


C0314 


03650 


• 




. RWA2 


RESET .CCMPSW. INIT I/O REC TO ALPHA BLANKS 










03660 


• 




. RCTY IF 


WATYtSKIP .RA DO IT. IF WRTG 










03670 


RWA2 


TR 


INH-l 


,ST2ER0-1 


06754 


31 


02520 


02770 


03680 




TR 


INH486 


tSTZERC 


06766 


31 


02607 


02771 


03690 




80 


•♦24 


tTYPE 


06778 


43 


06802 


C3423 


03700 




RCTY 


OOOOC 




06790 


34 


OOOOC 


C0102 


03710 


IX2HL0 


DS 




.•-5 


06796 




0 




03720 




BSBA 


• ♦12 




06802 


60 


06814 


00001 


03730 




BD 


BSNF 


tRMEFSW 


06814 


43 


06834 


C3333 


03740 




B7 


R ADO IT 




06826 


49 


06026 




03750 


• 




» BSWF 


FORMAT CONTROltBR TO FORMAT SPEC lAfSET IX 1 










03760 


• 




. TO PNT AT WIDTH SPEC IN FORMAT STATEMENT 










03770 


BSWF 


BXM 


-5 (11 


f8 (1) 


06834 


62 


000-N 


000-8 


03780 


XTVPE 


MA 


• ♦23 


,309 


06846 


70 


C6869 


C0309 


03790 




BOX 


BSWF 


,•-• (21 


06858 


63 


06834 


00-00 


03800 




BLXM 


BSWF 


•99998 (21 


06870 


66 


06834 


99R98 


03810 


REP 


BLXM 


•♦12 


•REPSW (71 


06882 


66 


06894 


1 CC0L7 


03820 




SM 


0 (7) 


•01 •lO 


06894 


12 


0 0 


CCC-I 


03830 




BH 


REP2 




06906 


46 


C6954 


OllOO 


03840 




BE 


REPEX • 




06918 


46 


070C2 


01200 


03850 




A 


0 (71 


• 4 (1) 


06930 


21 


0 C 


COO-4 


03860 




BNH 


REPEX 




06942 


47 


07CC2 


CUOO 


03870 


REP 2 


TF 


00309 


• 2 (1) 


06954 


26 


00309 


000-2 


03880 




BXM 


BSWF 


.-5 (1) 


06966 


62 


06834 


COO-N 


03890 


REP3 


SF 


REPSW3-1 




06978 


32 


06639 


COOOO 


03900 




BLXM 


REP^12 


•REPSW3(7) 


06990 


66 


06894 


COOMO 


03910 


REPEX 


BXM 


BSWF 


• 4 (1) 


07002 


62 


06834 


000-4 


03920 


ERC0M2 


RCTY 






07014 


34 


OOOOC 


00102 


03930 




WATY 


DUDH 




07026 


39 


02699 


CClOO 


03940 




RCTY 






07038 


34 


OOOOC 


00102 


03950 




TD 


EI^2 


•RECMK 


07050 


25 


02709 


02403 


03960 




B7 


BSWF 




07062 


49 


06834 




03970 


OATINH 


DSA 


IN(2) 




07073 




5 


X 1 












07073 




-2097 




03980 




DC 
-0 


2 


• 00 


07075 




2 




03990 




DGM 






07076 




1 




040C0 


CATOUO 


DSA 


DUDH 




07081 




5 


X I 












07081 




-2699 




04010 




DC 
-0 


2 


,00 


07083 




2 




04020 




DGM 






07084 




1 




04030 


FLCAT2 


BSBA 


• ♦12 




07086 


60 


07098 


CCOOl 


04040 




BLX 


• +12 


,MK (5) ,, SET IX 5 TC -K 


07098 


65 


07 lie 


0L1P3 



536 
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04050 




CF 


FAC*l(5) 
















07110 


33 


0K4R3 


COOOO 


04060 




CF 


FAC-4 
















07122 


33 


02488 


00000 


04070 




MF 


MU-l 


,FAC 














07134 


71 


C2967 


02492 


04080 




BO 


•♦32 


»FAC^1 


(5) 


t , 


HI CRCER CI 


:g 


07146 


43 


07178 


CK4R3 


04090 




BCXH 


•-12 


f 1 


151 




STEP 




1X5 


BY 1 


07158 


64 


07146 


C-0-1 


04100 




B7 


2ERFAC 
















07170 


49 


02884 




04110 




BD 


FLT3 


,328 




• , 


SKIP 


IF 


HI 


ORDER DIGIT NOT ZERO 


07178 


43 


07214 


00328 


04120 




SF 


FAC (5) 


• 1 




,7 










07190 


32 


0K4R2 


-0001 


0413G 




FSL 


FAC-10 


»FAC 














07202 


05 


02482 


02492 


04140 


FLT3 


MF 


326 


,329 






EXP 1 


[S 


NEG 


1X5 VALUE 


07214 


71 


00328 


C0329 


04150 




TF 


FAC 


,329 














07226 


26 


02492 


00329 


04160 




SF 


FAC- 9 
















07238 


32 


02483 


COOOO 


04170 




MF 


FAC-2 


,MU-l 






RESTORE 


CRIG SIGN 


07250 


71 


C249C 


02967 


04180 




87 


FLTENU 


, 




,6 










07262 


49 


C296C 




04190 


F IXl 


TFM 


FAC-20 


,000 




,9 










07270 


16 


02472 


00-00 


04200 




MF 


MU-l 


, FAC-2 














07282 


71 


02967 


02490 


04210 




TF 


FAC-22 


, FAC-2 














07294 


26 


0247C 


02490 


04220 




CM 


FAC 


,00 




• 10 










07306 


14 


02492 


COO-C 


04230 




BH 


• ♦32 
















07318 


46 


0735C 


OllCC 


04240 




TF 


FAC 


,FXZ 














07330 


26 


02492 


C3099 


04250 




B7 


FIXENO 
















07342 


49 


0296C 




04260 




C 


FAC 


,K 














07350 


24 


C2492 


02221 


04270 




BNH 


• ♦56 
















07362 


47 


07418 


CHOC 


04280 




TFM 


EI 


,572 




• 9 










07374 


16 


02707 


C0N72 


04290 


FXNINE 


TF 


FAC 


,FX9 














07386 


26 


02492 


C3089 


04300 




MF 


FAC 


,MU-1 














07398 


71 


C2492 


02967 


04310 




B7 


ERROR 
















07410 


49 


02936 




04320 




TFM 


• ♦59 


, FAC-30 














07418 


16 


07477 


-2462 


04330 




A 


• ♦47 


,FAC 














07430 


21 


07477 


C2492 


04340 




TDM 


FAC-30 


,0 




,11 










07442 


15 


C2462 


0000- 


04350 




TF 


FAC 


,FXZ 














07454 


26 


02492 


C3099 


04360 




A 


FAC 


,•<-« 














07466 


21 


02492 


CCOOO 


04370 


XSGN 


MF 


FAC 


,MU-l 














07478 


71 


C2492 


02967 


04380 




B7 


FIXENO 
















07490 


49 


C296C 




04390 




DORG 


8000 
















08000 








04400 


AS 1 


34 


Al 


• 701 














08000 


34 


08036 


C070 1 


04410 




38 


Al 


• 702 














08012 


36 


08036 


C0702 


04420 




49 


• ♦26 
















08024 


49 


0805C 


00000 


04430 


Al 


osc 


14 


•01560005102398 










08036 




14 








01560005102398 
























04440 




TRA 


















08C5C 


36 


COOOC 


C0500 
























08062 


49 


00000 


00000 


04450 




TCO 


ASi 
















08000 








04460 




SECONDARY LINKAGES 


WITH MRITE BLOCK IN CORE 










04470 




DORG 


START 
















03851 








04480 




DS 


3 
















03853 




3 




04490 




TFL 


FAC 


•FIX-l 




,11 










03854 


06 


02492 


0385L 


04500 




B 


FIXl 
















03866 


49 


0727C 


COOOO 


04510 




BLXM 


FMON 


• •(CI 














03878 


66 


03564 


03878 


04520 




NOP 


















03890 


41 


OOOOC 


COOOO 


04530 




BLXM 


FMON 


• •(0) 














03902 


66 


03564 


C3902 


04540 




NOP 


















03914 


41 


COOOC 


COOOO 


04550 




BLXM 


FMON 


• •(01 














03926 


66 


03564 


03926 


04560 




NOP 


















03938 


41 


OOOOC 


COOOC 


04570 




BLXM 


FMON 


• •(Ot 














03950 


66 


03564 


C3950 
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04580 




NOP 










03962 


41 


00000 


CCCOG 


04590 




BLXM 


FMON 


• •(0) 






03974 


66 


03564 


C3974 


04600 




NOP 




•10000 






03986 


41 


COOOC 


ICOOO 


04610 




TFL 


FAC 


• •-l 


• u 




03998 


06 


02492 


0399P 


04620 




B 


FL0AT2 








04010 


49 


07C86 


CCOOC 


04630 




BLXM 


FMON 


,*(0) 






04022 


66 


03564 


C4C22 


04640 




NOP 










04034 


41 


COOOC 


COOOO 


04650 




BLXM 


FMON 


• •(0) 






04046 


66 


03564 


04046 


04660 




NOP 










04058 


41 


OOOOC 


00000 


04670 




BLXM 


FMON 


• •(01 






04C70 


66 


03564 


C4C70 


04680 




NOP 










04082 


41 


OOOOC 


COOOO 


04690 




BLXM 


FMON 


• •(01 






04094 


66 


03564 


04094 


04700 




NOP 










04106 


41 


OOOOC 


OOOOC 


04710 




BLXM 


FMON 


• •(01 






04118 


66 


03564 


04118 


04720 




NOP 










04130 


41 


00000 


COOOO 


04730 




B 


CLOBB 








04142 


49 


03496 


00000 


04740 




B 


CLOTT 








04154 


49 


03516 


00000 


04750 


WATY 


TF 


00309 


••-1 






04166 


26 


00309 


04165 


04760 




B 


WATYl 








04178 


49 


0321C 


00000 


04770 


MAPT 


TF 


00309 


••-I 






04190 


26 


00309 


04189 


04780 




B 


WAPTl 








04202 


49 


03246 


00000 


04790 


WACO 


TF 


00309 


••-I 






04214 


26 


00309 


04213 


04800 




B 


WACDl 








04226 


49 


03270 


COOOO 


04810 




TF 


00309 


••-I 






04238 


26 


00309 


04237 


04820 




B 


RATYl 








04250 


49 


03368 


00000 


04830 




TF 


00309 


••-I 






04262 


26 


00309 


04261 


04840 




B 


RAPTl 








04274 


49 


C3404 


COOOO 


04850 




TF 


00309 


••-l 






04286 


26 


00309 


04285 


04860 




B 


RACOl 








04298 


49 


03424 


00000 


04870 


ITYPE 


BLX 


•♦12 


•MKPl (S) 


• • 


SET 15 TO -K ♦! 


04310 


65 


04322 


0L108 


04880 




BLXM 


SML 


•WRT I (6) 






04322 


66 


06586 


0MN14 


04890 


MR I TEA 


BLXM 


eRF9-l2 


••♦12 (61 


• • 


BR TO CHECK RECORD 


LENGTH 04334 


66 


04982 


0ML46 


04900 




BNF 


MA FX 


•FAC- I 






04346 


44 


04418 


C2491 


04910 




TF 


FAC 


.FAC-2 


• • 


SHIFT IF FL NO. 


04358 


26 


02492 


02490 


04920 




BXM 


WRT A 


•-8 (41 






04370 


62 


0449C 


C-OOQ 


04930 


WRTACK 


TF 


IN-2 {2) 


•FAC (4) 






04382 


26 


02095 


0K492 


04940 




B 


BSWF 








04394 


49 


06834 


COOOO 


04950 


ATYPE 


BLXM 


SML 


•MRITEA(6) 






04406 


66 


06586 


0ML34 


04960 


WAFX 


BX 


MRT A 


•MK (4) 






04418 


61 


04490 


0L173 


04970 


FTYPE 


CF 


RWEFSW 








04430 


33 


03333 


00000 


04980 




BLXM 


SHL 


•NEFC0M(6) 






04442 


66 


06586 


ON- 18 


04990 


ETYPE 


SF 


RWEFSW 








04454 


32 


03333 


COOOO 


05000 




BLXM 


SWL 


,WEFCQM(6} 






04466 


66 


06586 


ON-18 


05010 


HTYPE 


BLXM 


JH6^36 


,WHTYPE(6} 






04478 


66 


04958 


CMQ14 


05020 


WRTA 


BNH 


WRTA CK 


,01 






04490 


47 


04382 


01101 


05030 




BXM 


WRT A 


,-2 (4) 






04502 


62 


0449C 


C-OOK 


05040 


• 


WRITE I TYPE FROM FAC 


TO 


I/O REC 










05050 


WRTI 


BNF 


WRT 12+12 


,FAC-1 


• • 


FIXED NUMBER 


04514 


44 


04558 


02491 


05060 




TFM 


FIXEND+6 


,WRT 12 






04526 


16 


02966 


-4546 


05070 




67 


FIX 1 








04538 


49 


0727C 




05080 


WRTI2 


TFM 


FIXEND+6 


,RTN 






04546 


16 


02966 


-2506 


05090 




BLXM 


ERF9-12 


,•♦12 (61 


, » 


6R TC CHECK RECORD 


LENGTH 04558 


66 


04982 


CMN70 


05100 




MF 


MU-l 


,FAC 






04570 


71 


02967 


02492 


05110 




TR 


DUO-29 


,FLZERS-29 




CLEARS CUD AREA 


04582 


31 


0271C 


02830 


05120 




BO 


WRTSGN-12 


,FAC (51 


• » 


HI ORG CIG LOC (IX 


5 = -K+1) 04594 


43 


04618 


CK4R2 


05130 






•-12 


,1 (5) 




CECRE HICRD ZERO 


04606 


64 


04594 


0-0-1 



538 
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05140 




SF 


FAC-I (5), ,t 


DEFINE HICRD DIGIT 


04618 


32 


0K4R1 


00000 


05150 


WRTSGN 


BX 


•♦12 ,329 15J,, 


DOUBLE IX 5 


04630 


61 


04642 


0-3K9 


05160 




INF 


GAM-2 ,FAC 




04642 


73 


02737 


02492 


05170 




BNF 


WICK-12 ,MU-l 




04654 


44 


0471C 


02967 


05180 




TFM 


GAM-4 (5), 20 ,10 




04666 


16 


0K7L5 


COOKO 


05190 




BXK 


WICK ,-2 (5),, 


ALLOW F(]R SIGN 


04678 


62 


04722 


0-0-K 


05200 


WIEXIT 


TF 


IN-2 (2), GAM-2 


MOVE DATA TO I/O RECORD 


04690 


26 


02095 


C2737 


05210 




87 


BSWF 




04702 


49 


06834 




05220 




SF 


GAM-3 (5), 


DEFINE HI ORO DIGIT FOR PLUS VALUE 


04710 


32 


0K7L6 


COOCO 


05230 


WICK 


BCX 


WI EXIT ,329 (4),, 


WIDTH SPEC OK W^2^IX5 MORE THAN 1 


04722 


63 


0469C 


0-329 


05240 




TR 


GAM-29 f6AM>3 (5),, 


SHIFT ERROR VALUE LEFT 


04734 


31 


0271C 


CK7L6 


05250 


ERF8 


TFM 


EI+2 ,67800 ,, 


SET ERF8, ERASE RM 


04746 


16 


C27C9 


07800 


05260 


ERCOM 


BNF 


ERC0M2 ,TVPE 




04758 


44 


07014 


03423 


05270 




TF 


DAT 0tiD^2,DAT INH«2,, 


INSERT I/O DEVICE CODE 


04770 


26 


07083 


07075 


05280 




TFM 


lORT ••♦23 ,, 


OUTPUT ERR INFO 


04782 


16 


00565 


-4805 


05290 




B 


lOPT ,OAT DUO-4,7 




04794 


49 


00532 


-7077 


053C0 




B7 


ER COM 2 




04806 


49 


07014 




0531C 


• 


WRITE H TYPE FROM FORMAT 


TO I/O RECORD 










05320 


» 




. W H TYPE.. IX BC A IS 


SEL,IX 1 POINTS AT WIDTH SPECIX 2 










05330 


• 




•IS AVAIL CHAR IN I/O REC. CALC ST ADR OF H DATA AND MOVE 










05340 


• 




. H DATA TO TO I/O REC 












05350 


WHTYPE 


BLX 


•♦12 ,309(3) 


1X3 « IXl 


04814 


65 


04826 


COL-9 


05360 




BX 


•♦12 .WIDTH (1) 




04826 


61 


04838 


C4801 


05370 




BLXM 


ERF9-12 ,»*12 (6),, 


BR TO CHECK RECORD LENGTH 


04838 


66 


04982 


0MQ50 


05380 




SM 


314 ,•-• 




04850 


12 


00314 


-0000 


05390 


WIDTH 


OS 






04861 




c 




05400 




TO 


WH+23 ,1 (I),, 


STORE LAST DIGIT 


04862 


25 


04909 


000-1 


05410 




TO 


1 (1),RECMK 




04874 


25 


000- 1 


C2403 


05420 


WH 


TRNM 


IN-1 (2),1 (3),, 


MOVE DIGITS 


04886 


30 


02096 


00 — 1 


05430 




TDM 


1 (1),XX 




04898 


15 


000-1 


99999 


05440 




BX 


BSWF (WIDTH (2) 




04910 


61 


06834 


C4061 


05450 


• 
















05460 




COMMON ROUTINE. WRT H,A, 


I,E AND F TYPES 










05470 


JHB 


CF 


LOC 




04922 


33 


06645 


CCCOO 


05480 




TFL 


FAC ,LOC vll. 


MOVE FIELD FROM PGM TO FAC 


04934 


06 


02492 


C664N 


05490 




BSBA 


• ♦12 




04946 


60 


€4958 


COOOl 


05500 




TF 


WIDTH ,309 ,11, 


STORE WIDTH 


04958 


26 


04861 


0030R 


05510 




BLX 


•-• (6), WIDTH (4),, 


SET WIDTH IN 1X4 


04970 


65 


C — 00 


0M861 


05520 


» 


CK 1 


H,A AND I TYPES FOR ER F9. W FOR E ANO F IS ONLY NUMERIC 










05530 




BCX 


•-• (6), 324 (2),, 


ADV I/C REC PNTR.CK A AND I TYPES 


04982 


63 


0 — OC 


C0L24 


05540 


ERF9 


TFM 


EI ,679 t9. 


SET ER F9 IND 


04994 


16 


02707 


0OO79 


05550 




BLXM 


ER COM2 ,99999 (2),, 


SET IX 2 TO PREVENT FURTHER OUTPUT 


05006 


66 


07014 


99R99 


05560 


• 
















05570 


• 


WRITE E AND F TYPE FROM FAC TO GAM (IN ALPHA) 










05580 


• 


MAKE CKS FOR OVERSIZE REC 


ANO OVERSIZE FIELD (ERF9 ANO ERF8) 










05590 


WEFCOM 


BXM 


•♦12 ,2 (1)., 


ADV FORMAT PNTR FOR E ANO F TYPES 


05018 


62 


C503C 


000-2 


05600 




BXM 


ERF9-12 .12 (6),, 


CK FOR ER F9. RTN IF NONE 


05C30 


62 


04982 


C — 12 


05610 




TFM 


FLTEND ,•♦24 




05C42 


16 


C2966 


-5066 


05620 




BNF 


FL0AT2^12*FAC-1 




05054 


44 


07098 


02491 


05630 




TFM 


FLTEND ,RTN 




05066 


16 


02966 


-2506 


05640 




MOVE DATA TO OUD FOR 


OUTPUT IN E14.8 FORMAT 










05650 




BO 


•♦24 ,FAC-9 ,, 


CHECK FCR LCUSY ZEROS 


05078 


43 


05102 


C2483 


05660 




TFM 


FAC ,-99 ,10 




05090 


16 


02492 


OOORR 


05670 




MF 


MU-1 *FAC~2 


SAVE MANT SIGN 


05102 


71 


02967 


C2490 


05680 




TR 


DUO-29 tW MASK-1 




05114 


31 


0271C 


G6126 


05690 




TFM 


WCK •OCOOG 




05126 


16 


05209 


-0000 










530 
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PAGE 


05700 




A 


WCK .FAC 




05138 


21 


05209 


C2492 


05710 




BLXM 


•♦12 .MOVMAN(O) 




05150 


66 


C5162 


C5218 


05720 


HOVEXP 


BNL 


•♦24 . 


ZERO EXP IS GIVEN POSITIVE SIGN 


05162 


46 


05186 


01300 


05730 




TOM 


OUD-7 ,2 




05174 


15 


02732 


00002 


05740 




TD 


DUD-4 ,WCK-1 




05186 


25 


02735 


C5208 


05750 




TDM 


OUD-2 ,•-• 




0519B 


15 


C2737 


COOOC 


05760 


MCK 


OS 


»• •* 


LOCO-B^EXPONENT 


05209 




C 




05770 




87 


-304 




05210 


49 


0030^ 




05780 


MOVMAN 


TNF 


DUD-10 ,FAC-2 




05218 


73 


02729 


C2490 


05790 




BNF 


•♦24 ,MU-l 




05230 


44 


05254 


02967 


05800 




TDM 


OUD-29 ,2 




05242 


15 


0271C 


00002 


05810 


* 


LIMIT POSITIONS RT OF DEC 


TO 8 










05820 




TF 


LOCO ,otn 


MOV DEC PT SPEC TO IX 3 


05254 


26 


05397 


CCO-G 


05830 




CM 


LOCO ,8 ,10 




05266 


14 


C5397 


000-8 


05840 




BNH 


•♦24 




05278 


47 


05302 


01100 


05850 




TFM 


LOCO ,8 ,10 




05290 


16 


05397 


000-8 


05860 




SF 


LOCO 




05302 


32 


05397 


00000 


05870 




SM 


W CK ,8 (ID* 


EXP-8 


05314 


12 


05209 


COO-8 


05880 




S 


W CK .LOC 0 ,, 


LOCD-B ♦ EXPONENT 


05326 


22 


05209 


05397 


05890 




TFM 


FAC-10 .00 ,1011, EXPAND SIZE OF FAC 


05338 


16 


02482 


COO— 


05900 




BLX 


•♦12 ,LOCO (3)*, 


IX 3 WILL BE -LOCO 


05350 


65 


05362 


C5LR7 


05910 




BX 


•♦12 ,319 (4),, 


REDUCE W BY OPT SPEC (W-LOCO) 


05362 


61 


05374 


0-319 


05920 




BLX 


•♦12 *314 (6),, 


NEXT AVAIL CHAR AOR IN I/O REG 


05374 


65 


05386 


0-L14 


05930 




AM 


LOC 0 ,»-• 


CONVERT TO 2 LOCO 


0S386 


11 


05397 


-0000 


05940 


LOGO 


OS 


•* 


LOCATION OF DEC PT.FLAGS SEL 1X3 


05397 




C 




05950 




SF 


GAM-29 ,FAC-9 




05398 


32 


C271C 


02483 


0S960 




BNF 


WRT F .RWEFSW 


F TYPE 


05410 


44 


05610 


03333 


05970 




MACRO TO SET UP E TYPE* WRITE AND ERROR CHECK 










05980 


• 


•••CK WIDTH SPECS 












05990 




BCXM 


•♦20 t-S (4) 




05422 


64 


05442 


C-OON 


06000 




B7 


ER COM-12 




05434 


49 


04746 




06010 


• 




•SET UP IX REGS FOR PROCESSG MANT FROM FAC TO I/O REG (INJ 










06020 


MRTE 


BLX 


•♦12 tWIDTH (5)*, 


PUT WIDTH IN IX 5 


05442 


65 


05454 


0M801 


06030 




BCXM 


•♦24 ,-14 (5),, 


IX 5 « WIDTH -14 


05454 


64 


05478 


C-OJM 


06040 




BLX 


•♦36 , WIDTH (4) 




05466 


65 


05502 


0M861 


06050 




BLXM 


•♦12 ,14 (4) 




05478 


66 


05490 


0-014 


06060 




BLXM 


•♦12 ••-• (5) 




05490 


66 


05502 


0-0-0 


06070 


• 




. IX 4 CONTROLS P3SITI0N OF SIGN 










0608C 


• 




. IX 5 CONTOLS RT POSITION OF FAC 










06090 




BX 


•♦12 ,324 (4),, 


DOUBLE WIDTH 


05502 


61 


05514 


0-324 


06100 




SF 


324 




05514 


32 


00324 


00000 


0611G 




BX 


•♦12 ,314 (4),, 


IX 4 • IX 2- I WIDTH 


05526 


61 


05538 


C-314 


06120 


• 


...PROCESS EXP FROM FAC TO I/O REG (IN) 










06130 




S 


W CK ,329 ,, 


ADD 14-WIOTH TO CHAR 


05538 


22 


05209 


00329 


06140 




BO 


W ZER CK ,W CK-2 


EXP LESS THAN -99 


05550 


43 


05574 


05207 


06150 




BLXM 


MOVEXP ,WZERCK>12,, 


GO TO SET EXP IN GAM ANO RETURN 


05562 


66 


05162 


05586 


06160 


WZERCK 


BD 


ER C0M-12,FAC-9 


NON ZERO 


05574 


43 


04746 


02483 


06170 




TRNM 


IN-9 (2),GAM-9 




05586 


30 


02088 


02730 


06180 


» 






IX 6 MOOFS IN REFS 










06190 




BXM 


'fill R ,-a (6) ,, 


EXP SPACE COMPENSATION IN 1X6 (IN) 


05598 


62 


05778 


C~0Q 


062C0 


• 




. MACRO TO SET UP F TYPE 


, WRITE AND ERROR CHECK 










06210 


WRTF 


s' 


324 ,FAC 




05610 


22 


00324 


02492 


06220 




SH 


324 ,1 ,10, 


MUST BE ROOM FOR 1 CHAR AT LEAST 


05622 


12 


00324 


CCO-1 


06230 




BNH 


ER COM-12, ,, 


WIDTH SPECS INSUFFICIENT 


05634 


47 


04746 


01100 


06240 




AM 


FAC ,1 ,10 




05646 


11 


02492 


COO-1 


06250 




BLX 


•♦12 rWCK (5),, 


IX 5 MCOFS FAC REFS.LOCD-B^EXP.CHAR 


05658 


65 


0567C 


0N2-9 
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0626C 




CM 


W CK ,-8 ,10 






14 


05209 


COO— Q 


06270 




BNH 


W F ZERO , «, 


ZERO OUTPUT 


09682 


47 


05966 


G 1 100 


06280 






. SPLIT INTO 3 CASES FOR 


WRT F TYPE 










06290 






• 1X5 PLUS .REQ ZERO FILL 


FROM RIGHT (IXP) 










O63C0 






• 1X5 NEGtNON ZERC.EXP NEG.REQS ZERO FILL FROM LEFTflXNEN) 










06310 






. 1X5 NEG.NGN ZERCEXP NOT NEG. NC ZERO FILL REQDIFILL R) 










06320 




BNF 


IXP tWCK 




05694 


44 


05862 


C 5209 






BNF 


FILL R tFAC 




05706 


44 


05778 


02492 


063AC 






• EXPAND FAC WITH ZEROS 


ON LEFT 










06350 


I XNEN 


TF 


FAC-IO tZERO-10 






26 




02747 


06360 




TFM 


•♦30 fFAC-ll 




C5730 


1 6 


0576C 


-248 1 








•♦18 tFAC 




05742 


2 1 


C576C 


02492 


06380 




HF 


•-• tFAC-9 




05754 


7 1 


OOOOC 


02483 


06390 




TFH 


FAC ,01 ,10 




05766 


16 


02492 


COO- 1 


06A00 






• FILL RIGHT SIDE OF I/O 


REC FIELD WITH MANTISSA 












P II 1 R 


TNF 


IN-2 (6),FAC-2 15) 




05778 


73 


0K095 


0K4R0 


06420 




TDH 


I N- 3 (61,7 




05790 


15 


0K094 


00007 


06430 




BX 


•♦12 ,319 (5),* 


1X5- LOCO 


05802 


61 


05814 


C-3J9 






BX 


FILL L ,LOCD (6),, 


1X6-2 LCCD 


05814 


61 


05826 


0NL97 


06450 






• FILL LEFT SIDE AS RIEQD« 












06460 


F ILLL 


TNF 


IN-2 (6)fFAC-l 151 




05826 


73 


CK095 


0K4R1 


06470 


MEDEC 


TFM 


IN-2 <6)ff3 tlOff 


INSERT DEC PT IN I/O REC 




1^ 






06480 




BNF 


HF SIGN vRMEFSN 






44 




C3333 


06490 


WS IGN 


TP 


IN (4)fGAM-*28 


INSERT SIGN 






n^Aa7 


02711 


06500 




87 


BSWF 




05874 


49 


06834 




06510 


IXP 


SF 


329 , 


CONVERT 1X5 TO NEG 










06520 




FSL 


FAC-IOC 51 tFAC''2 






nti 






06530 




BLXM 


FILL R ,99999 (5),, 


ADJ FOR SHIFT OF FAC 








9 R 9R 9 


06540 


WFSIGN 


BLX 


•♦12 t334 141 




neat fl 


65 




0-334 


06550 




s 


324 tFAC ,* 


AOJ IX 4 FOR SIGN POSITION 


n^of 9 


22 




C2492 


06560 




s 


324 ,FAC 












06570 




BXM 


W SIGN ,-2 14),, 


FINE SIGN POSIT AOJ 






n^RA9 




06580 


MFZERO 


CF 


319 






33 


00319 


OOOCO 


06590 




TNF 


IN-2 (2),ZER0-16(3) 






3^ 




C2PM1 


06600 




BX 


•♦12 •LOCO (6) 




05990 


61 


06002 


0NL97 


06610 




TFM 


IN-2 (6),3 ,10 




06002 


16 


0K095 


000-3 


06620 




B7 


BSMF 




06014 


49 


06834 






- .ejj- 




WRITE ,TYPE 




06022 


43 


06082 


C3423 


06640 




BXM 


•♦12 ,-2 (2) 




06034 


62 


06046 


00-OK 


06650 




CM 


IN I2),00 ,10 




06046 


14 


02097 


000-0 


06660 




BE 


SLASH2^12 




06058 


46 


06034 


C120C 


06670 




TP 


IN^4 (2),FLZERS 




06070 


26 


C2PC 1 


C2859 


06680 


UR TTP 


BLX 


•♦12 ,IX2HLD(2) 




06082 


65 


06C94 


C6P96 






TFM 


lORT ,•♦23 




06094 


16 


00565 


-6117 


06700 




B 


lOPT •OATINH-4 ,7 




06106 


49 


00532 


-7069 


067 10 




B7 


•-• (6) 




061 18 


49 


0— — CO 




06720 


HMASK 


OAC 


2, • 




06127 




2 


X 2 


06730 




OAC 


8,00000000,, 


MASK FOR EF WRT. ALPHA ZERO SOURCE 


06 131 




g 


X 2 






00000000 












06740 


EMASK 


OAC 


5,E^C0« 




06147 




5 


X 2 






E*0C 


• 












06750 




DORG 


8000 




08000 








06760 


AS3 


34 


A3 ,701 




08C00 


34 


08036 


C07C1 


06770 




38 


A3 ,702 




08012 


38 


08036 


C0702 


06780 




49 


• ♦26 




08024 


49 


0805C 


OOOOC 
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06790 


A3 


OSC 


14 


•01568803703800 


08036 




14 








01568803703800 










06800 




TRA 






08050 


36 


OOOOC 


00500 












08062 


49 


OOOCC 


00000 


06810 




TCO 


AS3 




08000 








06820 




SECONDARY 


LINKAGES WITH READ BLOCK IN CORE 










06830 




00 RG 


START 




03851 








06840 




OS 


3 




03853 




3 




06850 




TF 


FAC 


•FIX-l »ll 


03854 


26 


02492 


0385L 


06860 




B 


FIXl 




03866 


49 


0727C 


COOOO 


06870 




BLXM 


FMON 


••toi 


03878 


66 


03564 


03878 


06880 




NOP 






03890 


41 


OOOOC 


COOOO 


06890 




BLXM 


FMON 


• •(0) 


03902 


66 


03564 


03902 


06900 




NOP 






03914 


41 


OOOOC 


COOOO 


06910 




BLXM 


FMON 


• •(0) 


03926 


66 


03564 


C3926 


06920 




NOP 






03938 


41 


OOOOC 


COOOO 


06930 




BLXM 


FMON 


• •(0) 


03950 


66 


03564 


03950 


06940 




NOP 






03962 


41 


OOOOC 


COOOO 


06950 




BLXM 


FMON 


• •(0) 


03974 


66 


C3564 


C3974 


06960 




NOP 






03986 


41 


OOOOC 


COOOO 


06970 




TFL 


FAC 


••-1 .11 


03998 


06 


C2492 


039gp 


06980 




B 


FL0AT2 




04010 


49 


07086 


COOOO 


06990 




BLXM 


FMON 


• •(Of 


04022 


66 


03564 


C4022 


07000 




NOP 






04034 


41 


OOOOC 


COOOO 


07010 




BLXM 


FMON 


• •(0) 


04046 


66 


03564 


04046 


07020 




NOP 






04058 


41 


OOOOC 


COOOO 


07030 




BLXM 


FMON 


• •CO) 


04070 


66 


03564 


C4070 


07040 




NOP 






04082 


41 


OOOOC 


00000 


07050 




BLXM 


FMON 


,•10) 


04094 


66 


03564 


04094 


07060 




NOP 






04106 


41 


OOOOC 


COOOO 


07070 




BLXM 


FMON 


• •(0) 


04118 


66 


03564 


04118 


07080 




NOP 






04130 


41 


OOOOC 


00000 


07090 




B 


CLQBB 




04142 


49 


03496 


00000 


07100 




B 


CLOTT 




04154 


49 


03516 


COOOO 


07110 




TF 


00309 


• •—1 


04166 


26 


003C9 


04165 


07120 




B 


WATYl 




04178 


49 


03210 


00000 


07130 




TF 


00309 


• •"l 


04190 


26 


00309 


04189 


07140 




B 


WAPTl 




04202 


49 


03246 


COOOO 


07150 




TF 


00309 


, •-! 


04214 


26 


003C9 


C4213 


07160 




B 


WACOl 




04226 


49 


03270 


00000 


07170 


RATY 


TF 


00309 


• •—1 


04238 


26 


00309 


04237 


07180 




B 


RATYl 




04250 


49 


03368 


COOOO 


07190 


RAPT 


TF 


00309 


• •"•1 


04262 


26 


003C9 


04261 


07200 




B 


RAPTl 




04274 


49 


03404 


00000 


07210 


RACD 


TF 


00309 


• •—1 


04286 


26 


00309 


04285 


07220 




B 


RACDl 




04298 


49 


03424 


00000 


07230 




TFM 


ROCS 


,00 ,10 


04310 


16 


05195 


000-0 


07240 




BLXM 


SWL 


•RITYPEI6) 


04322 


66 


06586 


ON-22 


07250 




H 






04334 


48 


OOOOC 


COOOO 


07260 




B 


•-12 




04346 


49 


04334 


OOOOC 


07270 




H 






04358 


48 


OOOCC 


00000 


0728C 




B 


•-12 




04370 


49 


04358 


00000 


07290 




H 






04382 


48 


OOOOC 


COOOO 


07300 




B 


•-12 




04394 


49 


04382 


00000 


07310 




TFM 


RDSQP 


,FAC 


04406 


16 


04864 


-2492 
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07320 






SWL 


«REA0A(6) 




04418 


66 


06586 


CM054 


07330 




TF 


00324 


»C(1) 




04430 


26 


00324 


CCO-0 


07340 




BLXP 


SWL 


.RFTYPE 16 » 




04442 


66 


06586 


0MR74 


07350 




TF 


00324 


>0(U 




04454 


26 


00324 


000-0 


07360 




BLXM 


SML 


,RETYPE(6) 




04466 


66 


06586 


CMR42 


07370 




TFM 


RHTYPE+35 


i,IN-l 




04478 


16 


04557 


-2696 


0738C 




B 


RHTYPE 


f 10 




04490 


49 


04522 


00010 


07390 


RDERF7 


TFM 


EI 


,677 


.9 


04502 


16 


02707 


00077 


07400 




B7 


ERC0M2 






04514 


49 


07014 




07410 


RHTYPE 


A 


• ♦35 


,0(1) 




04522 


21 


04557 


CCO-0 


07420 




SF 


• ♦21 






04534 


32 


04555 


00000 


07430 




TO 


• ♦47 


t •-*• 




04546 


25 


04593 


00000 


07440 




TO 


• -1 


•RECMK 


• 6 


04558 


25 


0455P 


02403 


07450 




TRNM 


1(1) 


•IN-1(2) 




04570 


30 


000- 1 


02096 


07460 




TDK 


•-25 


• 0 


• 6 


04582 


15 


0455P 


00000 


07470 




TF 


• ♦35 


,-00309 




04594 


26 


04629 


CC30R 


07480 




A 


00309 


,-00309 




04606 


21 


00309 


CC30R 


07490 




BCXM 


BSWF 


,0(2) 




04618 


64 


06834 


CO-00 


C75C0 




TFM 


EI 


,679 


• 9 


04630 


16 


02707 


00079 


07510 


RERCOM 


BLXM 


ERC0M2 


,99998(2) 




04642 


66 


07014 


99R98 


07520 


READA 


A 


ROSQP 


,0(1) 




04654 


21 


04864 


OCO-C 


07530 




BNF 


• ♦48 


,LGC 




04666 


44 


04714 


C6645 


07540 




TF 


FAC 


,ZER010 




04678 


26 


02492 


02767 


07550 




S 


ROSQP 


.K 




04690 


22 


04864 


C2221 


07560 




BLXM 


• ♦48 


,FAC(5) 




04702 


66 


C475C 


0K4R2 


07570 




SM 


ROSQP 


tlO 


• 10 


04714 


12 


04864 


COOJO 


07580 




TFL 


FAC 


•R02ERG 




04726 


06 


02492 


02769 


07590 




BLXM 


• ♦12 


,FAC-2(5) 




04738 


66 


0475C 


0K4RC 


0760O 




TF 


00324 


,0(1) 




04750 


26 


00324 


CCO-0 


07610 


REAOAl 


BCXM 


REA0A2 


,2(2) 




04762 


64 


04786 


C0-02 


07620 




BLXM 


ROGIVE 


,RERC0M-12(0) 


04774 


66 


04882 


04630 


07630 


READA2 


CF 


IN-l(2) 


.-2 


• 10 


04786 


33 


02096 


COO-K 


07640 




BCX 


REAOAl 


•REA0A2^11(4) 


04798 


63 


04762 


0M797 


07650 




SF 


IN-1(2) 






04810 


32 


02096 


COOOO 


07660 




C 


ROSQP 


.00329 




04622 


24 


04864 


00329 


07670 




BNH 


• ♦24 






04B34 


47 


04858 


CllOO 


07680 




BLXM 


ROGIVE 


•RDERF7(0) 




04846 


66 


04882 


04502 


07690 




TF 


•-• 


»IN-2(2) 




04858 


26 


CCOCC 


02095 


07700 


ROSQP 


OS 




,•-5 




04864 




C 




07710 




BLXM 


ROGIVE 


•BSMF(O) 




04870 


66 


04882 


06834 


07720 


ROGIVE 


BS6B 


• ♦12 






04882 


60 


04894 


C0002 


07730 




MF 


ROGIVE 


• LCC 




04894 


71 


04882 


C6645 


07740 




TFL 


LQC 


.FAC 


• 6 


04906 


C6 


0664N 


02492 


07750 




MF 


LOC 


•ROGIVE 




04918 


71 


06645 


C4882 


07760 




BSBA 


-00304 






04930 


60 


0030M 


00001 


07770 


RETYPE 


TFM 


RDSDIG 


•OSOOO 




04942 


16 


05381 


-5000 


07780 




TFM 


CHAR 


• 00 


• 10 


04954 


16 


04963 


000-0 


07790 


CHAR 


OS 




• •-2 




04963 




C 




07800 




B7 


RFTYPE^12 




04966 


49 


04986 




07810 


RFTYPE 


TFM 


ROSOIG 


,55000 




04974 


16 


05381 


N5000 


07820 




TF 


00324 


• 0(1) 




04986 


26 


00324 


000-0 


07830 




TF 


ROCS 


• 2(1) 




04998 


26 


05195 


COO-2 


07840 




BXM 


ROCOM 


• 2(1) 




05010 


62 


05058 


CCO-2 


07850 


RITYPE 


TFM 


RDSDIG 


•55500 




05022 


16 


05381 


N5500 


07860 




MM 


0(1) 


• 05 


• 10 


05034 


13 


000-0 


000-5 


07870 




BLX 


• ♦12 


•98(4) 




05046 


65 


05058 


0-098 
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07880 


ROCOM 


BLXM 


♦♦12 


•FAC-11(5) 




05058 


66 


0507C 


OK401 


07890 




TFL 


FAC 


•RDZERQ 




05070 


06 


02492 


02769 


07900 




CF 


ROCOM 






05082 


33 


05058 


COOOO 


07910 




TFM 


CNTS 


,0010 


• 10 


05094 


16 


05103 


CCOJO 


07920 


CNTS 


OS 




• •-2 




05103 




0 




07930 




TFM 


ROADJ-6 


•REAOCC 




05106 


16 


05756 


-5118 


07940 


REAOCC 


BNR 


ROCOMl 


•IN(2) 




05118 


45 


05138 


C2097 


07950 




87 


R0C0M3 






05130 


49 


05306 




07960 


ROCOMl 


CM 


IN(2) 


• 00 


• 10 


05138 


14 


02097 


OOO-C 


07970 




BE 


ROBLNK 






05150 


46 


05638 


C1200 


07980 




CM 


IN(2) 


• 70 


• 10 


05162 


14 


02097 


COOPO 


07990 




BNL 


ROOIG 






05174 


46 


05626 


01300 


08000 




CM 


IN(2) 


• 0010 


• 10 


05186 


14 


02097 


OOOJC 


08010 


ROCS 


OS 




• •-2 




05195 




C 




08020 




BE 


ROPLUS 






05198 


46 


05382 


01200 


08O30 




CM 


tN(2) 


• 20 


• 10 


05210 


14 


02097 


OOOKO 


08040 




BE 


ROMNUS 






05222 


46 


05370 


01200 


08050 




BD 


RDC0M2 


•ROSOEC 




05234 


43 


0527C 


C5379 


08060 




CM 


IN(2) 


• 03 


• 10 


05246 


14 


02097 


CCO-3 


08070 




BE 


RDOEC 






05258 


46 


05338 


C1200 


08080 


R0COM2 


BO 


ROCOM 3 


•ROSETY 




05270 


43 


05306 


05377 


08090 




CM 


IN(2) 


• 45 


• 10 


05282 


14 


02097 


C0OM5 


08100 




BE 


ROE 






05294 


46 


05436 


C1200 


08110 


RDC0M3 


TFL 


FAC 


•ROZERO 




05306 


06 


02492 


02769 


08120 




TDM 


RDSERR 


tO 


.11 


05318 


15 


05378 


0000- 


08130 




87 


RDADJ 






05330 


49 


05762 




08140 


RODEC 


TDM 


RDSDEC 


• -S 




05338 


IS 


05379 


OOOON 


08150 




TFM 


ROCS 


• 00 


• 10 


05350 


16 


05195 


000-0 


08160 




87 


RDADJ 






05362 


49 


05762 




08170 


ROMNUS 


SF 


RDCOM 






05370 


32 


05058 


COOOO 


08180 


ROSOIG 


OS 




• • 




05381 




C 




08190 


ROSSGN 


DS 




••-I 




05380 




0 




08200 


ROSDEC 


OS 




• •-2 




05379 




C 




08210 


RDSERR 


DS 




• •-3 




05378 




C 




08220 


ROSETY 


OS 




• •-4 




05377 




C 




08230 


ROPLUS 


BO 


RDPLl 


•RDSSGN 




05382 


43 


05426 


05380 


08240 




MF 


RDMNUS 


•ROCOM 




05394 


71 


05370 


05058 


08250 




TDM 


ROSSGN 


•-5 




05406 


15 


0538C 


OOOON 


08260 




87 


RDADJ 






05418 


49 


05762 




08270 


ROPLl 


BD 


RDC0M3 


•ROSETY 




05426 


43 


0S306 


05377 


08280 


ROE 


TFM 


ROADJ-6 


•RET VI 




05438 


16 


05756 


-5458 


08290 




B7 


RDADJ 






05450 


49 


05762 




08 300 


RETYl 


CM 


IN(2) 


• 20 


• 10 


05458 


14 


02097 


COOKO 


08310 




BNE 


•♦24 






05470 


47 


05494 


01200 


08320 




SF 


ROCOM 






05482 


32 


05058 


COOOO 


08330 




CM 


00324 


• 01 


• 10 


05494 


14 


00324 


COO-1 


08340 




BE 


RETY2 






05506 


46 


05538 


C1200 


08350 




TO 


CHAR- 1 


,1N(2) 




05518 


25 


04962 


02097 


08360 




87 


ROAOJ 






05530 


49 


05762 




08370 


RETY2 


TO 


CHAR 


•IN(2) 




05538 


25 


04963 


C2097 


08380 




SF 


CHAR- I 






05550 


32 


04962 


COOOO 


08390 




MF 


CHAR 


.RDCOM 




05562 


71 


04963 


05058 


08400 




A 


FAC 


• CHAR 




05574 


21 


02492 


04963 


08410 




87 


ROAOJ 






05586 


49 


05762 




08420 


ROECK 


BNF 


ROAOJ 


,R0S0EC 




05594 


44 


05762 


05379 


08430 




SH 


FAC 


,01 


.10 


05606 


12 


02492 


COO-1 
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08440 




87 


RDADJ 




05618 


49 


05762 




084 50 


R D C I G 


BO 


RDBLNK*- 12 


« IN ( 2 ) 










08460 


RDBLNK 


BNF 


RDECK 


tRDSDIG 






« = 




08470 




AM 


CNTS 


f-Ol #10 


05650 


1 1 


05103 


COO- J 


08480 




BL 


• ♦48 




05662 


47 


057 IC 


C 1 300 


08450 




TD 


0(5) 


t IN(2) 


05674 


25 


0-0-C 


02097 


08500 




BXM 


• +12 


1 1 ( 5 ) 


05686 


62 


05698 


0—0— I 


08510 




IDH 


RDSOI G 


t-5 


05698 


15 


05381 


COOON 


08520 




BNF 


• + 20 


tRDSDEC 


057 10 


44 


0573C 


05379 


08530 




B7 


RDADJ 




05722 


49 


05 762 




08540 




AM 


FAC 


tOl tlO 


05730 


1 1 


02492 


000— 1 


08550 




B7 


RDADJ 




05742 


49 


05 762 




08560 




BD 


READCO 


♦RDSERR 


05750 


43 


C5 1 18 


05378 


0857C 


RDADJ 


BCX^* 


RDADJl 


t2 (2) 


05762 


64 


05806 


00-02 


08580 




TFL 


FAC 


fROZERC 


05774 


€6 


C2492 


02769 


08590 




TDM 


RDSERR 


fO 


05786 


15 


05378 


CCOOO 


08600 




B7 


RDADJl+24 




05798 


49 


Q583C 




08610 


RDADJl 


BCX 


RDADJ-12 


»R0BLNK+23I4) 


05806 


63 


05750 


0N661 


08620 




S 


FAC 


tRDCS 


05818 


22 


02492 


C5195 


08630 




TFM 


FIXEND+6 


tRDF I X3-12 


05830 


16 




- 5954 


08640 




SF 


FAC- 1 1 




05842 


32 


0248L 


QOUOO 


08650 




TF 


FAC-20 


, FAC-2 


05854 


26 


02472 


02490 


08660 




BNF 


RDFLT 


• LOC 


0 5666 


44 


05898 




08670 




MF 


MU-1 


fRDMNUS 


05878 


71 


02967 


C5370 


08680 




87 


FIXl+36 




05890 


49 


07306 




08690 


ROFLT 


BD 


• + 32 


tFAC-l I 


05898 


43 


0593C 


02481 


08700 




TFL 


FAC 


tFLZER 


05910 


06 


02492 


03131 


08710 




B7 


• ♦32 




05922 


49 


05954 




08720 




TF 


FAC-2 


♦FAC-4 


05930 


26 


0249C 


C2486 


08730 




MF 


FAC-2 


tROMNUS 


05942 


71 


02490 


05370 


08740 




TFM 


F IXEND+6 


♦ RTN 


05954 


16 


02966 


— 2506 


08750 


RDFI X3 


BO 


• ♦48 


tROSERR 


05966 


43 


06014 


05378 


08760 




BNF 


• ♦24 


fRDSERR 


05978 


44 


06002 


05378 


08770 




BLXK 


RDGIVE 


tR0ERF7(0) 


05990 


66 


04882 


04502 


08780 




BLXM 


RDGIVE 


tRERCOM-12tO ) 




66 






08790 




BLXM 


RDGIVE 


tfiSMFfOl 


06014 


66 


04882 


06834 


08800 


• 




• RA DO IT 
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OBBIO 


RACOIT 


TFM 


lORT 


t»*23 


06026 


16 


00565 


—6049 


08820 




B 


lOGT 


»DATINH-4 f7 


06038 


49 


00566 


— 7069 


08830 




BD 


• ♦24 


f TYPE 


06050 


4 3 




C3423 


08840 




BC4 


RMA2«36 




06062 


46 


0679C 


C0400 


08850 




B7 


BSWF 




06074 


49 


06834 




08860 




OORG 


8000 




08000 








08870 


AS2 


34 


A2 


t701 




34 


08036 


C0701 


08880 




38 


A2 


»702 


08012 


38 


08036 


00702 


08890 




49 


• ♦26 




08024 


49 


0805C 


CCOCC 


08900 


A2 


DSC 


14 


•01565103703800 


08036 




14 








01565103703800 










08910 




TRA 






08CS0 


36 


COQOO 


00500 












08062 


49 


OOOOC 


COOOC 


08920 




TCD 


AS2 




08000 









08930 •••• 
08940 
08950 
08960 FIX 



SECONDARY LINKAGES MITH ARITHMETIC BLOCK IN CORE 
DORG START 



OS 
TFL 



3 

FAC 



,FIX-1 



03851 

03853 3 

03854 06 02492 C385L 
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08970 




B 


FIXI 






03666 


49 


0727C 


COOOO 


08980 


FXSR 


BNF 


FXSR1^20 


• FAC 




03878 


44 


04686 


C2492 


08990 




B 


FXSRl 






03890 


49 


04666 


00000 


09000 


FXM 


M 


FAC 


•FXM-1 


• 11 


03902 


23 


02492 


C390J 


09010 




B 


FXMl 






03914 


49 


04718 


COOOO 


09020 


FXD 


LO 


99 


• FAC 




03926 


28 


00099 


02492 


09030 




B 


FXDl 






03938 


49 


0479C 


COOOC 


09040 


FXDR 


LO 


99 


•FXOR-1 


• 11 


03950 


28 


00099 


0394R 


09050 




B 


FXDl+12 






03962 


49 


04802 


COOOO 


09060 


R SGN 


TFL 


FAC 


•RS6N-1 


• 11 


03974 


06 


02492 


C397L 


09070 




B 


RSGNl 






03986 


49 


04574 


00000 


09080 


FLOAT 


TFL 


FAC 




tU 


03998 


C6 


02492 


0399P 


09090 




B 


FL0AT2 






04010 


49 


07086 


COOOO 


09100 


FSBR 


BNF 


FSBR1^26 


•FAC-2 




04022 


44 


04528 


C2490 


09110 




B 


FSBRl 






04034 


49 


04502 


00000 


09120 


FDVR 


TFL 


IN 


• FAC 




04046 


C6 


02697 


02492 


09130 




B 


FDVRl 






04058 


49 


04548 


COOOO 


09140 


FIXI 


TF 


00344 


•FIXI-1 


• 11 


04070 


26 


00344 


C406R 


09150 




B 


FIXIl 






04082 


49 


04886 


00000 


09160 


FAXI 


TF 


00339 


•FAXI-1 


• 11 


04094 


26 


00339 


C409L 


09170 




B 


FAXU 






04106 


49 


05206 


00000 


09180 


FAXB 


TFL 


IN 


•FAXB-1 


.11 


04118 


06 


02697 


0411P 


09190 




B 


FAXBl 






04130 


49 


05522 


00000 


09200 


SET 


TFL 


FAC 


•00344 


• 11 


04142 


06 


02492 


C034M 


09210 




B 


SETl 






04154 


49 


05718 


COOOO 


09220 




TF 


00309 


• •-1 




04166 


26 


00309 


04165 


09230 




B 


WATYl 






04178 


49 


03210 


00000 


09240 




TF 


00309 


• •-1 




04190 


26 


00309 


04189 


09250 




B 


WAPTl 






04202 


49 


03246 


CCOOO 


09260 




TF 


00309 


• •-1 




04214 


26 


003C9 


C4213 


09270 




B 


WACOl 






04226 


49 


03270 


00000 


09280 




TF 


00309 


t»-l 




04238 


26 


00309 


04237 


09290 




B 


RATYl 






04250 


49 


03368 


COOOO 


09300 




TF 


00309 


• •-1 




04262 


26 


003C9 


04261 


09310 




B 


RAPTl 






04274 


49 


03404 


00000 


09320 




TF 


00309 


• •-1 




04286 


26 


00309 


04285 


09330 




B 


RACDl 






04298 


49 


03424 


CCOOO 


09340 




H 








04310 


48 


OOOOC 


COOOO 


09350 




B 


•-12 






04322 


49 


04310 


00000 


09360 




H 








04334 


48 


COOOC 


COOOC 


09370 




B 


•-12 






04346 


49 


04334 


00000 


09380 




H 








04358 


48 


COOOC 


COOOO 


09390 




B 


• -12 






04370 


49 


04358 


00000 


09400 




H 








04382 


48 


OOOOC 


00000 


09410 




B 


• -12 
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09420 




H 
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48 


OOOOC 


00000 


09430 
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•-12 






04418 
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04430 


48 


OOOOC 


COOOO 


09450 
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•-12 






04442 
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0443C 


COOOO 


09460 




H 








04454 


48 


OOOOC 


COOOO 


09470 
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•-12 






04466 


49 


04454 


00000 


09480 




H 








04478 


48 


OOOOC 


CCOOO 


09490 




B 


•-12 






04490 


49 


04478 


COOOO 


09500 


FSBRl 


CF 


FAC-2 






04502 


33 


0249C 


00000 


09510 




FADD 


FAC 


•FSBR-1 


til 


04514 


01 


02492 


0402 J 


09520 




BB2 








04526 


42 







540 
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0953C 




SF 
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09540 
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04540 
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04514 




C9550 
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TFL 


FAC 


.FDVR-l 
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06 


C2492 


C404N 


09560 




FDIV 
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04560 


09 


C2492 


02697 


09570 
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04572 


42 






09580 


RSGNl 


BNF 


•♦52 


,FAC-1 




04574 


44 


04626 


C2491 


09590 




BNF 


• ♦26 
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04586 


44 


04612 


C2490 


09600 




CF 


FAC-2 






04598 


33 


02490 


COOOO 


0961C 
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04610 


42 






09620 




SF 


FAC-2 






04612 


32 


0249C 


COOOC 


09630 




BB2 








04624 


42 






09640 




BNF 


• ♦26 


«FAC 




04626 


44 


C4652 


C2492 


09650 




CF 


FAC 
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33 


02492 


OOOOO 


09660 




BB2 








04650 


42 






09670 




SF 


FAC 






04652 


32 


C2492 


COOOC 


09680 




BB2 








04664 


42 






09690 


FXSRl 


CF 


FAC 






04666 


33 


02492 


OOOOO 


09700 




B7 


• ♦20 






04678 


49 


04698 




09710 




SF 


FAC 






04686 


32 


02492 


OOOOO 


09720 




A 


FAC 


,FXSR-1 


,11 


04698 


21 


02492 


0387P 


09730 




B7 


RTN 






04710 


49 


02506 




09740 


FX«1 


SF 


lOOMK 




• 6 


04718 


32 


0303K 


COOOO 


09750 




TF 


FAC 


.99 




04730 


26 


C2492 


CC099 


09760 




CM 


99MK 


»0C 


,610 


04742 


14 


C244N 


CCO-0 


C9770 




BE 


FXMEND 






04754 


46 


04778 


C120C 


09780 




AM 


• 4^8 


t 00000 


,79 


04766 


11 


04774 


-0-00 


09790 


FXPENC 


B 


RTN 






04778 


49 


C25Cfc 


ccooo 


O98C0 


F XC I 


TF 


FAC 


,FX0-1 


.11 


04790 


26 


C2492 


C392N 


09810 




BLXM 


SET^12 


,•-1(0) 




04802 


66 


04154 


C48CI 


09820 




0 


lOOMK 


.FAC 


,6 


04814 


29 


0303H 


C2492 


09830 




BV 


• ♦36 






04826 


46 


04862 


C14C0 


09840 




TF 


FAC 


.99MK 


,11 


04838 


26 


C2492 


C244N 


09850 




BLXN 


RESET 


«RTN(0) 




04850 


66 


05862 


C25C6 


09860 




TFM 


EI 


.571 


,9 


04862 


16 


027C7 


C0N71 


09870 




BLXF 


RESET 


,FXNINE(C) 




04874 


66 


05862 


C7386 


0988G 


FIXIl 


CM 


00344 


»00 


,10 


04886 


14 


00344 


000-0 


09890 




BE 


FIXU12 






04898 


46 


07282 


C120C 


09900 




CM 


FAC 


,00 


,10 


04910 


14 


02492 


COO-0 


09910 




BNE 


• ♦44 




04922 


47 


04966 


C1200 


09920 




BNF 


RTN 


,00344 




04934 


44 


02506 


00344 


09930 




TFI» 


EI 


,771 


,9 


04946 


16 


02707 


00P71 


09940 




B7 


FXNINE 






04958 


49 


07386 




09950 




TOM 


OOQREV+l 


tl 




04966 


15 


05039 


CCOOl 


09960 




MF 


MU-1 


.FAC 




04978 


71 


02967 


02492 


09970 


PSI 


TO 


• ♦21 


,00344 




04990 


25 


05011 


C0344 


09980 




MM 


• ♦9 


,0005 


,810 


05002 


13 


05011 


C-0-5 


09990 




BO 


• ♦24 


,99 ' 




05014 


43 


05C38 


C0099 


10000 




CF 


MU-l 






05026 


33 


02967 


OOOOO 


10010 


ODOREV 


NOP 


AXJ 






05038 


41 


0533C 


OOOOO 


10020 




BNF 


• ♦44 


,00344 




05050 


44 


05094 


C0344 


10030 




TFM 


EI 


,772 


,9 


05062 


16 


027C7 


C0P72 


10040 


FX2ERC 


TF 


FAC 


,FXZ 




05074 


26 


02492 


03099 


10050 




87 


ERROR 






05086 


49 


02936 




10060 




TF 


IN 


,FAC 




05094 


26 


02697 


02492 


10070 




TFM 


FXMEND«6 


•FXERI 




05106 


16 


04784 


-5186 


10080 




TFM 


FXMEN0>18,FXMULT 




05118 


16 


04760 


-5130 
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10090 


FXMULT 


M 


FAC 


,tN 


05130 


23 


C2492 


C2697 


10100 




BCXM 


FXMl 


,-110) 


05142 


64 


04718 


OOOOJ 


10110 




TFM 


FXMEND^6 


,RTN 


05154 


16 


04784 


-2506 


10120 




TFM 


FXMENO-18 


1, FXMEND 


05166 


16 


0476C 


-4778 


10130 




87 


RTN 




05178 


49 


C25C6 




10140 


FXERI 


TFM 


EI 


.773 ,9 


05186 


16 


02707 


0OP73 


10150 




87 


FXNINE 




05198 


49 


07386 




10160 


FAXIl 


CM 


00339 


•00 ,10 


05206 


14 


00339 


CCO-0 


10170 




BE 


ONEFAC 




05218 


46 


02494 


C12GC 


10180 




BO 


• ♦44 


,FAC-9 


05230 


43 


05274 


02483 


10190 




BNF 


2ERFAC 


,00339 


05242 


44 


02884 


C0339 


10200 




TFM 


EI 


,774 ,9 


05254 


16 


02707 


00P74 


10210 




87 


INFFAC 




05266 


49 


02924 




10220 




BLXM 


SET^12 


,•-1(0) 


05274 


66 


04154 


05273 


10230 




MF 


MU-l 


, FAC-2 


05286 


71 
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•01 •lO 








06698 


12 


03843 


COO-1 


BNE 


• ♦24 










06710 


47 


06734 


01200 


TDM 


MATSW 


• 0 








06722 


15 


0680C 


OOOCO 


BNL 


SWC+12 










06734 


46 


C682C 


01300 


BB2 












06746 


42 






BSBB 


• ♦12 










06748 


60 


C676C 


C0002 


BB 


MATRX2 










06760 


42 


06674 


COOOO 


TOM 


SWL^13 


• 9 








06772 


15 


06761 


C0009 


BO 


SWC^12 


•MATSW 








06784 


43 


0682C 


06800 


NOP 




• LOC 








06796 


41 


COCCC 


C6807 


DS 




• •-8 








06799 




0 




OS 












06800 




C 




OS 




• •-5 








06802 




C 




OS 




f • 








06807 




0 




TOM 


S><L + 13 


• 2 








06808 


15 


06761 


CC002 


BO 


JHB 


•RWEFSW 








06820 


43 


08224 


03304 


BSBA 


-00334 










06832 


60 


0033M 


00001 




. RWA 


..ST DFINR CODE.RESET . 


REPSW..MATSW..REPSW3. 












. SET SWL 


TO BB TO OBJ PGM, 


INIT 


ERROR TO 


F9 










TF 


OATINH+2 


,MAX-3 








06844 


26 


07237 


03185 


TFM 


REPSM3 


,00000 








06856 


16 


C6802 


-0000 


TDM 


SWL+13 


»2 








06868 


15 


06761 


C0002 




. RWA3 


.. LO IX A2 WITH 


-.MAX. 


-1 AND ST IN .IX2HLD. 










TFM 


00314 


,99997 








06880 


16 


00314 


R9997 


S 


00314 


,MAX 








06892 


22 


CC314 


G3188 


TF 


IX2HLD 


,00314 








06904 


26 


06958 


00314 




. RV<A2 


... RESET .CCMPSW. 


INII 


I/O REC 


TO ALPHA BLANKS 












. RCTY IF 


WATY.SKIP .RA DO 


IT. IF 


WRTG 












TR 


INH-1 


,STZERC-1 








06916 


31 


0252C 


O2770 


TR 


INH+86 


,STZERC 








06928 


31 


C2607 


02771 


BO 


•+24 


.TYPE 








06940 


43 


06964 


C3369 


RCTY 


00000 










06952 


34 


COOOC 


CC102 


DS 




,•-5 








06958 




C 





56 4 
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04940 BSBA •♦12 06964 60 06976 COOCl 

04950 80 BSWF ,RWEFSh 06976 43 06996 C3304 

04960 87 RADOIT 06988 49 11114 

04970 • • BSWF ... FORMAT CONTROL, BR TC FORMAT SPEC lA.SET IX 1 

04980 • TO PNT AT WIDTH SPEC IN FORMAT STATEMENT 



04990 


BSV»F 


BXM 


-5 tl)»8 


(1) 






06996 


62 


COC-N 


COO-8 


050C0 


XTYPE 


MA 


• ♦23 


»309 








07008 


70 


07031 


00309 


05010 




BCX 


BSWF 




(2) 






07020 


63 


06996 


CO-CO 


05020 




BLXM 


BSWF 


(99998 


(2) 






07032 


66 


C6996 


99R98 


05030 


REP 


BLXM 


• + 12 


fREPSW 


17) 






07044 


66 


07056 


C0PR9 


05040 




SM 


0 (7 


),01 


• 10 






07056 


12 


0 0 


COO-1 


05050 




BM 


REP2 










07068 


46 


07116 


OllCO 


05060 




BE 












07080 


46 


07164 


C1200 


05070 




A 


0 (7 


)t4 


(1) 






07092 


21 


0— C 


000-4 


05080 




BNH 


REPEX 










07104 


47 


07164 


01100 


05090 


REP2 


TF 


00309 


• 2 


Hi 






07116 


26 


00309 


CCO-2 


05100 




BXM 


BSWF 


• -5 


11) 






07128 


62 


06996 


CCO-N 


05110 


ReP3 


SF 


REPSk3-l 










07140 


32 


06801 


COOOO 


05120 




BLXM 


REP* 12 


,REPSW3(7) 






07152 


66 


07056 


OOG-2 


05130 


REPEX 


BXM 


BSWF 


t4 


f 1) 






07164 


62 


06996 


COO— 4 


05140 


ERC0M2 


RCTY 












07176 


34 


OOOCC 


CC102 


05150 




WATY 


OUDH 










07188 


39 


02699 


OCIOC 


05 160 




RC TY 












07200 


34 


00000 


00102 


05170 




TO 


EI + 2 


•RECMK 








07212 


25 


02709 


02403 


05180 




B7 


BSWF 










07224 


49 


06996 




05190 


CATINH 


OS A 


IN(2) 










07235 




5 


X 1 


















07235 




-2097 




05200 




DC 
-0 


2 


• 00 








07237 




2 




05210 




OGM 












07238 




1 




05220 


DATDUC 


OS A 


OUDH 










07243 




5 


X 1 


















07243 




-2699 




05230 




DC 
-0 


2 


• 00 








07245 




2 




05240 




DGM 












07246 




I 




05250 


FLCAT2 


BSBA 


•♦12 










072^8 


60 


C726C 


COOOl 


05260 




BLX 


• ♦12 


• MK 




SET 


IX 5 TO -K 


07260 


65 


07272 


0LIP3 


05270 




CF 


FAC+1{5) 










07272 


33 


0K4R3 


COOOO 


05280 




CF 


FAC-4 










07284 


33 


02488 


CCOOO 


05290 




MF 


MU-1 


,FAC 








07296 


71 


C2967 


C2492 


05300 




BD 


• ♦32 


•FAC+l 




HI ORDER DIG 


07308 


43 


07340 


0K4R3 


05310 




BCXM 


•-12 


• 1 


(5U, 


STEP 


1X5 BY 1 


07320 


64 


073Ce 


C-O-1 


05320 




B7 


ZERFAC 










07332 


49 


02884 




05330 




BD 


FLT3 


• 328 


t • 


SKIP 


IF HI CROER DIGIT NOT ZERO 


07340 


43 


07376 


C0328 


053A0 




SF 


FAC (5),1 


• 7 






07352 


32 


0K4R2 


-0001 


05350 




FSL 


FAC-IO 


• FAC 








07364 


05 


02482 


C2492 


05360 


FLT3 


MF 


328 


• 329 


t • 


EXP 


IS NEG 1X5 VALUE 


07376 


71 


00328 


CC329 


05370 




TF 


FAC 


• 329 








07388 


26 


02492 


00329 


05380 




SF 


FAC-9 










07400 


32 


02483 


COOOO 


05390 




MF 


FAC-2 


.MU-1 


t • 


RESTORE ORIG SIGN 


07412 


71 


0249C 


02967 


05400 




87 


FLTENO 




ff6 






07424 


49 


C296C 




05410 


FIXl 


TFM 


FAC-20 


• 000 


• 9 






07432 


16 


C2472 


CC-OC 


05420 




MF 


MU-1 


•FAC-2 








07444 


71 


02967 


C249C 


05430 




TF 


FAC-22 


, FAC-2 








07456 


26 


0247C 


C2490 



563 









1620 MONITOR II 


VERSION 


2 FORTRAN II-O SUBROUTINES SET 


6 






PAGE 


05440 




CM 


FAC 


lOC 


• 10 




07468 


14 


02492 


000-0 


05450 




8H 


• ♦32 








07480 


46 


07512 


01100 


05460 




TF 


FAC 


,FX2 






07492 


26 


024S2 


C3099 


05470 




B7 


FIXENO 








07504 


49 


C296C 




05480 




C 


FAC 


>K 






07512 


24 


02492 


02221 


05490 




BNH 


• ♦56 








07524 


47 


0758C 


CllOO 


05500 




TFM 


EI 


,572 


f9 




07536 


16 


C27C7 


C0N72 


05510 


FXNINE 


TF 


FAC 


,FX9 






07548 


26 


02492 


03089 


05520 




MF 


FAC 


• MU-1 






07560 


71 


C2492 


02967 


05530 




87 


ERROR 








07572 


49 


02936 




05540 




TFM 


• ♦59 


,FAC-30 






07580 


16 


07639 


-2462 


05550 




A 


•♦47 


,FAC 






07592 


21 


07639 


02492 


05560 




TOM 


FAC-30 


lO 


• 11 




07604 


15 


02462 


0000- 


05570 




TF 


FAC 


,FXZ 






07616 


26 


02492 


03099 


05580 




A 


FAC 


• •-• 






07628 


21 


02492 


COOOO 


05590 


XSGN 


MF 


FAC 


• MU-1 






07640 


71 


02492 


C2967 


05600 




B7 


FIXEND 








07652 


49 


02960 




05610 




BLXM 


SWL 


•HRITEA(6) 




07660 


66 


06748 


0PO72 


05620 


WRITEA 


BLXM 


ERF 9- 12 


• •♦12 




BR TO CHECK RECORD LENGTH 


07672 


66 


08284 


OP084 


05630 




BNF 


WA FX 


•FAC-l 






07684 


44 


07744 


02491 


05640 




TF 


FAC 


•FAC-2 


• » 


SHIFT IF FL NO, 


07696 


26 


02492 


02490 


05650 




BXM 


WRT A 


»-8 


(4) 




07708 


62 


07756 


O-OOC 


05660 


MRTACK 


TF 


lN-2 (2) 


• FAC 


(4) 




07720 


26 


02095 


0K492 


05670 




B 


BSWF 








07732 


49 


C6996 


COOOO 


05680 


WAFX 


BX 


WRT A 


• MK 


(4) 




07744 


61 


07756 


0L173 


05690 


URTA 


BNH 


WRTA CK 


• 01 






07756 


47 


0772C 


CHOI 


05700 




BXM 


WRT A 


1-2 


(4) 




07768 


62 


07756 


C-OOK 


05710 




WRITE I TYPE FROM 


FAC TO I 


/O REC 










05720 




BLX 


• ♦12 


,MKP1 


I5n, 


SET 15 TO -K ♦I 


07780 


65 


07792 


0L108 


05730 




BLXM 


SWL 


iWRT I 


16) 




07792 


66 


06748 


CPQ04 


05740 


WRTI 


BNF 


WRT 12+12 


, FAC-1 


• f 


FIXED NUMBER 


07804 


44 


07848 


C2491 


05750 




TFM 


FIXEND+6 


iWRT 12 






07816 


16 


02966 


-7836 


05760 




B7 


FIX 1 








07828 


49 


07432 




05770 


WRTI2 


TFM 


FIXEND+6 


iRTN 






07636 


16 


02966 


^2506 


05780 




BLXM 


ERF9-12 


,•♦12 


f6)^^ 


BR TO CHECK RECORD LENGTH 


07848 


66 


08284 


CPQ60 


05790 




HF 


MU-1 


,FAC 






07860 


71 


02967 


02492 


05800 




TR 


DUD-29 


tFLZERS 


-29,, 


CLEARS DUO AREA 


07872 


31 


02710 


02830 


05810 




BD 


WRTSGN-12 


,FAC 


(5),, 


HI ORO DIG LOC (tX 5 « ^K+1) 


07884 


43 


07908 


0K4R2 


05820 




BCXM 


•-I2 


,1 


(5),, 


DECRE HICRO ZERO 


07896 


64 


07884 


O-O-l 


05830 




SF 


FAC-1 iS) 




t » 


DEFINE HIORO DIGIT 


07908 


32 


0K4R1 


00000 


05840 


WRTSGN 


BX 


• ♦12 


,329 


(5),, 


DOUBLE IX 5 


07920 


61 


07932 


0-3K9 


05850 




TNF 


GAM-2 


,FAC 






07932 


73 


02737 


02492 


05860 




BNF 


MICK- 12 


,MU-1 






07944 


44 


08CCC 


02967 


05870 




TFM 


GAM-4 (5) 


,20 


• 10 




07956 


16 


0K7L5 


OOOKO 


05880 




BXM 


MICK 


,-2 


(5),, 


ALLOW FOR SIGN 


07968 


62 


08012 


C-O-K 


05890 


WIEXIT 


TF 


IN-2 (2) 


,GAM-2 


• • 


MOVE DATA TO I/O RECORD 


07980 


26 


02095 


02737 


05900 




B7 


BSWF 








07992 


49 


069^6 




05910 




SF 


6AM-3 (5) 






DEFINE HI ORD DIGIT FOR PLUS VALUE 


08000 


32 


0K7L6 


00000 


05920 


WICK 


BCX 


MI EXIT 


,329 




WIDTH SPEC OK W^2+IX5 MORE THAN 1 


08012 


63 


07980 


0-329 


05930 




TR 


GAM-29 


,GAM-3 




SHIFT ERROR VALUE LEFT 


08024 


31 


0271C 


CK7L6 


05940 


ERF8 


TFM 


EI + 2 


,67800 


• • 


SET ERF8, ERASE RM 


08036 


16 


02709 


07800 


05950 


ERCOM 


BNF 


ERC0M2 


,TYPE 






08048 


44 


07176 


03369 


05960 




TF 


DAT DUD+2 


,DAT INH+2,^ 


INSERT I/O DEVICE CODE 


08060 


26 


07245 


07237 


05970 




TFM 


lORT 


,•♦23 


, • 


CUTPUT ERR INFO 


08072 


16 


00565 


-8095 


05980 




B 


lOPT 


,DAT DUC-4,7 




08084 


49 


00532 


-7239 


05990 




B7 


ER COM 2 








08096 


49 


07176 





566 
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12 FORTRAN I I-D SUBROUTINES SET 








PAGE 


06000 




WRITE H TYPE FRCM FORf«AT TO I/C RECCRC 










06C1C 


• 




. W H TYPE.. IX BC A IS SEL.IX 1 POINTS AT WIDTH SPEC, IX 2 










06020 


• 




. IS AVAIL CHAR IK I/O REC. CALC ST AOR OF H DATA AND MOVE 










06030 






H DATA Tn Tr r /r rft 












06CAC 




BLXN^ 


unuTjO ,WniTrClOI 


■ 


08 104 


66 


0826C 




06050 


WHTYPE 


BL X 


•+12 ,309 { 3 ) , , 


1X3 « I X 1 


08116 








06060 




BX 


• + 12 , WIDTH ID 




08128 


61 


0814C 


rai na 


06070 






ERF9-12 ,«+12 (6),, 


OK lU LnfcLK KbLUKU LtNuTn 








TD 


06080 




SM 


314 ,•-» 




OH it? 


12 


rn-a 1 2 


-0000 


06090 


WIDTH 


OS 






nfl 1 A-^ 




n 


06100 




TD 


WH+23 ,1 (1),, 


CTrtDC ■ ACT ni 1 T 


08164 


25 


08211 


ceo- 1 


061 10 




TO 


1 (1),RECMK 












06120 


WH 


TRNIw 


IN-1 (2),1 (3),, 


MUVt BlbtiS 


08 188 






C0--1 


06130 




TOM 


1 (1),XX 






IS 


nnn-1 


99999 


06140 




BX 


BSWF , WIDTH (2) 




08212 






08J63 


06150 


n 
















06160 


• 


CQMMCN ROUTINE. WRT H.A,I 


,E AND F TYPES 










06170 


JHB 


CF 


LOC 




08224 


_ 




uUUuU 


06180 




TFL 


FAC ,LCC ,11, 


MOVE FIELD FROM PGM TO FAC 










06190 




BSBA 


• ♦12 




08248 


*n 




COOOl 


062C0 




TF 


WIDTH ,309 ,11, 


STORE WIDTH 


08260 




nfll 


C030R 


06210 




BLX 


•-• (6), WIDTH (4),, 


SET WIDTH IN 1X4 


08272 


iX 


n nn 


00163 


06220 


• 


CK 


H,A AND I TYPES FOR ER F9 


. W FOR E AND F IS ONLY NUMERIC 










06230 




BCX 


(6), 324 (2),, 


ADV I/O REC PNTR.CK A AND I TYPES 


08284 


63 


0— CC 


00L24 


06240 


ERF9 


TFH 


El ,679 ,9, 


SET ER F9 INO 


08296 


16 


02707 


00079 


06250 




BL Xf 


ER COM2 ,99999 (2),, 


SET IX 2 TO PREVENT FURTHER OUTPUT 


08308 


66 


07176 


99R99 


06260 
















06270 




WRITE E AND F TYPE FROH FAC TO 6AH (IN ALPHA) 










06280 


« 


MAKE CKS FOR OVERSIZE REC 


AND OVERSIZE FIELD (ERF9 AND ERF8) 










06290 




SF 


RWEFSM 




08320 


32 


. 


nnnnn 


06300 




BLXM 


SWL ,WEFC0M(6) 




08332 


66 






06310 




CF 


RWEFSW 






33 


_ 




06320 




BLX^ 


SWL ,WEFC0M(6) 




08356 


66 






06330 


WEFCOI" 


BXM 


•+12 ,2 (1),, 


ADV FORMAT PNTR FOR E AND F TYPES 






08380 


000—2 


06340 




BXM 


ERF9-12 ,12 (6),, 


CK FOR ER F9. RTN IF NONE 


08380 


62 


08284 


C-r— 12 


063 50 




TFM 


FLTEND ,»+24 




08392 


16 


02966 




06360 




BNF 


FLOAT2+12,FAC-l 




08404 


44 


0726C 


02491 


06370 




TFM 


FLTEND ,RTN 




08416 


16 


02966 


—2506 


06380 




MOVE DATA TO DUO FOR OUTPUT IN E14.8 FORMAT 










06390 




BD 


•♦24 ,FAC-9 ,, 


CHECK FCR LCUSY ZEROS 


08428 


43 


08452 


02483 


06400 




TFM 


FAC ,-99 ,10 




08440 


16 


C2492 




0641C 




MF 


MU-1 ,FAC-2 


SAVE MANT SIGN 


08452 


7j 






06420 




TR 


DUD-29 ,W MASK-1 




08464 


3 1 


0271C 


G9476 


06430 




TFM 


WCK ,00000 




08476 


16 


08559 


-0000 


06440 




A 


WCK ,FAC 




08488 


2 1 






06450 




BLXM 


•♦12 ,MOVMAN(0) 












06460 


MOVEXP 


BNL 


•♦24 , 


ZERO EXP IS GIVEN PCSITIVE SIGN 


08512 


46 


08536 


r 1 ^rn 


06470 




TDM 


DUD-7 ,2 




08524 


1 5 


02732 


rnnn? 


06480 




TD 


DUD-4 ,WCK-l 










08558 


06490 




TDM 


DUD-2 #•-• 




08548 


15 


02737 




06500 


MCK 


DS 


t» tt 


LOCO-a+EXPONENT 


08559 




C 




06510 




B7 


-304 




08560 


49 


003Cf 




06520 


MOVMAN 


TNF 


DUD-10 ,FAC-2 




08568 


73 


C272S 


02490 






BNF 


•♦24 ,MU-1 




08580 


44 


08604 


C2967 


06540 




TDM 


DUD-29 ,2 




08592 


15 


02710 


CC002 


06550 


« ■ 


LIMIT POSITIONS RT OF DEC 


TO 8 

56 


7 
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2 FORTRAN I I-O SUBROUTINES SET 


6 






PAGE 


06560 




TF 


LOCO ,0(1) ,• 


MOV DEC FT SPEC TO IX 3 


08604 


26 


08747 


cco-c 


06570 




CM 


LOCO fB ,10 




086 16 


14 


08747 


COO-8 


06580 




BNH 


• ♦24 




08628 


47 


08652 


0 1 100 


06590 




TFM 


LOCO ,8 ,10 




08640 


16 


08747 


OCO-8 


06600 




SF 


LOCO 




08652 


32 


08747 


CCOOO 


06610 




SM 


W CK ,8 ,10, 


EXP-8 


08664 


12 


08559 


COO-8 


06620 




S 


W CK ,LOC 0 ,, 


LOCO-8 ♦ EXPONENT 


08676 


22 


0855S 


C8747 


06630 




TFM 


FAC-10 ,00 ,1011 


, EXPAND SIZE OF FAC 


08688 


16 


02482 


COO — 


06640 




BLX 


• ♦12 .LOCO (3U, 


IX 3 WILL BE -LOCO 


08700 


65 


08712 


C8PM7 


06650 




BX 


•♦12 ,319 (4),, 


REDUCE W BY DPT SPEC (W-LOCD) 


08712 


61 


08724 


C-319 


06660 




BLX 


•♦12 ,314 (6),, 


NEXT AVAIL CHAR ADR IN I/O REG 


08724 


65 


C8736 


O-L 14 


06670 




AM 


LOC D ,•-• ,, 


CONVERT TO 2 LOCO 


08736 


1 1 


08747 


-COOC 


06680 


LOCO 


OS 


»• ft 


LOCATICN OF DEC PT. FLAGS SEL 1X3 


08747 




Q 




06690 




SF 


GAM-29 ,FAC-9 




08748 


32 


0271C 


C2483 


06700 




BNF 


WRT F , RWEFSW ,, 


F TYPE 


08760 


44 


C896C 


C3304 


06710 


• •• 


MACRO TO SET UP E TYPE, WRITE AND ERROR CHECK 










06720 




...CK WIDTH SPECS 












06730 




BCXM 


•♦20 ,-5 (4) 




08772 


64 


08792 


C-OON 


06740 




B7 


ER COM-12 




08784 


49 


C8C36 




06750 






•SET UP IX REGS FOR PROCESSG MANT FROM FAC TO I/O REG (IN) 










06760 


HRTE 


BLX 


•♦12 , WIDTH (5),, 


PUT WIDTH IN IX 5 


08792 


65 


06804 


CQ1C3 


06770 




BCXM 


•♦24 ,-14 (5),, 


IX 5 « WIDTH -14 


06804 


64 


08828 


C-0 Jf 


06780 




BLX 


•♦36 , WIDTH (4) 




088 16 


65 


08852 


00163 


06790 




BLXM 


•♦12 ,14 (41 




06828 


66 


08840 


0-014 


06800 




BLXM 


•♦12 ,0(5) 




08840 


66 


08852 


0-0-0 


06810 


• < 




. IX 4 CONTROLS P3SITI0N 


OF SIGN 










06820 






i IX 5 CONTOLS RT POSITION OF FAC 










06830 




BX 


•♦12 ,324 (4),, 


DOUBLE WIDTH 


08852 


61 


08864 


C-324 


06840 




SF 


324 




08864 


32 


00324 


coooo 


06850 




BX 


•♦12 ,314 (4)., 


IX 4 ■ IX 2- I WIDTH 


08876 


6 1 


08886 


C-314 


06860 


• 


...PROCESS EXP FROM FAC TO I/O REG (IN» 










06870 




S 


W CK ,329 ,, 


ADO 14-WlOTH TO CHAR 


08888 


22 


08559 


CC329 


06880 




BO 


W ZER CK ,W CK-2 


EXP LESS THAN -99 


08900 


43 


08924 


C8557 


06890 




BLXM 


MOVEXP ,WZERCK+12,, 


60 TO SET EXP IN GAM AND RETURN 


08912 


66 


08512 


08936 


06900 


WZERCK 


BD 


ER COM-12, FAC-9 ,, 


NON ZERO 


08924 


43 


08036 


02483 


06910 




TRNM 


IN-9 {2),GAM-9 




08936 


30 


02088 


C2730 


06920 


• 




IX 6 MOOFS IN REFS 










06930 




BXM* 


FILL R ,-8 (6),, 


EXP SPACE COMPENSATION IN 1X6 (IN) 


08948 


62 


C9128 


0 — OQ 


06940 






. MACRO TO SET UP F TYPE, 


WRITE AND ERROR CHECK 










06950 


WRTF 


S 


324 ,FAC 




08960 


22 


00324 


02492 


06960 




SM 


324 ,1 ,10, 


MUST BE RCCM FCR 1 CHAR AT LEAST 


08972 


12 


00324 


CCO-1 


06970 




BNH 


ER COM-12, ,, 


WIDTH SPECS INSUFFICIENT 


08984 


47 


08036 


01 100 


06980 




AM 


FAC ,1 ,10 




08996 


11 


02492 


000-1 


06990 




BLX 


•♦12 vWCK (5),, 


IX 5 MOOFS FAC REFS.LOCD-8+EXP^CHAR 


09008 


65 


09020 


CQ5N9 


07000 




CM 


W CK ,-8 ,10 




09020 


14 


08559 


COO-C 


07010 




BNH 


W F ZERO , ,, 


ZERO OUTPUT 


09032 


47 


C9316 


C 1 1 00 


07020 


• 




• SPLIT INTO 3 GASES FOR 


WRT F TYPE 










07030 


• 




• 1X5 PLUS ^REQ ZERO FILL 


FROM RIGHT (IXP) 










07040 






• 1X5 NEG,NON ZERC.EXP NEG.REQS ZERO FILL FROM LEFT( IXNEN) 










07050 






. 1X5 NEG,NON ZERC.EXP NOT NEG. KC ZERO FILL REQC(FItL R) 










07060 




BNF* 


IXP ,WCK 




09044 


44 


09232 


08559 


07070 




BNF 


FILL R ,FAC 




09056 


44 


09126 


02492 


07080 


• 




• EXPAND FAC WITH ZEROS 


ON LEFT 










07090 


IXNEN 


TF 


FAC- 10 ,ZER0-1C 




09068 


26 


02482 


02747 


071CO 




TFM 


•♦30 ,FAC-11 




09080 


16 


09110 


-2481 


07110 




A 


•♦18 ,FAC 




09092 


21 


0911C 


02492 



568 
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FILLL 

UECEC 



WSIGN 
I XP 



C7120 
07 130 
C 7 I A C 
C7 150 
0716C 
07170 
0718C 
07190 
072C0 
07210 
07220 
07230 
0724C 
07250 
07260 
07270 

0728C WFSIG 
07290 
07300 
07310 

07320 WFZER 

07330 

073A0 

07350 

07360 

07370 SLASH 

07380 

07390 

07^00 

07410 

07420 WRITE 
07430 
07440 
07450 

07460 WHASK 
07470 



TNF 
IDf 
BX 
BX 

tnf' 

TFM 

BNF 

TF 

B7 

SF 

FSL 

BLXK 

BLX 

S 

s 

BXM 

CF 

TNF 

BX 

TFM 

87 

BD 

BXM 

CM 

BE 

TF 

BLX 

TFM 

B 

B7 
OAC 



,FAC-^ 
FAC ,01 ,10 

. FILL RIGHT SIDE CF I/O REC FIELC WITH MANTISSA 
lN-2 (6),FAC-2 (5) 
lN-3 {6),T 

•♦12 ,319 I5>,, 1X5- LOCC 

FILL L ,LCCD (6),, 1X6-2 LCCD 
. FILL LEFT SIDE AS REQD. 
lN-2 (6),FAC-1 (51 



IN-2 (6), 3 ,10, 
WF SIGN ,RWEFSH 
IN (4),GAM-28 

BSWF 
329 

FAC-10(5) ,FAC-2 

FILL R ,99999 (5) 

•+12 ,334 14) 

324 ,FAC 

324 ,FAC 

W SIGN ,-2 (4) ,, 

319 

IN-2 (2),ZER0-16(3) 
•+12 ,LQC0 f6) 

IN-2 (6), 3 ,10 
BSWF 

WRITE .TYPE 

•♦12 ,-2 (2) 

IN (2),00 ,10 

SLASH2+12 

IN+4 (2), FLIERS 

•♦12 ,IX2HLD(2) 

lORT ,»+23 

IQPT •OATINH-4 ,7 

•-• (6) 

2, . 



OAC 8,00000000,« 

00000000 

07480 EMASK OAC 5,E+C0« 
E+00* 

07490 RDERF7 TFM EI ,677 

07500 87 ERC0M2 

07510 TFM RHTYPE+35,IN-1 

07520 RHTYPE A •♦35 ,0(11 

07530 SF v+ai 

07540 TD •♦47 ••-• 

07550 TD ,RECMK 

07560 TRNM 1(1) •IN-1(2) 

07570 TDM •-25 .O 

07580 TF •♦35 ,-00309 

07590 A 00309 ,-00309 

07600 BCXM BSWF ,0(2) 

07610 TFM EI ,619 

07620 RERCGM BLXM ERC0M2 •99998(2) 

07630 BLXM SHL •READA(6) 

07640 REAOA TFM RDSQP .FAC 



INSERT DEC PT IN I/O REC 

INSERT SIGN 

CONVERT 1X5 TO NEG 

AOJ FOR SHIFT OF FAC 

ADJ IX 4 FOR SIGN POSITION 

FINE SIGN POSIT ADJ 



MASK FOR EF URT. ALPHA ZERO SOURCE 



09104 


71 


cococ 


02483 


09116 


16 


C2492 


CCO-1 


09128 


73 


CK095 


CK4R0 


09140 


15 


0KO94 


00007 


09152 


61 


09164 


C-3J9 


09164 


61 


C9176 


0CP47 


09176 


73 


0K095 


0K4R1 


09188 


16 


0KQ95 


000-3 


09200 


44 


09268 


C3304 


09212 


26 


CK697 


02711 


09224 


49 


06996 




09232 


32 


00329 


CCOOO 


09244 


05 


CK4Q2 


02490 


09256 


66 


C9128 


9R9R9 


09268 


65 


09280 


0-334 


09280 


22 


00324 


02492 


09292 


22 


00324 


02492 


09304 


62 


09212 


C-OOK 


09316 


33 


00319 


00000 


09328 


73 


02095 


C2PM1 


09340 


61 


C9352 


CCP47 


09352 


16 


0K095 


COO-3 


09364 


49 


06996 




09372 


43 


09432 


03369 


09384 


62 


09396 


00-OK 


09396 


14 


C2097 


CCO-0 


09408 


46 


C9384 


012CC 


09420 


26 


C2PC1 


02859 


09432 


65 


09444 


C6R58 


09444 


16 


CC565 


-9467 


09456 


49 


00532 


-7231 


09468 


49 


0 — OC 




09477 




2 


X 2 


09481 




8 


X 2 


09497 




5 


X 2 


09506 


16 


02707 


C0O77 


09518 


49 


07176 




09526 


16 


09573 


-2696 


09538 


21 


09573 


COO-0 


09550 


32 


09571 


CCOOO 


09562 


25 


096C9 


CCOOO 


09574 


25 


C957L 


C24C3 


09586 


30 


000-1 


02096 


09598 


15 


0957L 


COOCC 


09610 


26 


09645 


CC30R 


09622 


21 


CC3C9 


C030R 


09634 


64 


06996 


CO-CO 


09646 


16 


C27C7 


CC079 


09658 


66 


07176 


99R98 


09670 


66 


06748 


CRC82 


09682 


16 


09904 


-2492 



56D 
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07650 




A 


RDSQP 


• 0(1) 


09694 


21 


09904 


CCO-0 


07660 




BNF 


• ♦48 


• LOC 


09706 


44 


09754 


C68C7 


07670 




TF 


FAC 


•ZEROlO 


09718 


26 


02492 


02767 


07680 




S 


RDSQP 


• K 


09730 


22 


09904 


02221 


07690 




BLXM 


• ♦48 


,FAC(5) 


09742 


66 


C979C 


CK4R2 


077CO 




SM 


ROSQP 


•10 ,10 


09754 


12 


09904 


OOOJO 


07710 




TFL 


FAC 


•ROZERC 


09766 


06 


02492 


C2769 


07720 




BLXM 


• ♦12 


,FAC-2(5) 


09778 


66 


0979C 


0K4R0 


07730 




TF 


00324 


• 0(1) 


09790 


26 


00324 


000-0 


07740 


REAOAl 


BCXM 


READA2 


• 2(2) 


09802 


64 


09826 


00-02 


07750 




BLXM 


ROGIVE 


•RERC0M-12(0) 


09814 


66 


09922 


C9646 


07760 


REA0A2 


CF 


IN-1(2) 


.-2 »10 


09826 


33 


02096 


COO-K 


07770 




BCX 


REAOAl 


•REA0A2^11(4) 


09838 


63 


C98C2 


0R837 


07780 




SF 


IN-1(2) 




09850 


32 


02096 


00000 


07790 




C 


RDSQP 


•00329 


09862 


24 


09904 


00329 


07800 




BNH 


• ♦24 




09674 


47 


09898 


01100 


07810 




BLXM 


ROGIVE 


•R0ERF7(0) 


09886 


66 


09922 


C9506 


07820 




TF 




•IN-2(2) 


09898 


26 


00000 


02095 


07830 


RDSQP 


DS 




• •-5 


09904 




0 




07840 




BLXM 


ROGIVE 


•BSWF(O) 


09910 


66 


09922 


06996 


07850 


ROGIVE 


BSBB 


• ♦12 




09922 


60 


09934 


00002 


07860 




MF 


ROGIVE 


• LOC 


09934 


71 


09922 


06807 


07870 




TFL 


LOG 


•FAC ,6 


09946 


C6 


0680P 


02492 


07880 




MF 


LOC 


•ROGIVE 


09958 


71 


06807 


09922 


07890 




BSBA 


-00304 




09970 


60 


0030M 


00001 


07 9 CO 




BLXM 


SWL 


•RETYPE(6) 


09982 


66 


06748 


0RR94 


07910 


RETYPE 


TFM 


ROSDIG 


•05000 


09994 


16 


10469 


-5000 


07920 




TFM 


CHAR 


•00 •lO 


10006 


16 


10015 


000-0 


07930 


CHAR 


OS 




.♦-2 


10015 




C 




07940 




B7 


RFTVPE+12 


10018 


49 


1005C 




07950 




BLXM 


SHL 


•RFTYPE(6) 


10026 


66 


06748 


1—38 


07960 


RFTYPE 


TFM 


ROSDIG 


•55000 


10038 


16 


10469 


N5000 


07970 




TF 


00324 


• 0(1) 


10050 


26 


00324 


000-0 


07980 




TF 


RDCS 


• 2(1) 


10062 


26 


10283 


000-2 


07990 




BXM 


RDCOM 


,2(1) 


10074 


62 


10146 


000-2 


08000 




BLXM 


SWL 


,RITYPE(6) 


10086 


66 


06748 


1 — 98 


08010 


RITYPE 


TFM 


ROSDIG 


,55500 


10098 


16 


10469 


N5500 


08020 




TFM 


RDCS 


,00 ,10 


10110 


16 


10283 


000-0 


08030 




MM 


0(1) 


,05 ,10 


10122 


13 


000-0 


CCO-5 


08040 




BLX 


• ♦12 


,98(4) 


10134 


65 


10146 


0-098 


08050 


RDCOM 


BLXM 


• ♦12 


,FAC-11(5) 


10146 


66 


10158 


CK4Q1 


08060 




TFL 


FAC 


•ROZERC 


10158 


06 


02492 


02769 


08070 




CF 


RDCOM 




10170 


33 


10146 


COOOO 


08080 




TFM 


CNTS 


•0010 ,10 


10182 


16 


10191 


COOJO 


08090 


CNTS 


DS 




• •-2 


10191 




C 




081C0 




TFM 


RDADJ-6 


, READCC 


10194 


16 


10844 


J0206 


08110 


READCC 


BNR 


RDCOM I 


•IN(2) 


10206 


45 


10226 


C2C97 


08120 




87 


RDCGM3 




10218 


49 


1C394 




08130 


RDCOM I 


CM 


IN(2) 


•00 ,10 


10226 


14 


02097 


000-0 


08140 




BE 


RDBLNK 




10238 


46 


10726 


01200 


08150 




CM 


IN(2) 


,70 ,10 


10250 


14 


02097 


COOPO 


08160 




BNL 


RDDIG 




10262 


46 


10714 


01300 


08170 




CM 


IN{2) 


•OCIO ,10 


10274 


14 


02097 


COOJO 


08180 


RDCS 


DS 




,»-2 


10283 




0 




08190 




BE 


RDPLUS 




10286 


46 


104 7C 


01200 


08200 




CM 


IN(2) 


,20 ,10 


10298 


14 


02097 


OOOKO 



570 
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08210 




BE 


RDMNUS 






1031C 


46 


10458 


C12C0 


0822C 




80 


RDCCN2 


, RDSOEC 




10322 


43 


1C358 


10467 


08230 




CM 


IN( 2) 


t03 


,10 


10334 


14 


02097 


COO-3 


082AC 




BE 


RDDEC 






10346 


46 


1C426 


01200 


08250 


RDC0M2 


BD 


RDC0M3 


.RDSETY 




10358 


43 


10394 


10465 


08260 




CM 


IN(2) 


f 45 


,10 


10370 


14 


02097 


CC0M5 


08270 




BE 


ROE 






10382 


46 


1C526 


C1200 


08280 


KCCQM3 


TFL 


FAC 


.ROZERC 




10394 


06 


02492 


02769 


08290 




TD^ 


ROSERR 


tO 


til 


10406 


15 


10466 


CCCC- 


08300 




B7 


RDADJ 






10418 


49 


1C85C 




08310 


RCCEC 


TD1* 


RDSDEC 


»-5 




10426 


15 


1C467 


OOOON 


08320 




TFM 


ROCS 


• 00 


.10 


10438 


16 


10283 


COO-0 


08330 




B7 


RDADJ 






1045C 


49 


1085C 




08340 


RDMNUS 


SF 


RDCOM 






10458 


32 


10146 


COOCO 


08350 


ROSOIG 


OS 




» • 




10469 




C 




08360 


RDSSGN 


OS 




f»-l 




10468 




C 




08370 


RDSOEC 


OS 




.•-2 




10467 




C 




0838C 


ROSERR 


OS 




t»-3 




10466 




C 




08390 


ROSETY 


OS 




• •-4 




10465 




C 




084C0 


RDPLUS 


BO 


RDPLl 


, RDSSGN 




10470 


43 


10514 


10468 


08410 




MF 


RDMNUS 


fRDCOM 




10482 


71 


10458 


10146 


08420 




TDM 


RDSSGN 


t-5 




10494 


15 


10468 


COOON 


08430 




B7 


ROADJ 






10506 


49 


IC85C 




C844C 


ROPLl 


BD 


RDCaM3 


•ROSETY 




10514 


43 


10394 


10465 


08450 


ROE 


TFM 


RDADJ-6 


•RETYl 




10526 


16 


10644 


J0546 


08460 




B7 


ROADJ 






10538 


49 


IC85C 




08470 


RETYl 


CM 


IN(2) 


t20 


tlO 


10546 


14 


02097 


COOKO 


08480 




BNE 


• ♦24 






10558 


47 


10582 


01200 


08490 




SF 


RDCQM 






10570 


32 


10146 


CCOCC 


08500 




CM 


00324 


,01 


tlO 


10582 


14 


00324 


CCO-1 


08510 




BE 


RETY2 






10594 


46 


1C626 


01200 


08520 




TO 


CHAR-1 


tIN<2) 




10606 


25 


10014 


02097 


08530 




87 


RDADJ 






10618 


49 


1C85C 




08540 


RETY2 


TD 


CHAR 


•IN(2} 




10626 


25 


10015 


02097 


08550 




SF 


CHAR-1 






10638 


32 


10014 


00000 


08560 




MF 


CHAR 


•RCCOM 




10650 


71 


10015 


10146 


08570 




A 


FAC 


• CHAR 




10662 


21 


02492 


1C015 


08580 




B7 


ROADJ 






10674 


49 


icesc 




08590 


RDECK 


BNF 


RDADJ 


•RDSDEC 




10682 


44 


1085C 


10467 


08600 




SM 


FAC 


tOl 


tlO 


10694 


12 


02492 


COC-1 


08610 




B7 


RDADJ 






10706 


49 


1085C 




08620 


ROCIG 


BD 


RDBLNK«^12 


'•IN(2I 




10714 


43 


1C738 


02097 


08630 


ROBLNK 


BNF 


ROECK 


•ROSOIG 




10726 


44 


10682 


10469 


08640 




AM 


CNTS 


• -01 


tlO 


10738 


11 


10191 


000-J 


08650 




BL 


• ♦48 






10750 


47 


10798 


C1300 


08660 




TD 


0(5) 


•IN(2) 




10762 


25 


0-C-C 


02097 


08670 




BXM 


• ♦12 


• IfS) 




10774 


62 


10786 


0-0-1 


08680 




TDM 


ROSOIG 


t-5 




10786 


15 


10469 


CCOCN 


08690 




BNF 


• ♦20 


•RDSDEC 




10798 


44 


10816 


10467 


087CO 




B7 


ROADJ 






10810 


49 


1C85C 




08710 




AM 


FAC 


tOl 


tlO 


10818 


11 


02492 


000-1 


08720 




B7 


ROADJ 






10830 


49 


1085C 




08730 




BD 


READCO 


•ROSERR 




10838 


43 


10206 


10466 


08740 


ROADJ 


BCXF 


ROADJ 1 


• 2(2) 




10850 


64 


1C894 


00-02 


08750 




TFL 


FAC 


•RDZERO 




10862 


06 


02492 


02769 


08760 




TDM 


ROSERR 


• 0 




10874 


15 


10466 


COOCC 



571 
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08770 




87 


ROADJ 1^24 




10886 


49 


10918 




08780 


ROADJl 


BCX 


RDADJ-12 


•RDBLNK^23(4) 


10894 


63 


10838 


1-749 


08790 




S 


FAC 


• ROCS 


10906 


22 


02492 


1C283 


08800 




TFM 


FIXEND^6 


•RDFIX3-12 


10918 


16 


02966 


J1042 


08810 




SF 


FAC- 11 




10930 


32 


02481 


00000 


08820 




TF 


FAC-20 


•FAC-2 


10942 


26 


02472 


C2490 


088)0 




BNF 


RDFLT 


• LOC 


10954 


44 


10986 


C68C7 


08840 




MF 


MU-l 


•RDMNUS 


10966 


71 


02967 


10458 


08850 




B7 


FIXU36 




10978 


49 


07468 




08860 


RDFLT 


BD 


• ♦32 


•FAC-ll 


10986 


43 


11018 


C2481 


08870 




TFL 


FAC 


tFLZER 


10998 


06 


02492 


03131 


08680 




B7 


•♦32 




11010 


49 


11042 




08890 




TF 


FAC- 2 


•FAC-4 


11018 


26 


02490 


02488 


08900 




MF 


FAC-2 


•RDMNUS 


11030 


71 


C2490 


10458 


08910 




TFM 


FIXEND^6 


• RTN 


11C42 


16 


02966 


-2506 


08920 


R0FIX3 


BD 


• ♦48 


• ROSERR 


11054 


43 


11102 


10466 


08930 




BNF 


•♦24 


•ROSERR 


11066 


44 


1109C 


10466 


08940 




BLXM 


RD6IVE 


•R0ERF7(0I 


11078 


66 


09922 


C9506 


08950 




BLXM 


RD6IVE 


•RERCOM(O) 


11C90 


66 


09922 


09658 


08960 




BLXM 


RD6IVE 


•BSNF(O) 


11102 


66 


09922 


C6996 


08970 


» 




. RA 00 IT 


•• RD TC I/O REC FROM SELECTED INPUT 










08980 


RADOIT 


TFM 


lORT 


• •♦23 


11114 


16 


00565 


J 1 137 


08990 




B 


lOGT 


•DATINH-4 t7 


11126 


49 


00566 


-7231 


09000 




BO 


• ♦24 


• TYPE 


11138 


43 


11162 


03369 


09010 




BC4 


RMA2^36 




11150 


46 


06952 


00400 


09020 




B7 


BSWF 




11162 


49 


06996 




09030 




00 RG 


15000 




15000 








09040 


AS4 


34 


A4 


•701 


15000 


34 


15036 


00701 


09050 




38 


A4 


• 702 


15012 


38 


15036 


00702 


09060 




49 


• ♦26 




15024 


49 


1505C 


COOOO 


09070 


A4 


OSC 


14 


•01S800080D3200 


15036 




14 








01580008CC3200 










09080 




TRA 






15050 


36 


OOOOC 


00500 












15062 


49 


OOOCC 


COOOO 


09090 




TCD 


AS4 




15000 








09100 


QSTZS 


H 






15074 


48 


00000 


00000 


09110 




OEND 


QSTZS 




15074 
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COHACD 


C2231 


RDPLUS 


10470 


ERRET 


0C602 


LNIO 


06172 


REPEX 


07164 


COHPLT 


C6522 


ROSOEC 


10467 


ERROR 


02936 


LNENT 


03178 


REP 


07C44 


DATUbD 


C7243 


RDSOIG 


10469 


ERXV 


02968 


LOCO 


C8747 


REPSW 


06799 


DAT INH 


C723b 


RDSERR 


10466 


ESC 


06421 


LQC 


06807 


RESET 


05862 


DIOCCA 


C2868 


ROSETV 


10465 


ETYPE 


04454 


LOGE 


03143 


RETYl 


10546 


DKDATA 


C2860 


RDSSGN 


10468 


FAC 


02492 


M2KM1 


02942 


REIY2 


1C626 


ENDFQR 


C2521 


ROZERC 


02769 


FAXBl 


05522 


M2KP1 


02989 


RSGNl 


C4574 


ENFABS 


C2323 


READAl 


09802 


FAXB 


04118 


MATSW 


06800 


RSGN 


03074 


ENTATN 


02313 


REA0A2 


09826 


FAXIl 


05206 


MAX 


03188 


RSQR2 


06180 


ENTCCS 


02303 


READCC 


10206 


FAXl 


04094 


MKPl 


03168 


RTN 


02506 


ENTDED 


02298 


REPSW3 


06802 


FOVRl 


04548 


MK 


03173 


RhA2 


06916 


ENTCRR 


02293 


RERCO^ 


09658 


FCVR 


04046 


HKS 


03173 


RtaA3 


06880 


ENTEXP 


02253 


RETYPE 


09994 


FILLL 


09176 


MU 


02968 


RWA 


06844 


ENTFET 


02283 


RFTYPE 


10038 


FILLR 


09128 


Nl 


02233 


SAVE 


02592 


ENFFID 


02273 


RHTYPE 


09538 


FIXl 


07432 


N2 


02238 


SETl 


05718 


ENTREC 


02278 


RITYPE 


10098 


FIXIl 


04886 


NOOIV 


05426 


SET 


04142 


ENrSC2 


02258 


RMEFSh 


03304 


FIXI 


04070 


ONE 


06112 


SLASH 


06546 


ENTSC3 


022 63 


lOOHK 


03034 


FIX 


03854 


CNEZ 


03121 


START 


03851 


ENTSDX 


02268 


99MK 


02445 


FKOOO 


02967 


PAR 


03843 


STOP 


02395 


ENTSIN 


023C8 


A4 


15036 


FLOAT 


03998 


PI0V2 


06371 


SHCFX 


02410 


ENrSQT 


02318 


AEX 


05966 


FLONE 


03153 


PSI 


04990 


SWCMl 


03204 


ENTSk«0 


02288 


AK 


06253 


FLT3 


07376 


PTl 


03269 


ShCM2 


03209 


ERC0M2 


C7176 


ALSQl 


05674 


FLIER 


03131 


PT25 


06431 


SWC 


06808 


EXPENT 


03183 


AS4 


15000 


F 


02219 


PT75 


06451 


SML 


06748 


FINDIN 


C240A 


ASC 


06381 


FSBRl 


04502 


QSTSl 


0 5630 


TRACE 


03C04 


FIXEND 


02960 


AT 


06217 


FS8R 


04022 


QSTS2 


05666 


TRFX 


03066 


FL0AT2 


072A8 


ATYPE 


04406 


FTYPE 


04430 


QSTS 


05622 


T 


05956 


FLTEND 


02966 


AXJ 


05330 


FXl 


03109 


QSTZS 


15074 


TYl 


03245 


FLZERS 


02859 


BETA 


02630 


FX9 


03089 


QZl 


05777 


TYPE 


03369 


FXMENO 


04778 


BEX 


05976 


FXDl 


04790 


QZ2 


05789 


UNFLO 


02<;04 


FXMULT 


05130 


BK 


06265 


FXOR 


03950 


QZF 


05813 


WACOl 


03270 


FXNINE 


07548 


BSC 


06391 


FXD 


03926 


R2PI 


06441 


taACC 


04214 


FXZERQ 


050 74 


BSWF 


06996 


FXERI 


05186 


RACDl 


03370 


hAFX 


07744 


INFFAC 


02924 


BT 


06229 


FXH 


03072 


RACO 


04286 


WAPTl 


03246 


IX2HLD 


06958 


C3 


06205 


FXMl 


04718 


RAPTl 


01350 


WAPT 


04190 


LGCADJ 


06498 


C5 


06196 


FXM 


03902 


RAPT 


04262 


WATYl 


03210 


MATRIX 


06606 


C7 


06189 


FXSRl 


04666 


RATYl 


03314 


WATY 


04166 


^«ATRX2 


066 74 


COl 


03349 


FXSR 


03878 


RATY 


04238 


WCK 


08559 


MESERR 


02699 


CEX 


05988 


FXZ 


03099 


RDAOJ 


10850 


WEOEC 


09188 


KGNCAL 


00796 


CHAR 


10015 


GAH 


02739 


RDALP 


03394 


WH 


08188 


MCVEXP 


08512 


CNTS 


10191 


GK 


06277 


ROCGH 


10L46 


WICK 


08012 


MCVMAN 


08568 


CONST 


06124 


HTYPE 


04478 


ROCS 


10283 


WIDTH 


08163 


OCOREV 


05038 


CSC 


06401 


INF 


03163 


RDCEC 


10426 


WHASK 


09477 


QNEFAC 


02494 


CT 


06241 


INH 


02521 


ROOIG 


10714 


WRITE 


09432 


OVFLOW 


02924 


OEES 


06010 


IN 


02697 


ROECK 


10682 


WRTA 


07756 


PRCGST 


02226 


OEX 


06000 


ICCAL 


00716 


ROE 


10526 


WRTE 


08792 


RADOIT 


11114 


OSC 


06411 


lOGT 


00566 


RDFLT 


10986 


WRTF 


08960 


ROAOJl 


10894 


OUOH 


02699 


lOPT 


00532 


ROPLl 


10514 


WRTI2 


07836 


RDBLNK 


10726 


DUO 


02739 


ICRBC 


00520 


RDSOP 


09904 


WRTl 


C7804 


RDCOMl 


10226 


OUHHY 


99999 


IQRT 


00565 


READA 


09682 


W 


02240 


RCC0H2 


10358 


EI 


02707 


IQSK 


00554 


RECLG 


02243 


WSIGN 


09212 


RDC0M3 


10394 


E>(ASK 


09497 


ITYPE 


04310 


RECMK 


02403 


XSGN 


07640 


RDERF7 


09506 


ENTLN 


02248 


IXNEN 


09068 


REOOA 


06488 


XTYPE 


07C08 


RDFIX3 


110 54 


ERCOP 


08048 


IXP 


09232 


RECO 


06452 


XX 


99999 


RDGIVE 


09922 


ERF8 


08036 


JHB 


08224 


REP2 


07116 


ZERO 


C2757 


RDMNUS 


10458 


ERF9 


08296 


K 


02221 


REP3 


07140 


SLASH2 


09372 



573 



1620 MONITOR 11 VERSICN 2 FORTRAN Il-D 



STZERO 02771 
WEFCOM 08368 
MFSIGN 09268 

END OF ONE ASSEMBLY. 



WFZERO 09316 
WHTYPE 08116 
HIEXIT 07980 
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HRITEA 
MRTACK 



07672 
07720 



WRTALP 03294 



WRTSGN 
WZERCK 
ZERFAC 



07920 
08924 
02884 
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ZEROlO 02767 
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00010 1620 MCNITOR II VERSION 2 FORTRAN II-O LOADER BLOCK I 



00020 




00 RG 


2426 




02426 




00030 


NAPBUF 


DC 


16,0 




02441 


16 






-OCOQOOOOOOOOOOO 








GOO'%0 




DC 


2 » • 




02443 


2 


00C5C 


CVRLAP 


DS 


I 




02444 


I 


00060 


FLGRN'K 


OS 


1 




02445 




00070 


ADCCCK 


DS 


5 








00C80 


EQADCR 


DS 


5 




02455 


5 


00C9C 


SCADCR 


DS 


5 




02460 


5 


00100 


lOIND 


DS 


I 




02461 


1 


00110 


HL IND 


OS 


1 




02462 




00 120 


EXTINC 


DS 


I 




02463 




0013C 


SECT 


DS 


3 




02466 


3 


00140 


ZROTST 


OS 


I 




02467 


I 


00150 


ADCSVE 


DS 


5 




02472 


5 


00160 




DC 
I 


If • 




02473 


J 


00170 


LOODA 


00 A 


• lfO,0,rSUBTBL 




02474 


14 






1-0000-00-2522 








00180 




DC 
t 


It* 




02488 


I 


00190 


SVEDDA 


DO A 


«ltO,2I,0 




02490 


14 






l-OOOO-21-COOO 








002C0 




DC 
t 


I » • 




02504 


1 


00210 


INCDDA 


ODA 


,ltO,10,SUBTBL 




02506 


14 






1-0000-10-2522 








00220 




DC 
1 


If' 




02520 


J 


00230 




OS 


1 




02521 


I 


00240 


SUHTBL 


OSS 


lOGO 




02522 


ICCC 


00250 




DC 


12, • 




03533 


12 






-OOOOOOOOCO* 








00260 




00 RG 


7280 




07280 




00270 


DDAR 


OSS 


20 




07280 


2C 


00280 


COMSEC 


Q^S 


100,, SYSTEft COIt|«UNICATION 


SEC ICR 


0 7300 


ICC 


00290 


INRK 


OSS 


100,, READ IN AREA FOR 


INDICATOR RECORD 


07400 


IOC 


00300 


S8PTBL 


DS 


tINRK 




07400 


C 



00310 • 
00320 • 
00330 • 
00340 * 
00350 • 



00360 


lORT 


DS 


,565 




00565 




C 




00370 


lOGT 


DS 


,566 




00566 




C 




00380 


lOPT 


DS 


,532 




00532 




c 




00390 


MONCAL 


DS 


,796 




00796 




c 




00400 




TFM 


I0RT,»+23,, GET 


BLOCK 2 


07500 


16 


CC565 


-7523 


00410 




B 


I0GT,F0R,7 




07512 


49 


00566 


JC276 


00420 


HLINIT 


TFM 


TDIS«6,MTBL4ll,, 


INITIALIZE HAINLINE TABLE 


07524 


16 


07542 


JC697 


00430 


TDIS 


TDM 






07536 


15 


CCCCC 


COOOO 


00440 




DC 
• 






07547 




1 




00450 




AM 


T0IS«6, 20,10 




07548 


11 


07542 


CCOKO 



575 
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00460 


MSIZE 


CM 


TDIS*6,MTBL*20»51+11 






07560 


14 


07542 


J1717 


00470 




BL 


TDIS 






07572 


47 


07536 


C13CC 


00480 




TD 


SUBSET«^Il,C0MSEC«e2,, INITIALIZE ADDRESS 


COUNTER 


07584 


25 


07675 


C7382 


00490 




CM 


SUBSET^11,4,10 






07596 


14 


07675 


COO-4 


005C0 




BNH 


• ♦36 






07608 


47 


07644 


CllCC 


00510 




BTM 


EPRINT,78,6 






07620 


17 


I02C4 


C-078 


00S20 




TD 


SUBSET*ll,C0MSEC483 






07632 


25 


07675 


C7383 


00530 




BD 


•♦20,SUBSET«11 






07644 


43 


07664 


C7675 


00540 




B 


•-24 






07656 


49 


07632 


CCOCC 


00550 




DORG 


•-3 






07664 








00560 


SUBSET 


AM 


•♦35, ,10 






07664 


11 


0769S 


OCO-0 


00570 




TDM 


lOINO 






07676 


15 


C2461 


00000 


00580 




BD 


TWO,ONETWO 






07688 


43 


07732 


13032 


00590 


ONE 


TFM 


ADOC0W,7499 






07700 


16 


C245C 


-7499 


00600 




TOM 


I0IN0,1 






07712 


15 


02461 


CCCOl 


00610 




B 


• ♦20 






07724 


49 


07744 


00000 


00620 




DORG 


•-3 






07732 








00630 


TWO 


TFM 


AODCOW, 12999 






07732 


16 


0245C 


J2999 


00640 


LOOPRC 


TF 


A0DSVE,AD0C0W 






07744 


26 


02472 


02450 


00650 




AM 


ADDSVE,1,10 






07756 


11 


02472 


OOO-l 


00660 




TF 


FL0D^19,AD0C0M 






07768 


26 


12847 


02450 


00670 


START 


TF 


CCCNT,C0MSEC^75,, GET CONTROL CARD COUNT 






07780 


26 


105Ce 


C7375 


00680 


GETDIM 


TFM 


I0RT,«^23,, GET FIRST SECTOR CF DIM 






07792 


16 


C0565 


-7815 


00690 




B 


I06T,MAP,7 






07804 


49 


00566 


J2765 


00700 




TFM 


FL00«18,0 






07816 


16 


12846 


-0000 


00710 




A 


FL0D4l6,CCIN+27 






07828 


21 


12844 


10550 


00720 




A 


FL00«L6,CCIN«27 






07840 


21 


12844 


10550 


00730 




TF 


FL0D«36,A00C0M 






07852 


26 


12864 


02450 


00740 




SM 


FLOD^IS, 21,10 






07864 


12 


12846 


OOOKl 


00750 




TF 


FLS0DA^5,FL0D+18 






07876 


26 


12941 


12846 


00760 




SM 


FLSODA+5,1,10 






07888 


12 


12941 


COO-1 


00770 




TF 


SUBDDA^5,FLS00A+5 






07900 


26 


12755 


12941 


00780 




TF 


FL0D*7,FLSDDA*5 






07912 


26 


12835 


12941 


00790 




TF 


FL0D^23,CCIN^44 






07924 


26 


12851 


10567 


00800 




TF 


FL00^26,CCIN+47 






07936 


26 


12854 


10570 


00810 




TF 


SVED0A+5,FL0D^18 






07948 


26 


02495 


12846 


00820 




TFM 


SCADDR,0 






07960 


16 


02460 


-OOOC 


00830 




TF 


SECT,FLQ0426 






07972 


26 


02466 


12854 


00840 




TF 


£QA0bR,FL0D^23 






07984 


26 


02455 


12851 


00850 




TO 


FL0D^99,I0IN0 






07996 


25 


12927 


02461 


00860 




TFM 


EPRINT+49,39,10 






08008 


16 


10253 


000L9 


00870 




TO 


FLGRMK,FL0D^99 






08020 


25 


02445 


12927 


00880 




CM 


CCCNT,,10, ANY CONTROL CARDS PRESENT 






08032 


14 


10508 


COO-0 


00890 




BE 


XEQON,,, BRANCH IF NONE TO READ INDICATOR 


RECORD 


08044 


46 


09648 


01200 


00900 


SBINIT 


TFM 


S0IS^6,STBL^11,, INITIALIZE SUBPROGRAM 


TABLE 


08056 


16 


08074 


J1717 


00910 


SDIS 


TDM 








08068 


15 


OOOCC 


CCOOO 


00920 




DC 
( 


!,•,• 






08079 




1 




00930 




AM 


SDIS+6,5,10 






08080 


11 


08074 


COO-5 


00940 




TFM 


SDIS+6,,67 






08C92 


16 


0807M 


-0000 


00950 




AM 


SDIS+6, 15,10 






08104 


11 


08074 


C00J5 


00960 


SSIZE 


CM 


SDIS+6,STBL+20«5I+ll 






08116 


14 


08074 


J2737 


00970 




BL 


SDIS 






08128 


47 


08068 


C1300 


00980 




TFM 


SUBCCW 






08140 


16 


12995 


-0000 


00990 




TR 


CCIN-l.INTCC, INITIALIZE CONTROL READ 


IN 


AREA 


08152 


31 


10522 


10300 


OlOCO 


RDAGN 


TFM 


TFCC+ll,INDV-l 






08164 


16 


08211 


J0509 



162C MONITOR II VERSICN 2 FORTRAN II-C LOACER BLCCK 1 



OlOlC 




TD 


AMI+11,429,, GET INPUT DEVICE 


08176 


25 


08199 


C0429 


CIC20 


AW I 


AM 


TFCC+11,,1C 


08188 


11 


08211 


000-0 


01030 


TFCC 


TF 


NEXC^2 


08200 


26 


12732 


CCOOO 


01040 




TFM 


I0RT,»4-23«f GET CONTROL RECORD 


08212 


16 


C0565 


-8235 


01050 




B 


iOGTf NEXC-4,7 


08224 


49 


C0566 


J2726 


01C60 




CM 


NEXC4^2»6,l0t IS IT A TYPED ENTRY 


08236 


14 


12732 


000-6 


01070 




BNE 


• ♦24 


08248 


47 


08272 


01200 


01080 




BC4 


RDAGN-12 


08260 


46 


08152 


00400 


01090 




TFP 


•♦23fCCIN^16C 


08272 


16 


08295 


J0683 


OllCO 


SETRM 


BNR 


SETRMl 


08284 


45 


08340 


OOOOC 


OHIO 




SM 


•>lf 2,10 


08296 


12 


08295 


COO-2 


01120 




CM 


SETRM^ll.CCIN 


08308 


14 


08295 


J0523 


01130 




BE 


RDL0C4-12 


08320 


46 


0846C 


01200 


01140 




B 


SETRM 


08332 


49 


08284 


00000 


01150 




00 RG 


•-3 


08340 








01160 


SEFRWl 


CM 


SETRM^lltt610 


08340 


14 


0829N 


COO-0 


01170 




BE 


SETRM+12 


08352 


46 


08296 


01200 


01I8C 




AM 


SETRM-fll,2,lC 


08364 


11 


08295 


000-2 


01190 




TDM 


SETRM4^11,,6 


08376 


15 


0829N 


00000 


012C0 




DC 
• 


If * t* 


08387 




1 




01210 




RCTV 




08388 


34 


OOOOC 


00102 


01220 




TFM 


I0RT,»+23 


08400 


16 


0C565 


-8423 


01230 




B 


I0PT,TYPE~4,7 


08412 


49 


CC532 


J2734 


01240 




RCTY 




08424 


34 


CCCCC 


C0102 


01250 




TDM 


SETRM^ll, ,6 


08436 


15 


0e29N 


COOCC 


01260 


RDLOC 


BNR 


•♦32.CCIN 


08448 


45 


084BC 


10523 


01270 




BTM 


EPRINTt71i8 


08460 


17 


10204 


€-071 


01280 




B 


MONCAL 


06472 


49 


00796 


COOCO 


01290 




00 RG 


•-3 


08480 








01300 




CM 


CCIN»14tl0» IS IT A CONTROL CARD 


08480 


14 


10523 


000J4 


01310 




BNE 


ROLOC+12 


08492 


47 


0846C 


C1200 


01320 


RMCHK 


TFM 


•♦23,CCIN«2,, CHECK FOR RECORD MARK IN LOCAL NAME 


08504 


16 


08527 


JC525 


01330 




BNR 


• ♦20 


08516 


45 


08536 


CGOCC 


01340 




B 


RDLOC+12 


08528 


49 


0846C 


CCOOO 


01350 




DORG 


•-3 


08536 








01360 




AM 


RMCHK423,2tlO 


09536 


11 


08527 


000-2 


01370 




CM 


RMCHK^23fCCIN4l2 


08548 


14 


08527 


JC535 


01380 




BNE 


RMCHK+12 


08560 


47 


08516 


C1200 


01390 




C 


CCIN>10,L0CAL«6«» IS IT A LOCAL RECORD 


08572 


24 


10533 


10473 


01400 




BE 


COLNAMtft BRANCH IF LOCAL 


08584 


46 


08604 


01200 


01410 




B 


RDL0C*12 


08596 


49 


08460 


OOOOC 


01420 




00 RG 


•-3 


08604 








01430 


•««»•• 


COLLECT AND STORE MAINLINE AND SUBPROGRAM NAMES 










01440 


COLNAH 


BO 


• ♦24,CQNT,, CONTINUE CARD TEST —BRANCH IF ON— 


08604 


43 


08628 


10274 


01450 




TDM 


MLINO.lf. TURN CN MAINLINE INDICATOR 


08616 


15 


02462 


COOCl 


01460 




TFM 


CONT, 00100 


08628 


16 


10274 


-0100 


01470 




TR 


NAMBUF-13,INTCCl-10ft INITIALIZE COLLECT AREA 


08640 


31 


02428 


10446 


01480 


RCHKCK 


BNR 


BLNKCK. CCIN412, .TEST FOR RECORD MARK IN NAME 
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03940 


LDMN 


DAC 


5, MAIN* 


13023 




5 


X 2 






MAIN 












03950 


ONETWO 


DSC 


5,00101 


13032 




5 








00101 










03960 


* 


B 


LOCK LOADER 










C 3 9 7 0 




DORG 


5000 


0 5000 








03980 


BEGIN 


TD 


TYPE-5, 19999 




25 


12733 


1 9999 


0399C 




TD 


SUB-1, 19999 


05012 


25 


12741 


19999 


040 CC 




SK 


LOADER 


05024 


34 


C5C6C 


GO 70 1 


04010 




WON 


LOADER 


05036 


38 


05060 


00702 






H 








rnnrr 

uU wU'W 


rrnrr 

u \J U u ^ 


04030 


LOADER 


ODA 


•1,16000,57,7500 


05060 




14 








IJ6000-57-75C0 










0404C 




DGW 


19999 


19999 




I 




04050 




TCD 


BEGIN 


05CC0 








04060 




DENO 




OOCOO 
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AOOCGW 


02450 


LDMAIN 


12791 


END 


09932 


MUNO 


02462 


TWO 


07732 


ACCSVE 


02472 


LOADER 


09060 


ENTER 


06880 


MLSCH 


09086 


TYPE 


12738 


ALFINO 


102 72 


LOOPRC 


07744 


FLOO 


12828 


MSIZE 


07560 


XEQCN 


0964R 


BLKINO 


10271 


MAINCT 


10506 


FLS 


12928 


MTBL 


10686 


SBINIT 


08C56 


BLNKCK 


08684 


MAPDDA 


12774 


FOR 


1C276 


NEXC 


12730 


SBPTBL 


C7400 


COLNAM 


08604 


MLINIT 


07524 


INC 


12975 


ONE 


077CC 


SCADDR 


C2460 


CQMODA 


12960 


MONCAL 


00796 


INDV 


10510 


ROAGN 


08164 


SEARCH 


09112 


COMINO 


10273 


NAMBUF 


02441 


INRK 


07400 


RDLOC 


08446 


SETRr'l 


08340 


COMSEC 


07300 


ONETUO 


13032 


INTCC 


10300 


RMCHK 


08504 


SPCHAR 


08752 


EPRINT 


10204 


OVRLAP 


02444 


lOGT 


00566 


RNOEO 


C94C8 


SUBCOW 


12995 


EQAOOR 


02455 


RCMKCK 


08652 


IGIND 


02461 


ROUND 


09836 


SUBODA 


12750 


ERMESS 


13003 


RNDEDl 


09940 


ICPT 


00532 


SOIS 


08068 


SUBSCH 


09056 


EXTINO 


02463 


ROUNOl 


09856 


lORT 


0C565 


SECT 


02466 


SUBSET 


C7664 


FLGRMK 


02445 


AMI 


08188 


LODOA 


02474 


SETRM 


08284 


SUBTBL 


02522 


FLSOOA 


12936 


BEGIN 


05000 


LOMN 


13023 


SSIZE 


08116 


SVEDDA 


02490 


FORODA 


10284 


CCCNT 


10508 


LCADl 


09292 


START 


07780 


TBLSZE 


09188 


GETOIM 


07792 


CCIN 


10523 


LCAO 


09232 


STBL 


11706 


XECONl 


IC012 


INCOOA 


02506 


CKSTL 


10520 


LOCAL 


10465 


SUB 


12742 


XEQ0N2 


10160 


INTCCl 


10456 


COM 


12951 


MAIN 


09876 


SVE 


12983 


ZROTST 


02467 


JOBOUT 


10475 


CONT 


10274 


MAP 


12765 


TOIS 


07536 






LABFUL 


08948 


OOAR 


07280 


MLCOM 


13000 


TFCC 


08200 







END OF ONE ASSEMBLY. 
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0002C 


lOPT 


OS 


»532 






00532 


C 


00030 


lOGT 


OS 


• 566 




00566 


C 


00040 


IGRT 


OS 


,565 




00565 


c 


00C5C 


r«ONCAL 


OS 


#796 




00796 


c 


00060 


• •• 


COMMUNICATION AREA 








00070 




OORG 


2218 


1 




02218 




00080 


F 


OS 


Ztt 


FLOATING POINT WCRD LENGTH 


02219 


2 


00090 


K 


OS 


2ff 


FIXED POINT MORO 


LENGTH 


02221 


2 


OOlCC 


PRCGST 


OS 


5 » f 


STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


OOllO 


COMAOC 


OS 


5» » 


STARTING ADCRESS 


OF COMMON AREA 


02231 


5 


00120 


M 


OS 


2ft 


NUMBER OF WORDS IN LOGICAL RECORD 


02233 


2 


00130 


N2 


OS 


5t t 


NUMBER OF LOGICAL RECORDS 


02238 


5 


00140 


M 


DS 


2, , 


WORD LENGTH 




02240 


2 


00150 


RECLG 


OS 


3» f 


RECORD LENGTH 




02243 


3 


00160 


ENTLN 


DS 


5ft 


ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


00170 


ENTEXP 


DS 


5t t 


ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00180 


ENTSC2 


DS 


5t » 


ENTRY ADDRESS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02256 


5 


00190 


ENTSC3 


OS 


5t t 


ENTRY ADDRESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02263 


5 


00200 


ENTSOX 


DS 


5t f 


ENTRY ADDRESS TO 


FIXED SWITCH 0 SUBROUTINE 


02268 


5 


00210 


ENTFIC 


OS 


5«f 


ENTRY ADDRESS TO 


FIND SUBROUTINE 


02273 


5 


00220 


ENTREC 


OS 


5,f 


ENTRY ADDRESS TO 


RECORD SUBROUTINE 


02278 


5 


00230 


ENTFET 


DS 


5,, 


ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00240 


ENTSMO 


OS 


5,f 


ENTRY ADDRESS TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00250 


ENTDRR 


OS 


5»f 


ENTRY ADDRESS TO 


ARRAY SUBROUTINE 


02293 


5 


00260 


ENTDEO 


OS 


5«f 


ENTRY ADDRESS TO 


DISK END SUBROUTINE 


02298 


5 


00270 


ENTCOS 


OS 


5f f 


ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02303 


5 


00280 


ENTSIN 


OS 


5., 


ENTRY ADDRESS TO 


SINE SUBROUTINE 


02308 


5 


00290 


ENTATN 


OS 


5.. 


ENTRY ADDRESS TO 


ARCTANGENT SUBROUTINE 


02313 


5 


003CC 


ENTSQT 


OS 


5,, 


ENTRY ADDRESS TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00310 


ENTABS 


OS 


5ff 


ENTRY ADDRESS TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00320 




OS 


70f , 


RESERVED FOR ENTRIES TO ACCEO SUBROUTINES 


02393 


7C 


00330 


L I6SUB 


OSS 


30f, 


LIBRARY SUBROUTINE INDICATORS 


02394 


3C 


0034C 




DC 
t 


lt» 






02424 




00350 




OORG 


2426 




02426 




00360 


NAHBUF 


DC 


16,0 


1 




02441 


16 






-OCCOOOOOOOOOOOO 








00370 




OC 


2f • 






02443 


2 


0038C 


OVRLAP 


DC 


1«C 






02444 


1 


00390 


FLGRMK 


OS 


1 






02445 


1 


004CC 


ACOCOlM 


OS 


5 






02450 


5 


00410 


EQAOOR 


OS 


5 






02455 


5 


00420 


SCAOOR 


OC 


5,0 






02460 


5 






-0000 










00430 


lOINO 


OC 


ItO 






02461 


1 


00440 


HLINO 


DC 


IfO 






02462 


1 


00450 


EXTINO 


OS 


1 






02463 


1 


00460 


SECT 


OS 


3 






02466 


3 


00470 


ZROTST 


DC 


ItO 






02467 


1 


00480 


ADOSVE 


DS 


5 






02472 


5 



585 
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00490 




OC 
t 


li» 


02473 




1 




005C0 


LOCOA 


DO A 


, I, 0,0, SUBTBL 


02474 




14 








1-0000-00-2522 










00510 




OC 
I 


It' 


02488 




1 




00520 


SVEODA 


ODA 


tlf0,21,0 


02490 




14 








1-0000-21-0000 










00530 




DC 
t 


1,* 


02504 




1 




00540 


INCODA 


ODA 


t 1,0, 10, SUBTBL 


02506 




14 








1-0000-10-2522 










00550 




DC 


lt« 


02520 




1 




00560 


NOOATA 


DSC 




02521 




! 




00570 


SUBTBL 


1 

OSS 


1000 


02522 




ICCC 




0058C 




DC 


12, • 


03533 




12 








-0000000000* 










00590 




ENTRY FROM CALL LINK STATEMENT 










00600 


JAYENT 


NOP 


TSTVLD,CDORTP 


03534 


4! 


04390 


C5696 


00610 




BSNX 


• ♦12 


03546 


60 


C3558 


CCOCO 


00620 




TFM 


I0RT,»*23 


03558 


16 


00565 


-3581 


00630 




B 


I0GT,C0M,7 


03570 


49 


00566 


-609! 


00640 




TFM 


CDTPLD413«25,10 


03582 


16 


0523! 


C0QK5 


00650 




TF 


0MEDDA+5,C0MSEC+71 


03594 


26 


C6C81 


C7371 


00660 




TF 


NAMBUF,7495,11 


03606 


26 


02441 


0749N 


00670 




TF 


C0MSEC^35,NAMBUF 


03618 


26 


07335 


0244! 


00680 




TFM 


I0RT,«423,, GET FLQD SECTOR 


03630 


16 


00565 


-3653 


00690 






I0GT,DME,7 


03642 


49 


00566 


-6068 


007C0 




TF 


SVEDOA-fS.INRK^lS 


03654 


26 


02495 


07418 


00710 




TOM 


ONE, 2 


03666 


15 


06068 


C0002 


00720 




TF 


AD0C0W,INRK«36 


03678 


26 


C245C 


07436 


00730 




CM 


A0DCGW,7499 


03690 


14 


€2450 


-7499 


00740 




BNE 


•♦24 


03702 


47 


03726 


01200 


00750 




TOM 


SCAOOR,! 


03714 


15 


02460 


0000! 


00760 




TF 


AODSVE,ADOCOh 


03726 


26 


C2472 


C2450 


00770 




AM 


A00SVE,1,10 


03738 


1! 


C2472 


COO-1 


00780 




TF 


LDDDA-»-5,INRK+7 


03750 


26 


02479 


07407 


00790 




TF 


L00DA«8,INRK4^2 


03762 


26 


02482 


C7402 


00800 




TF 


SECT,INRK^26 


03774 


26 


02466 


07426 


ooaio 




TF 


EQAOOR, INRK«23 


03786 


26 


C2455 


07423 


00820 




TF 


INCD0A'»-5,INRK-»-31 


03798 


26 


02511 


0 7431 


00830 




TFM 


•♦18,SUBTBL«11 


03810 


16 


03828 


-2533 


00840 




TOM 




03822 


15 


COCGC 


COOOO 


00850 




DC 




03833 




1 




00860 




AM 


•-6,20,10 


03834 


11 


03828 


CCOKO 


00870 




CM 


•-18, SUBTBL* 1031 


03846 


14 


03828 


-3553 


00880 




BNE 


•-36 


03858 


47 


C3822 


C1200 


00890 




TFM 


I0RT,»+23,, STGRE IN-CORE TABLE 


03870 


16 


00565 


-3893 


00900 




B 


I0PT,INC,7 


03682 


49 


00532 


-6139 


00910 




TOM 


LNKIND,! 


03894 


15 


C39C4 


COOOl 


00920 


LNKINC 


DS 


,»-l 


03904 




C 




00930 




TD 


I0IN0,INRK*99 


03906 


25 


02461 


07499 


00940 




TDM 


EXTINO,! 


03918 


15 


02463 


COOOl 
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0095C 




EQUIVALENCE TABLE SEARCH 












6Q SRCH 






03930 


26 


06161 


C2455 


0097C 




TFM 












00980 




_ 


lORT f •♦23 t » READ IN FOUR SECTORS CF EOUIV* TABLE 




1 A 




~aa77 
~ ? I 


00990 




a 


1 Uli 1 « bwU f / 




Aa 
1^ 


TAT? t 


-6147 


0 I OCO 


COKPER 


TPM 


f* r\UO A. \ % ClinTQIxlt CCACk#*U CPIIVtJ tahic 

LUriK'v 11 t bUt5 1 HL'*' 1 1 y > ocARCH CVulV* lAcLc 










010 10 




HMD 


•♦^Uf LUnr+l I t i* 




AR 




C402 J 


01020 




n 


M y T O P X '9 A 




AO 


TAroA 




01C3C 




DORO 


* ^ 










OlOAO 




C 


NAPBUr 




24 






01 050 




BE 


FOUND' 


04022 


46 


04 13 8 


CI200 








UUn 1 1 * L 0 t iU f INLKfcPtNT TO Nt*l PlAWt 




1 1 


C4C2 1 


000 J6 


01C7C 




TM 


LUMK't' 11 1 ouD 1 oL't-^l 1 » t Tc5T rUR END Dr TAoLc 








~f 


01080 






CUMPtR4-l2 




47 


C399C 


0 1 200 


01090 


NXTRC 


CM 


INRK'f48t0t9t TEST FOR END OF EQUIV* TABLE 




14 


07448 


CO-00 






BH 


• ♦20 


04082 


46 


04 1C2 


01100 


OlllC 




B 


tOORTP 


04094 


49 


05696 


ccooo 


01 120 








04102 








01 130 




SM 


INRK+48.4,10. DECREMENT SECTOR CCUNT 




12 


0744 8 


COO-4 


01140 




AM 


EQU0DA>5>4tl0 


041 14 


1 1 


06 161 


000-4 


01 150 




B 


COMPER-24 










01160 


FOUND 


AM 


C0MP + 11,4«10» INCREMENT TO GET Dtf« NUMBER 


04138 




04C2 1 


f ARnn 


01 170 




TFM 


DIM0DA45.4800 


04150 


16 






01180 




S 


DIMDDA46*C0MP«-11,I1 


04162 




C62C6 




0119C 




S 


0tMDDA^6»C0HP4-ll.ll 


04174 


22 


06206 




01200 




TOM 


DIMO0At6,,ll 


04186 


15 


06206 


rnnn- 


01210 




READ IN DIM SECTOR 










01220 


FQllNOl 


TFM 


I0RT,«*23 










01230 




B 


I0GT«DIM*7 




vt 




~A1 03 


01240 




TD 


SECCT,COMP-(-ll,ll 








PAns 1 


01250 




CM 


SECCT.5.10 


04234 


1 A 




rnn K 


01260 




BL 


• ♦24 


04246 


47 




ni ann 


01270 




SM 


SECCT,5»10t CALCULATE DIM ENTRY ADDRESS 


04258 


12 


nA9aa 


rrn K 


01280 




MM 


SECCT,20,9 






nA7Ra 


In 

C0~20 


01290 




AM 


99»INRK 


04282 


1 1 


«««« 
00099 


-7400 


013C0 




TR 


DIMSVE,99,11 




31 


06242 


0OO9R 


01310 




TD 


OMEDDAtOIMSVE 




?f 


2f nit 




01320 




TF 


DME00A^5tDIMSVE^5 




26 


06081 


C6247 


01330 




TR 


DDAR.DMEDDA,, MOVE SECTOR OOA TO PRCGRAM CCA AREA 




?^ 




^Aal« 


01340 




TFM 


I0RTt*^23,, READ IN INDICATOR RECORD 


04342 








01 350 




B 


lOGT.DMEiT 


04354 


49 


00566 


-6068 


01360 




TF 


DDAR^8,0IMSVE^8,, HC>fE SECTOR COUNT 


04366 


26 


07288 


C6250 


01370 




INDICATOR RECORD CHECK 










01380 




TDM 


EXTINDtO 








n A n r» ri 
(J UUUvJ 


01390 


T STVLO 


C 


INRK^13tINDCGN>» CHECK FOR VALID INDICATOR RECORD 






r7Ai a 




01400 




BE 


RELFRM 




22 




C 1200 


01410 




C 


INRK^5»INDCCN», CHECK FOR VALIDITY IN CORE IMAGE 


04414 


24 


C74C5 


C626 7 


01420 




BE 


• ♦32 


04426 


46 


04458 


01200 


01430 




BTM 


EPRINT»75»8 


04438 


17 


05478 


C-C75 


01440 




B 


MONCAL 


04450 


49 


00796 


COOOO 


01450 




DORG 


•-3 


04458 








01460 




BTM 


FLSBT,0,10 


04458 


17 


05542 


000-0 


01470 




TF 


D0AR+13,ADDSVE 


04470 


26 


07293 


02472 


01480 




TDM 


INOR^T,,, CONVERT DEFINER TO CORE IMAGE 


04482 


15 


06186 


CCOOO 


01490 




DC 


lt«t» 


04493 




1 





587 



01500 
01510 
01520 

01530 COMLO 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 LNK 

01630 

01640 

01650 

01660 

01670 

01680 

01690 ML 

01700 

01710 

01720 

01730 

01740 •••••• 

01750 
01760 

01770 •••••• 

01780 

01790 6Pf«K 

01800 

01810 

01820 CLEAR 
01830 
01840 
01850 

01860 TRYSZE 

01870 

01880 

01890 

01900 

01910 
01920 

01930 SIZEOK 

01940 

01950 

01960 

01970 

0198C 

01990 

02000 

02010 

02020 •••••• 

02030 RDPRCG 
02040 SCHLO 
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AM DDAR^5>1«10, INCREMENT DISK ADDRESS BY ONE 

SM DDAR^8,l,10f DECREMENT SECTOR COUNT BY ONE 

INITIALIZE FORTRAN COMMUNICATION AREA 

TF NlfINRK^7 

TF N2tINRK^12 

TF H.INRK+14 

TF RECLG.INRK^IT 

BD LNKfLNKINO 

TF FtINRK^24 

TF K«INRK^26 

B ML 

DORG •'3 

C INRK+24,F 

BNE ^^36 

C INRK^26,K 

BE ML 

BTM EPRINr,76f8 

B MONCAL 

DORG •-3 

TF PR0GST,INRK+31 

A PROGSTtAOOSVE 

TF C0MADD,INRK+36 

TF SVEDDA^13,C0MA00 

TF MLLGTH,INRK^22 

INITIALIZE LIBRARY SUBROUTINE INDICATORS 

SF INRK^37 

TF LIBSUB^29»INRK^66 

SAVE COMMON AREA 

TOM 

DGM • 
TFM 
B 

TR 
AM 
C 
BL 
TF 
AM 
A 

TDM 
DC 



I0RT«»^23»* PUT 21 SECTORS OF COMMON AREA IN SCRATCH 

I0PT,SVE,7 

7500,ZEROS«2 

CLEAR^6t500t9 

CLEARt6»C0MA00 

CLEAR 

ADOSVEtAODCOH 
AODSVE.1.10 
AD0C0MtINRK^22 
INRK^23 



TYPE OUT NAME 



C AOOCOWfCOMADO 
BH ERML 
BD •+24,0VRLAP 
BNCl RDPROG 
RCTY 

WATY NAMBUF-10,,, 
SPTY 

WNTY ADDSVE-4 
SPTY 

WNTY INRK+18,», TYPE CUT LENGTH 
WATY LDED 

LOAD PROGRAMS ROUTINE 
BO CDTPLD,EXTINDtf BRANCH IF PRCGRAM IN CARD OR TAPE 
TFM I0RT,«+23,, GET PRCGRAM FROH DISK 



04494 


11 


07285 


CCO-1 


04506 


12 


07288 


OOO-l 


04518 


26 


02233 


07407 


04530 


26 


C223e 


C7412 


04542 


26 


0224C 


07414 


04554 


26 


C2243 


C7417 


04566 


43 


04610 


C3904 


04578 


26 


02219 


07424 


04590 


26 


02221 


07426 


04602 


49 


04678 


COOCO 


04610 








04610 


24 


07424 


02219 


04622 


47 


04658 


01200 


04634 


24 


07426 


02221 


04646 


46 


04678 


C1200 


04658 


17 


05478 


C-076 


04670 


49 


00796 


00000 


04678 








04678 


26 


02226 


C7431 


04690 


21 


02226 


02472 


04702 


26 


C2231 


07436 


04714 


26 


02503 


C2231 


04726 


26 


06272 


C7422 


04738 


32 


07437 


00000 


04750 


26 


02423 


C7466 


04762 


15 


OOOOC 


00000 


04773 




1 




04774 


16 


00565 


-4797 


04786 


49 


00532 


-6171 


04798 


31 


-7500 


06408 


04810 


11 


04804 


OONOO 


04822 


24 


048C4 


02231 


04834 


47 


04798 


C1300 


04846 


26 


02472 


02450 


04858 


11 


02472 


000-1 


04870 


21 


0245C 


07422 


04882 


15 


07423 


00000 


04893 




1 




04894 


24 


0245C 


02231 


04906 


46 


05616 


CUOO 


04918 


43 


04942 


02444 


04930 


47 


05026 


OOlCO 


04942 


34 


OOOOC 


00102 


04954 


39 


02431 


00100 


04966 


34 


coooc 


COlOl 


04978 


38 


02468 


COICC 


04990 


34 


OOOOC 


00101 


05002 


38 


07418 


00100 


05014 


39 


C6291 


COlOO 


0SC26 


43 


05218 


C2463 


050 38 


16 


00565 


-5061 



588 
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02050 




B 


lOGTi INDRt7 


05050 








02060 




TEST 1 


FOR SUBPROGRAM CALLS 










02C70 


CALL2 


TF 


•♦35»ADDCOta 


05062 


26 


05097 




0208C 




AM 


•+23 1 IflO 


05074 


1^ 




000 I 


02090 




BNR 


CALL3 


05086 




05154 


v<uuuu 


021CC 




TEST 


FOR LIBRARY SUBROUTINE CALLS 










021 10 




BD 


C ALL4 t L I B SUB 










02120 




CM 


•- 1 » L I R SUB+29 




il 


nsi no 




02130 




BE 


C ALL6 


1 55 

rtK 1 




QP 




021A0 




AM 


• -25 1 1 1 1 0 


ns if^ 


11 


n« 1 rc 




02150 




B 


•-48 




ttQ 


0509 


C CO 0 0 


02 16C 




DORG 


•-3 










02170 


CALL3 


TFM 


I0RT,»+23 


«C 1 


16 






02180 




B 


I0GT,BL3,7 


05 166 


49 


00566 


-6308 


02190 


CALL4 


TFM 


CALL3+23tBL4 


05178 


16 


05177 


-6316 


022C0 




B 


CALL3 


05190 


49 


05154 


ccooc 


02210 




00 RG 


•-3 










02220 


CALL6 


TFM 


CALL3+23tBL6 




1 A 




6324 


02230 




B 


CALL3 


n«3 1 n 




C5154 


UUUUU 


02240 




00 RG 


•-3 


nspi ft 








02250 




ROUTINE TO LOAD PROGRAM FROM CARD CR TAPE 










02260 


CDTPLC 


TDM 


416 




1 5 


- 

00416 




02270 




DC 


!.•«• 










02280 




NOP 


428*C0MSEC*73 




41 




07373 


02290 




SF 


428 


05242 


32 


00428 


uCOOO 


023C0 




CF 


429 








UUUUU 


02310 




TF 


434.ADDSVE 




~* 






02320 




SF 


489 


05278 


32 


00489 


COOUu 


02 330 




TF 


C0MSEC+98tINRK4>79 


05290 


26 


C7398 


07479 


023A0 




TFM 


I0RTt*+23«, PUT BACK COMMUNICATION SECTOR 








— 5325 


02350 




B 


I0PT,C0M,7 


05314 


49 


00532 


-6091 


02360 




TFM 


tORT.«+23f» GET PROGRAM 


05326 


16 


00565 


-5349 


02370 




B 


I06T,EXT,7 






n^f Aa 




02380 




TDM 


EXTIND 


05350 


IB 




uUUUU 


02390 




TDM 


NOOATAtO 


05362 


15 


0252 1 


CCULC 


02400 




B 


CALL2 




49 


05062 


UUUUU 


024 10 




00 RG 


•-3 










02420 


RELFRM 


TOM 


INRK+80 




1 5 


07480 


UUUUU 


02430 




DC 
• 


lt«f» 






*• 




02440 




TR 


INRKt INRK+a., MOVE INDICATOR RECCRO TC CONFORM 








C7408 


02450 




CF 


427 




^% 




UUUUU 


02460 




TFM 


439,75 




1 A 






02470 




TFM 


DDAR+13, 99999 




J 




R 9 999 


02480 




BTM 


FLSBT, 0,10 










02490 




TF 


INDR+11,AD0SVE 


05454 


26 


0619C 


02472 


02500 




B 


COMLO 


05466 


49 


04518 


CCOCO 


02 510 


••»*«« 


ERROR MESSAGE SUBROUTINE 










02520 


EPRINT 


TF 


ERMESS+16.EPRINT-1 


05478 


26 


C6233 


05477 


02530 




RCTV 




05490 


34 


00000 


00102 


02540 




WATY 


ERMESS 


05502 


39 


06217 


00100 


02550 




RCTY 




05514 


34 


OOCCC 


00102 


02560 




WATY 


JOBOUT 


05526 


39 


06041 


00100 






BB 




05538 


42 


00000 


00000 


02580 




DORG 


•-9 


05540 
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580 

BLOCK 2 






PAGE 


02590 




DS 


2 


05541 




2 




02600 


FLSBT 


CM 


INRK+24,8,10 


05542 


14 


07424 


000—8 


026 10 




BNE 


• ♦60 


05554 


47 


05614 


C1200 


02620 




SF 


lOIND 


05566 


32 


0246 1 


COOOO 


02630 




BD 


•+36,IOIND 


05578 


43 


05614 


02461 


02640 




TFM 


ADOC0W,L1199 


05590 


16 


0245C 


J1199 


02650 




TFM 


AD0SVEtll200 


05602 


16 


02472 


J1200 






BB2 




05614 


42 










MAINLINE OVERLAP ROUTINE 










02680 




RCTY 




05616 


34 


COOOC 


00 102 


02690 




WATY 


NAMBUF-IO 


05628 


39 


02431 


CC IOC 


02 700 




WNTY 


INRK«L8 


05640 


38 


074 18 


00100 






WATY 


OVRMES 










02720 




RCTY 




05664 


34 


OOOOC 


00102 


02730 




WATY 


JOBOUT 


05676 


39 


C6041 


00100 


02740 




B 


MONCAL 


05688 


49 


00796 


\j wUUu 


02750 




DORG 


•-3 


05696 








02 760 


CDORTP 


RCTY 




05696 


34 


OOOOC 


CC102 


02 770 


R E L ACC 


DS 


,—5 














WATY 


LDMES 


05706 


39 


060C9 


CO 100 


02 790 




WATY 


NAMBUF-IO 


05720 


39 


02431 


00100 


02 800 




LOAD CARD OR TAPE STORED PROGRAMS 














TD 


CDTP*2,C0MSEC*73 


05732 


25 


C628C 


07373 


02820 




SM 


CDTP+2,1,10 


05744 


12 


C628C 


000-1 


02830 


READ 


TFM 


I0RT,^+23,, GET INDICATOR RECCRO 


05756 


16 


00565 


-5779 


02840 




B 


I0GT,CDTP-4,7 


05768 


49 


00566 


-6274 


02850 




TFM 


•+23tINRK 


05780 


16 


058C3 


-7400 


02860 


RMCHK 


BNR 


♦♦20 


05792 


45 


05812 


QOOOO 


02 870 




B 


READ 


05804 


49 


05756 


00000 


02880 




DORG 


•-3 


05812 








02890 




AM 


RMCHK+11,1,10 


05812 


1 1 


05803 


000-1 


02900 




CM 


RMCHK+lltINRK+80 


05624 


14 


05803 


-7480 


029 10 




BNE 


RMCHK 


05836 


47 


05792 


01200 


02920 




SF 


INRK+1 


05848 


32 


07401 


00000 


02930 




CF 


INRK+2 


05860 


33 


07402 


00000 


02940 




CF 


INRK*3 


05872 


33 


07403 


OOOOC 


02950 




CF 


INRK+4 


05884 


33 


07404 


OCOOQ 


02960 




CM 


INRK+4,4131,8 


05896 


14 


07404 


0M131 


02970 




BNE 


HEADER 


05908 


47 


05964 


01200 


02980 




RCTY 




05920 


34 


OOOOC 


00102 


02990 




TFM 


I0RT,»+23 


05932 


16 


00565 


"5955 


03000 




B 


I0PT,TYPE^4,7 


05944 


49 


00532 


-6387 


03010 




B 


CDORTP 


.05956 


49 


05696 


00000 


03020 




DORG 


•-3 


05964 








03030 


HEADER 


C 


INRK+13,INDC0N 


05964 


24 


07413 


06267 


03040 




BNE 


READ 


05976 


47 


05756 


01200 


03050 




BNF 


READ,INRK+16 


05988 


44 


05756 


07416 


03060 




B 


TSTVLD 


^ 06000 


49 


04390 


00000 


03070 




DORG 


•-3 


06008 








03080 


LOFES 


OAC 


7, LOAD • 


06009 




7 


X 2 






LOAD 


f 










03090 


OVRMES 


DAC 


9, OVERLAP* 


06023 




9 


X 2 






OVERLAP* 










03100 


JOBOUT 


DAC 


14, JOB ABANDONED* 


06041 




14 


X 2 






JOB 


ABANDONED* 










03110 


ONE 


DSC 


2,02 


06068 




2 





5 9U 



03120 




OSA 


DMEODA 


06074 


5 


X 












-6076 




031 3C 




DC 


u* 


06075 


1 




G31AC 


DMEDOA 


00 A 


• 1,0,1, INRK 


06076 


14 








1-0000-01-7400 








03150 




DC 


I,* 


06090 


1 




03160 




DSC 


2,22 


06091 


2 








22 










03170 




OSA 


COMDOA 


06C97 


5 


X 












—6 IOC 




031 60 




DC 


I.* 


06C98 


1 




03190 


COKODA 


00 A 


• 1, 19663«1,CQMSEC < 


06100 


14 








IJ9663-01-7300 








O32C0 




DC 
t 


I.* 


06114 


1 




032 10 


EXT 


DSC 


2,-22 


06115 


2 








2K 










03220 




OSA 


EXTOOA 


06121 


5 


X 










06121 


—6124 




03230 




DC 
• 


lt» 


06122 


1 




03240 


EXTOCA 


00 A 


•1,19783,3,0 


06124 


14 








lJ9783*03-0000 








03250 




DC 


I,' 


06138 


1 




03260 


INC 


DSC 


2,02 


06139 










02 










03270 




OSA 


INCDOA 


06145 


5 


X 










06 145 


— 25C6 




03280 




DC 
1 


If* 


06146 


1 




03290 


EQU 


DSC 


2,22 


06147 


2 








22 










O33C0 




DSA 


EQUDOA 


06153 


5 


X 










06 153 


— 6156 




033 10 




DC 
• 


It* 


06154 


. 1 




03320 


EOUDOA 


DDA 


•l,0,4,SUBTeL 


06156 


14 








1-0000-04-2522 








03330 




DC 


It* 


06 170 


I 




03340 


SVE 


DSC 


2,02 


06171 


2 








02 










03350 




DSA 


SVEOOA 


06177 


5 


X 










06177 


-249C 




03360 




DC 


I.* 


06178 


1 
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03370 INOR DSC 2,22 
22 

03380 DSA DDAR,G 



03390 DC 
03400 DIP 
03410 



DSC 2,22 
22 

OSA DIMDDA 



06179 
06185 



06192 
06198 



2 

5 X 



06185 -728C 

06190 -CCCC 

06191 I 



2 

5 X 









06198 


-62CC 


03420 




DC If* 
• 


06199 


1 


03430 




DDA •1,4800,1,INRK 


06200 


14 






1-4800-01-7400 






03440 




DC !•• 
• 


06214 


I 


03450 


ERf^ESS 


OAC 10, ERROR L • 


06217 


10 X 






ERROR L • 






03460 


ZERONE 


DC 6,10C001 


06241 


6 






JOOOOl 






03470 


OIMSVE 


DSS 20,, RESERVES CURRENT CIM ENTRY 


06242 


20 


03480 


INDCON 


OC 6,987898,, INDICATOR RECORD CONSTANT 


06267 


6 






R87e98 






03490 


PLLGTH 


OS 5f, LENGTH OF MAINLINE PROGRAM 


06272 


5 


03500 


CDINP 


OS 1 


06273 


1 


03510 


COTP 


DSA INRK 


06278 


5 X 



03520 OC 2,0 

-0 

03530 OGM 
03540 SECCT DC 2,0 
-0 

03550 ONETtaC OSC 5,00101 
00101 

03560 LOEO OAC 9, LOADED* 

LOADED* 
03570 BL3 DSC 2,-22 
2K 

03580 DSA BL3DDA 



03590 
03600 BL4 
03610 



DC I,* 
• 

DSC 2,-22 
2K 

DSA BL4D0A 



06278 
06280 

06281 
06283 

06284 

06291 

06308 

06314 

06314 
06315 

06316 

06322 



-740C 
2 



5 

9 X 
2 

5 X 



-6332 
1 



2 

5 X 



DSC 
2K 



06322 -6352 

06323 1 



5U2 
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03640 




DSA BL6D0A 


06330 




5 


X 1 








06330 




-6372 




03 650 




DC l,« 
• 


06331 




1 




0366C 


BL3DDA 


ODA •1,16102, 38.3480 


06332 




14 








IJ6102-38-3480 










03670 




OC 6,3534* 


06351 




6 


















03680 


BL400A 


DDA ,1,16940,26,3534 


06352 




14 








1 1 ilQ Afl. 0 3 C« 1 A 
I J mi-" CO" 3 3 J*» 










0369C 




DC 6,3556» 


06371 




6 








-3556* 










03700 


BL60CA 


UUA , I , io i r r , io t £34:2 


06372 




14 








1J6177-16-2522 










0371C 




OC 1,» 
• 


06386 




1 




0372C 


TYPE 


DSA DATA 


06391 




5 


X 1 








06391 




-6397 




G3730 




OC 2,6 

-6 


06393 




2 




03740 




DGH 


06394 




1 




03750 


DATA 


DAC 6,»DATAi 


06397 




6 


X 2 






•DATA* 










03760 


ZEROS 


DSC 50,0 


06408 




50 








OOOOOOOOOCOCOOOOOOOOCCOOOOOOOOOOOCOOGOOOOOOOOOCCCO 










03770 




DSC 50,0 


06458 




50 








OOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOOOOOO 










03780 




DSC 50,0 


06508 




5C 








OOOOOOOCOQOOOOOOOOOOOOCOOOOOOOOOOOOOOOOOOOOOOOOOCO 










03790 




DSC 50,0 


06558 




50 








OOGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 










03800 




DSC 50,0 


06608 




5C 








00000000000000000000000000000000000000000000000000 










03810 




DSC 50,0 


06658 




50 








oooooooooooooooooooooooooooooooooooooooooooooooooo 










03820 




DSC 50,0 


06708 




5C 








nnnn nnnnnr r\r\rinrit\t>t\f\t\r.f\rif\nnf\nnnnnniM\f\r\tyf\t\nnnt\nfinnr\r\ 

UUUU V/UUUUV> UU UuUUUUUU vU vUUUUUUUUUUUUUuUUUUUUUUUUUUU 










03830 




DSC 50,0 


06758 




5C 








00000000000000000000000000000000000000000000000000 










03840 




DSC 50,0 


06608 




5C 








oooooooooooooooooooocooooocooocooooooooooooooooooo 










03850 




DSC 50,0 


06858 




50 








OOOOOOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOOOOGOOOOOOOO 










03860 




DC L,* 
t 


06908 




1 




03870 




DORG 7280 


07280 








03880 


DOAR 


OSS 20 


07280 




2C 




03890 


COHSEC 


DSS 100, • SYSTEM COMMUNICATION SECTOR 


07300 




ICC 




03900 


INRK 


DSS 100,, READ IN AREA FOR INDICATCR RECORD 


07400 




ICC 




03910 


• 


BLOCK LOADER 










03920 




DORG 8000 


08000 








03930 


BEGIN 


TO GPMK» 19999 


08000 


25 


04773 


19999 


03940 




TO SECCT-2t 19999 


08012 


25 


C6281 


19999 


03950 




TO T¥PE*3, 19999 


08024 


25 


06394 


19999 
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PAGE 


03960 




SK LOADER 


08036 


34 


C8072 


C07C1 


03970 




WON LOADER 


08048 


38 


08072 


C0702 


03980 




H 


08060 


48 


OOOCC 


CCOOO 


03990 


LOADER 


DDA ,1,16057,45,2424 


08072 




14 








1J6057-45-2424 










04C00 




06M 19999 


19999 




1 




04010 




TCD BEGIN 


08000 








04020 




DENO 


00000 
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PAGE 



II 



ACCCOW 


C2h5C 




02263 


N AMBUF 


0244 1 


DCAR 


07280 


ML 


04678 








02268 


NGC AT A 


02521 


DIM 


06 192 


Nl 


02233 


^'^^nr A 








CNETWC 


06264 


dme 


06068 


N2 


02238 






T^OT 


023 18 


CVRLAP 


0 2444 


ENTLN 


02248 


NXTRD 


C4C70 


6L 6CCA 








CV RMES 


06023 


EOU 


06147 


READ 


05756 


r n f 1 D T D 




EPRINT 


05478 


PRQGST 


02226 


ERML 


05616 


RECLG 


02243 


CD TPLD 


C52 18 


ti f> Anno 




rKUo 




EX T 


06115 


RMCHK 


05792 


CCM ADD 


G223i 


EQ SRCH 




relfrS 


05702 


FLSBT 


05542 


SCHLD 


05038 


CCMCCA 


C61 CO 


c rn inn A 








FOUND 


04138 


SECCT 


06283 


COMPER 


C3978 






Rl ^ 


u o u u u 


F 


02219 


SECT 


02466 


COMSEC 


C7300 


Fy Tnn* 








GP KK 


04773 


SVE 


06 171 


D I KODA 


C6200 






Rl A 




INC 


06139 


TYPE 


06391 


D IMSVE 


C6242 


FLGRM K 




Bl A 


06324 


INCR 


06179 


h 


02240 


DM EOCA 


06076 


crni iKin 1 
rUuINU 1 


04198 


CALL2 


05062 


INRK 


O74C0 


ZEROS 


06406 


ENT ABS 








CALL3 


05 154 


lOGT 


00566 


SCAODR 


02460 


cM 1 A I IN 


023 13 




n^^nA 


CALL4 


05 178 


IQINO 


02461 


SIZECK 


04918 


EN rcc s 


C23C3 


I NOCON 


06267 


C ALL6 


05196 


lOPT 


0C532 


• SUBTBL 


02522 


EN roEO 


C2298 


JAYENT 


03534 


COINP 


06273 


IQRT 


00565 


SVEODA 


02490 


ENTDRR 


02293 


JOBOUT 


06041 


CDTP 


06278 


K 


02221 


TRYSZE 


04846 


ENTEXP 


022 53 


LIBSUB 


02394 


CLEAR 


04798 


LCCDA 


02474 


TSTVLD 


04390 


ENTFET 


C2283 


LNKINO 


03904 


CGMLO 


04518 


LOED 


06291 


ZERQNE 


06241 


ENTFID 


02273 


LOADER 


08072 


CQMP 


04010 


LOHES 


06009 


ZROTST 


02467 


ENTREC 


02278 


HLLGTH 


06272 


CCM 


06091 


LNK 


04610 






ENTSC2 


02258 


MONCAL 


00796 


DATA 


06397 


MLINO 


02462 







END OF ONE ASSEMBLY. 
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00010 
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00020 


lOPT 


OS 


,532 




00532 


C 


00030 


IQGT 


DS 


,566 




00566 


C 


00040 


lORT 


DS 


,565 




0056S 


C 


00050 


MONCAL 


DS 


,796 




00796 


C 


00060 


««• 


COMMUNICATION AREA 








00070 




DGRG 


221 


8 




02218 




00080 


F 


DS 


2,, 


FLOATING POINT WORD LENGTH 


02219 


2 


00090 


K 


DS 


2,, 


FIXED POINT WORD 


LENGTH 


02221 


2 


00100 


PROGST 


DS 


5,, 


STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00110 


COHAOC 


DS 


5,, 


STARTING ADDRESS 


OF COMMON AREA 


02231 


5 


00120 


Nl 


DS 


2,, 


NUMBER OF MOROS 


IH LOGICAL RECORD 


02233 


2 


00130 


N2 


DS 


5,, 


NUMBER OF LOGICAL RECORDS 


02238 


5 


00140 


W 


OS 


2,, 


WORD LENGTH 




02240 


2 


00150 


RECLG 


DS 


3,, 


RECORD LENGTH 




02243 


3 


00160 


ENTLN 


OS 


5,, 


ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


00170 


ENTEXP 


DS 


5,, 


ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


0018C 


ENTSC2 


DS 


5f, 


ENTRY ADDRESS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02258 


S 


00190 


ENTSC3 


DS 


5,, 


ENTRY ADDRESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02263 


5 


00200 


ENTSDX 


DS 


9,, 


ENTRY ADDRESS TO 


FIXED SNITCH 0 SUBROUTINE 


02268 


5 


00210 


ENTFID 


DS 


5,, 


ENTRY ADDRESS TO 


FIND SUBROUTINE 


02273 


5 


00220 


ENTREC 


DS 


5,. 


ENTRY ADDRESS TO 


RECORD SUBROUTINE 


02278 


5 


00230 


ENTFET 


DS 


5,, 


ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00240 


ENTSWC 


DS 


5,, 


ENTRY ADDRESS TO 


SWITCH D SUBROUTINE 


02288 


5 


00250 


ENTORR 


DS 


5,t 


ENTRY ADDRESS TO 


ARRAY SUBROUTINE 


02293 


5 


00260 


ENTDEO 


DS 


5,, 


ENTRY ADDRESS TO 


DISK END SUBROUTINE 


02298 


5 


00270 


ENTCOS 


DS 


5,, 


ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02303 


5 


00280 


ENTSIN 


DS 


5,, 


ENTRY ADDRESS TO 


SINE SUBROUTINE 


02308 


5 


00290 


ENTATN 


DS 


5,, 


ENTRY ADDRESS TO 


ARCTANGENT SUBROUTINE 


02313 


5 


00300 


ENTSQT 


OS 


5,, 


ENTRY ADDRESS TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00310 


ENTABS 


DS 


5,, 


ENTRY ADDRESS TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00320 




DS 


70, 


, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 


7C 


00330 


LIBSUB 


DSS 


30, 


, LIBRARY SUBROUTINE INDICATORS 


02394 


3C 


00340 




DC 


l,» 






02424 


1 


00350 




MAINLINE TABLE SEARCH 








00360 




00 RG 


2426 




02426 




00370 


NAHBUF 


DC 


16, 


0 




02441 


16 






-OOOOOOOOCOCOOOO 








00380 




DC 
.1 


2,« 






02443 


2 


0039C 


OVRLAP 


OS 


1 






02444 


1 


00400 


FLGRMK 


OS 


I 






02445 


1 


00410 


AODCOh 


OS 


5 






02450 


5 


00420 


EQAOOR 


OS 


5 






02455 


5 


00430 


SCAODR 


OS 


5 






02460 


5 


00440 


tOINO 


OS 


1 






02461 


1 


00450 


HLfNO 


OS 


1 






02462 


1 


00460 


EXTIND 


OS 


1 






02463 


1 


00470 


SECT 


OS 


3 






02466 


3 


00480 


ZROTST 


OS 


1 






02467 


1 


00490 


ADDSVE 


DS 


5 






02472 


5 


00500 




DC 


I,' 






02473 


1 


00510 


LOCDA 


DDA 


,1, 


0,0, SUBTBL 




02474 


14 



l-OCOO-00-2522 
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PAGE 



0052C 




DC 


It* 


02488 




1 




00530 


SVEDOA 


ODA 


•1,0,21,0 


02490 




14 








1-0000-21-0000 










0054C 




DC 
1 


If* 


02504 




I 




0055C 


DATA 


DC 


1,C 


02505 








00560 


INCDCA 


PDA 


•1,0.10,SUBTBL 


02506 




14 








1-0000-10-2522 










00570 




DC 
t 


I,* 


02520 




1 




00580 


NODATA 


OS 


1 


02521 




1 




00590 


SUBFBL 


DSS 


1000 


02522 




ICCC 




006CO 




DC 


12, • 


03533 




12 








-0000000000* 










00610 


RMTBL 


CM 


OwnoC«#— v^fffLUf DnM nvn Ir n%J kUV^L vWI^Ud 


03534 


14 


07375 


CCC-0 


00620 




BE 


LODINC 


03546 


46 


05062 


C1200 


00630 




TFM 


IQRT, •-*-23 


03558 


16 


00565 


-3581 


00640 








03570 


49 


00566 


-7217 


00650 




TFM 


*'t'23« SUBTBL^l I 


03582 


16 


036C5 


-2533 


00660 


SRCH 


6NR 


•-t-32tt, TEST FOR END OF TABLE 


03594 


45 


03626 


00000 


00670 




TOM 


TBLINOt 1 


03606 


15 


03615 


00001 


00680 


rSLIND 


OS 


«*'~2 


03615 




c 




00690 




g 


LODINC 


03618 


49 


05062 


coooo 


0O7C0 




DORG 


•—3 


03626 








00710 




c 


C0MSEC-t-35tSRCH'*-lltllt COMPARE NAMES 


03626 


24 


07335 


0360N 


00720 




BE 


TBLLD 


03638 


46 


04894 


C12C0 


00730 




AM 


SRCHf'll ,20, 10, INCREMENT TO NEXT ENTRY 


03650 


11 


03605 


CCOKO 


00 740 




B 


SRCH 


03662 


49 


03594 


CCOOC 


00750 


EQSRCH 


TF 


EQUD0A+5,EQAC0R 


03674 


26 


06991 


02455 


00760 




TF 


INRK*48,SECT 


03686 


26 


07448 


C2466 


00770 




TFM 


I0RT,»*23,, READ IN FOUR SECTORS OF EQUIV. TABLE 


03698 


16 


00565 


-3721 


00760 




B 


I0GT,EQU,7 


03710 


49 


CC566 


-6977 


00790 


CQF^PER 


TFM 


COMP^lltSUBTBL^llt, SEARCH EQUIV. TABLE 


03722 


16 


03765 


-2533 


00800 




BNR 


• ♦20tCOMP4>ll,Ll 


03734 


45 


03754 


0376N 


00810 




B 


EQSRCH-L,,6 


03746 


49 


0367L 


CCOOO 


00620 




DORG 


•-3 


03754 








00830 


CGMP 


C 


NAMBUF 


03754 


24 


02441 


GOOOO 


00840 




BE 


FOUND 


03766 


46 


03874 


C1200 


00650 




AM 


C0MP>11,16,10, INCREMENT TO NEXT NAME 


03778 


11 


03765 


CC0J6 


0086C 




CM 


C0MP+ll,SUBTBL*4ll,, TEST FOR END OF TABLE 


03790 


14 


03765 


-2933 


00870 




BNE 


C0MPER412 


03802 


47 


03734 


01200 


00880 


NXTRD 


CM 


INRK4^48,0,9. TEST FOR END OF EQUIV. TABLE 


03814 


14 


07448 


CC-OO 


00890 




BE 


EQSRCH-1,,6 


03826 


46 


0367L 


C1200 


00900 




SM 


INRK4-48,4,10. DECREMENT SECTOR COUNT 


03838 


12 


07448 


COO-4 


00910 




AM 


EQUDDA45,4tlG 


03850 


11 


06991 


000-4 


00920 




B 


COMPER-24 


03862 


49 


03698 


COOOO 


00930 


FOUND 


AM 


COMP«11,4,10, INCREMENT TO GET DIM NUMBER 


03874 


11 


03765 


000-4 


00940 




TFM 


OIMDDA«5,4800 


03886 


16 


07051 


-4800 


00950 




S 


DIMDDA^6,C0MP4-11,11 


03898 


22 


07052 


0376N 


00960 




S 


DIMDDA«6tC0MP4^11,ll 


03910 


22 


07052 


C376N 


00970 




TO 


SECCT,DIMD0A46 


03922 


25 


C6549 


C7052 


00980 




READ IN DIM SECTOR 










00990 




TDM 


0IMDDA«6,,11 


03934 


15 


07052 


0000- 


OlOOO 




BTM 


INC6ET,«412 


03946 


17 


0681C 


-3958 



597 









1620 MONITOR II VERSION 2 FORTRAN I I-O LOADER BLOCK 3 








PAGE 


01010 




SF 


ENDTST+11,,6, SET -LOADED- INDICATOR 


03958 


32 


0564N 


COOOO 


01020 




BTM 


INCPUT,*«12 


03970 


17 


06774 


-3982 


01030 


FOUND 1 


TFM 


I0RT,*«23 


03982 


16 


00565 


-4005 


01040 




B 


I06T,DIM,7 


03994 


49 


00566 


-7038 


01050 




TD 


•♦22tSECCT 


04006 


25 


04028 


06549 


01060 




TR 


OIMSVEvINRK 


04018 


31 


07082 


074CC 


01070 




TO 


DMEDOA.DIMSVE 


04030 


25 


06962 


C7082 


01080 




TF 


DMEDDA«5,0IMSVE«5 


04042 


26 


06967 


C7087 


01090 




TR 


D0AR»0ME00A,« MOVE SECTOR ODA TO PROGRAM OCA AREA 


04054 


31 


07280 


06962 


01100 




TFM 


I0RT»*«23,, READ IN INDICATOR RECORD 


04066 


16 


00565 


-4089 


OHIO 




B 


l06T»DMEf7 


04078 


49 


00566 


-6954 


01120 




TF 


DDAR^8«DIMSVE«8«, MOVE SECTOR CCUNT 


04090 


26 


07288 


07090 


01130 


«•••«• 


INDICATOR RECORD CHECK 










01140 


TSTVLD 


C 


INRK4l3«INDC0N,t CHECK FOR VALID INDICATOR RECORD 


04102 


24 


07413 


04169 


01150 




BE 


RELFRM 


04114 


46 


06514 


01200 


01160 




C 


INRK^5,INDC0N,, CHECK FOR VALIDITY IN CORE IMAGE 


04126 


24 


07405 


C4169 


01170 




BE 


• ♦56 


04138 


46 


04194 


01200 


01180 




BTM 


EPRINT,75,8 


04150 


17 


06846 


C-075 


01190 




RCTY 




04162 


34 


OOOGC 


00102 


01200 


INCCQN 


DC 


6t987898,»-4 


04169 




6 








R87898 










01210 




HATY 


JOBOUT 


04174 


39 


06927 


00100 


01220 




B 


MONCAL 


04186 


49 


00796 


00000 


01230 




DORG 


•-3 


04194 








01240 




TFM 


00AR*13,1 


04194 


16 


07293 


-0001 


01250 




A 


00AR4-13,ADDC0W 


04206 


21 


07293 


02450 


01260 




TDM 


INDR«7,,, CONVERT DEFINER TO CORE IMAGE 


04218 


15 


07032 


00000 


01270 




DC 
• 


l,*,« 


04229 




1 




01280 




AM 


00AR^5fl,10, INCREMENT DISK ADDRESS BY ONE 


04230 


11 


07285 


000-1 


01290 




SM 


00AR«8,ltl0, DECREMENT SECTOR COUNT BY ONE 


04242 


12 


07288 


COO-1 


01300 




B 


SUBPRO-24 


04254 


49 


06574 


COOOO 


01310 




OORG 


•-3 


04262 








01320 


TRYS2E 


TF 


AOOSVEvADDCOM 


04262 


26 


02472 


C2450 


01330 




AM 


AOOSVE,1,10 


04274 


11 


02472 


COO-1 


01340 




A 


SPROSTtAODSVE 


04286 


21 


06156 


02472 


01350 




A 


ADDC0U,INRK422 


0429B 


21 


02450 


07422 


01360 




TOM 


INRK+23 


043 10 


15 


07423 


00000 


01370 




DC 
t 


!,*.• 


04321 




1 




01380 




C 


AOOCOW.COMAOD 


04322 


24 


0245C 


02231 


01390 




BL 


SUEOK 


04334 


47 


C6126 


C1300 


01400 




S 


ADOCOM, INRK4^22 


04346 


22 


0245C 


07422 


0141C 


•««»•« 


OVERLAP INDICATION 










01420 




TDM 


OVRLAP.l,, TURN ON OVERLAP INDICATOR 


04358 


15 


C2444 


OOOCl 


01430 




RCTY 




04370 


34 


OOCCC 


00102 


01440 


ONETMQ 


DSC 


5, 00101. •-9 


04372 




5 








OOlCl 










01450 




WATY 


NAMBUF-IO,,, TYPE PROGRAM NAME 


04382 


39 


02431 


CCIOC 


01460 




WNTY 


INRK+18,,, TYPE LENGTH 


04394 


38 


07418 


COlOO 


01470 




WATY 


OVRMES,,, TYPE OVERLAP 


04406 


39 


C69C9 


00 ICC 


0148C 




BD 


•+20,EXTIN0,, BRANCH IF PROGRAM ON CARDS OR TAPE 


04418 


43 


04438 


02463 


01490 




B 


CQMP4^24f,, BRANCH TD GET NEXT NAME 


04430 


49 


03778 


COOOO 


01500 




DORG 


•-3 


04438 









01510 
01520 



ROUTINE TO READ INCICATCR RECORD FRCM CARDS OR TAPE 
LOAD CARD OR TAPE STORED PROGRAMS 
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01530 




H 




C4438 


48 


CCCCC 


COOOO 


01540 




DORG 


»-7 


04442 








01550 


INC 


DSC 
02 


2»02 


04442 




2 




01560 




OS A 


INCDDA 


04448 




5 


X 1 










04448 




-2506 




01570 




DC 


1 1 • 


04449 




1 




01580 


PHASEC 


BTH 


I NCGET * » + 12 


04450 


17 


06810 


-4462 


01590 




TO 


CDTP+2»C0MSEC+73 


04462 


25 


07108 


C7373 


01600 




SM 


CDTP+2tltlC 


04474 


12 


07108 


CCO-1 


01610 


READ 


TFM 


IORT,»+23tt GET li^DICATOR RECCRC 


04486 


16 


C0565 


-4509 


01620 




B 


I0GTtC0TP-4f 7 


04498 


49 


00566 


-7102 


01630 




TDH 


EXTINDffl 


04510 


15 


02463 


OGOCl 


016A0 




TFM 


• '•'35tSUBT6L-9 


04522 


16 


04557 


-2513 


01650 


GONXT 


AM 


ENTST+llt20»10 


04534 


11 


04557 


COOKO 


01660 


ENTST 


BNR 


• '•-20»»t TEST FOR END OF TABLE 


04546 


45 


04566 


00000 


01670 




B 


READ 


04558 


49 


04486 


GOOCC 


01680 




00 RG 


•-3 


04566 








01690 




TFM 


• ■f23fINRK 


04566 


16 


04589 


-7400 


017C0 


RflCHK 


BNR 


• '*-20 


04578 


45 


04598 


COOOO 


01710 




B 


READ 


04590 


49 


04486 


CCOCC 


01720 




DORG 


•*-3 


04596 








01730 




AM 


RMCHK-f lltltlO 


04598 


11 


04589 


COO-l 


01740 




CM 


RMCHK't-l 1 « INRK-i-80 


04610 


14 


04589 


-7480 


01750 




BNE 


RMCHK 


04622 


47 


04578 


C12CC 


01 760 




SF 


INRK-fl 


046 34 


32 


074C1 


CCCOO 


01770 




CF 


INRK-*-2 


04646 


33 


07402 


CCOOC 


01780 




CF 


INRK-f3 


04658 


33 


07403 


OOOOC 


01790 




CF 


INRK-i-4 


04670 


33 


07404 


CCOCO 


01800 




CM 


lNRK-f4t4I31t8 


04682 


14 


074C4 


CM 131 


01810 




BNE 


HEADER 


04694 


47 


04738 


C1200 


0182C 




RCTY 




04706 


34 


OOOOC 


00102 


01830 




WATY 


OATAl 


04718 


39 


07227 


CClOO 


01840 




B 


PHASED 


0473C 


49 


05918 


COOOO 


01850 




DORG 


«-3 


04738 








01860 


HEADER 


c 


INRK413, INDCONt t TEST FOR INDICATOR RECORD 


04738 


24 


07413 


04169 


01870 




BNE 


READ 


04750 


47 


04486 


C12C0 


01880 




BNF 


• -«-20t INRK't'16 


04762 


44 


04782 


C74I6 


01890 




B 


READ 


04774 


49 


04486 


COOCC 


01 9C0 




00 RG 


•-3 


04782 








01910 




c 


INRK425»ENTST4llt lit COMPARE NAMES 


04782 


24 


07425 


C455P 


01920 




BNE 


GONXT 


04794 


47 


04534 


C12CC 


01930 




TF 


N AMBUFt ENTST 4^1 1 1 11 


04806 


26 


02441 


0455P 


01940 




AM 


ENTST^^l lt6t 10 


04818 


II 


04557 


000-6 


01950 




BNF 


•♦32f ENTST+llfll 


04830 


44 


04862 


C455P 


01960 




AM 


ENTST«11«14,10 


04842 


11 


04557 


CC0J4 


01970 




B 


ENTST 


04854 


49 


04546 


COOOO 


0198C 




00 RG 


•-3 


04862 








01990 




SF 


ENTST«ll,«6, SET -LOADED* INDICATOR 


04862 


32 


0455P 


CCOOO 


02000 




BTH 


INCPUT,«*12 


04874 


17 


06774 


-4886 


02010 




B 


RELFRM 


04886 


49 


C6514 


CCOCO 


02020 




00 RG 


•-3 


04894 








02030 


•••«•• 


FLIP SUBPROGRAM TABLE SEARCH 










02040 


TBLLD 


AM 


SRCH«ll«3*10 


04894 


11 


03605 


CCO-3 
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02050 




TF 


FLP00A4^8fSRCH4-ll,ll 


02060 




AM 


SRCH>11,5,10 


02070 




TF 


FLPDDA45«SRCH«11,11 


02080 




TFM 


I0RTf«4-23 


02090 




B 


I0GT,FLP,7 


02100 




SF 


COMPAR 


02110 




TFM 


COMPAR+ll,SUBTBL*ll,, INITIALIZE POINTER 


02120 




TF 


COMPRE+lltAODCQM 


02130 




AM 


C0MPRE+11»1,10 


02140 


COMPAR 


BNR 


COMPRE 


02150 




BNF 


COMPREfCOMPAR 


02160 




TFM 


I0RT.«*23 


02170 




B 


I0PT,FLP,7 


02180 


•••••• 


IN-CORE SUBPROGRAM TABLE SEARCH AND LOAD 


02190 


LOCINC 


BTM 


INC6ET*«4-12 


02200 




CF 


COMPAR 


02210 




B 


COMPAR-36 


02220 




00 RG 


•-3 


02230 


COMPRE 


BNR 


SERCH 


02240 




B 


SERCH3 


02250 




OORG 


•-3 


02260 


SERCH 


BO 


•♦32«C0MPRE411,11 


02270 




AM 


C0MPRE4U,18,10 


02280 




B 


COMPRE 


02290 




OORG 


•-3 


02300 




AM 


C0MPRE4ll,lU10 


02310 




BNF 


SERCH2fC0MPAR 


02320 




C 


C0MPAR4ll,C0MPRE4ll*611» CHECK FOR SAME NAME 


02330 




BE 


SERCHl 


02340 




AM 


C0MPRE4ll,7,10 


02350 




B 


COMPRE 


02360 




OORG 


•-3 


02370 


SERCHl 


SM 


COMPRE+iUlItIO 


02380 




TOM 


C0MPRE4ll,0»6 


02390 




AM 


COMPAR+11,5,10 


02400 




AM 


C0MPRE4ll»16tl0 


02410 




A 


C0MPRE4ll»A0DSVEi6 


02420 




BNF 


•456,C0MPAR 


02430 




CM 


C0MPAR4ll,,67 


02440 




BNE 


• ♦32 


02450 




TF 


C0MPAR4ll,C0MPRE4ll,61U MOVE ADDRESS IN 


02460 




B 


SERCH 2-20 


02470 




DORG 


•-3 


02480 


••»•«• 


ROUTINE TO PLACE INDIRECT ENTRY ADDRESSES INTO SUBPROGRAM! 


02490 




TF 


•♦35,C0MPAR*11,11 


02500 




TF 


•♦18fC0MPRE4ll,ll 


02510 




TFM 


MOVE ADDRESS INTO PROGRAM 


02520 




SF 


•-6,, 6 


02530 




AM 


COMPAR+11,15,10 


02540 




B 


COHPAR-24 


0255C 




DORG 


•-3 


02560 




ROUTINE TO LOAD ENTRIES IN IN-CORE SUBPROGRAM TABLE 


02570 


SERCH2 


CM 


COMPAR* llfSUBTBL* 10 11 


02580 




BNE 


•♦32 J 


02590 




BTM 


EPRINT,79,8 


02600 




B 


MVADD+24 



04906 


26 


07018 


C360N 


04918 


11 


03605 


CCC-5 


04930 


26 


C7015 


0360N 


04942 


16 


C0565 


-4965 


04954 


49 


00566 


-7CC1 


04966 


32 


C5014 


COOOO 


04978 


16 


05C25 


-2533 


04990 


26 


05105 


02450 


05002 


11 


05105 


COO-l 


05014 


45 


05094 


COOOO 


05026 


44 


05C94 


05014 


05038 


16 


00565 


-5061 


05050 


49 


00532 


-7C01 


05062 


17 


0681C 


-5074 


05074 


33 


05014 


CCOOO 


05086 


49 


04978 


COOOO 


05094 








05094 


45 


05114 


CCOOO 


05106 


49 


05546 


GCOCO 


05114 








05114 


43 


05146 


C510N 


05126 


11 


C5105 


0O0J8 


05138 


49 


05094 


CCOCO 


05146 








05146 


11 


05105 


COOJl 


05158 


44 


05398 


05014 


05170 


24 


0502N 


0510N 


05182 


46 


05214 


C1200 


05194 


U 


05105 


CCO-7 


05206 


49 


05094 


00000 


05214 








05214 


12 


05105 


OOOJl 


05226 


15 


0510N 


00000 


05238 


11 


05025 


000-5 


05250 


11 


05105 


CC0J6 


05262 


21 


0510N 


C2472 


05274 


44 


05330 


05014 


052B6 


14 


0502N 


-0000 


05298 


47 


05330 


01200 


05310 


26 


0502N 


CSION 


05322 


49 


05378 


00000 


05330 








05330 


26 


05365 


C502N 


05342 


26 


0536C 


C510N 


05354 


16 


00000 


-0000 


05366 


32 


0536- 


COOCO 


05378 


11 


05025 


COO J 5 


05390 


49 


0499C 


00000 


05398 








05398 


14 


05025 


-3533 


05410 


47 


05442 


C12C0 


05422 


17 


06846 


0-079 


05434 


49 


05514 


00000 
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0261C 




D0R6 


•-3 


05442 




05170 




02620 




BNR 


SERCH+56tCCMPAR+llf 11 


05442 


45 


C502N 


02630 




TF 


C0MPAR+ll,CCMPRE-m,611 


05454 


26 


0502N 


C510N 


02640 




AM 


COMPARE 11. 5*10 


05466 


11 


05025 


COO-5 


02650 




AM 


COMPRE+11,5,10 


05478 


11 


05105 


000-5 


02660 


MVAOO 


TF 


C0MPAR-fll,CCMPRE4ll,611 


05490 


26 


0502N 


C51GN 


02670 




A 


C0MPAR+11,AD0SVE,6 


05502 


21 


0502N 


C2472 


02680 




AM 


C0MPAR4-llf 15,10 


05514 


11 


05025 


00OJ5 


02690 




AM 


C0MPRE4ll«2f 10 


05526 


11 


05105 


000-2 


02700 




B 


COMPAR 


05538 


49 


05014 


00000 


02710 




00 RG 


•-3 


05546 








02720 


SERCH3 


BNR 


• 4-44»C0MPAR4ll,ll 


05546 


45 


0559C 


C502N 


02730 




TDM 


C0MPRE4-11»»6 


05558 


15 


0510N 


00000 


02740 




BTM 


INCPUT.»*12 


05570 


17 


06774 


-5582 


02750 




B 


PHASEB 


05582 


49 


0561C 


OCOOC 


02760 




DQRG 


•-3 


05590 








02770 




AM 


CQMPAR+11,20,1C 


05590 


11 


05025 


OOOKO 


02780 




B 


COMPAR-24 


05602 


49 


04990 


OCOOO 


02790 




DQRG 


•-3 


05610 








02800 




LOAD DISK-STORED SUBPROGRAMS 










02810 


PHASEB 


BTM 


INCGET,»+12 


05610 


17 


06810 


-5622 


02820 




TFM 


•♦23,SUBTBL>11 


05622 


16 


05645 


-2533 


02830 


ENCTST 


BNR 


• M4t,, TEST FOR END OF TABLE 


05634 


45 


05678 


COOOO 


02840 




CM 


PR0CGM,,9 


05646 


14 


0582C 


CC-OO 


02850 




BNE 


PHASEC 


05658 


47 


0445C 


01200 


02860 




B 


CALL3 


05670 


49 


05978 


COOOO 


02870 




00 RG 


•-3 


05678 








02880 




TF 


NAMBUF,ENDTST4lltll 


05678 


26 


C2441 


0564N 


02890 




AM 


EN0TST-fll»6,10 


05690 


11 


05645 


000-6 


02900 




BNF 


INC 13-60* ENOTST^l 1.11 


05702 


44 


05734 


0564N 


02910 




AM 


ENDTST+11.14.10 


05714 


11 


05645 


C00J4 


02920 




B 


ENDTST 


05726 


49 


05634 


COOOO 


0293C 




00 RG 


•-3 


05734 








02940 




BTM 


INCPUT,»+12 


05734 


17 


06774 


-5746 


02950 




BTM 


EQSRCH,«4l2.. SEARCH EQUIVALENCE TABLE 


05746 


17 


03674 


-5758 


02960 




RETURN IF ENTRY NOT FOUND IN EQUIV. TABLE 










02970 




AM 


ENOTST-Ml.l.lO 


05758 


11 


05645 


OCO-l 






BTM 


INCGET,*«12 


05770 


17 


0681C 


-5782 


02990 




BNF 


•♦32,ENDTST«11.11 


05782 


44 


05814 


0564N 


03000 


INC13 


AM 


ENDTST^ll.13.10 


05794 


11 


05645 


C00J3 


03010 




B 


ENDTST 


05806 


49 


05634 


OCOOO 


03020 




00 RG 


•-3 


05814 








03030 




TYPE -LOAD NAME- 










03040 




RCTY 




05814 


34 


OOCOC 


00102 


03050 


PROCQk 


DC 


3.0.«-5 


05820 




3 




03060 




-00 
MATY 


LDMES 


05626 


39 


07129 


COlOO 


03070 




WATY 


NAMBUF-10 


05838 


39 


C2431 


00100 


03080 




BTM 


INCGET.»*12 


05650 


17 


06810 




03090 




SF 


ENDTST*11,.6, SET -TYPED- INDICATOR 


05662 


32 


0564K 


COOOO 


03100 




AM 


PROCOM.1.10 


05674 


11 


0582C 


COO-1 


03110 




BTM 


INCPUT,»*12 


05866 


17 


06774 


-5898 


03120 




TDM 


NODATA.O 


05898 


15 


02521 


00000 


03130 




B 


INC13 


05910 


49 


05794 


COOOO 


03140 




DORG 


•-3 


05918 








03150 




CHECK AND TYPE OUT NAMES OF UNLOADED SUBPROGRAMS 
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03160 


PHASEC 


TDM 


OATA.l 


05918 


15 


02505 


CCOOl 


03170 




TFM 


•♦35.SUBTBL«11 


05930 


16 


05965 


-2533 


03180 




TOM 


MORE 


05942 


15 


06067 


OCOOO 


03190 




BNR 


• 4^48 


05954 


45 


06002 


COOOO 


03200 




BD 


PHASEC-12.MCRE 


05966 


43 


04438 


C6067 


03210 


CALL3 


TFM 


I0RT.»*23 


05978 


16 


00565 


-6001 


03220 




B 


I06T.BL3.7 


05990 


49 


00566 


-7142 


03230 




TF 


NAMBUF»PHASED>47.11 


06002 


26 


02441 


G596N 


03240 




AM 


PHASE0447.6.10 


06014 


11 


05965 


CCO-6 


03250 




BNF 


••i-32»PHASE0«47,ll 


06026 


44 


06058 


C596N 


03260 




AM 


PHASED«47.14.10 


06038 


11 


05965 


000J4 


03270 




B 


PHASE0«36 


06050 


49 


05954 


COOOO 


03280 




DORG 


•-3 


06058 








03290 




TOM 


MORE.l 


06058 


15 


06067 


00001 


03300 


MORE 


OS 


• •-2 


06067 




0 




03310 




RCTY 




06070 


34 


OOOOC 


00102 


03320 




TDM 


OATA.O 


06082 


15 


02505 


COOOO 


03330 




WATY 


LDMES 


06094 


39 


07129 


00100 


03340 




WATY 


NAMBUF-10 


06106 


39 


02431 


00100 


03350 




B 


•"BO 


06118 


49 


06038 


COOOO 


03360 




DORG 


•-3 


06126 








03370 


SIZEOK 


BD 


•♦24.0VRLAP 


06126 


43 


06150 


02444 


03380 




BNCl 


• ♦96 


06138 


47 


06234 


00100 


03390 




RCTY 




06150 


34 


OOOOC 


00102 


03400 


SPROST 


OS 


• •-5 


061S6 




C 




03410 




WATY 


NAMBUF-10... TYPE OUT NAME 


06162 


39 


02431 


00100 


03420 




SPTY 




06174 


34 


OOOOC 


00101 


03430 




WNTY 


ADDSVE-4 


06186 


36 


02468 


COlOO 


03440 




SPTY 




06198 


34 


OOOOC 


00101 


03450 


SPRST 


OS 


.•-5 


06204 




0 




03460 




WNTY 


INRK418.»> TYPE OUT LENGTH 


06210 


38 


07418 


COlOO 


03470 




WATY 


LOED 


06222 


39 


07111 


00100 


03480 




LOAD PROGRAMS ROUTINE 










03490 




TF 


INOR-i-ll.AODSVE 


06234 


26 


07036 


02472 


03500 




BO 


•♦24,EXTIND 


06246 


43 


06270 


C2463 


03510 




TF 


ENTST+ll,ENDTST+ll 


06258 


26 


04557 


C5645 


03520 




SM 


ENTST+ll.l.lO 


06270 


12 


04557 


CCO-1 


03530 




TF 


• 4^18,ENTST«11.11 


06282 


26 


0630C 


0455P 


03540 




TF 


ENTST+11, SPROST. 6 


06294 


26 


0455P 


06156 


03550 


RDPROG 


BO 


CDTPLO.EXTINO.. BRANCH IF PROGRAM IN CARD OR TAPE 


06306 


43 


0635C 


02463 


03560 


SCHLD 


TFM 


lORT,*+23,. GET PROGRAM FROM DISK 


06318 


16 


00565 


-6341 


03570 




B 


lOGT.INDR.T 


06330 


49 


00566 


-7025 


03580 




B 


RMTBL 


06342 


49 


03534 


COOOO 


03590 




DORG 


•-3 


06350 








03600 


••••«« 


ROUTINE TO LOAD PROGRAM FROM CARD CR TAPE 










03610 


CDTPLD 


TOM 


416 


06350 


15 


00416 


00000 


03620 




DC 
« 


!.•*• 


06361 




1 




03630 




TD 


428,CQMSEC*73 


06362 


25 


00428 


€7373 


03640 




SF 


428 


06374 


32 


00428 


00000 


03650 


MLLGTH 


OS 


• » 


06385 




C 




03660 




CF 


429 


06386 


33 


00429 


CCOCC 


03670 




TF 


434.A00SVE 


06398 


26 


00434 


02472 


03680 




SF 


489 


06410 


32 


00489 


00000 


03690 




TF 


C0MSEC*98,INRK+79 


06422 


26 


07398 


C7479 


03700 




TFM 


IORT,»*23,, PUT BACK CCMMUN ICAT ICN SECTOR 


06434 


16 


00565 


-6457 



162C PONITCR II VERSION 2 FGRTR/>N I I-D LOADER BLOCK 3 



PAGE 



03710 






lOPTtCON, 7 














03720 




TFM 


I0RT,»*23,, GET PRCGRAM 




06458 


16 


00565 


-6481 


03730 




B 


lOGTf EXTtT 






06470 


49 


C0566 


-7170 








PR0C0M,1,10 














03750 




TDM 


EXT I NO 






06494 


15 


02463 


rrnrr 


03760 




B 


RMTBL 






06506 


49 


C3534 


coooo 


0377G 




DORG 


•-3 






06514 








03780 


RELFR^' 


TDM 


lNRK+80 










07480 


uuuuu 


03790 




DC 


1 1 • t* 






06525 








03800 




TR 


INRKt INRK+8t » MOVE 


INDICATOR 








C74CC 


C74C8 


038 10 




CF 


427 






Q6538 


33 


00427 


no Ann 


03820 


SECCT 


DC 


2f0f • 






06549 








03830 




2 

TFM 


439t 75 








1 A 




-0075 


03840 




TFM 


DDAR+13t99999 








1 A 




R 9999 


03850 




TF 


SPROSTt INRK+31 








9A 


06156 


rrn^A 


03860 




AM 


SPR0ST*6«10 








1 1 


06 156 




03870 


SUBPRO 


C 


INRK4-24tFft TEST 


FOR EQUAL 


F 


06598 


24 


07424 


022 19 


0388G 




BNE 


• ♦36 






06610 






0 1200 


03890 




C 


INRK«26tKt» TEST 


FOR EQUAL 


K 


06622 


24 


n7A9A 


C222I 


03900 




BE 


• ♦24 










rAA^ p 




03910 




BTM 


EPRINTt76tB 






nAAAA 


17 




r-n7A 

-7A^7 


03920 




TFM 


M0VE*lltINRK+37f t 


UPDATE SUBROUTINE TABLE 


nAA^R 


lA 


nA79« 


" yXoL 


03930 




TFM 


MOVE-fbiLIBSUB 






06670 


16 






03940 




CF 


MOVE-f? 






06682 


33 


0672 1 


CCOOO 


03950 


c 1 1 o n f 
SUouIb 


80 


MOVEfMOVE^lltll 














03960 




B 


MOVE+12 






nA'TnA 


AO 


nA79A 


rrnrr 


03970 




00 RG 


•*3 






nA-f 1A 








03980 


MOVE 


TD 








nA7lA 


25 






03990 




A 


MOVE-flltZERONE 






nA77A 


?a 




^^2424 


04000 




CM 


MOVE«6,LIBSUB430 






06738 


Ia 


0672C 




040 10 




BE 


TRYSZE 






06750 




04262 


0 1200 


04020 




B 


SUBOIG 






nAT^f 




nnsA^ 




04030 


INCPUT 


TFM 


I0RT,»*23 








16 






04040 




B 


I0PT,INCt7 






06786 




00532 


"4442 






B 


INCPUT-lff.6 






06798 


49 


0677L 


COOOO 




INCGcT 


TFM 


I0RT««t23 








16 


00565 








B 


lOGT, INC,7 






J? 






-4442 


04080 




B 


INCGET-1,«6 






06834 


AQ 


C o 80R 


UUUUu 


04090 




ERROR MESSAGE SUBROUTINE 














EPR INT 


TF 


ERMESS^16.EPRINT-1 










07079 


_ 


04 1 10 




RCTY 








nAfl«ifl 




UuUUU 




04 120 


Z ERONE 


OC 


6,100001, ♦-4 






nAflA^ 












JOOOOl 














04130 




WATY 


NAMBUF-10 








39 






04 140 




WATY 


ERMESS 






06882 




07063 


00100 


04150 




TDM 


SVEODA-1,1 






06894 


15 


02489 


CCOOl 


04160 




BB 








06906 


42 


00000 


00000 


04170 




DORG 


•-9 






06908 








04180 


OVRMES 


DAC 


9, OVERLAP* 






06909 




9 


X 2 






OVERLAP* 














04190 


JOBOUT 


DAC 


14, JOB ABANDONED* 






06927 






X 2 






JOB 


ABANDONED* 














O4200 


OME 


DSC 


2,22 






06954 




2 





22 
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04210 




DSA 


OMEODA 


06960 


5 


X 










06960 


-6962 




04220 




DC 


I,' 


06961 


1 




04230 


OMEODA 


DO A 


,1,0,1,INRK 


06962 


14 








1-0000-01-7400 








04240 




DC 
• 


l,» 


06976 


1 




04250 


EQU 


DSC 


2,22 


06977 


2 








22 










04260 




DSA 


EQUODA 


06983 


5 


X 










06983 


-6986 




04270 




DC 


I,* 


06984 


1 




04280 


EQUODA 


00 A 


•1,0,4,SUBTBL 


06986 


14 








1-0000-04-2522 








04290 




OC 
t 


I,* 


07000 


1 




043C0 


FLP 


DSC 


2,22 


07001 


2 








22 










04310 




DSA 


FLPOOA 


07CC7 


5 


X 










07007 


-7010 




04320 




OC 
t 


l,» 


07008 


1 




04330 


FLPDDA 


00 A 


f 1,0,0, SUBTBL 


07010 


14 








I- 0000-00-2522 








04340 




OC 
t 




07024 


1 




04350 


INCR 


DSC 


2,22 


07025 


2 








22 










04360 




DSA 


00AR,0 


07031 


5 


X 










07031 


-728C 












07036 


-0000 




04370 




OC 
1 


l,» 


07037 


1 




04380 


DIM 


DSC 


2,22 


07038 


2 








22 










04390 




DSA 


OIMDOA 


07044 


5 


X 










07044 


' -7046 




044C0' 




DC 
• 


It* 


07045 


1 




04410 


OIMDOA 


00 A 


fl, 4800,1, INRK 


07046 


14 








1-4800-01-7400 








04420 




DC 
, 




07060 


1 




04430 


ERMESS 


DAC 


10, ERROR L * 


07063 


ic 


X 






ERROR L • 








04440 


DIMSVE 


OSS 


20,, RESERVES CURRENT DIM ENTRY 


07082 


20 




04450 


CD TP 


OSA 


INRK 


07106 


5 


X 










07106 


-7400 





60 4 
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04460 




DC 
-0 


2,0 






07108 




2 




04470 




OGM 








07109 




I 




04480 


LOED 


DAG 


9, LOADED* 






07111 




9 


X 2 






LOADED* 














04490 


LDFES 


OAC 


7, LOAD • 






07129 












LOAD 


« 














04500 


BL3 


DSC 


2.-22 






07142 




2 








2K 
















04510 




DSA 


BL300A 






07148 




5 


X 1 














07148 




-715C 




04520 




DC 
• 


1,» 






07149 




1 




04530 


BL3DDA 


DOA 


•1,16940«26»3534 






07150 




14 








lJ6g40-26-3534 














04 540 




DC 


6t3556* 






07169 












-3556« 














04550 


EXT 


DSC 


2,-22 






07170 




2 








2K 
















04560 




DSA 


EXTOOA 






07 1 76 




















07176 




-7178 




04 5 70 




DC 


It* 






07177 




1 




04580 


EXTOOA 


DOA 


•1, 19783, 3»0 






07178 




14 








IJ 9763-03-0000 














04590 




DC 
• 


It* 






07192 








04600 


COM 


DSC 


2,22 






07193 




2 








22 
















04610 




DSA 


COMOOA 






07 199 




5 


X I 














07199 




-7202 




04620 




DC 
t 


It* 






07200 




1 




04630 


COMOOA 


DOA 


• 1, 19663, UCQNSEC 






07202 




14 








IJ9663-01-7300 














04640 




DC 
• 


1,* 






07216 








04650 


LO 


OSC 


2,22 






07217 




2 








22 
















04660 




DSA 


LOODA 






07223 




5 


X 1 














07223 




-2474 




04670 




DC 
• 


It* 






07224 




1 




04680 


OATAl 


OAC 


6t*DATA* 






07227 




6 


X 2 






•DATA" 














04690 




00 RG 


7280 






07280 








04700 


ODAR 


OSS 


20 






07280 




2C 




04710 


COMSEC 


OSS 


too,, SYSTEM COMMUNICATION 


SECTOR 




07300 




IGC 




04720 


INRK 


OSS 


100. • REAO IN AREA FOR 


INOICATCR 


RECORD 


07400 




IOC 




04730 


• 


BLOCK LOADER 














04740 




DORG 


8000 






08000 








04750 


BEGIN 


TO 


CDTP43, 19999 






08000 


25 


07109 


19999 














0 U 5 
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PAGE 


04760 




SK 


LOAOER 






08012 


34 


08048 


C070I 


04770 




HON 


LOADER 






08024 


38 


08048 


C0702 


04780 




H 








08036 


48 


COOOC 


00000 


04790 


LOADER 


ODA 


tltl6102,38,3480 






08048 




14 








1J6102-38-3480 












04800 




OGM 


19999 






19999 




1 




04810 




TCO 


BEGIN 






08000 









04820 DEND 00000 



€06 
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ADCCOW 0245C 

AODSVE C2472 

BL30CA C7150 

CCTPLO C635C 

CGMADD 02231 

CCMDDA C7202 

CCMPAR C50l^ 

CC^'PER C3722 

CC^«PRe 0509A 

CCMSeC C7300 

DIMOCA 07046 

OIMSVE €7082 

CKEOCA C6962 

ENOTST C5634 

ENTABS C2323 

ENTATN C2313 

ENTCCS C2303 

ENTDEO C2298 

ENTDRR 02293 

ENTEXP 02253 

ENTFET C2283 

ENTFID C2273 

ENTREC 02278 

ENTSC2 02258 

ENTSC3 02263 

ENTSDX 02268 

END CF ONE ASSEMBLY. 



ENTSIN 02308 

ENTSQT 02318 

ENTSkiC 02288 

EPRINT 06846 

ECADOR 02455 

EQSRCH 03674 

ECUDDA 06986 

ERPESS 07063 

EXTDDA 07178 

EXTIND 02463 

FLGR>«K 02445 

FLPDDA 07010 

FOUND I 03982 

HEADER 04738 

INCOOA 02506 

INCGET 06810 

INCPUT 06774 

INDCON 04169 

JQBOUT 06927 

LIBSUB 02394 

LOADER 08048 

LGOINC 05062 

MLLGTH 06385 

MCNGAL 00796 

NAMBUF 02441 

NCDATA 02521 



ONETHG 


04372 


CVRLAP 


02444 


CVRMES 


06909 


PHASES 


05610 


PHASEC 


04450 


PHASED 


05918 


PRCCCW 


05820 


PROGST 


02226 


RDPROG 


06306 


RELFRM 


06514 


BEGIN 


C8000 


BL3 


07142 


CALL3 


05978 


CDTP 


07106 


CCMP 


03754 


COM 


07193 


DATAl 


07227 


DATA 


02505 


OOAR 


07280 


DIM 


07038 


DHE 


06954 


ENTLN 


02248 


ENTST 


04546 


EQU 


06977 


EXT 


07170 


FLP 


07001 



FOUND 


03874 


F 


02219 


GCNXT 


04534 


INC13 


05794 


INC 


04442 


INOR 


07025 


INRK 


07400 


lOGT 


00566 


IGIND 


02461 


lOPT 


00532 


lORT 


00565 


K 


02221 


LOCOA 


02474 


LDED 


07111 


LOMES 


07129 


LO 


07217 


MLIND 


02462 


MORE 


06C67 


MOVE 


06714 


MVADD 


05490 


Nl 


02233 


N2 


02238 


NXTRD 


03814 


READ 


04486 


RECLG 


02243 


RMCHK 


04578 



RMTBL 03534 

SCHLD 06318 

SECCT 06549 

SECT 02466 

SERCH 05114 

SPRST 06204 

SRCH 03594 

T8LLC 04894 

h 02240 

SCADOR 02460 

SERCH 1 05214 

SERCH2 05398 

$ERCH3 05546 

SIZEOK C6126 

SPROST C6156 

SUBDIG 06694- 

SU8PRC 06598 

SUBTBL C2522 

SVEDDA C2490 

TBLIND 03615 

TRYSZE 04262 

TSTVLO C4I02 

ZERONE 06865 

ZROTST 02467 
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00020 


Nl 


OS 


t2233 


02233 


C 


00030 


N2 


OS 


t2238 


02238 


0 


00040 


U 


OS 


f2240 


02240 


C 


00050 


RECLG 


OS 


.2243 


02243 


c 


00060 


lORT 


OS 


f 565 


00565 


c 


OOCTO 


lOGT 


OS 


tS66 


00566 


0 


00080 


lOPT 


OS 


.532 


00532 


c 


00090 


LIBSUB 


OS 


.2394 


02394 


c 


00100 


CQMADC 


OS 


.2231 


02231 


c 


00110 


MONCAL 


OS 


.796 


00796 


c 


00120 




DORG 


2426 


02426 




00130 


NAMBUF 


DC 


16.0 


02441 


16 






-OCOOOOOOOOOOOOO 






00140 




DC 


2.' 


02443 


2 


00150 


CVRLAP 


OS 


1 


02444 


1 


00160 


FLGRMK 


OS 


1 


02445 


1 


00170 


ADDCOW 


OS 


5 


02450 


5 


00180 


EQADOR 


OS 


5 


02455 


5 


00190 


SCADOR 


OS 


5 


02460 


5 


00200 


lOIND 


OS 


I 


02461 


1 


00210 


MLIND 


OS 


1 


02462 


1 


00220 


EXTIND 


OS 


1 


02463 


1 


00230 


SECT 


OS 


3 


02466 


3 


00240 


ZROTST 


OS 


I 


02467 




00250 


ADDSVE 


OS 


5 


02472 


5 


00260 




DC 
t 




02473 


1 


00270 


LOCDA 


DO A 


»l«0t0f0 


02474 


14 






i-oooo-oo-oooo 






00280 




DC 
1 




02488 


I 


00290 


SVEDDA 


00 A 


.ltO.21.0 


02490 


14 






1-0000-21-0000 






00300 




OC 


l.» 


02504 


1 


00310 


DATA 


OS 


1 


02505 


1 


00320 


INCDDA 


00 A 


•IfO.OtO 


02506 


14 






1-0000-00-0000 






00330 




DC 
« 


l.« 


02520 


1 


00340 


NGDATA 


OS 


1 


02521 


1 


003S0 


SUBTBL 


OSS 


1000 


02522 


lOCC 


00360 




DC 


12, • 


03533 


12 






-0000000000* 






00370 


LNKADD 


OS 


5 


03538 


5 


00380 


FLPDDA 


DO A 


• 1*0,0, SUBTBL 


0354O 


14 






1-0000-00-2522 






00390 




DC 


lt« 


03554 


1 



00400 •#•••» LIBRARY SUBROUTINE LCACER ROUTINE 

00410 LBSUBA CF PTRS+l 03556 33 05628 CCOOO 

00420 CF PTRS+6 03568 33 05633 00000 

00430 BNF •♦24,I0IND ^ 03580 44 03604 02461 

00440 TFM LIBDDA45,4834 03592 16 05613 -4834 
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00450 






TFM 


iaRTf*«^23,» GET SUBROUTINE CIH ENTRIES (6 SECTORS ) 


03604 


16 


00565 


-3627 


00460 






B 


lOGTiLIBf? 


03616 


49 


00566 


-5595 


00470 






BO 


• -i-56tPTRS.il. BRANCH IF SUBROUTINE FOUND 


03628 


43 


03684 


C562P 


0048C 






S 


PTRS-HO.PTRCON, . DECREMENT POINTERS TO NEXT ENTRY 


03640 


22 


05637 


05649 


00490 






CM 


PTRS,LIBSUB-1 


03652 


14 


05627 


-2393 


00500 






BE 


RMTBL 


03664 


46 


04588 


C1200 


00510 






B 


•-48 


03676 


49 


03628 


CCOOO 


0052C 






OORG 


•-3 


03684 








00530 






CM 


PTRS«LIBSUB«5 


03684 


14 


05627 


-2399 


00540 






BL 


• ♦48 


03696 


47 


03744 


01300 


00550 






CM 


PTRS.LIBSUB-»7 


03708 


14 


05627 


-2401 


00560 






BH 


• ♦24 


03720 


46 


03744 


01100 


00570 






TDM 


ZROTST.l 


03732 


15 


02467 


CCOOl 


00580 






BNR 


•♦44,PTRS+10.11 


03744 


45 


03788 


C563P 


00590 






AM 


EMPTYS, 1,710 


03756 


11 


C3764 


-00-1 


006CC 


EMPTYS 


OS 


.♦-3 


03764 




C 




00610 






s 


PTRS*10,PTRCCN,, DECREMENT POINTERS TO NEXT ENTRY 


03768 


22 


05637 


05649 


00620 






B 


•-36 


03780 


49 


03744 


COOOO 


0063C 






DORG 


• -3 


03788 








00640 






AM 


PTRS+10,8.10 


03788 


11 


05637 


000-8 


00650 






TF 


LIBDOA+a.PTRS+IO.il 


03800 


26 


05616 


C563P 


00660 






AM 


PTRS+10,5.10 


03812 


11 


05637 


CCO-5 


00670 






TF 


ADDSVE.ADDCOM 


03824 


26 


02472 


02450 


00680 






AM 


ADDSVE.l.lO 


03836 


11 


02472 


000-1 


00690 






A 


AOOCOM.PTRS^lO.ll. INCREMENT ACORESS COUNTER BY LENGTH 


03848 


21 


0245C 


C563P 


00700 






AM 


PTRS^IO.S.IO 


03860 


11 


05637 


CCO-5 


00710 






TF 


DIMCT.PTRS^lO.ll 


03872 


26 


04118 


0563P 


00720 






C 


EMPTYS, DIMCT 


03884 


24 


03764 


04118 


00730 






BNL 


SUBMIS 


03896 


46 


05798 


C1300 


00740 






TFM 


EMPTYS, 0,10 


03908 


16 


C3764 


CCO-C 


00750 






A 


PTRS, DIMCT 


03920 


21 


05627 


04118 


00760 


01 


[HID 


SM 


PTRS.1.10 


03932 


12 


05627 


COO-l 


00770 






SM 


DIMCT.ltlO 


03944 


12 


04118 


COO-I 


00780 






TDM 


PTRS, 1.6 


03956 


15 


0562P 


COOOl 


00790 






CM 


DIMCT 


0 3968 


14 


04118 


-0000 


00800 






BNE 


DIMLD 


03980 


47 


03932 


C12C0 


00810 






SM 


PTRS+10,5,10 


03992 


12 


05637 


CCO-5 


00820 






C 


ADDCOW.COMAOD 


04004 


24 


0245C 


C2231 


008 30 






BL 






^7 






00840 






TDM 


OVRLAPrl 


04028 


15 


02444 


COOOl 


00850 






TF 


SUBBUF^6,PTRS.. CALCULATE SUBROUTINE NUMBER 


04040 


26 


04094 


C5627 


00860 






SM 


SUBBUF^6.LIBSU8-1 


04052 


12 


04094 


-2393 


00870 






BD 


•♦24.0VRLAP 


04064 


43 


04088 


02444 


00880 






BNCl 


LBSUBl 


04076 


47 


04260 


OClOO 


00890 


SUBBUF 


RCTY 




04088 


34 


OOOOC 


C0102 


00900 






DC 
• 


I. •.•-4 


04095 




1 




00910 






HNTY 


SUBBUF^S... TYPE OUT SUBROUTINE NUMBER 


04100 


38 


04093 


GOICC 


00920 






SPTV 




04112 


34 


OOOOC 


COlOl 


00930 


CI 




OS 


.—5 


04118 




C 




00940 






BD 


•♦24,0VRLAP 


04124 


43 


04148 


02444 


00950 






HNTY 


AODSVE-4 


04136 


38 


02468 


00100 


00960 






TF 


SUBBUF^6.PTRS^10.11. MOVE ADDRESS INTO BUFFER 


04148 


26 


04094 


C563P 


00970 






SPTV 




04160 


34 


OCOCC 


COICI 


00980 






WNTY 


SUBBUF42.., TYPE OUT LENGTH OF SUBROUTINE 


04172 


38 


04090 


00100 


00990 






BD 


•♦32.0VRLAP 


04184 


43 


04216 


02444 
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01000 




HATY 


LDED 


04196 


39 


05669 


COlOO 


01010 




B 


LBSUBl 


04208 


49 


04260 


COOCC 


01020 




DORG 


•-3 


04216 








01030 




WATY 


OVRMES 


04216 


39 


05651 


CCICO 


01040 




S 


A00CQW,PTRS^10,11, RESET ADDRESS COUNTER 


04228 


22 


024 5 C 


0563P 


01050 




SM 


PTRS^IO, 13,10. CORRECT DIM POINTER 


04240 


12 


05637 


0C0J3 


01060 




B 


LBSUBA^60,,. BRANCH TO CHECK NEXT ENTRY 


04252 


49 


03616 


COOOO 


01070 




DORG 


•-3 


04260 








01080 


LBSUBl 


SM 


PTRS+10,5.10. DECREMENT DIM TO SECTOR COUNT 


04260 


12 


05637 


000-5 


01090 




TF 


LIBDDA^8.PTRS>10,11, MOVE IN SECTOR COUNT 


04272 


26 


05616 


0563P 


01100 




SM 


PTRS^10,3.10, DECREMENT DIM TO DISK ADDRESS 


04284 


12 


05637 


CO 0-3 


OHIO 




TF 


LIBDDA^S.PTRS^lO.ll, TRANSFER DISK ADDRESS 


04296 


26 


05613 


C563P 


01120 




TF 


DMEDDA^5,LIBDDA^5,, SET UP ONE SECTOR ODA 


04308 


26 


05699 


05613 


01130 




SM 


PTRS^10,5,10. DECREMENT TO DISK DRIVE CODE 


04320 


12 


05637 


CCO-5 


01140 




TO 


LIBDDA.PTRS^lO.ll. TRANSFER DRIVE CCOE 


04332 


25 


05608 


C563P 


01150 




TO 


DMEDDA.LIBDDA 


04344 


25 


05694 


05608 


01160 




TFM 


I0RT,«^23,, GET ONE SECTOR OF SUBROUTINE 


04356 


16 


00565 


-4379 


01170 




B 


lOGT.OME,? 


04368 


49 


00566 


-5686 


01180 




TFM 


•♦23.INRK«8 


04380 


16 


04403 


-7408 


01190 


LBSUB2 


BNR 


RELOC 


04392 


45 


04544 


00000 


01200 




TF 


99,PTRS*5 


04404 


26 


00099 


05632 


01210 




A 


99,INRK^7 


04416 


21 


00099 


07407 


01220 




TO 


•♦35,99,11, SAVE DIGIT TO BE OVERLAVED 


04428 


25 


04463 


C009R 


01230 




TR 


PTRS«5.INRK^8.6. LOAD ENTRY ADDRESS 


04440 


31 


C563K 


07408 


01240 




TDM 


99,, 6, RESTORE DIGIT 


044S2 


15 


0009R 


00000 


01250 




TF 


LIB+lltADOSVE 


04464 


26 


05606 


02472 


01260 




TFM 


LIBDDA^13, 99999 


04476 


16 


05621 


R9999 


01270 




CF 


427 


04488 


33 


00427 


00000 


012S0 




TFM 


439 


04500 


16 


00439 


-0000 


01290 




TFM 


I0RT,»«23,, LOAD SUBROUTINES 


04512 


16 


00565 


-4535 


01300 




B 


I0GT,LIB,7 


04524 


49 


00566 


-5595 


01310 




B 


LBSUBA«84 


04536 


49 


03640 


COOOO 


01320 




OORG 


•-3 


04544 








01330 


••••«• 


RELOCATE ENTRY ADDRESSES 










01340 


RELOC 


AM 


LBSUB2^11,4,10 


04544 


U 


04403 


000-4 


01350 




A 


LBSUB2^11,ADCSVE,6. RELOCATE ADDRESS 


04556 


21 


0440L 


02472 


01360 




AN 


LBSUB2^11,l,10 


04568 


11 


04403 


000-1 


01370 




8 


LBSUB2 


04580 


49 


04392 


COOOO 


01380 




OORG 


•-3 


04588 








01390 


RMTBL 


CM 


C0NSEC^75,,10, BRANCH IF NO LCCAL CARDS 


04588 


14 


07375 


COO-0 


01400 




BNE 


•♦48 


04600 


47 


0>648 


01200 


01410 


CALL6 


TF 


INRK^4,INCO0A^5 


04612 


26 


07404 


02511 


01420 




TFM 


I0RT.»+23 


04624 


16 


00565 


-4647 


01430 




B 


I0GT,BL6,7 


04636 


49 


00566 


-5548 


01440 




BD 


CALL6.0VRLAP 


04648 


43 


04612 


02444 


01450 




TFM 


I0RT,»+23 


04660 


16 


00565 


-4683 


01460 




B 


I0GT,LD,7 


04672 


49 


00566 


-5587 


01470 




TFM 


•♦23,SUBTBL^ll 


04684 


16 


04707 


-2533 


01480 


SRCH 


BNR 


•♦20... TEST FOR END OF TABLE 


04696 


45 


04716 


00000 


01490 




B 


CALL6 


04708 


49 


04612 


COOOO 


01500 




DORG 


•-3 


04716 








01510 




C 


COMSEC+35,SRCH+ll,ll 


04716 


24 


07335 


C470P 


0152C 




BE 


TBLLD 


04728 


46 


04760 


01200 


01530 




AM 


SRCH+11,20,10, INCREMENT TO NEXT ENTRY 


04740 


11 


04707 


COOKO 


01540 




B 


SRCH 


04752 


49 


04696 


CCOOO 


01550 




DORG 


•-3 


04760 
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C1560 


TBLLD 


AM 


SRCH+11,3,10 


04760 


11 


0470 7 


CCO-3 


01570 




TF 


FLPDDA+8tSRCH+ll , 11 


04772 


26 


03548 


C470P 


0158C 




AM 


SRCH+11,5,10 


04784 


n 


04707 


000-5 


01590 




TF 


FLPDDA+5,SRCH*11, 11 


04 796 


26 


03545 


C470P 


01600 




TFM 


lORTt •♦23 


04808 


16 


00565 




01610 




B 


I0GTfFLP,7 


04620 


49 


00566 


— 5760 


01620 


V 


AM 


X+llt6tl0 


04832 


1 1 


04879 


000-6 


01630 




DC 


If •t»-2 


04841 




I 




01640 




TR 


X+ll,Y+7,6 


04844 


3 1 


0487R 


C4839 


01650 




AM 


X4-llfl4,10 


04856 




04879 




01660 


X 


BNR 


V,SUBTBL*11,7 


04868 


45 


04832 


-2533 


01670 




TFM 


I OR T,*^ 23 


04880 


16 


00565 


-4903 


01680 




B 


I0PT,FLP,7 


04892 


49 


CC532 


-5760 


01690 




TF 


FLPPRO«ll,AD0CQVt 


04904 


26 


05779 


02450 


01700 




AM 


FLPPRO^llfltlO 


04916 


11 


05779 


COO-1 


01710 




TF 


STAOO«FLPPRO-*^11 


04928 


26 


05742 


05779 


01720 




A 


AOOCOWtFLPCOW 


04940 


2 1 


02450 


05210 


01730 




TF 


LNKADDtADOCOk 


04952 


26 


03538 


C2450 


01740 




AM 


LNKADDt24,10 


04964 


11 


03538 


CC0K4' 


01750 




c 


AOOCOWtCOMADO 


04976 


24 


0245C 


02231 


01760 




BH 


FLPOVR 


04988 


46 


0552C 


01100 


01770 




OF 


427 


05000 


33 


00427 


COOCO 


01780 




TFM 


439,0 


05012 


16 


00439 


-0000 


01790 




TFN 


IORT,*4^23 


05024 


16 


00565 


-5047 


01800 




B 


I0GT,FLPPR0,7 


05036 


49 


00566 


-5768 


01810 


FLIP 


TF 


FLPLNK+ll,FLPPRC+ll 


05048 


26 


05720 


05779 


01820 




AM 


FLPLNK-i-11,4,10 


05060 


11 


05720 


000-4 


01830 




TF 


FLPLNK4ll«A00CQW,6 


05072 


26 


0572- 


02450 


01840 




AM 


FLPLNK+11, 1,610 


05084 


1 1 


0572- 


000-1 


01850 




AM 


FLPLNK-i-11,6, 10 


05096 


1 1 


05720 


000-6 


01860 


SIZECK 


BNR 


CALL5*24,SUBTBL+11 


05108 


45 


05344 


02533 


01870 




TF 


AOOSVE,AODCOW 


05120 


26 


02472 


C2450 


01880 




AM 


FLPPR0-»11,4,10 


05 132 


1 1 


05779 


000-4 


01890 




AM 


ADDSVE,3,10 


05144 


11 


02472 


CCO-3 


01900 




TF 


FLPPR0>11,A0DSVE,6 


05156 


2b 


0577R 


02472 


01910 




AM 


AD0C0W,2,1C 


05168 


11 


0245C 


CCO-2 


01920 




BO 


»^24,0VRLAP 


05180 


43 


05204 


02444 


01930 




BNCl 


CALLS 


05192 


47 


05320 


00100 


01940 




RCTY 




05204 


34 


OOOOC 


C01C2 


01950 


FLPCOl* 


DC 


5,30C,»-5 


05210 




5 








-0300 










01960 




DC 
• 


l,»,«-4 


05211 








01970 




WATY 


FLPMES 


05216 


39 


05745 


COlOO 


01980 




BD 


•♦24,0VRLAP 


05228 


43 


05252 


02444 


01990 




WNTV 


STADO-4 


05240 


38 


C5738 


00 ICO 


02000 




SPTV 




05252 


34 


OOOOC 


CO 101 


02010 




WNTY 


FLPCOH-4 


05264 


38 


C52C6 


00100 


02020 




BD 


•♦32,0VRLAP 


05276 


43 


05308 


02444 


02030 




HATY 


LDED 


05288 


39 


05669 


00100 


02040 




B 


CALLS 


05300 


49 


0532C 


CCOOO 


02050 




00 RG 


• -3 


05308 








02060 




WATY 


OVRMES 


05308 


39 


05651 


00100 


02070 


CALLS 


TFM 


I0RT,»»23 


05320 


16 


00565 


-5343 


02080 




B 


I0GT,BL5,7 


05332 


49 


00566 


-5540 
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02090 




TF 


SECLNK«6,A0CC0W 


05344 


26 


05398 


C2450 


02100 




AM 


SECLNK^6,2,10 


05356 


11 


05398 


COO-2 


02110 




AM 


A0DC0W,19,10 


05368 


11 


0245C 


CC0J9 


02120 




TF 


FLPLNK-M6,A0DC0h 


05380 


26 


05725 


02450 


02130 


SECLNK 


TR 


,FLPLNK 


05392 


31 


OOOOC 


057C9 


02140 




AM 


SIZE0K4.il, 5, 10 


05404 


11 


05119 


CCO-5 


02150 




AM 


SECLNK>6,5,10 


05416 


11 


05398 


CCO-5 


02160 




TF 


•^18,SIZE0K*11,11 


0 5428 


26 


05446 


OSllR 


02170 




TF 


•SECLNK46 


05440 


26 


OOOOC 


05398 


02180 




AM 


SIZEOK^ll, 15,10 


05452 


11 


05119 


CC0J5 


02190 




AM 


ADDCOM, 11,10 


05464 


11 


C245C 


COOJl 


02200 




AM 


FLPC0W,30,10 


05476 


11 


05210 


OOOLO 


02210 




C 


AD0C0W,COMA0D 


05488 


24 


02450 


02231 


02220 




BH 


FLPOVR 


05500 


46 


0552C 


CllOO 


02230 




B 


SIZEOK 


05512 


49 


051C8 


COOOO 


02240 




DORG 


•-3 


05520 








02250 


FLPOVR 


TDM 


OVRLAP,! 


05520 


15 


02444 


00001 


02260 




B 


FLIP 


05532 


49 


05048 


COOOO 


02270 




OORG 


•-3 


05540 








02280 


BLS 


DSC 


2,-22 


05540 




2 








2K 












02290 




OS A 


BLSDOA 


05546 




5 


X I 










05546 




-5556 




02300 




DC 


l,» 


05547 




1 




02310 


BL6 


DSC 


2,-22 


05548 




2 








2K 












02320 




OS A 


BL600A 


055S4 




5 


X 1 










05554 




-5572 




02330 




DC 
• 




055S5 




1 




02340 


BLSDOA 


DO A 


•!• 16140,37,3556 


05556 




14 








1J6140-37-3556 










02350 




DC 


l,« 


05570 




1 




02360 


BL6D0A 


DDA 


•1,16177,16,2522 


05572 




14 








IJ617T-16-2522 










02370 




DC 


l,« 


05586 




I 




02380 


Dlf'TBL 


OS 


• SUBTBL-f599 


03121 




C 




02390 


DIMTB 


DS 


•SUBTBL 


02522 




C 




02400 


LD 


DSC 


2,02 


05587 




2 








02 












02410 




DSA 


LODOA 


0S593 




5 


X 1 










05593 




-2474 




02420 




DC 
• 


I,' 


05594 




1 




02430 


LIB 


DSC 


2,22 


05595 




2 








22 












02440 




DSA 


LIBDDA,0 


05601 




5 


X 2 










05601 




-5608 












05606 




-0000 
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PAGE 



02A50 




DC li* 




05607 




1 




02460 




DC l,«,LIB+7 
• 




05602 




1 




02470 


LIBDCA 


OOA •lt4802f6«DIP«TB 




05608 




14 








1-4802-06-2522 








I 




02480 




DC l,« 




05622 






02490 


PTRS 


DSA LIBSUB+29,LIBSUB-5,DIMTBL-19 






5 












05627 




-2423 












05632 




-2 389 












05637 




-31C2 




025CC 


PTRCON 


DC 12t01000050C020 




05649 




12 








-10000500020 




05651 








02510 


OVRMES 


DAC 9f OVERLAP* 






9 


X 2 






OVERLAP * 




05669 








0252C 


LDEO 


DAC 9, LOADED* 






9 


X 2 






LOADED* 












02530 


CME 


DSC 2t22 




05686 








C2540 




22 

DSA DHEDDA 




05692 




5 


X 1 










05692 




-5694 




0255C 




DC If* 




05693 




1 




02560 


OMEOO A 


* 

DOA ,1*0*1*INRK 




05694 




14 








l-COOO-01-7400 












02570 




DC 1,* 




05708 




I 




02580 


FLPLNK 


» 

DSC 5,0 




05709 




5 




02590 




00000 




05714 


17 


UOOUQ 


0000 


02600 




DSC Ul 




05726 




1 




02610 




1 

DC 5*0 




05731 




5 








-OCCO 
















DC 6»* 




05737 




6 








-0000* 














STAOD 


OS 5 




05742 




5 




02640 




DC 1 , • , 
1 




05743 




1 




02650 


FLPHES 


n*r a ciidcd f 
UAL o,rLIrtK 




05745 




8 


X 2 






FLIPER * 












02660 


FLP 


DSC 2,02 




05760 




2 








02 

DSA FLPDDA 




05766 




5 


X 1 










05766 




-3540 




02680 




DC 1 , ' 




05767 




1 




02690 


FLPPRC 


DSC 2,22 




05768 




2 




027C0 




22 

DSA FLDDA tO 




05774 




5 


X 2 










05774 




-5782 
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05779 




-OOOC 




02710 




DC 1 , * 




05780 




1 




02720 


FLDDA 


DDA t l,16l95f 999t99999 




05782 




14 








1J6195R99R9999 












02730 




DC It* 




05796 




1 




02740 


SUBMIS 


Tr SUBBLIF'f6tPTRS 




05798 


26 


04C94 




02750 




SM SUBBUF-t-6*L lBSUB-2 




05810 


12 


04094 


'2392 


02760 




RCTY 




05822 


34 


OOCCC 


CC102 


02770 




MATY NOENT 




05834 


39 


05891 


00100 


02780 




WNTY SUBBUF-^'S 




05846 


38 


04093 


CCICC 


02790 




RCTY 




05858 


34 


OOOOC 


C0102 


028C0 




MATY JOBOUT 




O5870 


39 


05941 


COlOO 


02810 




B MONCAL 




05882 


49 


00796 


00000 


02820 




DORG •—4 




05889 








02830 


NOENT 


DAC 25, NO ENTRY FOR SUBROUTINE 


• 


05891 




25 


X 2 






NO ENTRY FOR SUBROUTINE * 












02840 


JOBQUT 


DAC 14, JOB ABANDONED* 




05941 




14 


X 2 






JOB ABANDONED* 












02850 




DORG 7280 




07280 








02860 


DOAR 


DSS 20 




07280 




2C 




02870 


COKSEC 


OSS 100,, SYSTEM COMMUNICATION 


SECTOR 


07300 




IOC 




02880 


INRK 


DSS 100,, READ IN AREA FOR 


INDICATOR RECORD 


07400 




IOC 




02890 


• 


BLOCK LOADER 












02900 




DORG 8000 




08000 








02910 


BEGIN 


SK LOADER 




08000 


34 


08036 


00701 


02920 




WON LOADER 




080 12 


38 


08036 


CC702 


02930 




H 




08C24 


48 


COCOC 


COOOO 


02940 


LOADER 


DDA •1,16940»26,3534 




08036 




14 








IJ6940-26-3534 












02950 




TCD BEGIN 




0800C 








02960 




DEND 




00000 
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PAGE 


8 


AOCCCW 


C2A5C 


FLPOVR 


05520 


PTRCCN 


05649 


lOGT 


0C566 


SECT 


02466 


ACCSVE 


C2^72 


FLPPRC 


05768 


BEGIN 


08000 


lOINO 


02461 


SRCH 


04696 


BL5DDA 


C5556 


INCOCA 


02506 


BL5 


05540 


lOPT 


0C532 


STADD 


05742 


BL60CA 


C5572 


JCBOUT 


05941 


BL6 


05548 


lORT 


0C565 


TBLLD 


04760 


CCMACD 


C2231 


LBSUBl 


04260 


CALL5 


05320 


LOOOA 


02474 


M 


02240 


CCMSEC 


C73CC 


LBSUB2 


04392 


CALL6 


04612 


LDED 


05669 


X 


04868 


DIMT8L 


C3121 


LBSUBA 


03556 


DATA 


02505 


LD 


05587 


Y 


04832 


OMEDDA 


C5694 


LIBDOA 


05608 


DDAR 


07280 


LIB 


05595 


SCAOOR 


02460 


EWPTYS 


C37 6<k 


LIBSUB 


02394 


OIMCT 


04118 


MLIND 


02462 


SECLNK 


05392 


EGAODR 


C2455 


LNKAOC 


03538 






Nl 


02233 


SIZECK 


05108 


EXTIND 


C2463 


LOADER 


08036 


DinXB 


02522 


N2 


02238 


SUBBUF 


04088 


FLGRWK 


024A5 


MONCAL 


00796 


OPE 


05686 


NOENT 


05891 


SUBWIS 


05798 


FLPCOW 


C5210 


NAr«BUF 


02441 


FLODA 


05782 


PTRS 


C5627 


SUBTBL 


02522 


FLPDDA 


C35A0 


NOOATA 


02521 


FLIP 


05048 


RECLG 


02243 


SVEDDA 


02490 


FLPLNK 


C5709 


OVRLAP 


02444 


FLP 


05760 


RELOC 


04544 


ZRCTST 


02467 


FLPMES 


C5745 


CVRMES 


05651 


INRK 


07400 


Rf*TBL 


04588 







END CF ONE ASSEf«BLY. 
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00020 


lOPT 


OS 


• 532 




00532 


C 


00030 


lOGT 


OS 


• 566 




00566 


C 


00040 


lORT 


OS 


• 569 




00565 


C 


00050 


MONCAL 


OS 


• 796 




00796 


C 


00060 


• •• 


COMMUNICATION AREA 








00070 




OORG 


2218 




02218 




00080 


F 


OS 


2ff FLOATING POINT WORD LENGTH 


02219 


2 


00090 


K 


OS 


2,t FIXED POINT hORO 


LENGTH 


02221 


2 


00100 


PROGST 


OS 


5t, STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00110 


COMAOD 


OS 


5»« STARTING ADDRESS 


OF COMMON AREA 


02231 


5 


00120 


Nl 


OS 


2»» NUMBER OF WORDS 


(N LOGICAL RECORD 


02233 


2 


00130 


N2 


OS 


9t« NUMBER OF LOGICAL RECORDS 


02238 


5 


00140 


M 


OS 


2tt WORD LENGTH 




02240 


2 


001 50 


RECLG 


OS 


39, RECORD LENGTH 




02243 


3 


00160 


ENTLN 


OS 


5ft ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


00170 


ENTEXP 


OS 


9«» ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00180 


ENTSC2 


OS 


9»t ENTRY ADDRESS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02258 


5 


00190 


ENTSC3 


OS 


5f, ENTRY ADDRESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02263 


5 


00200 


ENTSDX 


OS 


5,, ENTRY ADDRESS TO 


FIXED SWITCH D SUBROUTINE 


02268 


5 


00210 


ENTFID 


OS 


5»t ENTRY ADDRESS TO 


FIND SUBROUTINE 


02273 


5 


00220 


ENTREC 


OS 


9»> ENTRY ADDRESS TO 


RECORD SUBROUTINE 


02278 


5 


00230 


ENTFET 


OS 


5f» ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00240 


ENTShC 


OS 


5,, ENTRY ADDRESS TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00250 


ENTDRR 


OS 


5>f ENTRY ADDRESS TO 


ARRAY SUBROUTINE 


02293 


5 


00260 


ENTDED 


OS 


5», ENTRY ADDRESS TO 


DISK END SUBROUTINE 


02298 


5 


00270 


ENTCOS 


OS 


5,, ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02303 


5 


00280 


ENTSIN 


OS 


5,, ENTRY ADDRESS TO 


SINE SUBROUTINE 


02308 


5 


00290 


ENTATN 


DS 


Stt ENTRY ADDRESS TO 


ARCTANGENT SUBROUTINE 


02313 


5 


00300 


ENTSQT 


OS 


5,, ENTRY ADDRESS TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00310 


ENTABS 


OS 


5,f ENTRY ADDRESS TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00320 




DS 


70,, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 


70 


00330 


LIBSUB 


OSS 


30,, LIBRARY SUBROUTINE INDICATORS 


02394 


30 


0034C 




DC 


It* 




02424 




00350 




MAINLINE TABLE SEARCH 








00360 




OORG 


2426 




02426 




00370 


NAMBUF 


DC 


16,0 




02441 


16 






-ooooooooboooooo 








00380 




DC 
— • 


2,« 




02443 


2 


00390 


OVRLAP 


DS 


1 




02444 


1 


00400 


FLGRMK 


OS 


1 




02445 


1 


00410 


ADOCOh 


OS 


5 




02450 


5 


00420 


EQAOOR 


DS 


5 




02455 


5 


00430 


SCAOOR 


OS 


5 




02460 


5 


00440 


lOINO 


OS 


1 




02461 


1 


00450 


MLIND 


OS 


1 




02462 


1 


00460 


EXTINC 


OS 


1 




02463 


1 


00470 


SECT 


OS 


3 




02466 


3 


00480 


ZROTST 


OS 


1 




02467 


1 


00490 


AODSVE 


OS 


5 




02472 


5 


005C0 




DC 


I, ' 




02473 


1 


00510 


LDCDA 


DO A 


•1,0,0, SUBTBL 




02474 


14 






1-0000-00-2522 
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00520 




DC 
t 


It* 


02488 




1 




00530 


SVECC^ 


DO A 


•lfC,21»0 


02490 




14 








l-CCOO-21-0000 










00540 




DC 


lt« 


02504 




1 




00550 


DATA 


DC 


ItC 


02505 




1 




00560 


INCDDA 


DO A 


»1,0,10»SUBTBL 


02506 




14 








1-0000-10-2522 










00570 




DC 


l» • 


02520 




1 




00580 


NODATA 


OS 


1 


02521 




1 




00590 


SUBTBL 


DSS 


1000 


02522 




ICOC 




006C0 




DC 


12, • 


03533 




12 








-OCOOOOCOCC 










00610 


LNKACC 


DS 


5 


03538 




5 




00620 


FLPDOA 


DO A 


• l«0«0, SUBTBL 


03540 




14 








1-0000-00-2522 










C063C 




DC 


1,* 


03554 




1 




00640 




LOAD DISK-STORED SUBPRCGRAMS 










00650 




AM 


SPRST,218 


03556 


11 


04983 


-0218 


00660 




TF 


SCHDDA+5,INCDDA*5 


03568 


26 


06829 


02511 


00670 




TF 


SCHDDA-t-13tAD0SVE 


03580 


26 


06837 


C2472 


00680 


PHASEB 


BTK 


FLPGET,»+12 


03592 


17 


06648 


- 3604 


00690 




TF 


LNKPTRtLNKAOO 


03604 


26 


04947 


C3538 


007C0 




TFK 


•♦23,SUBTBL*11 


03616 


16 


03639 


-2533 


00710 


ENDTST 


BNR 


•♦44,,, TEST FOR END OF TABLE 


03628 


45 


03672 


CCOOO 


00720 




CM 


PR0CGW,,9 


03640 


14 


03822 


CC-00 


00730 




BNE 


PHASEC 


03652 


47 


04752 


C1200 


007A0 




B 


CALL6 


03664 


49 


06428 


COOCC 


00750 




00 RG 


•-3 


03672 








00760 




TF 


NAMBUF,EN0TST4^11,11 


03672 


26 


02441 


C363R 


00770 




AM 


ENDTST4ll,6,10 


03684 


11 


C3639 


COO-6 


00780 




BNF 


INC13-56,EN0TST4ll,ll, TEST FOR 


-LOADED- INDICATOR 03696 


44 


03740 


C363R 


00790 




AM 


ENOTST>11,14,10 


03708 


11 


03639 


CC0J4 


00800 




AM 


LNKPTR, 30,10 


03720 


11 


04947 


CCOLO 


00810 




6 


ENDTST 


03732 


49 


03628 


00000 


00820 




00 RG 


•-3 


03740 








00830 




6TH 


FLPPUT,»*12 


03740 


17 


06612 


-3752 


00840 




B 


EQSRCH 


03752 


49 


03932 


COOOO 


00850 




DORG 


•-3 


03760 








00860 




RETURN IF ENTRY NOT FOUND IN EQUIV. 


TABLE 








00870 




AM 


EN0TST^11,1,10 


03760 


11 


03639 


CCO-1 


00880 




BTM 


FLP6ET,«^12 


03772 


17 


06648 


-3784 


00890 




BNF 


•♦32,EN0TST«I1,11 


03784 


44 


03816 


0363R 


00900 


INC13 


AM 


EN0TST^lltl3f 10 


03796 


11 


03639 


G00J3 


00910 




B 


ENDTST 


03808 


49 


03628 


CCOOu 


00920 




DORG 


•-3 


03816 








00930 




TYPE -LOAD NAME- 










00940 




ROT Y 




03816 


34 


OOOOC 


00102 


00950 


PRCCOVi 


DC 


3,0,»-5 


03822 




3 








-00 












00960 




NATY 


LOMES 


03828 


39 


06997 


00100 


00970 




MATY 


NAMBUF-IO 


03840 


39 


02431 


00100 
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00980 




BTM 


FLP6ET,*412 


03652 


17 


C6648 


-3864 


00990 




SF 


ENDTST-fll,,6, SET -TYPED- INDICATOR 


03864 


32 


0363R 


OOOCO 


01000 




AM 


PR0C0M,1,10 


03876 


11 


03822 


CCO-1 


01010 




AM 


LNKPTR,30,10 


03888 


11 


04947 


CCOLO 


01020 




BTM 


FLPPUT,«*12 


03900 


17 


06612 


-3912 


01030 




TOM 


NODATA, 0 


03912 


15 


02521 


COOOO 


01040 




B 


INC13 


03924 


49 


03796 


COOOO 


01050 




DORG 


•-3 


03932 








01060 


EQSRCH 


TF 


EQUDDA4^5,EQADDR 


03932 


26 


06877 


02455 


01070 




TF 


INRKt48,SECT 


03944 


26 


07448 


02466 


01080 




TFM 


I0RT,«<^23,, READ IN FOUR SECTORS OF EQUIV. TABLE 


03956 


16 


00565 


-3979 


01090 




B 


10GT,EQUt7 


03968 


49 


00566 


-6863 


01100 


COMPER 


TFM 


C0MP4ll,SUBTBL«ll,, SEARCH EQUIV. TABLE 


03980 


16 


04023 


-2533 


OHIO 




BNR 


•♦20,COMP*ll,ll 


03992 


45 


04012 


0402L 


01120 




B 


NXTRD>24 


04004 


49 


04096 


CCOOO 


01130 




DORG 


•-3 


04012 








01140 


COMP 


C 


NAMBUF 


04012 


24 


02441 


00000 


01150 




BE 


FOUND 


04024 


46 


04140 


C1200 


01160 




AM 


C0MP^11,16,10, INCREMENT TO NEXT NAME 


04036 


11 


04023 


0C0J6 


01170 




CM 


C0MP«11,SU6TBL4411,, TEST FOR END OF TABLE 


04048 


14 


04023 


-2933 


01180 




BNE 


C0MPER4-12 


04060 


47 


03992 


01200 


01190 


NXTRD 


CM 


tNRK^48,0,9, TEST FOR END OF EQUIV. TABLE 


04072 


14 


07448 


00-00 


01200 




BH 


• ♦20 


04084 


46 


04104 


01100 


01210 




B 


INC13-36 


04096 


49 


C376C 


COOOO 


01220 




DORG 


•-3 


04104 








01230 




SM 


INRK448,4,10, DECREMENT SECTOR COUNT 


04104 


12 


07448 


CO 0-4 


01240 




AM 


EQUODA+5,4,10 


04116 


11 


06877 


CCO-4 


01250 




B 


COMPER-24 


04128 


49 


03956 


COOOO 


01260 


FOUND 


AM 


C0MP«11,4,10, INCREMENT TO GET DIM NUMBER 


04140 


11 


04023 


000-4 


01270 




TFM 


DIM00A4-5,4800 


04152 


16 


06913 


-4800 


01280 




S 


OIMDOA+6,CCMP+11,I1 


04164 


22 


C6914 


C402L 


01290 




S 


0IM00A+6,COMP+ll,lL 


04176 


22 


C6914 


0402L 


01300 




TDM 


OIMOOA+6,,11 


04188 


15 


06914 


0000- 


01310 


•»•*•• 


READ IN DIM SECTOR 










01320 




TO 


SECCT,C0MP4ll,ll, SAVE UNIT POSITION OF DIM NO. 


04200 


25 


05475 


C402L 


01330 




BTM 


FLPGET,»*12 


04212 


17 


C6648 


-4224 


01340 




SF 


EN0TST^11,,6, SET -LOADED- INDICATOR 


04224 


32 


0363R 


00000 


01350 




BTM 


FLPPUT,»*12 


04236 


17 


06612 


-4248 


01360 


FOUNDl 


TFM 


iaRT,«-f23 


04248 


16 


00565 


-4271 


01370 




B 


I0GT,DIM,7 


04260 


49 


00566 


-6900 


01380 




CM 


SECCT,5,10 


04272 


14 


05475 


000-5 


01390 




BL 


• ♦24 


04284 


47 


04308 


C1300 


01400 




SM 


SECCT,5,10, CALCULATE DIM ENTRY ADDRESS 


04296 


12 


05475 


CCC-5 


01410 




MM 


SECCT,20,9 


04308 


13 


05475 


C0-2C 


01420 




AM 


99,INRK 


04320 


11 


00099 


-7400 


01430 




TR 


0IMSVE,99,11 


04332 


31 


0695C 


C009R 


01440 




TO 


OMEDDA,0IMSVE 


04344 


25 


06848 


C6950 


01450 




TF 


0MEDDA+5,DIMSVE+5 


04356 


26 


06853 


06955 


01460 




TR 


ODAR,OMEOOA,, MOVE SECTOR ODA TO PROGRAM DDA AREA 


04368 


31 


0728C 


06848 


01470 




TFM 


IORT,*+23,, READ IN INDICATOR RECORD 


04380 


16 


00565 


-4403 


01480 




B 


I0GT,0ME,7 


04392 


49 


C0566 


-6839 


01490 




TF 


DDAR*8,DIMSVE + 8,, >»OVE SECTOR CCUNT 


04404 


26 


07288 


06958 


015CO 




INDICATGR RECORD CHECK 










01510 


TSTVLC 


C 


INRK+13,INDCCN,, CHECK FOR VALID INDICATOR RECORD 


04416 


24 


07413 


C6703 


01520 




BE 


RELFRM 


04428 


46 


05604 


CI 200 


01530 




C 


INRK+5,INDCCN,, CHECK FOR VALIDITY IN CORE IMAGE 


04440 


24 


07405 


C6703 
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PAGE 



015^0 




BE 


• + 56 


04452 


46 


045Ce 


C1200 


0155C 




BJH 


EPRINT,75,8 


04464 


17 


C6684 


C-075 


0156C 




RCTY 




04476 


34 


COCOC 


00102 


01570 




WATY 


JOBOiJT 


04488 


39 


C7011 


COlOO 


01580 




B 


MONCAL 


04500 


49 


C0796 


CCOCO 


01590 




DORG 


• -3 


04508 








0I6C0 




TF 


DDAR*l 3 , ADDS VE 


04508 


26 


07293 


02472 


01610 




TOM 


IN0R*7ttt CCNVERT OEFINER TC CORE IMAGE 


0A520 


15 


06894 


coooo 


01620 




DC 


I » • t • 


04531 




1 




01630 




AM 


D0AR+5tltlCt INCREMENT DISK AGCRESS BY ONE 


04532 


11 


07285 


000-1 


01640 




SM 


0DAR48tltlCt DECREMENT SECTOR COUNT BY ONE 


04544 


12 


07288 


COO-1 


01650 




B 


SUBPRO-24 


G4556 


49 


€5676 


CCOCO 


01660 




OORG 


•-3 


04564 








0167C 


TRYSZE 


A 


SPROSTt AODSVE 


04564 


21 


04971 


02472 


01680 




A 


ADDCOMf INRK422 


04576 


21 


C245C 


07422 


01690 




TF 


ADDRfADDCOW 


04588 


26 


, 04959 


02450 


01700 




S 


ADDCGW.INRK«22 


04600 


22 


0245C 


07422 


01710 




TDW 


INRK423 


04612 


15 


07423 


CCOOO 


01720 




DC 
1 




04623 




1 




01730 




C 


AODRtCOMAOO 


04624 


24 


04959 


02231 


01740 




BL 


SIZEOK 


04636 


47 


0524C 


C1300 


01750 




OVERLAP INDICATION 










01760 




TDM 


OVRLAPfl,, TURN ON OVERLAP INDICATOR 


04648 


15 


02444 


COOOl 


01770 




RCTY 




04660 


34 


COOGC 


00102 


0178C 




WATY 


NAMBUF-lOttt TYPE PROGRAM NAME 


04672 


39 


C2431 


COICC 


01790 




WNTY 


INRKtlB,., TYPE LENGTH 


04684 


38 


07418 


CClOO 


01800 




WATY 


OVRMES.tt TYPE OVERLAP 


04696 


39 


C6747 


CClOO 


oieio 


OLAP 


AM 


LNKPTR, 30,10 


04708 


11 


04947 


OOOLO 


01820 




BD 


• 4-20tEXTtND,t BRANCH IF PROGRAM ON CARDS OR TAPE 


04720 


43 


0474C 


02463 


01830 




B 


C0MP4-24*,. BRANCH TO GET NEXT NAME 


04732 


49 


04036 


OCOOC 


01840 




OORG 


•-3 


0474C 








01850 


m m 


ROUTINE TO READ INDICATOR RECORD FROM CARDS OR TAPE 










01860 




H 




04740 


48 


COOOC 


COOOC 


01870 




DORG 


»-7 


04744 








01880 


INC 


DSC 


2t02 


04744 




2 




01890 




02 
DSA 


INCDDA 


0475C 




5 


X L 










04750 




-25Cfc 




019C0 




DC 
t 




04751 




1 




01910 


PHASEC 


BTM 


FLPGET»»+12 


04752 


17 


06648 


-4764 


01920 




TO 


CDTP+2,COMSEC*73 


04764 


25 


06976 


C7373 


01930 




SM 


CDTP*2,1,10 


04776 


12 


06976 


COO-l 


01940 


READ 


TFM 


I0RT««+23,, GET INDICATOR RECORD 


04788 


16 


00565 


-4811 


01950 




B 


I0GT,CDTP-4,7 


04800 


49 


00566 


-6970 


01960 




TDM 


EXTINDvl 


04812 


15 


C2463 


COOOl 


01970 




TF 


LNKPTRtLNKADO 


04824 


26 


04947 


03538 


01980 




TFM 


•♦23«SUBTBL»11 


04836 


16 


04859 


-2533 


01990 


ENTST 


BNR 


•+20, TEST FOR END OF TABLE 


04848 


45 


04866 


CCOOO 


02000 




6 


READ 


04860 


49 


04788 


coooo 


02010 




DORG 


•-3 


04868 








02020 




TFM 


•♦23flINRK 


04868 


16 


04891 


-7400 


02030 


RMCHK 


BNR 


• ♦20 


04880 


45 


049CC 


CCOOO 
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02040 




B 


READ 




04892 


49 


04788 


CCOOO 


02050 




DORG 


•-3 




04900 








02060 




AM 


RMCHK+11,1,10 




04900 


11 


04891 


COO-l 


02070 




CM 


RMCHK+11,INRK+8Q 




04912 


14 


04891 


-7480 


02080 




BNE 


RMCHK 




04924 


47 


0488C 


C1200 


02090 




SF 


INRK+l 




04936 


32 


07401 


COOOO 


02100 


LNKPTR 


DS 


t» 




04947 




C 




02110 




CF 


INRK«2 




04948 


33 


07402 


00000 


02120 


AODR 


DS 


• • 




04959 




C 




02130 




CF 


INRK«3 




04960 


33 


07403 


COOOO 


02140 


SPROST 


OS 






04971 




C 




02150 




CF 


INRK44 




04972 


33 


07404 


00000 


02160 


SPRST 


OS 


t« 




04983 




C 




02170 




CM 


|NRK-f-4,4131,B 




04984 


14 


07404 


CM131 


02180 




BNE 


HEADER 




04996 


47 


05052 


01200 


02190 




RCTY 






05008 


34 


OOOOC 


00102 


02200 




TFM 


IORT*»«23 




05020 


16 


00565 


-5043 


02210 




B 


IOPT,TVPE-4,7 




05032 


49 


00532 


-7125 


02220 




B 


PHASED 




05044 


49 


06368 


COOOO 


02230 




DORG 


•-3 




05052 








02240 


HEADER 


C 


INRK«13,INDCCN,, TEST FOR INDICATOR 


RECORD 


05052 


24 


07413 


06703 


02250 




BNE 


READ 




05064 


47 


04788 


C1200 


02260 




BNF 


•♦20,INRK+16 




05076 


44 


05096 


€7416 


02270 




B 


READ 




05088 


49 


04788 


00000 


02280 




DORG 


•-3 




05096 








02290 




C 


INRK425,ENTST+11,11, COMPARE NAMES 




05096 


24 


07425 


C485R 


02300 




BNE 


GONXT 




05108 


4T 


05208 


01200 


02310 




TF 


NAMBUF,ENTST4ll,ll 




05120 


26 


02441 


0485R 


02320 




AM 


ENTST+11,6,10 




05132 


11 


04859 


000-6 


02330 




BNF 


•♦32,ENTST+ll,ll 




05144 


44 


05176 


0485R 


02340 




AM 


ENTST+ll, 14,10 




05156 


11 


04859 


00OJ4 


02350 




B 


GONXT+12 




05168 


49 


0522C 


00000 


02360 




DORG 


•-3 




05176 








02370 




SF 


ENTST+11,,6, SET -LOADED- INDICATOR 




05176 


32 


0485R 


00000 


02380 




BTM 


FLPPUT,»+12 




05188 


17 


€6612 


-5200 


02390 




B 


RELFRM 




05200 


49 


05604 


00000 


02400 




OORG 


•-3 




05208 








02410 


GCNXT 


AM 


ENT$T+11, 20,10 




05208 


11 


04859 


COOKO 


02420 




AM 


LNKPTR, 30, 10 




05220 


11 


04947 


CCOLO 


02430 




B 


ENTST 




05232 


49 


04848 


COOOO 


02440 




DORG 


•-3 




05240 








02450 


SIZECK 


TF 


•+18,ADDSVE 




05240 


26 


05258 


C2472 


02460 




TR 


, ZEROS 




05252 


31 


COOOC 


06764 


02470 




AM 


•-6,50,10 




05264 


11 


05258 


COONO 


02480 




C 


SIZEOK+ia, SPROST 




05276 


24 


05258 


C4971 


02490 




BL 


• -36 




05288 


47 


05252 


C1300 


025C0 




BD 


•+24,0VRLAP 




05300 


43 


05324 


C2444 


02510 




BNCl 


•+84 




05312 


47 


05396 


COlOO 


02520 




RCTY 






05324 


34 


OOOOC 


CC102 


02530 




WATY 


NAMBUF-IO,,, TYPE OUT NAME 




05336 


39 


02431 


COlOO 


02540 




WNTY 


ADDSVE-4 




05348 


38 


02468 


00100 


02550 




SPTY 






05360 


34 


OCOOO 


00101 


02560 




WNTY 


INRK+18,,, TYPE CUT LENGTH 




05372 


38 


07418 


COlOO 


02570 




WATY 


LDED 




05384 


39 


06979 


COlOO 


02580 




LOAD PROGRAMS ROUTINE 












02590 


RDPROG 


BD 


CDTPLO.EXTINC, , BRANCH IF PROGRAM IN 


CARD OR TAPE 


05396 


43 


0544C 


02463 
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02600 


SChLD 


TFM 


I0RT»»+23,, GET PRCGRAM FROM CISK 




05408 


16 


00565 


-5431 


0261C 




B 


lOGT, INDR.7 




05420 


49 


C0566 


-6887 


02620 




B 


LODINC 




05432 


49 


05884 


COOOO 


02630 




OORG 


•-3 




05440 








02640 




ROUTINE TO LOAD PRCGRAf* FRCH CARD CR 


TAPE 










0265C 


CDTPLC 


JDf 


416 




05440 


15 


00416 


00000 


02660 




DC 
t 


1,*.» 




05451 




I 




02670 




TO 


428,C0MSEC+73 




05452 


25 


00428 


C7373 


0268C 




SF 


428 




0 5464 


32 


00428 


CCOOC 


02690 


SECCT 


DC 


2,0,« 




05475 




2 




027C0 




-0 
CF 


429 




05476 


33 


0042? 


00000 


0271C 




JF 


434 1 ADDSVE 




05488 


26 


00434 


02472 


02720 




SF 


489 




05500 


32 


0C48S 


CCOOO 


02730 




TF 


C0MSEC*98,INRK+79 




05512 


26 


07398 


C7479 


027A0 




TFM 


10RT,«+23,, PUT BACK CCMMUNICATICN 


SECTOR 


05524 


16 


CC565 


-5547 


02750 




B 


I0PT,C0M»7 




05536 


49 


00532 


-7093 


02760 




TFM 


I0RT,*«23t« GET PROGRAM 




05548 


16 


00565 


-5571 


02770 




B 


I0GT,EXTt7 




05560 


49 


00566 


-7061 


02780 




SM 


PRQC0W,1»10 




05572 


12 


03822 


000- I 


02790 




TDM 


EXTINO 




05584 


15 


02463 


coocc 


02800 




B 


LODINC 




05596 


49 


05884 


COOOO 


02810 




DORG 


• -3 




05604 








02820 


RELFRK 


TDM 


INRK+80 




05604 


15 


0748C 


00000 


02830 




DC 
• 


If 




05615 




1 




02840 




TR 


INRK, INRKi-Btt MOVE INDICATOR RECORD 


TO CONFORM TO CARD IMAGE 


05616 


31 


074CC 


C7408 


02850 




CF 


427 




05628 


33 


00427 


COOOO 


02860 


FLLGTH 


OS 


»• 




05639 




C 




02870 




TFM 


439,75 




05640 


16 


00439 


—0075 


02880 




TFM 


DDAR+13,99999 




05652 


16 


C7293 


R9999 


02890 




TF 


INDR411, ADDSVE 




05664 


26 


06896 


02472 


02900 




TF 


SPR0ST,INRK«31 




05676 


26 


04971 


C7431 


02910 




AM 


SPR0ST,S,10 




05688 


11 


04971 


CC0"-5 


02920 


SUEPRC 


C 


INRK+24»F,, TEST FOR EQUAL F 




05700 


24 


07424 


02219 


02930 




BNE 


• ♦36 




05712 


47 


05748 


01200 


02940 




C 


INRK«26,K>, TEST FOR EQUAL K 




05724 


24 


07426 


02221 


G29S0 




BE 


• ♦24 




0S736 


46 


0576C 


€1200 


02960 




BTM 


EPRINT.76,8 




05748 


17 


06684 


C-076 


02970 




TEST FOR NEN SUBROUTINES CALLEO FROM 


FLIPPED SUBPROGRAM 










02980 


FLIP 


TFM 


CCSUB*11,INRK*37 




05760 


16 


05795 


-7437 


02990 




TFM 


LBSUB^UtLIBSUB 




05772 


16 


05863 


-2394 


03000 


CCSUB 


BD 


LBSUB 




05784 


43 


C5852 


CCOOO 


03010 




AM 


•>ltlfl0 




05796 


11 


05795 


OOO-l 


03020 




AM 


LBSUB^Llfl.lO 




05808 


11 


05863 


CCO-1 


03030 




CM 


LBSUB^11.LIBSUB«30 




05820 


14 


05863 


-2424 


03040 




BNE 


CCSUB 




05832 


47 


05784 


01200 


03050 




B 


TRVSZE 




05844 






nnnnn 


03060 




DORG 


•-3 




05852 








03070 


LBSUB 


BD 


CCSUB«L2 




05852 


43 


05796 


COOOO 


03080 




BTM 


EPRINT»77t8 




05864 


17 


06684 


C-077 


03C90 




B 


CCSUB^L2 




05876 


49 


05796 


00000 


03100 




DORG 


•-3 




05884 








03110 


•••••• 


IN-CORE SUBPROGRAM TABLE SEARCH AND LOAD 










03120 


LOCINC 


TFM 


I0RT»^^23 




05884 


16 


00565 


-5907 
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03130 




B 


I0GT,INCt7 


05896 


49 


00566 


-4744 


03140 




TF 


COMPRE^ll.ACOR 


05908 


26 


05955 


04959 


03150 




AM 


COMPRE^UtltlO 


05920 


11 


05955 


000-1 


03160 




TFM. 


C0MPAR411,SUBTBL41U« INITIALIZE POINTER 


05932 


16 


05975 


-2533 


03170 


COMPRE 


BNR 


SERCH 


05944 


45 


06008 


COOOO 


03180 




B 


SCHPRO 


05956 


49 


C618C 


COOOO 


03190 




OORG 


•-3 


05964 








03200 


COMPAR 


BNR 


COMPRE 


05964 


45 


05944 


00000 


03210 




BTM 


EPRINT,7170»8 


05976 


17 


06684 


CP170 


03220 




AM 


CQMPRE4ll.18.10 


05988 


11 


05955 


0O0J8 


03230 




B 


COMPRE-12 


06000 


49 


05932 


00000 


03240 




OORG 


•-3 


06008 








03250 


SERCH 


AM 


COMPRE«lltlltlO 


06008 


11 


05955 


CCOJl 


03260 




C 


C0MPAR4ll«C0MPRE4ll>611, CHECK FCR SAME NAME 


06020 


24 


0597N 


C595N 


03270 




BE 


SERCHl 


06032 


46 


06076 


C1200 


03280 




AM 


C0MPAR4llt20«10 


06044 


11 


05975 


COOKO 


03290 




SM 


COMPRE^LltlltlO 


06056 


12 


05955 


QOOJl 


03300 




B 


COMPAR 


06068 


49 


05964 


COOOO 


03310 




DORG 


•-3 


06076 








03320 


SERCHl 


AM 


COMPRE+11,5,10 


06076 


11 


05955 


CCO-5 


03330 




AM 


C0MPAR^11.5f 10 


06088 


11 


05975 


COO-5 


03340 




ROUTINE TO PLACE INDIRECT ENTRY ADDRESSES INTO SUBPROGRAMS 










03350 




A 


C0MPRE^11»ADDSVE.6 


06100 


21 


0595N 


02472 


03360 




TF 


•♦35.C0MPAR^lltll 


06112 


26 


06 14 7 


C597N 


03370 




TF 


•♦18,C0MPRE4ll.ll 


06124 


26 


06142 


0595N 


03380 




TFM 


MOVE ADDRESS INTO PROGRAM 


06136 


16 


COOCC 


-0000 


03390 




SF 


•-6tt6 


06148 


32 


0614K 


00000 


03400 




AM 


COMPRE^llt2.10 


06160 


11 


05955 


COO-2 


03410 




B 


COMPRE-12 


06172 


49 


05932 


COOOO 


03420 




OORG 


•-3 


06180 








03430 


SCHPRC 


TF 


•♦30tAD0R 


06180 


26 


0621C 


C4959 


03440 




AM 


•♦IB.l.lO 


06192 


11 


0621C 


CCO-1 


03450 


SETGM 


TOM 




06204 


15 


OOCOC 


COOOO 


03460 




DGM 


• 


06215 




1 




03470 


ROUND 


AM 


INRK420fl.lO 


06216 


11 


0742C 


COO-1 


03480 


MVESCT 


TF 


SCH0DA^8tINRK^20 


06228 


26 


06832 


C7420 


03490 




S 


SCHDDA^5tSCHDDA48 


06240 


22 


06829 


C6832 


03500 




C 


SCHDDA^S.SPRST 


06252 


24 


06829 


C4983 


03510 




BL 


ERL 


06264 


47 


06588 


C1300 


03520 




TFM 


I0RT,»+23 


06276 


16 


00565 


-6299 


03530 




B 


I0PT,SCHt7 


06288 


49 


00532 


-6815 


03540 




TOM 


SETGM^6,0.6 


06300 


15 


0621- 


00000 


03550 




TF 


LNKPTR,SCHDDA^5,6 


06312 


26 


0494P 


06829 


03560 




AM 


LNKPTR,5,10 


06324 


11 


04947 


CO 0-5 


03570 




TF 


LNKPTR,SPRCST,6 


06336 


26 


0494P 


04971 


03580 




AM 


LNKPTR,25,10 


06348 


11 


04947 


000K5 


03590 




B 


PHASES 


06360 


49 


03592 


COOOO 


03600 




DORG 


•-3 


06368 








03610 


•••*•« 


CHECK AND TYPE OUT NAMES OF UNLOADED SUBPROGRAMS 










03620 


PHASED 


TOM 


OATAtl 


06368 


15 


02505 


OOQOl 


03630 




TFM 


•♦35,SUBTBL+ll 


06380 


16 


06415 


-2533 


03640 




TOM 


MORE 


06392 


15 


06529 


COOOO 


03650 




BNR 


• ♦60 


06404 


45 


06464 


00000 


03660 




BD 


PHASEC-12,MCRE 


06416 


43 


04740 


06529 


03670 


CALL6 


TF 


INRK+4,SCH0DA+5 


06428 


26 


07404 


06829 


03680 




TFM 


10RT,»+23 


06440 


16 


00565 


-6463 
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03690 




8 


IQGT,BL6,7 


06452 


49 


GO 56 6 


-7038 


03700 




IF 


NAMBUF,PHASED+47,11 


06464 


26 


02441 


0641N 


03710 




AH 


PHASEO+47,6,10 


06476 


11 


C6415 


CCO-6 


0372C 




BNF 


•♦32,PHASED*47,ll 


06488 


44 


0652C 


0641N 


0373C 




AM 


PHASED+47, 14,10 


G650G 


11 


06415 


C00J4 


O37A0 




B 


PHASEO+36 


06512 


49 


06404 


COGGO 


03750 




00 RG 


•-3 


06520 








03760 




TOW 


MOREtl 


06520 


15 


06529 


00001 


OV^O 


^«ORE 


OS 


t»-2 


06529 




C 




03780 




RCTY 




06532 


34 


OOOOC 


C0102 


0379C 




TDM 


OATA,0 


06544 


15 


C2505 


COGGO 


03800 




MATY 


LDMES 


06556 


39 


06997 


OOlOO 


03810 




WATY 


NAMBUF-10 


06 568 


39 


02431 


OOlOC 


03820 




B 


•-80 


G6580 


49 


065GC 


CCOGC 


03830 




00 RG 


•-3 


06588 








03840 


ERL 


BTM 


EPRINT, 7171,8 


06588 


17 


06684 


0P17I 


03850 




B 


OLAP 


06600 


49 


04708 


COOCO 


03860 


FLPPUT 


TFM 


I OR T, •■1-23 


06612 


16 


00565 


-6635 


03870 




B 


I0PT,FLP,7 


06624 


49 


00532 


-7085 


03880 




B 


FLPPUT-1,,6 


06636 


49 


0661J 


00000 


03890 


FLPGET 


TFM 


IORT,»+23 


06648 


16 


00565 


-6671 


03900 




B 


I0GT,FLP,7 


06660 


49 


00566 


-7085 


03910 




B 


FLPGET-1,,6 


06672 


49 


C664P 


COGOG 


03920 


««•»•« 


ERROR MESSAGE SUBROUTINE 










03930 


EPRINT 


TF 


ERMESS+16,EPRINT-l 


06684 


26 


06941 


06683 


03940 




RCTY 




06696 


34 


OOOOC 


C01G2 


03950 


INCCCN 


00 


6, 987898, •-4 


06703 




6 








R878 


98 










03960 




WATY 


NAMBUF-10 


06708 


39 


02431 


COICC 


03970 




WATY 


ERMESS 


06720 


39 


06925 


COlOO 


0398C 




TDM 


SVEDOA-1,1 


06732 


15 


02489 


CCOOI 


03990 




BB 






42 


OOOOC 


uuuuu 


04000 




OORG 


»-9 


06746 








040 10 


CVRMES 


DAG 


9, OVERLAP* 


06747 




9 


X 2 






OVERLAP* 










04020 


ZEROS 


DSC 


SG,G 


06 764 




50 








OOOOGOOOOGOOOOOOOOOOOCCOOOOOGOOOOOOGCOOOOOOOOOGOGO 










04030 




DC 
t 


l,« 


06814 




1 




04040 


SCH 


DSC 


2,02 


06815 




2 




04050 




02 
DSA 


SCHDOA 


06821 




5 


X I 










06821 




-6824 




04060 




DC 
t 


1,« 


06822 




1 




04070 


SCHOCA 


DDA 


tltO,0,0 


06824 




14 








l-OCGO-OO-OOGG 










04080 




DC 


1,' 


06838 




1 




04090 


CME 


DSC 


2,22 


06839 




2 




04100 




22 
DSA 


DMEOOA 


06845 




5 


X I 










06845 




-6848 




04110 




DC 




06846 




1 
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04120 


DMEODA 


DDA 


,1,0,1,INRK 


06848 


14 










1-0000-01-7400 










04130 




DC 
• 


1,* 


06862 


1 






04140 


EQU 


DSC 


2,22 


06863 


2 










22 












04150 




DSA 


EQUDOA 


06869 


5 


X 


1 










06869 


-6872 






04160 




DC 


1,* 


06870 


I 






04170 


EQUCCA 


DDA 


tl,0,4,SUBTBL 


06872 


14 










l-COOO-04-2522 










04180 




DC 
I 


l,» 


06886 


1 






04190 


INOR 


OSC 


2*22 


06887 


2 










22 












0420G 




DSA 


DDAR.G 


06893 


5 


X 


2 










G6893 


-728C 














06898 


-GOGC 






G4210 




DC 


It* 


06899 


1 






0422G 


DIM 


OSC 


2,22 


06900 


2 










22 












04230 




DSA 


DIMODA 


06906 


5 


X 


1 










06906 


-69G8 






G4240 




DC 
• 


It* 


06907 


1 






G425G 


DIKDDA 


00 A 


•1,4800,1,INRK 


06908 


14 










1-4800-C1-7400 










G426G 




DC 
I 


It* 


06922 


1 






0427G 


ERMESS 


DAC 


10, ERROR L • 


06925 


IC 


X 


2 






ERROR L • 










G428G 


2ER0NE 


DC 


6,100G01 


06949 


6 










JGGOOl 










04290 


DIMSVE 


DSS 


20,, RESERVES CURRENT DIM ENTRY 


06950 


2C 






043C0 


CDTP 


DSA 


INRK 


06974 


5 


X 


I 










06974 


-740C 






04310 




DC 


2,0 


06976 


2 






04320 




-0 
DGM 




06977 


1 






0433G 


LDED 


DAC 


9, LOADED* 


06979 


9 


X 


2 






LOADED* 










04340 


LOMES 


DAC 


7, LOAD * 


06997 


7 


X 


2 






LOAD 












04350 


JCBOUT 


DAC 


14, JOB ABANDONED* 


07011 


14 


X 


2 






JOB 


ABANDONED* 










04360 


BL6 


DSC 


2,-22 


07038 


2 










2K 












04370 




DSA 


BL600A 


07044 


5 


X 


1 










07G44 


-7046 
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04380 




DC 
t 


l.« 




07045 




1 




0A390 




DO A 


#1,16177.16.2522 




07046 




14 








IJ61 77-16-2522 












OAACO 




DC 
t 


lt« 




07060 




1 




04410 


EXT 


DSC 


2.-22 




07061 




2 








2K 














04420 




OS A 


EXTDOA 




07067 




5 


X I 












07067 




-7070 




04430 




DC 


l.« 




07068 




1 




04440 


EXTDOA 


OOA 


,1.19783.3.0 




07070 




14 








lJ9783-03>0000 












04450 




DC 


l.» 




07084 




1 




04460 


FLP 


DSC 


2.02 




07085 




2 








02 














04470 




DSA 


FLPDDA 




07091 




5 


X 1 












07091 




-3540 




04480 




DC 
t 


l,« 




07092 




1 




04490 


CQH 


DSC 


2,22 




07093 




2 








22 














04500 




DSA 


COMDDA 




07099 




5 


X 1 












07099 




-7102 




045 10 




DC 


1.' 




07100 




1 




04520 


COFfODA 


DDA 


•1.19663,1.CCHSEC 




07102 




14 








1J9663-01-7300 












04530 




DC 
• 


l.» 




07116 




1 




04540 


LO 


DSC 


2,22 




07117 




2 








22 














04550 




DSA 


LODOA 




07123 




5 


X 1 












07123 




-2474 




04560 




DC 


l»« 




07124 




1 




04570 


TYPE 


DSA 


DATAl 




07129 




5 


X 1 












07129 




-7135 




0458C 




DC 


2.6 




07131 




2 




04590 




-6 
06 M 






07132 




1 




04600 


OATAl 


DAC 


6. 'DATA* 




07135 




6 


X 2 






•DATA* 












04610 




00 RG 


7280 




07280 








04620 


DOAR 


OSS 


20 




07280 




2C 




04630 


COf^SEC 


OSS 


100,, SVSTEf< COftKUNICATION 


SECTOR 


07300 




ICC 




04640 


INRK 


OSS 


too,, READ IN AREA FOR 


INDICATOR RECORD 


07400 




100 




04650 


• 


BLOCK LOADER 












04660 




DORG 


8000 




08C00 


















6 2ri 
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PAGE 


04670 


BEGIN 


TD 


SETGH^ll, 19999 




08000 


25 


06215 


19999 


04660 




TO 


C0TP*3, 19999 




08012 


25 


06977 


19999 


04690 




TO 


TYPE*3, 19999 




08024 


25 


07132 


19999 


04700 




SK 


LOADER 




08036 


34 


08072 


00701 


04710 




WON 


LOADER 




08048 


38 


08072 


C07C2 


04720 




H 






08060 


48 


OOOCC 


ccooo 


04730 


LOADER 


DO A 


•1,16140,37,3556 




08072 




14 








1J6140-37-3S56 












04740 




DGH 


19999 




19999 




1 




04750 




TCD 


BEGIN 




08CC0 








04760 




DENO 






00000 









62(i 
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ACCCOW 


C245C 


ENTSQT 


02318 


NQCATA 


02521 


EXl 


07061 


RECLG 


02243 


ADDSVE 


02A72 


ENTSWD 


02288 


CVRLAP 


02444 


FLIP 


05760 


RWCHK 


04880 


BL6DCA 


C70A6 


EPRINT 


06684 


CVRMES 


06747 


FLP 


07085 


ROUND 


06216 


CCTPtD 


C544C 


EQADOR 


02455 


PHASES 


03592 


FOUND 


04140 


SCHLO 


05408 


CONADD 


C2231 


EGSRCH 


03932 


PHASEC 


04752 


F 


02219 


SCH 


06815 


CCWDOA 


C7102 


EQUODA 


06872 


PHASED 


06366 


GONXT 


C52C8 


SECCT 


0 5475 


CCMPAR 


059fcA 


ERFESS 


06925 


PRCCOW 


03822 


INC13 


01796 


SECT 


02466 


CCMPER 


C39eC 


EXTODA 


C7C70 


PRCGST 


02226 


INC 


04744 


SERCH 


C6C08 


COMPRE 


C59AA 


EXTINO 


02A63 


RDPROG 


05396 


INDR 


06867 


SETGW 


06204 


COMSEC 


C7300 


FLGRMK 


02445 


RELFRM 


05604 


INRK 


07400 


SPRST 


04983 


OI^OOA 


C69G8 


FLPDDA 


03540 


ACOR 


04959 


lOGT 


00566 


TYPE 


07129 


CI»<SVE 


C695C 


FLPGET 


06648 


BEGIN 


08000 


lOIND 


02461 


M 


C2240 


DMEDOA 


C6848 


FLPPUT 


06612 


BL6 


07038 


lOPT 


00532 


ZEROS 


06764 


ENDTST 


C3628 


FCUNDl 


04248 


CALL6 


06428 


lORT 


00565 


SCADDR 


02460 


ENTABS 


02323 


HEADER 


05052 


CCSUB 


05784 


K 


02221 


SCHDDA 


06824 


ENTATN 


02313 


INCOOA 


02506 


CCTP 


06974 


LBSUB 


05852 


SCHPRO 


06180 


ENTCOS 


02303 


INOCON 


06703 


CGMP 


04012 


LDOOA 


02474 


SERCHl 


06C76 


ENTDEO 


02298 


JOBOUT 


07011 


COM 


07093 


LDED 


06979 


SIZECK 


05240 


ENTORR 


C2293 


LIBSUB 


02394 


OATAl 


07135 


LD^iES 


06997 


SPROST 


C4971 


ENTEXP 


02253 


LNKAOC 


03538 


DATA 


02505 


LD 


07117 


SUBPRO 


05700 


ENTFET 


02283 


LNKPTR 


04947 


OCAR 


07280 


MLINO 


02462 


SUBTBL 


02522 


ENTFID 


02273 


LOADER 


08072 


DIM 


06900 


MORE 


06529 


SVEDDA 


02490 


ENTREC 


02278 


LCOINC 


05884 


OHE 


06839 


Nl 


02233 


TRYSZE 


04564 


ENTSC2 


02258 


HLLGTH 


05639 


ENTLN 


02248 


N2 


02238 


TSTVLD 


04416 


ENTSC3 


02263 


FONCAL 


00796 


ENTST 


04848 


NXTRD 


04072 


ZERCNE 


06949 


ENTSDX 


02268 


HVESCT 


06228 


EQU 


06863 


OLAP 


04708 


ZRCTST 


02467 


ENTSIN 


C23C8 


NAHBUF 


02441 


ERL 


06588 


READ 


04788 







END OF ONE ASSEMBLY. 
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00020 


lOPT 


OS 




#532 




00532 


0 


00030 


IGGT 


OS 




#566 




00566 


C 


00040 


lORT 


OS 




#565 




00565 


c 


00050 


MONCAL 


OS 




• 796 




00796 


c 


00060 


DIG 


OS 




#820 




00820 


c 


00070 


ERRET 


OS 




#602 




00602 


c 


00080 


INDS 


OS 




#610 




00610 


c 


00C90 


ERROR 


OS 




#630 




00630 


C 


OOlCO 


• •• 




COMMUNICATION AREA 








00110 




00 RG 


2218 




02218 




00120 


F 


OS 




2tf FLOATING POINT MORD LENGTH 


02219 


2 


00130 


K 


OS 




2tt FIXED POINT MORO 


LENGTH 


02221 


2 


00140 


PROGST 


OS 




5ff STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00150 


COMAOD 


OS 




5tf STARTING ADDRESS 


OF COMMON AREA 


02231 


5 


00160 


Nl 


OS 




2«» NUMBER OF WORDS 


IN LOGICAL RECORD 


02233 


2 


00170 


N2 


OS 




5»f NUMBER OF LOGICAL RECORDS 


02238 


5 


00180 


h 


OS 




2»t MORO LENGTH 




02240 


2 


00190 


RECLG 


OS 




3tt RECORD LENGTH 




02243 


3 


00200 


ENTLN 


OS 




5#, ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


00210 


ENTEXP 


OS 




5#« ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00220 


ENTSC2 


OS 




5tf ENTRY ADDRESS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02258 


5 


00230 


ENTSC3 


OS 




5,, ENTRY ADDRESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02263 


5 


00240 


ENTSDX 


OS 




5,1 ENTRY ADDRESS TO 


FIXED SWITCH 0 SUBROUTINE 


02268 


5 


00250 


ENTFIC 


OS 




5»» ENTRY ADDRESS TO 


FIND SUBROUTINE 


02273 


5 


00260 


ENTREC 


OS 




5,« ENTRY ADDRESS TO 


RECORD SUBROUTINE 


02278 


5 


00270 


ENTFET 


OS 




5t, ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00280 


ENTSkC 


OS 




5,, ENTRY ADDRESS TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00290 


ENTORR 


OS 




Stt ENTRY ADDRESS TO 


ARRAY SUBROUTINE 


02293 


5 


003CO 


ENTDED 


OS 




5»» ENTRY ADDRESS TO 


DISK END SUBROUTINE 


02298 


5 


00310 


ENTCOS 


OS 




5t. ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02303 


5 


00320 


ENTSIN 


OS 




5,, ENTRY ADDRESS TO 


SINE SUBROUTINE 


02308 


5 


00330 


ENTATN 


OS 




5.t ENTRY ADDRESS TO 


ARCTANGENT SUBROUTINE 


02313 


5 


00340 


ENTSQT 


DS 




5tt ENTRY ADDRESS TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00350 


ENTABS 


DS 




5,, ENTRY ADDRESS TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00360 




DS 




70,. RESERVED FOR 


ENTRIES TO ADDED SUBROUTINES 


02393 


7C 


00370 


LIBSU6 


OSS 


30«, LIBRARY SUBROUTINE INDICATORS 


02394 


3C 


00380 




DC 
• 




It* 




02424 


1 


00390 






MAINLINE TABLE SEARCH 








00400 




00 RG 


2426 




02426 




00410 


NAMBUF 


OC 




16.0 




02441 


16 






-OOOOOOOOOOOOOCO 








00420 




DC 
. f 








02443 


2 


0043C 


OVRLAP 


DS 




1 




02444 


1 


00440 


FLGRMK 


OS 




I 




02445 


1 


00450 


AODCOH 


DS 




5 




02450 


5 


00460 


EQADDR 


OS 




5 




02455 


5 


00470 


SCADDR 


DS 




5 




02460 


5 


0048C 


lOIND 


DS 




1 




02461 


1 


00490 


MLIND 


DS 




1 




02462 


1 


005C0 


EXTIND 


DS 




1 




02463 


1 


00510 


SECT 


OS 




3 




02466 


3 


00520 


ZRCTST 


OS 




1 




02467 


1 


00530 


ADCSVE 


OS 




5 




02472 


5 
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PAGE 



005A0 




DC 
( 


If' 


02473 








00550 


LDCDA 


DO A 


t if 0,0,0 


02474 




14 








1-CGOO-OO-OOOO 










00560 




DC 
• 


If • 


02488 




I 




00570 


SVEOCA 


ODA 


• 1,0,21,0 


02490 




14 








1-CO0O-21-0000 










00580 




DC 


If' 


02504 




1 




00590 


DATA 


DC 


If c 


02505 




*■ 




00600 


INCDOA 


DO A 


•1,0,10,0 


02506 




14 








1-0000-10-0000 










006 10 




DC 


1,' 


02520 








00620 


NOCATA 


OS 


1 


02521 








00630 


«••••• 


ROUTINE TO LOAD ARITH AND I/O PACKAGE 










00640 


AR ITH 


TFH 


DI0+35,ENT,67 


02522 


16 


0085N 


-3754 


00650 




80 


INHIBfOVRLAP 


02534 


43 


03798 


C2444 


00660 




BO 


INHIB,SVED0A-1 


02546 


43 


03798 


C2489 


00670 




TFH 


I0RT,»*23 


02558 


16 


C0565 


-2581 


00680 




B 


10GT,SVE,7 


02 570 


49 


00566 


-3922 


00690 




BO 


NlTSTfZROTST 


02582 


43 


03474 


C2467 


00700 




B 


LDFIX2 


02594 


49 


03310 


CCOOG 


007 10 




00 RG 


•-3 


02602 








00720 


SET 1 


TFF 


RECLGf 1,9 


02602 


16 


C2243 


00—0 1 


00730 


N2TST 


M 


N2,RECLG 


02614 


23 


02238 


C2243 


007AO 




SF 


95 


02626 


32 


00095 


CCOOG 


00750 




CM 


99,19999 


02638 


14 


C0099 


J9999 


00760 




BH 


N1TST*24 


02650 


46 


03496 


C 1 100 


00770 




CM 


99,00001 


02662 


14 




-0001 


00780 




BL 


NlTST-»24 


02674 


47 


03498 


C 130C 


00790 




B 


LDFIX2 


02686 


49 


033 IC 


CCOOO 


008C0 




DORG 


•-3 


02694 








00810 


LDFIX 


BD 


LDFIX1,0ATA 


02694 


43 


02726 


02505 


00820 




BD 


LOFIXl.NOOATA 


02706 


43 


02726 


02521 


00830 




B 


READ-24 


02718 


49 


03078 


COOOG 


008A0 




DORG 


•-3 


02726 








00850 


LOFIXl 


BO 


•♦44,I0IND 


02726 


43 


02770 


0246 1 


00860 




BNF 


GETFIX, IGINO 




44 






00870 




TFH 


ta-2, 200,8 


02750 


16 


C3C4C 


C— 200 


00880 




B 


GETFIX 


02762 


49 


02986 


uuuUU 


00890 




DORG 


•-3 


02770 








00900 




TFM 


00AR4S, 19400 


02770 


16 


07285 


J9400 


00910 




BNF 


•436,I0IND 


02782 


44 


02818 


C2461 


00920 




TFM 


ODAR^S, 15600 


02794 


16 




0^200 


00930 




TFM 


10-2,200,8 


02806 


16 


C304C 








BD 


GETFIX, SCADOR 


02818 


43 


02986 


C2460 


009S0 




TDM 


0DAR,1 


02830 


15 


C728C 


CGOOl 


00960 




TOM 


00AR*14 


02842 


15 


07294 


00000 


00970 




DC 
• 


1,',» 


02853 




1 




00980 


XFER 


TFM 


D0AR48,40,9 


02854 


16 


07288 


CO-40 


00990 




TFM 


D0AR*13,3280 


02866 


16 


07293 


-3280 


01000 




TDM 


IN0R«7 


02878 


15 


03072 


CCOOO 
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OICIO 




DC 
, 


If 


02889 




1 




01020 


CYLCTR 


OC 
-5 


2f5,»-l 


02888 




2 




01030 




TFM 


IORT,>^23 


02890 


16 


00565 


-2913 


01040 




B 


I0GT,1N0R,7 


02902 


49 


00566 


-3C65 


01050 




TFM 


IORT,*«23 


02914 


16 


CC565 


-2937 


01060 




B 


IOPTfIO,7 


02926 


49 


00532 


-3042 


01070 




AH 


0DAR«5,40,10 


02938 


11 


07285 


OOOMO 


01080 




AH 


IOODA4-5,40,10 


02950 


11 


03055 


COOf^O 


01090 




SH 


CYLCTR, If 10 


02962 


12 


02888 


CCO-l 


01100 




BNE 


CYLCTR+2 


02974 


47 


C289C 


01200 


OHIO 


GETFIX 


TD 


7499,I0IN0 


02986 


25 


07499 


02461 


01120 




RCTY 




02998 


34 


00000 


C01C2 


01130 




TFM 


I0RT,*423,, GET FIXED AREA 


03010 


16 


00565 


-3033 


01140 




B 


iaGT,*«12,7 


03022 


*9 


00566 


-3034 


01150 




DSC 
2K 


2,-22 


03034 




2 




01160 




DSC 


IfO 


03036 




1 




01170 




0 
DC 


5,144» 


03041 




5 








-144« 










0LI80 


10 


OSC 


2,02 


03042 




2 








02 












01190 




DSA 


lODDA 


03048 




5 


X 1 










03048 




-305C 




01200 




DC 
t 


If' 


03049 




1 




01210 


lOCDA 


DO A 


•1,0,40,3280 


03050 




14 








1-0000-40-3280 










01220 




DC 
, 


I,' 


03064 




1 




01230 


INCR 


OSC 


2,22 


03065 




2 




01240 




22 
DSA 


0DAR,0 


03071 




5 


X 2 










03071 




-728C 












03076 




-OOCC 




01250 




OC 


If' 


03077 




1 




01260 




TD 


CDTP*2,C0MSEC*73 


03078 


25 


03944 


C7373 


01270 




SM 


CDTP42, 1,10 


03090 


12 


C3944 


CCO-l 


01280 


READ 


TFM 


I0RT,«+23 


03102 


16 


00565 


-3125 


01290 




8 


IQGT,CDTP-4,7 


03114 


49 


00566 


-3938 


01300 




TFM 


• 4^23, INRK 


03126 


16 


03149 


-7400 


01310 


RMCHK 


8NR 


• ♦20 


03138 


45 


03158 


COOOO 


01320 




B 


READ 


03150 


49 


03102 


00000 


01330 




OORG 


♦-3 


03158 








01340 




AM 


RMCHK4llf 1,10 


03158 


11 


03149 


CCO-l 


01350 




CM 


RMCHK>11, INRK4-80 


03170 


14 


03149 


-7480 


01360 




BNE 


RMCHK 


03182 


47 


03138 


01200 


01370 




SF 


INRK-fl 


03194 


32 


07401 


00000 


01380 




CF 


INRK«2 


03206 


33 


07402 


COOOO 


01390 




CF 


INRK43 


03218 


33 


07403 


00000 


01400 




CF 


INRK«4 


03230 


33 


07404 


00000 
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01410 




CM 


INRK+4,4131,8 


03242 


14 


07404 


CM131 


01420 




BNE 


READ 


03254 


47 


C31C2 


01200 


C1430 




RCTY 




03266 


34 


COOOC 


C01C2 


01440 




Tfl* 


I0RTt*+23 


03278 


16 


00565 


-3301 


01450 




B 


IOPT,TYPE2-4f7 


03290 


49 


C0532 


-3954 


01460 




B 


LDFIXl 


03302 


49 


C2726 


00000 


01470 




DORG 


• -3 


03310 








01480 


LDF 1X2 


M 


N2,RECL6 


03310 


23 


02238 


C2243 


01490 




SF 


95 


03322 


32 


C0095 


COOOO 


015C0 




AM 


99,218,9 


03334 


11 


00099 


C0K18 


01510 




C 


INRK+4,99 


03346 


24 


07404 


CC099 


01520 




BH 


LDF IX 


03358 


46 


02694 


CllOO 


0153C 




SM 


INRK+4,218 


03370 


12 


07 404 


-0218 


01540 




LD 


99, INRK44 


03382 


26 


00099 


07404 


01550 




0 


95,RECLG 


03394 


29 


00095 


C2243 


01560 




TF 


N2,96 


03406 


26 


C2238 


00096 


01570 




TF 


ADDSVE,96 


03418 


26 


C2472 


00096 


01580 




RCTY 




03430 


34 


COOOC 


00102 


01590 




HATY 


MAXN2 , 


03442 


39 


03887 


CCIOC 


01600 




WNTY 


ADDSVE-4 


03454 


38 


02468 


CCIOC 


01610 




B 


LDFIX 


03466 


49 


C2694 


CCOCO 


01620 




DORG 


•-3 


03474 








01630 


NITST 


BD 


N1N20K,N1 


03474 


43 


03662 


02233 


01640 




BO 


N1N2CK,N1-1 


03486 


43 


03662 


02232 


01650 




RCTY 




03498 


34 


COCCC 


00102 


01660 




TFM 


I0RT,»+23 


03510 


16 


00565 


-3533 


01670 




B 


I0PT,TYPE-4,7 


03522 


49 


00532 


-3930 


01680 




RCTY 




03534 


34 


OOOCC 


0C1O2 


01690 




TFM 


I0RT,«+23 


03546 


16 


CC565 


-3569 


017CC 




B 


I06T,TYPEl-4i7 


03558 


49 


00566 


-3946 


01710 




BC4 


NlTST+24 


03570 


46 


03498 


0040C 


01720 




SF 


INRK^IO 


03582 


32 


0741C 


CCOCC 


01730 




SF 


INRK«12 


03594 


32 


07412 


CCOCO 


01740 




TF 


N1,INRK«11 


03606 


26 


02233 


07411 


01750 




TF 


N2, INRK4^16 


03618 


26 


02238 


C7416 


01760 




CM 


N2 


03630 


14 


C2238 


-OOOC 


01770 




BNE 


NITST 


03642 


47 


03474 


C120C 


0178C 




B 


NlTST+24 


03654 


49 


03498 


00000 


01790 




DORG 


•-3 


03662 








01800 


NIN2CK 


M 


W.Nl 


03662 


23 


C224C 


02233 


01610 




SF 


96 


03674 


32 


00C96 


COOOO 


01820 




CM 


99,101,8 


03686 


14 


00099 


0-101 


01830 




BL 


SETl 


03698 


47 


02602 


01300 


01840 




CM 


99,200,8 


03710 


14 


C0099 


0-200 


01850 




BH 


NlTST+24 


03722 


46 


03498 


OllOC 


01860 




TFM 


RECL6,2,9 


03734 


16 


G2243 


00-02 


01870 




B 


N2TST 


03746 


49 


02614 


COOOC 


01880 




DORG 


•-3 


03754 








01890 


ENT 


BI 


•♦12t3700 


03754 


46 


03766 


C3700 


0190C 




BN I 


ERRET ,1900 


03766 


47 


00602 


C1900 


01910 




TDM 


IN0S^t0,6 


03778 


15 


0062C 


CC006 


01920 




B 


ERROR 


03790 


49 


0063C 


CCOOO 


01930 




DORG 


•-3 


03798 








01940 


INHIB 


RCTY 




03798 


34 


00000 


00102 


01950 




HATY 


JOBOUT 


03810 


39 


03831 


COlOO 


01960 




B 


MONCAL 


03822 


49 


C0796 


COOOO 
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01970 




DORG 


•-3 


03830 








01980 


JOBOUT 


OAC 


20«EXECUTICN INHIBITED* 


03831 




2C 


X 2 






EXECUTION INHIBITED* 










01990 


EROl 


OAC 


8,ER 01 • 


03671 




8 


X 2 






ER 01 • 










02000 


MAXN2 


OAC 


IBtMAX N2 ALLOWABLE • 


03667 




16 


X 2 






MAX 


N2 ALLOWABLE • 










02010 


SVE 


DSC 


2.00 


03922 




2 








GO 












02020 




DSA 


SVEDDA 


03926 




5 


X 1 










03928 




-2490 




02030 




DC 
t 


I.' 


03929 




1 




02040 


TYPE 


DSA 


ERDl 


03934 




5 


X I 










03934 




-3871 




02050 




DC 
-6 


2.6 


03936 




2 




02060 




DGM 




03937 




1 




02070 


COTP 


DSA 


INRK 


03942 




5 


X I 










03942 




-74CC 




02080 




DC 
-0 


2.0 


03944 




2 




02090 




DGM 




03945 




I 




02100 


TYPEl 


DSA 


INRK«10 


03950 




5 


X I 










039S0 




-741C 




02110 




DC 
-0 


2.0 


03952 




2 




02120 




DGM 




03953 




1 




02130 


TYPE2 


DSA 


OATAl 


03956 




5 


X I 










03958 




-3963 




02140 




DC 




03960 




2 




02150 




-6 
DGM 




03961 




1 




02160 


DATAl 


DAC 


6.»DATA« 


03963 




6 


X 2 






•DATA* 










02170 




DORG 


7280 


07280 








02180 


OOAR 


DSS 


20 


07280 




2C 




02190 


COMSEC 


DSS 


100 


07300 




100 




02200 


INRK 


DSS 


100 


07400 




100 




02210 




BLOCK LOADER 










02220 




DORG 


8000 


06000 








02230 


BEGIN 


TD 


TYPE+3, 19999 


08000 


25 


03937 


19999 


02240 




TO 


CDTP*3, 19999 


08012 


25 


03945 


19999 


02250 




TD 


TYPEl+3, 19999 


08024 


25 


03953 


19999 


02260 




TD 


TYPE2+3, 19999 


08036 


25 


C3961 


19999 


02270 




SK 


LOADER 


08048 


34 


08C84 


00701 


02280 




MON 


LOADER 


08060 


38 


08084 


C07C2 


02290 




H 




08072 


48 


OOOOC 


COOOO 


02300 


LOADER 


DDA 


, I, 16177,16,2522 


08084 




14 








1J6177-16-2522 










02310 




DGM 


19999 


19999 




1 
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1620 MONITOR II 


VERSION 2 


FORTRAN II-D LGAOER BLOCK 6 






PAGE 


7 


AODCOW 


C2450 


ENTSIN 


02308 


GVRLAP 


02444 


INHIB 


03798 


READ 


03102 


ACOSVE 


02472 


ENTSQT 


02318 


PR06ST 


02226 


INRK 


07*00 


RECLG 


02243 


CCHADD 


02231 


ENTSWO 


02288 


ARITH 


02522 


lOCDA 


03050 


RMCHK 


03138 


COMSEC 


07300 


EQADDR 


02455 


BEGIN 


08000 


lOGT 


0G566 


SECT 


02466 


CYLCTR 


02888 


EXTINO 


02463 


COTP 


03942 


lOIND 


02461 


SETl 


02602 


6NTABS 


C2323 


FL6RHK 


02445 


OATAl 


03963 


lOPT 


00532 


SVE 


C3S22 


ENTATN 


02313 


GETFIX 


02986 


DATA 


02505 


lORT 


00565 


TYPEl 


03950 


ENTCOS 


C2303 


INCDOA 


02506 


DOAR 


07280 


10 


03042 


TVPE2 


03958 


ENTDED 


C2298 


JOBOUT 


03831 


DIG 


00820 


K 


02221 


TYPE 


03934 


ENTDRR 


02293 


LOFIXI 


02726 


ENTLN 


02248 


LOCOA 


02474 


W 


02240 


ENTEXP 


C2253 


L0FIX2 


03310 


ENT 


03754 


LOFIX 


02694 


XFER 


02854 


ENTFET 


02283 


LIBSUe 


02394 


EROl 


03871 


MAXN2 


03887 


SCAODR 


02460 


ENTFID 


02273 


LOADER 


08084 


ERRET 


0C602 


HLIND 


02462 


SVEDOA 


02490 


ENTREC 


02278 


HONCAL 


00796 


ERROR 


0C630 


Nl 


02233 


ZROTST 


02467 


ENTSC2 


02258 


N1N20K 


03662 


F 


02219 


NITST 


03474 






ENTSC3 


02263 


NANBUF 


02441 


I NOR 


03065 


N2 


02238 






ENTSOX 


02268 


NGOATA 


02521 


INOS 


00610 


N2TST 


02614 







END OF ONE ASSEMBLY. 
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FLIPPER ROUTINE 



PAGE 1 



STCORE 00004R 
ERROR 00630 
lOGT 00566 
SMI 00154R 



CHECK 01268 

EXIT 00190R 

lORT 00565 

SWK 00278R 



SYMBOL TABLE 

DIO 00820 

FLIP OOOIOR 

LABEL 00293R 

WK 00277R 



EEXIT 01636 
INDS 00610 
MYER 00198R 



ERRFT 00602 
INOUT 00629 
MYER2 002^2R 



00010 


STCORE 


US 


5 


00004 


00005 




00020 




DS 


5 


00009 


00005 




00030 


F-L IP 


TR 


SWK,*-1,11 


000 10 


LJ 00278 


OOOOR 


00040 




C 


SWK+5,WK 


00022 


KM 00283 


00277 


00050 




TF 


EXIT+6, SWK+10 


000 34 


KO 00196 


00288 


00060 




BE 


SMI 


00046 


M6 00154 


01200 


00070 




TFM 


SWK+8 ,999 ,9 


00058 


J6 00286 


00R99 


00080 




TF 


SWK+13, STCORE 


00070 


KO 00291 


00004 


00090 




TFM 


DlO+35, MYER,67 


00082 


10 0085N 


-0198 


00100 




TF 


WK, SWK+5 


00094 


KO 00277 


00283 


00110 




TDM 


SWK+14 


00106 


J5 00292 


00000 


00120 




DC 


1 , a , « 


00117 


00001 




00130 




TFM 


IGRT,*+23 


00118 


10 00565 


-0141 


00140 




B 


I0GT,LABEL,7 


00130 


4R 00566 


-0293 


00150 




TFM 


INOUT, CHECK-12 


00142 


16 00629 


-1256 


00160 


SMI 


SM 


FLIP-1, 13 


00154 


J2 00009 


-0013 


00170 




TF 


*+30,FLIP-l,611 


00166 


KO 00190 


OOOOR 


00180 




AM 


<* + 18,l,10 


00178 


Jl 00196 


000-1 


00190 


EXIT 


B 




00190 


49 00000 


00000 


00200 




DORG 


*-3 


00198 






00210 


MYER 


BI 


« + 12, 3700 


00198 


M6 00210 


03700 


00220 




8N I 


ERRET, 1900 


00210 


47 00602 


01900 


00230 




TFM 


INUUT, MYER2 


00222 


10 00629 


-0242 


00240 




B7 


ERROR 


00234 


49 00630 


00000 


00250 


MYER2 


BI 


*+12,3700 


00242 


M6 00254 


03700 


00260 




BI 


CHECK-12t 1900 


00254 


46 01256 


01900 


00270 




87 


EEXIT 


00266 


49 01636 


00000 


00280 


WK 


DC 


5,99999 


00277 


00005 




00290 


SWK 


DSS 


15 


00278 


00015 




00300 


LABEL 


DSC 


2,00 


00293 


00002 




00310 




DSA 


SWK 


00299 


00005 -0278 


00320 




DC 


i,a 


00300 


00001 




00330 


INDS 


DS 


,610 


00610 


00000 




00340 


ERRET 


DS 


t602 


00602 


00000 




00350 


lORT 


OS 


,565 


005 65 


00000 




00360 


IQGT 


DS 


,566 


00566 


00000 




00370 


INOUT 


OS 


,629 


00629 


00000 




00380 


ERROR 


DS 


,630 


00630 


00000 




00390 


DIO 


DS 


,820 


00820 


00000 




00400 


CHECK 


DS 


,1268 


01268 


00000 




00410 


EEXIT 


DS 


, 1636 


016 36 


00000 




00420 




DEND 




00000 
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00010***** 


1620 FORTRAN 


II-D RELOCATABLE LN ROUTINE 










00020***** 


METHOD 














00030***** 


X#MANTISSA OF 


ARGUMENT 










00040***** 


Y#EXPONENT OF 


ARGUMENT 










00050**** 


A#Jl-Xn/?l+Xn 












00060***** 




,n+Y»LNa510n 




00070 


DSA FLN 






00004 


00005 -0006 


00080 FLN 


BLXM SET , 


*-lXOn 


,11 


00006 


60 


04142 


OOOON 


00090* 
















00100* 


FAG # 0. AND 


ER F2 


IF FAG # 0. 










00110* 
















00120 


BD «+36 , 


FAC-l«4a 


00018 


M3 


00054 


0K4gi 


00130 


TFM EI , 


671 


,9 


00030 


16 


02615 


00071 


00140 


BLXM RESET , 


UNFLOXOa 


00042 


66 


06808 


02860 


00150* 
















00160* 


STORE SIGN . 














00170* 
















00180 


MF FLN , 


FAC-2 




00054 


PI 


00006 


02490 


00190* 
















00200* 


INITIALIZE 














00210* 
















00220 


BLXM •+12 , 


LNlX2a 




00066 


06 


00078 


03N57 


00230 


TF ALT+ll , 


FAG 




00078 


K6 


00 389 


02492 


00240* 
















00250* 


REDURE ARGUMENT 1. MORE THAN ARGUMENT MORE 


THAN .5 








00260* 
















00270 


CM FAC«4n , 


50 


,10 


00090 


14 


0K492 


OOONO 


00280 


BNL COM BTA 






00102 


M6 


00138 


01300 


00290 


A FAC-2 , 


FAG-2 




00114 


21 


02490 


02490 


00300 


BXM •-36 , 


3ia;2n 




00126 


02 


00090 


00-31 


00310* 
















00320* 


COMPUTE BETA 


# XI - 


FAGn/«l + FACn 










00330* 
















00340 COMBTA 


CF FAC-l!|4n 






00138 


33 


0K491 


00000 


00350 


TDM FAC-2X4n , 


-1 




00150 


15 


0K490 


OOOOJ 


00360 


TF BETA , 


TWO-2 




00162 


26 


02603 


03710 


00370 


S. BETA , 


FAC-2 




00174 


22 


02603 


02490 


00380 


BD *+24 , 


WJRS 




00186 


M3 


00210 


03018 


00390 


TF 79 , 


-ZEROM 




00198 


26 


00079 


0285R 


00400 


LD 97?4n , 


BETA 




00210 


28 


0-097 


02603 


00410 


D 98«4n , 


FAC-2 




00222 


29 


0-098 


02490 


00420 


TF BETA , 


98«4n 




00234 


26 


02603 


0-098 


00430* 
















00440* 


COMPUTE SAVE 


# BETA 


• BETA ,«FAC-36n # SAVE 










00450* 
















00460 


BD ♦+24 , 


WJRS 




00246 


M3 


00270 


03018 


00470 


TF 79 , 


-ZEROM 




00258 


26 


00079 


0285R 


00480 


M BETA , 


BETA 




00270 


23 


02603 


02603 


00490 


TF SAVE , 


97SS4a 




00282 


26 


02565 


0-097 


00500* 
















00510* 


COMPUTE BETA 


# 2 * 


BETA 










00520* 
















00530 


A BETA , 


BETA 




00294 


21 


02603 


02603 



00550* 


INITIALIZE 


FOR LOOP 










00560* 
















00570 


TFM 


00309 


,03 ,10 


00306 


16 


00309 


000-3 




TF 


FAC-1 


,0NE-2 


003 18 


26 


02491 


03300 




TDM 


FAC 


,0 


003 30 


15 


02492 


00000 


00600 


TF 


FAC-36 


,SAVE 


00342 


26 


02456 


02565 


















00620* 


LOOP TO EVALUATE SEKIES 




























TF 


99 


, SAVE 


003 54 


26 


00099 


02565 




TFM 


97«4n 


,0200 ,810 


00366 


16 


0-097 


0-2-0 


00660 ALT 


CF 


989^4D 




00378 


33 


0-098 


00000 




D 


98!S4n 


, 00309 


00390 


29 


0-098 


00309 


00680 


BE 


GO ON 




00402 


M6 


00486 


01200 


00690 


A 


FAC 


f 97 


00414 


21 


02492 


00097 


00700 


BD 


•+24 




00426 


M3 


00450 


03018 


00710 


TF 


79 


*-ZEROM 


00438 


26 


00079 


0265R 


00720 


M 


FAC-36 


tSAVE 


00450 


23 


02456 


02565 


00730 


TF 


SAVE 




00462 


26 


02565 


0-097 


00740 


BX 


LOOP 


t LUUr+<£ J.* lo 


00474 


OJ 


00354 


003P5 


00750* 
















00760* 


COMPUTE FAC 


# FAC • BETA - C0N5TANI 










00770* 
















00780 GOON 


BD 


♦+24 


tWjR S 


00486 


M3 


00510 


03018 


00790 


TF 


79 


, — ZEROM 


00496 


26 


00079 


0285R 


00800 


M 


BETA 


, FAC 


00510 


23 


02603 


02492 


00810 


TF 


FAC 


, 97?4n 


005 22 


26 


02492 


0-097 


00820 


A 


FAC 


1 00000X2D 


00534 


21 


02492 


00-00 




SF 


FAC 




00546 


32 


02492 


00000 




TF 


79 


,Z ER0~67 


00558 


26 


00079 


02700 


00850 


M 


LNIO 


, ALT+ 1 1 




2L 






00860 


A 


99 


, FAC 


00582 


2 1 


00099 


0249 2 


00870 


CM 


97 


, 00 ,10 


00594 


14 


00097 


000-0 


uuoou 


BNE 


•+24 




00606 


M7 


00630 


01200 


00890 


BLXM 


RESET 


,ZERFACXOn 


006 18 


66 


06808 


02836 


00900* 
















009 10* 


NORMALIZE 












00920* 
















00930 


TD 


00100 


,RECMK 


006 30 


25 


00100 


02403 


00940 


TFM 


FAC 


,03 ,10 


00642 


16 


02492 


000-3 


00950 


MF 


00100 


,00099 


00654 


71 


00100 


00099 


00960 


BD 


*+56 


,95«4n 


00666 


M3 


00722 


0-095 


00970 


SM 


FAC 


,01 ,10 


00678 


12 


02492 


OOO-l 


00980 


TRNM 


95S4n 


,96!C4n 


00690 


30 


0-095 


0-096 


00990 


TDM 


99 


,0 


00702 


15 


00099 


00000 


01000 


B7 


• -48 




00714 


M9 


00666 


00000 


OlOlO 


SF 


9 5»4n 




007 22 


32 


0-095 


00000 


01020 


TF 


FAC-2 


t94 


00734 


26 


02490 


00094 


01030 


MF 


FAC-2 


,00100 


00746 


71 


02490 


00100 


01040 


TDM 


00100 


tO 


00758 


15 


00100 


00000 


01050 


BLXM 


RESET 


,*+12«0n 


00770 


60 


06808 


00782 


01060 


BNF 


FIXEND 


,FLN 


00782 


4M 


03068 


00006 



637 



01070» 

01080* 

01090* 

01100 

OHIO 

01120 



PRINT ER F3 

TFM EI 

87 ERXV+24 

OEND 1 



,673 



i9 



00794 16 02615 00073 
00806 49 03144 00000 
00001 



63 o 



00020*»**» 

00030**** 

00040***** 

00050**** 

00060***** 

00070 

00080 FEXP 

00090* 

00100* 

00110* 

00120 

00130 ONEFAC 

00140 

00150 

00160* 

00170* 

00180* 

00190 

00200* 

00210* 

00220* 

00230 

00240 

00250 

00260 

00270 

00280* 

00290* 

00300* 

00310 

00320 

00330* 

00340* 

00350* 

00360 

00370 

00380* 

00390* 

00400* 

00410 

00420 

00430* 
00440* 
00450* 



1620 FORTRAN II-D RELOCATABLE EXPONENTIAL ROUTINE 
METHOD 

A#DECIMAL PORTION OF X*LOG«Eo 
C#WHOLE NUMBER PORTION OF X*LOG!gEn 
8#A*LNS10n 

FEXPSXa#l+B+B*»2/2+B**3/6+. .. + B**:gN-ln/:gN-lnFACTORIALn*10«*C 



DSA FEXP 

BLXM SET ,,*-l?On ,11 

FAC #1. IF ARGUMENT # 0. 



BD »+48 
TF FAC-2 
TFM FAC 
BLXM RESET 

STORE SIGN 

MF FEXP 



,FAC-lX4n 
, ONE- 4 

,01 ,10 

, FIXEND«On 



, FAC-2 



BETA # FAC * LOG«En 

BD *+24 ,WJRS 

TF 79 ,-ZEROM 

FSL FAC-3«4d , FAC-2 

TFL BETA ,LOGE 

FMUL BETA , FAC 



00004 00005 -0006 
00006 60 04142 OOOON 



00018 M3 00066 0K49i 
000 30 26 02490 03298 
00042 16 02492 000-1 
00054 66 06808 03068 



00066 PI 00006 02490 



00078 M3 00102 03018 
00090 26 00079 0285R 
00102 05 0K489 02490 
00114 06 02603 03366 
00126 03 02603 02492 



FAC # 1. IF ARGUMENT ♦ LOGSSEn IS LESS THAN 10**%-F 
,MF 



C BETA 
BNH ONE FAC 



00138 24 02603 03054 
00150 M7 00030 01100 



OVERFLOW OR UNDERFLOW IF EXPONENT GREATER THAN TWO 



CM 
BNL 



BETA 
ERORS 



INITIALIZE 



TFM CHAR 
BLXM »+12 



,001 ,9, 
,00001«3a ,, 



00162 14 02603 000-3 
00174 M6 00922 01300 



CHAR # 001 00186 J6 00051 00-01 

LOAD 1X3 WITH 00001 

00198 06 00210 00—1 



GET FAC EQUAL TO MANTISSA AND CHAR EQUAL TO EXPONENT + 1 



00460 


TF 


FAC 


,LN1-1 


00470 


MA 


GOB 


,C0N98 


00480 


BD 


• + 36 


,-GOB 


00490 


SF 


99 




00500 


FSL 


-GOB 


,99 


00510 QZl 


CP 


-GOB 


,00000 


00520 


A 


GOB 


,BETA 



00210 


26 


02492 


03556 


00222 


P- 


00533 


00281 


00234 


ML 


00270 


0053L 


00246 


32 


00099 


00000 


00258 


-5 


0053L 


00099 


00270 


L3 


0053L 


00000 


00282 


Kl 


00533 


02603 



639 



00530 


AM 


GOB 


,01 ,10 


00294 


Jl 


00533 


000-1 


00540 


MA 


CNT 


,GOB 


00306 


P- 


00485 


00533 


00550 


TDM 


95S6n 


,0 ,11 


00318 


15 


0—95 


0000- 


00560 


A 


FAC 


,-CNT 


00330 


2J 


02492 


0048N 


00570 


CM 


BETA 


,00 ,10 


00342 


14 


02603 


000-0 


00580 


BNH 


GO ON 




00354 


M7 


00390 


01100 


00590 


SM 


GOB 


,02 ,10 


00366 


J2 


00533 


000-2 


00600 


A 


CHAR 


,-GOB 


00378 


KJ 


00051 


0053L 


00610* 
















00620* 


REDUCE ARGUMENT 0. LESS THAN ARGUMENT LESS 


THAN .34 






00630* 


AND CARRY COUNT IN 1X3 










00640* 
















00650 GOON 


CM 


FAC%4n 


,34 ,10 


00390 


14 


0K492 


0OOL4 


00660 


BL 


PRE LOP 




00402 


M7 


00438 


01300 


00670 


SM 


FACS4a 


,34 ,10 


00414 


12 


0K492 


000L4 


00680 


BXM 


GOON 


,0000iaS3n 


00426 


02 


00390 


00 — 1 


00690*, 
















00700* 


INITIALIZE FOR LOOP 










00710* 
















00720 PRELOP 


BO 


•+24 


,WJRS 


00438 


M3 


00462 


03018 


00730 


TF 


79 


,-ZEROM 


.00450 


26 


00079 


0285R 


00740 


M 


FAC 


,LN10-1 


00462 


23 


02492 


03680 


00750 QZ2 


SF 


97«6n 


,OS54n 


00474 


32 


0—97 


0-000 


00760 


TF 


SAVE 


,98i|4n 


00486 


26 


02565 


0-098 


00770 


TF 


FAC 


,98X4a 


. 00498 


26 


02492 


0-098 


00780 


TDM 


FAC -2«4a 


»-l 


00510 


15 


0K490 


OOOOJ 


00790 QZ3 


CF 


FAC -U4n 


,0?6n 


00522 


33 


0K491 


0—00 


00800 


TF 


BETA 


,98«4a 


00534 


26 


02603 


0-098 


00810 


TFM 


00309 


,02 ,10 


00546 


16 


00309 


000-2, 


00820 


B7 


LOOP+12 




00558 


M9 


00578 


00000 


00830* 
















00840* 


LOOP TO EVALUATE SERIES 










00850* 
















00860 LOOP 


A 


FAC 


,SAVE 


00566 


21 


02492 


02565 


00870 


BD 


♦+24 


, WJRS 


00578 


M3 


00602 


03018 


00880 


TF 


79 


,-ZEROM 


00590 


26 


00079 


0285R 


00890 


M ' 


SAVE 


,8ETA 


00602 


23 


02565 


02603 


00900 


TF 


99 


,97«4a 


00614 


26 


00099 


0-097 


00910 


TFM 


97?4n 


,00 ,10 


00626 


16 


0-097 


000-0 


00920 


CF 


98?4n 




00638 


33 


0-098 


00000 


00930 


D 


98«4n 


,00309 


00650 


29 


0-098 


00309 


00940 


BE 


RE SIZE 




00662 


M6 


00698 


01200 


00950 


TF 


SAVE 


,97 


00674 


26 


02565 


00097 


00960 


BX 


LOOP 


,ONEFAC+2 33;in 


00686 


OJ 


00566 


00QN3 


00970* 
















00980* 


FLOAT FAC 












00990* 
















01000 RESIZE 


BD 


ERORS 


,CHAR-2 


00698 


ML 


00922 


00049 


01010 


TDM 


FAC 


,0 ,11 


00710 


15 


02492 


0000- 


01020 


FSL 


FAC-3%4n 


,FAC-1 


00722 


05 


0K489 


02491 


01030 


SF 


CHAR-1 




007 34 


L2 


00050 


00000 


01040 


TF 


FAC 


,CHAR 


00746 


20 


02492 


000 51 


01050* 

















6 40 



PAGE 6 



01060* 


COMPUTE RECIPROCAL IF REQUIRED 










01070* 
















01080 CKEXP 


BCXM EXPAND 


, -00001X30 




00758 


04 


00878 


00 — J 


01 090 


BNF RETURN 


,FEXP 




00770 


MM 


00854 


00006 


0 1 1 00 


TFL BETA 


, FAC 




00782 


06 


02603 


02492 


01 1 10 


TFL FAC 


,ONE 




00794 


06 


02492 


03302 


0 1 120 


BD *+24 


t WJRS 




00806 


M3 


00830 


03018 


ni 1 in 


TF 79 


,-ZEROM 




008 18 


26 


00079 


028 5R 




FDIV FAC 


,BETA 




00830 


09 


02492 


02603 


01150 


BXV ERORS 






00842 


M6 


00922 


01500 


hO* 
















01170* 


SET UP TO RETURN 












0 1180* 
















01190 RETURN 


FSR FAC-2 


,FAC-4 




00854 


08 


02490 


02488 


01200 


BLXM RESET 


tFIXENDXOD 




00866 


66 


06808 


03068 


01210* 
















01220* 


EXPAND FAC 


» 10»*3E.34n 


# FAC 










01230* 
















01240 EXPAND 


BD »+24 


tUJRS 




00878 


M3 


00902 


03018 


01250 


TF 79 


»-ZEROM 




00890 


26 


00079 


0285R 


01260 


FMUL FAC 


,TEN34 




00902 


03 


02492 


03334 


01270 


B7 CK EXP 






00914 


M9 


00758 


00000 


01280* 
















01290* 


EXIT TO CORRECT ERROR 












01300* 
















01310 ERORS 


TFM EI 


.674 


► 9 


00922 


16 


02615 


00074 


01320 


BLXM RESET 


f»-*-L2X0n 




009 34 


60 


06808 


00946 


01330 


TFM ERROR-i-30 


♦FlXEND-12 




00946 


16 


03014 


-3056 


01340 


BNF OVFLOW 


,FEXP 




00958 


4M 


02960 


00006 


01350 


B7 UNFLO 






00970 


49 


02860 


00000 


01360* 
















01370* 


SYMBOLS 














01380* 
















01390 CHAR 


OS 3 


tONE FAC * 


21 


00051 


00003 




01400 GOB 


DS 


♦QZ3+11 




005 33 


00000 




01410 C0N98 


DC 5 


t00096 


iQZl-t-U 


00281 


00005 




01420 CNT 


OS 


,QZ2+11 




00485 


00000 




01430 


OEND I 






00001 









€41 



PAGE 7 

OOOlO***** FORTRAN II-D RELOCATAHLE-SUBSCRI PT ING ROUTINE 

00020**** FOR TWO OR THREE DIMENSIONAL SUBSCRIPTED VARIABLES 

00030**** LINKAGE BTM ENTRYX»*+12 WHERE X# 2 OR 3 
00040**** DSA BASEtD4,Dl»I,D2«J>03tK«QR/M 

00050**** IF Q ADDRESS IS FLAGGED BASE IS FIXED 

00060**** IF BASE IS FLAGGED ARRAY IS FORMAL PARAMETER 

00070**** IF Dl IS FLAGGED - I/O 

00080***** INDEX REGISTER FLAGS ARE ON BASE 



00090 




DSA 


ENTRY2, 


ENTRY3 






00004 


00005 -0006 


















00009 


00005 -0042 


00100 




D0R6 


♦-4 










00005 








OOllO 


ENTRY2 


TFM 


BRlNST+6 


.L2 






00006 


JO 


00216 


-0238 


00120 




TFM 


EXIT-1 




t32 




»10 


00018 


J6 


00421 


000L2 


00130 




B 


COM 










000 30 


M9 


00078 


00000 


00140 


ENTRY 3 


TFM 


BRINST+6 


♦ L3 






00042 


JO 


00216 


-0218 


00150 




TFM 


EXIT-1 




.42 




.10 


00054 


J 6 


00421 


OO0M2 


00160 




TF 


ENTRY2-1 


,ENTRY3- 


1 




00066 




00005 


00041 


00170 


COM 


MF 


COM 




,ENTRY2- 


■1 




00078 


PJ 


00078 


00005 


00180 




TF 


X+ll 




.FP2 






00090 


K6 


00301 


03052 


00190 




BNF 


« + 24 




.COM 






00102 


MM 


00126 


00078 


00200 




TF 


X-l-ll 




.KK 






00114 


K6 


00301 


02221 


00210 




TR 


WKAR EA 




.ENTRY2- 


I 


»11 


00126 


3J 


00000 


OOOON 


00220 




MF 


Y-m 




»BASE 






00138 


PI 


00385 


00004 


00230 




BNF 


* + 36 




.01 






00150 


M4 


00186 


00014 


00240 




MF 


X + 11 




.COM 






00162 


PJ 


00301 


00078 


00250 




CF 


DI 










00174 


33 


00014 


00000 


00260 




TFM 


ANS 




.00000 






00186 


J6 


00041 


-0000 


00270 




TF 


ZOT+6 




.BRINST 


+ 6 


00198 


KO 


00472 


00216 


00280 


BRINST 


B7 


* 










00210 


M9 


00210 


00000 


00290 


L3 


M 


03 




tK 




1 11 


^ 00218 


23 


00034 


0003R 


00300 




B7 


COLECT 










00230 


M9 


00430 


00000 


00310 


L2 


M 


D2 




»J 




.11 


00238 


23 


00024 


0002R 


00320 




B7 


COLECT 










. 00250 


M9 


00430 


00000 


00330 




M 


01 




,1 




.11 


00258 


23 


00014 


OOOIR 


00340 




B7 


COLECT 










00270 


M9 


00430 


00000 


00350 




A 


ANS 




»D4 






00278 


Kl 


00041 


00009 


00360 


X 


MM- 


ANS 




,00 




tlO 


00290 


J3 


00041 


000-0 


00370 




MF 


Y 




.99 






00302 


PI 


00374 


00099 


00380 




MA 


YX+11 




.BASE 






00314 


PO 


00409 


00004 


00390 




TD 


BASE 




.RECMK 






00326 


25 


00004 


02403 


00400 




TR 


*+31 




,BASE-4 






00338 


LI 


00369 


00000 


00410 




MA 


* + 23 




.99 






00350 


PO 


00373 


00099 


00420 




BLXM 


♦+12 




r * 




»7 


00362 


00 


00374 


-0362 


00430 


Y 


A 


99 




,YX+11 






00374 


2J 


00099 


00409 


00440 




MF 


99 




,Y 






00386 


7J 


00099 


00374 


00450 


YX 


SF 


95 




» * 




.7 


00398 


3K 


00095 


-0398 


00460 




AM 


ENTRY2- 


1 


,00 




.10 


00410 


Jl 


00005 


000-0 


00470 


EXIT 


B7 


ENTRY2- 


1 


» 




,6 


00422 


M9 


OOOON 


00000 


00480 


COLECT 


MA 


*+23 




,00099 






00430 


PO 


00453 


00099 


00490 




AM 


ANS 




,00000 






00442 


Jl 


00041 


-0000 


00500 




AM 


»+18 




,00020 






00454 


Jl 


00472 


-0020 


00510 


ZOT 


B7 












00466 


M9 


00466 


00000 


00520 


ANS 


DS 






,ENTRY3- 


1 




00041 


00000 





6 42 



00530 


KK 


DS 




,02221 


02221 


00000 


00540 


WKAREA 


DSS 


42 


,00000 


ooboo 


00042 


00550 


BASE 


DS 




,WKAREA+4 


00004 


00000 


00560 


D4 


DS 




,WKAREA+9 


00009 


00000 


00570 


Dl 


DS 




,WKAREA+14 


00014 


00000 


00580 


I 


DS 




,WKAREA+19 


00019 


00000 


00590 


D2 


DS 




,WKAREA+24 


00024 


00000 


00600 


J 


OS 




,WKAREA+29 


000 29 


00000 


00610 


D3 


DS 




,WKAREA+34 


00034 


00000 


00620 


K 


DS 




,WKAREA+39 


000 39 


00000 


00630 




DEND 


2 




00002 





643 



00010* 
00020* 
00030 ADR 



FORTRAN II-D DK lO VARIABLE 
OSA SWDFX ,F I ND , RECORD, FETCH , SWD , DRA Y , D I OEND 



00040 




0OR6 


ADR-4 


00050 


EEXIT 


DS 


,1636 


00060 


CHECK 


DS 


• 1268 


00070 


INOUT 


DS 


,629 


00080 


lOCAL 


DS 


,716 


00090 


lORBC 


DS 


,520 


00100 


lORT 


DS 


,565 


00110 


DIO 


DS 


,820 


00120 


lOSK 


DS 


,554 


00130 


INDS 


DS 


,610 


00140 


ERRET 


OS 


,602 


00150 


lOERR 


DS 


,630 


00160 


lOGT 


DS 


,566 


00170 


lOPT 


DS 


,532 


00180 


FAC 


OS 


,2492 


00190 


DIODDA 


DS 


,2821 


00200 


FINDIN 


OS 


,2915 


00210 


FP2 


DS 


,3052 


00220 


FKODD 


OS 


,2967 


00230 


PAR 


DS 


,3843 


00240 


ERROR 


DS 


,2984 


00250 


EI 


DS 


,2615 


00260 


FIXEND 


DS 


,3068 


00270 


FLTEND 


DS 


,3118 


00280 


FLOAT 


DS 


,3998 


00290 


DKDATA 


DS 


,2813 


00300 


FIX 


OS 


,3854 


00310 


RECLG 


OS 


,2243 


00320 


W 


DS 


,2240 


00330 


N2 


DS 


,2238 


00340 


Nl 


DS 


,2233 


00350 


K 


DS 


,2221 


00360 


F 


DS 


,2219 


00370 


CORSIZ 


DS 


,7376 


00380* 






00390 


NOWLC 


DSC 


2,02 


00400 




DSA 


DIODDA 


00410 




DC 


i,a 


00420 


OUT 


BV 


»+l2 


00430 




A 


BE2+20 


00440 




BB2 




00450 


A I TEST 


TDM 


FINDIN 


00460 




B 


FIND+li 



00004 
00009 
00014 
00019 
00024 
000 29 
00034 
00000 
01636 
01268 
00629 
00716 
00520 
00565 
00820 
00554 
00610 
00602 
00630 
00566 
00532 
02492 
02821 
02915 
03052 
02967 
03843 
02984 
02615 
03068 
03118 
03998 
02813 
03854 
02243 
02240 
02238 
02233 
02221 
02219 
07376 



00005 -0058 
00005 -0282 
00005 -0616 
00005 -0580 
00005 -0498 
00005 -0222 
00005 -0552 

00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



,BE2+23 



,11, 



00000 00002 

00006 00005 -2821 

00007 00001 

00008 M6 00020 01400 
00020 KJ 00434 00437 
00032 42 00000 00000 

SET FIND INDICATOR OFF 

00034 15 02915 OOOOJ 
00046 M9 00294 00000 



644 



00470 


SWD F X 


TD 


00480 




SF*" 


00490 






00500 




B7 


00510 


FECH 


TD 


00520 




TFL 


00530 




B7 


00540 


RECD 


TD 


00550 




TFL 


00560 




B7 


00570 


MYER 


BI 


00580 




BI 


00590 




B7 


00600 




IF 


00610 


TOBB 


B 


00620 


DRAY 


TDM 


00630 






00640 






00650 




TFM 


00660 




B 


00670 


FIND 


TDM 


00680 




SF 


00690 




BNV 


00700 




CP 


00710 




BD 


00720 




TFM 



SWD~1 ,SW0FX-1 00058 KN 00497 00057 

SWD-2 ,SWDFX-2 00070 -0 00496 00056 

SWD-1 00082 L2 00497 00000 

3^[) 00094 M9 00498 000.00 

FIND-1 ,FETCH-1 00102 KN 00281 00579 

FIND-2 ,FETCH-2 OOll^ -0 00280 00578 

FETCH+12 00126 M9 00592 00000 

FIND-1 ,REC0RD-1 00134 KN 00281 00615 

FIND-2 ,REC0RD-2 00146 -0 00280 00614 

RECORD+12 00158 M9 00628 00000 

«+12,3700,, TURN OFF WLRC IND 00166 M6 00178 03700 

CHECK-12,1900, , LET lORT HANDLE DISK OVERFLOW 

00178 46 01256 01900 
00190 49 01,636 00000 
00198 K6 00401 02233 
00210 M9 01196 00000 
SET TDBB TO BRANCH 

00222 J5 00211 00009 
TEST FOR EVEN ADDRESS 

00234 M3 00818 02967 
H IF BUFFER PROG IN CORE 

00246 ML 00964 00530 
00258 JO 00547 -0964 
00270 M9 00510 00000 
SET FIND INDICATOR ON . 

00282 15 02915 00000 
00294 L2 00436 00000 
00306 M7 00330 01400 
00318 L3 00436 00000 
00330 M3 00652 02915 
BRANCH TO COMPUTE ADDRESS AND TESTI 

00342 JO 00408 -0652 



EEXIT,,,WLRC WAS ONLY ERROR 

N1TEMP,N1 

DRAYltfO 

T0BB+lt9,, 

EVEN,FKODDf» 



AGAIN, DDABLK+1. 

DSABLK+5» AGAIN 
SWD+12 
FINDlNfO, , 

BE2+22 
« + 24 
BE2+22 

SETl ,FINDI 
RETD2+6»SET1, , 



N2 ERROR ROUTINE %1 GRT N2n 



00740 


N2CK 


CM 


FIND-1 ,00 


00750 




BNH 


BE2 


00760 




C 


FIND-1, N2,6t 


00770 




BH 


BE2 


00780 


RETD2 


B 


• — • 


00790 


BUFFAR 


OS 


,* 


00800 


BE2 


BV 


• +12 


00810 




AM 


•+8 ,00000 


00820 




TFM 


El ,472 


00830 




TF 


NlTEMP.Nl 


00840 




BD 


ERROR, DDABLK,, BR 


00850 




TFM 


DSAOTR+5, ERROR 


00860 




B 


SETRMK 


00870» 






00880«»»** 


SWD SUBROUTINE 


00890 


SWDA 


TDM 


SWO-t-900,0 


00900 




TFM 


•-11,41,10 



,610, 



,79 
,9 



IS I 



ZERO OR NEG 

00354 J4 0028J 000-0 
00366 M7 00414 01100 
COMPARE I AND N2 

00378 K4 0028J 02238 
00390 M6 00414 01100 
00402 49 00000 00000 

00413 00000 

00414 M6 00426 01400 
00426 Jl 00434 -0-00 
00438 16 02615 00M72 
00450 K6 00401 02233 

F CK MADE FROM EVEN ARRAY PROGRAM 

00462 4L 02984 00529 
00474 J6 00705 -2984 
00486 M9 00656 00000 



00498 J5 01398 00000 
00510 J6 00499 OOOMl 



6 45 



00910 




B 


SWDl 


00522 


M9 00708 


00000 


00920 




DORG 


♦-3 


005 30 






00930* 


SET UP LINKAGE FOR FLOAT 








00940 


FETCH5 


TF 


FLTEND,IC0N8+5 


005 30 


20 03118 


01194 


00950 




B 


FLOAT 


00542 


49 03998 


00000 


00960 




DORG 


♦-4 


00549 






00970 




DORG 


•+4 


00552 






00980 


lOEND 


TFM 


DSAOTR+5, DIOEND 


00552 


JO 00705 


-0552 


00990 




BD 


SETRMK, FRIND,, BRANCH IF FETCH 


00564 


ML 00656 


00421 


01000 




C 


N1TEMP,N1 


00576 


K4 00401 


02233 


010 10 




BE 


SETRMK,,, BRANCH IF 


BUFFER EMPTY 












00588 


M6 00656 


01200 


01020 




TFM 


RETD2+6,*+20 


00600 


JO 00408 


-0620 


01030 




B7 


N2CK 


00612 


M9 00354 


00000 


01040 




TFM 


IORT,*+23,, WRITE BUFFER TO F] 


[LE 












00620 


10 00565 


-0643 


01050 




B 


lOPT ,DKDATA,7 


00632 


49 00532 


-2813 


01060 




AM 


FIND-1, 1,610 


00644 


Jl 0028J 


000-1 


01070 


SETRMK 


TD 


SWD+900,DKBUFF+200 


00656 


KN 01398 


01462 


01080 




TFM 


I0RT,I0RPF2+11 


00668 


10 00565 


-0743 


01090 




B 


lOGT 


00680 


49 00566 


00000 


01100 




DORG 


•-4 


00687 






OHIO 


DDB 


DSC 


1,1 


00687 


00001 




01120 




OSA 


200 


00692 


00005 -0200 


01130 




DC 


3,9 


00695 


00003 




01140 


DSAOTR 


DSA 


SWD, DIOEND 


00700 


00005 -0498 










00705 


00005 -0552 


01150 




DC 


i,a 


00706 


00001 




01160 


SWDl 


A 


BUFFAR, W,, INCREMENT BUFFER ARROW 


00708 


Kl 00413 


02240 


01170 




BD 


FETCHl, FRIND,, BRANCH IF FETCH 


00720 


ML 00984 


00421 


01180«* 


RECORD 








01190 


I0REF2 


CF 


SWD-1,DATB,7, CLEAR FLAG 


ON ADDRESS OF DATA 










00732 


LL 00497 


-1253 


01200 




SM 


N1TEMP,1,10 , DECREMENT 


WORD COUNT 












00744 


J2 00401 


000-1 


01210 




TFL 


BUFFAR, SWD-1, 611 


00756 


-0 0041 L 


0049P 


01220 


CK 


CM 


N1TEMP,0,10, CHECK FOR 


FULL BUFFER 












00768 


J4 00401 


000-0 


01230 




BNZ 


TOBB 


00780 


M7 00210 


01200 


01240 




BD 


TOBB-12, FRIND, , BR IF FETCH , 


00792 


ML 00198 


00421 


01250 




TFM 


LINKB+18,I0PT 


00804 


J6 00854 


-0532 


01260 


OKI 


TFM 


RETD2+6, LINKB 


00816 


JO 00408 


-0836 


01270 




B 


N2CK 


00828 


M9 00354 


00000 


01280 




DORG 


«-4 


008 35 






01290 


LINKB 


TFM 


I0RT,*+23,, CALL CORRECT lORT 


ROUTINE 












00836 


10 00565 


-0859 


01300 




B 


,DKDATA,7 


00848 


49 00000 


-2813 


01310 




TFM 


BUFFAR, DKBUFF+199,, INITIALIZE 


BUFFER 


ARROW 












00860 


JO 00413 


-1461 


01320 




S 


BUFFAR-2,RECLG 


00872 


K2 00411 


02243 


01330 




BNF 


*+24, FRIND 


00884 


MM 00908 


00421 


01340 




A 


BUFFAR, W 


00896 


Kl 00413 


02240 


01350 


ADDTOI 


AM 


FIND-1, 1,610, INCREMENT I 


00908 


Jl 0028J 


000-1 



646 



01360 


A 


DIODDA+5, DIODDA+8, , 


INCREMENT 


SECTOR ADDRESS 














00920 


21 


02826 


02829 


01370 


BD 


FETCH2,FRIND 






00932 


ML 


01028 


00421 


01380 


B 


TOBB-12 






00944 


M9 


00198 


00000 


01390 


DORG 


*-4 






00951 








01400 


A 


DRAY-1 , FP2 






00952 


Kl 


00221 


0 3052 


01410 AGAIN 


TF 


SWD-1 » DRAY-1 






00964 


KO 


00497 


00221 


01420 


B 


SWD 






00976 


M9 


00498 


00000 


01430 


DORG 


*-4 






00983 








01440 FETCHl 


C 


N1TEMP,N1 






00984 


K4 


00401 


02233 


01450 


BNE 


FETCH2, t t 


BRANCH 


IF 


BUFFER NOT 


EMPTY 














00996 


M7 


01028 


0 1200 


01460 


TFM 


LlNKB+18 , lOGT 






01008 


J6 


008 54 


-0566 


01470 


B 


CKI 






01020 


M9 


00816 


00000 


01480 


DORG 








01027 








01490 FETCH2 


SM 


N1TEMP,1,10 






01028 


J2 


00401 


000-1 


01500* 


SEND THE WORD TO FAC 














01510 


TFL 


FAC,BUFFAR,11 






01040 


00 


02492 


0041L 


01520 


BI 


*+12tl400 






01052. 


M6 


01064 


01400 


01530* 


TEST FOR FLOATING ADDRESS 


AT SWD-1 












01540 


BNF 


FETCH3, SWD-1 






01064 


MM 


01158 


00497 


01550* 


IT 


IS A FIXED ADDRESS 














01560 


CF 


SWO-1 






01076 


L3 


00497 


00000 


01570* 


TEST FOR FLOATING WORD IN 


FAC 












01580 


BNF 


FETCH4,FAC-1 






01088 


M4 


01170 


02491 


01590* 


THE 


; WORD IS FLOATING SET 


UP LINKAGE FOR 


FIX 








01600 


TF 


FIXEND+6tIC0N7+6 






01100 


20 


03074 


01125 


01610 


B 


FIX 






01112 


49 


03854 


00000 


01620 


DORG 


»-4 






01119 








01630 IC0N7 


DC 


lt4 






01119 


00001 




01640 


DSC 


1t9 






01120 


00001 




01650 


DSA 


RETFLT 






01125 


00005 -1126 


01660 RETFLT 


TDM 


FIXEND+1,2 






01126 


15 


03069 


00002 


01670 


TDM 


FLTEND-5,2 






01138 


15 


03113 


00002 


01680* 


BRANCH TO STORE NUMBER 














01690 CKLD 


B 


FETCH4 






01150 


M9 


01170 


00000 


01700 


DORG 


»-4 






01157 








01710 FETCH3 


BNF 


FETCH5,FAC-1,, 


BRANCH 


IF 


FIXED 

01158 


M4 


00530 


02491 


01720* 


STORE THE WORD IN MEMORY 














01730 FETCH4 


TFL 


SWD-ltFACf 6 






01170 


-6 


0049P 


02492 


01740* 


CHECK FOR EMPTY BUFFER 














01750 


B 


CK 






0li82 


M9 


00768 


00000 


01760 


OORG 


♦-4 






01189 








01770 ICONS 


DC 


l»9 






01189 


00001 




01780 


DSA 


RETFLT 






01194 


00005 -1126 


01790 DRAYl 


SM 


PARtliLOtt 


DECREMENT 


WORD COUNT 
















01196 


12 


03843 


000-1 


01800 


BNZ 


♦♦14 






01208 


M7 


01222 


01200 


01810 


BB 








01220 


42 


00000 


00000 


01820 


DORG 


*-9 






01222 








01830 


BNF 


AGAIN-12,0RAY-l 






01222 


MM 


00952 


00221 


01840 


S 


DRAY~l,K 






01234 


K2 


00221 


02221 



6 47 



01850 




B 


AGAIN 


01246 


01860 




DORG 


♦-4 


01253 


01870 


DATB 


DSC 


2»-ob 


01253 


01880 




DSA 


DOB 


01259 


01890 




DC 


ita 


01260 


01900 


OKBUFF 


OS 


,0ATB+9 


01262 


01910* 








01920* 










01930* 




WRITE 2ND BLOCK 




01940* 










01950 


LDIRO 


DSC 


2f00 


01261 


01960 




DSA 


OIMl 


01267 


01970 




DC 


ItS 


01268 


01980 


DIMl 


DSC 


1*1 


01269 


01990 




DSA 


209 


01274 


02000 




DC 


3»9 


01277 


02010 




DSA 


SWD 


01282 


02020 




DC 


Ita 


01283 


02030 


STLDl 


CF 


IC0N7+2 


01284 


02040 




DGM 


DATB+9+200 


01462 


02050 




CF 


IC0N8-I-1 


01296 


02060 




TFM 


I0RT,HERE+11 


01308 


02070 




TD 


SWD+900,DKBUFF+200 


01320 


02080 


HERE 


B 


I0PT,LD1RD,7 


01332 


02090 




TRA 




01344 



02100 
02110* 
02120* 
02130 
02140 SWD 
02150 
02160 
02170 

02180 DDABLK DSC 
02190 DSA 
02200 DC 
02210 DSABLK DSA 



TCD STLDl 

BLOCK 1 OF FETCH FIND RECORD 
DORG SWDA 
TFM DSABLK+5,SWD 
TFM I0RT,I0REF+11 
B lOGT 
DORG «-4 
It I 
209 
3,9 

SWD, SWD 



02220 DC 

02230 DORG 

02240 DIOEND B 

02250 BB 

02260 DORG 

02270 DATl DSC 

02280 DSA 

02290 DC 



1, a 

lOEND 
OUT 

*-9 

2, -00 
DDABLK 
1,3 



01356 
01363 
01365 
01370 
01371 
01377 
01380 
01284 



00496 
00498 
00510 
00522 
00529 
00529 
005 34 
00537 
00542 
00547 
00548 
00552 
00552 
00564 
00566 
00566 
00572 
00573 



00002 

00005 -1269 

00001 

00001 

00005 -0209 
00003 

00005 -0498 
00001 

L3 01121 00000 
00001 

L3 01190 00000 
10 00565 -1343 
KN 01398 01462 
4R 00532 -1261 
10 00565 -1363 
49 00716 00000 

00002 2k 

00005 -1371 
00001 S 

00006 1J9783 

00003 -03 
00006 -00003 



JO 00547 -0498 
10 00565 -0853 
49 00566 00000 

00001 

00005 -0209 
00003 

00005 -0498 
00005 -0498 
00001 

M9 00008 00000 
42 00000 00000 



00002 
00005 
00001 



6 46 



02300 
02310 
02320 


FETCH 


DS 
B 

TOM 


5 

FECH 

FRIND, ltll» SET f 


02330 




B 


AITEST, 


02340* 
02350« 
02360 

02370 


RECORD 


B 

TDM 


( 

i 

RECD 

FRirjDtO, » 


02380 
02390 


SETl 


B 

TFM 


AITEST 

DlODDA+5t218», 


02400 




M 


FIND-l»RECLGt6, 


02410 
02420 
02430 
02440 


SSEEK 


A 

BD 

TFM 

8 


DlODDA+5t99 

«+44,FINDIN, , B 
I0RT,«+23 
I0SK,DK0ATA,7, 


02450 
02460 
02470 




B 

□ ORG 
TFM 


DIOENO 
*-3 

BUFFAR,DKBUFF+199t» 


02480 
02490 
02500 




S 

TF 
TF 


BUFFAR-2,RECLG 
NlTEMPfNl, f 
DI0DDA+8,RECLG, , 


02510 




TFM 


DIODDA+13,DKBUFF+200f 1 


02520 




S 


DIODDA+ll,RECLG,, 


02530 


OVER 


TDM 


TOBB+ 1 f 2 » t 


02540 
02550 
02560 


EVEN 


BB 

DORG 
TF 


»-9 

TEMPA,FP2,, 


02570 




BNF 


«+36,DRAY-lt , 


02580 
02590 


lOREF 


CF 
TF 


DRAY-1,DAT1,7 
TEMPAtKt » 


02600 




TF 


DI0DDA+13,DRAY-1,, 


02610 
02620 




AM 

S 


DlODDA-t-13t 1 
DIGDDA+I3f TEMPAtf 


02630 
02640 
02650 
02660 




TF 
M 

SF 
A 


EVENl+ll»DI0DDA+13 

TEMPA.PAR 

95 

EVENl+11,99 



BRANCH IF NOT FIND 



-2813 
00000 



-1461 



00578 00005 
00580 M9 00102 00000 
FETCH-RECORD INDICATOR TO FETCH 

00592 J5 00421 OOOOJ 
BRANCH TO SET FIND INDICATOR OFF , 

00604 M9 00034 00000 
COMPUTE ADDRESS » TEST I , AND TEST 
FOR DEFINE STATEMENT . 

00616 M9 00134 00000 
SET FETCH-RECORD INDICATOR TO RECRD 

00628 J5 00421 00000 
00640 M9 00034 00000 
SET SECTOR ADDRESS IN DDA 

00652 16 02826 -0218 
COMPUTE ADDRESS OF FILE RECORD 

00664 K3 0028J 02243 
00676 21 02826 00099 
00688 M3 00732 02915 
00700 10 00565 -0723 
TRANSFER TO lORT TO SEEK 

00712 49 00554 
00724 M9 00552 
00732 

INITIALIZE BUFFER ARROW 

00732 JO 00413 
00744 K2 00411 02243 
00756 K6 00401 02233 
STORE RECORD LENGTH IN DDA 

00768 26 02829 02243 
STORE ADDRESS OF BUFFER 

00780 10 02834 -1462 
SUB LENGTH OF RECORD TO GET FIRST COR 

00792 22 02832 02243 
INITIALIZE BRANCH BACK 

00804 J5 00211 00002 
00816 42 00000 00000 
00818 

STORE FLOATING LENGTH IN TEMPA 

00818 K6 00377 03052 
BRANCH IF FLOATING ARRAY 

00830 MM 00866 00221 
00842 LL 00221 -0566 
STORE FIXED LENGTH IN TEMPA 

00854 K6 00377 02221 
STORE ADDRESS OF FIRST ELEMENT 

00866 20 02834 00221 
00878 11 02834 -0001 
HIGH ORDER POSITION OF ARRAY 

00890 2K 02834 00377 
00902 K6 01149 02834 
00914 K3 00377 03843 
00926 32 00095 00000 
00938 Kl 01149 00099 



02670 CARRY 
02680 
02690 
02700* 
02710* 
02720* 



CM 

BNE 

TFM 



EVENl+11,0 
* + 24 

EVEN 1+1 1,0 



00950 J4 01149 -0000 
00962 M7 00986 01200 
00974 J6 01149 -0000 
EVALUATE AND STORE LOW ORDER 
POSITION + I OF ARRAY 
EVALUATE SECTOR COUNT 



02730 




AM 


97,1 ,9, ADD 


ONE FOR GROUP MARK 00986 


11 


00097 


00-01 


02740 




TD 


*+23,RECLG 


00998 


K5 


01021 


02243 


02750 


BDI2 


BD 


OVER3,251f , 


BRANCH IF RECLG IS 1 01010 


M3 


01058 


00251 


02760 




TD 


*+23,97 


01022 


K5 


01045 


00097 


02770 




BD 


*+24,210,, 


BRANCH IF EVEN NUMB OF SECTORS 
















01034 


M3 


01058 


00210 


02780 




AM 


97,1,10 


01046 


11 


00097 


000-1 


02790 


0VER3 


TF 


DIODDA+8,97, , 


SET UP SECTOR COUNT 01058 


26 


02829 


00097 


02800 




BD 


OVER2,BDI2+ll 


,11 01070 


ML 


01094 


0102J 


02810 




MM 


DlODDA+8,50, 10 01082 


13 


02829 


OOONO 


02820 


0VER2 


A 


FIND-1,97,6, 


ADD NUMBER OF RECORDS TO I 01094 


Kl 


0028J 


00097 


02830 




SM 


FlND-1, 1,610 


01106 


J2 


0028J 


000-1 


02840 




TFM 


RETD2+6,«+20 


01118 


JO 


00408 


-1138 


02850 




B 


N2CK 


01130 


M9 


00354 


00000 


02860 




DORG 


♦-4 


01137 








02870 


EVENl 


TD 


EVEN2+11 


01138 


K5 


01221 


00000 


02880 




BO 


FETCH8, FRIND, 


, BRANCH IF FETCH 
















01150 


ML 


01248 


00421 



02890* 
02900 

02910* 
02920 
02930 
02940 

02950 EVEN2 



EVENl+ll,0KBUFF+200,6 



02960 
02970 

02980 
02990 

03000 FETCH8 



TDM 
TOM 

AM 
A 

BB 

DORG 
TFM 



I0RT,«+23 
lORBCNOWLC ,7 
FLTEND-5,2 
EVENl+llf ,6, 

FIND-1, 1,610 
DlODDA+5,DlODDA+8 



DI0+35,YTURN,67 



TFM IORT,*+23,, 



03020 
03030 

03040* 
03050 

03060 
03070 
03080 
03090 
03100 
03110 



B 

TFM 



I0GT,DKDATAt7 
IN0UT,CHECK-12 



SET GROUP MARK AT END OF ARRAY 

01162 KN 0114R 01462 
WRITE ARRAY ONTO FILE 

01174 10 00565 -1197 
01186 4R 00520 -0000 
01198 15 03113 00002 
RESTORE DIGIT 

. 01210 J5 0114R 00000 
01222 Jl 0028J 000-1 
, INCREMENT SECTOR ADDRESS 

01234 21 02826 02829 
01246 42 00000 00000 
01248 

INSERT ADDRESS FOR ERROR ENTRY 

01248 10 0085N -1354 
READ ARRAY FROM FILE 

01260 10 00565 -1283 
01272 49 00566 -2813 
, RESTORE SPECIAL lORT ERROR EXIT 

01284 16 00629 -1256 
TEST FOR NO GROUP MARK 



BNG 
B 

DORG 

TF 

TFM 



*+20,EVENH-lli 
EVEN2 



11 



FLTEND, EVENSP+6 
EI ,473,9 

ERROR 



01296 NN 01316 0114R 
01308 M9 01210 00000 
01315 

01316 20 03118 01353 
01328 16 02615 00M73 
01340 49 02984 00000 
01347 



650 



PAGE 



16 



03120 


EVENSP 


DC 


1»4 






01347 


00001 


03130 




DSC 


1»9 






01348 


00001 


03140 




DSA 


EVEN2-12 






01353 


00005 -1198 


03150 


YTURN 


BI 


«+12,3700,, TURN 


OFF WLRC IND 




01354 


M6 01366 03700 


03160 




BNI 


ERRET,I900,» GO 


ON IF NO OTHER 


ERROR 


01366 


47 00602 01900 


03170 




TFM 


INOUT,MYER,, SET 


UP SECOND lORT 


ERROR EXIT 
















01378 


10 00629 -0166 


03180 




B 


lOERR,,, LET lORT CHECK ANY OTHER ERRORS 


01390 


49 00630 00000 


03190 




□ ORG 


*-4 






01397 




03200 




DORG 


SWD+906 






0 1404 




03210 


TEMPA 


DS 


2,N2CK+23 






00377 


00002 


03220 


NITEMP 


DS 


2,RETD2-1 






00401 


00002 


03230 


FRIND 


DS 


l»BE2+7 






0042 1 


00001 


03240* 


WRITE FIRST BLOCK 










03250* 














03260 


DIM2 


DSC 


It 1 






0 1404 


0000 1 


03270 




DSA 


200 






01409 


00005 -0200 


03280 




DC 


3,9 






01412 


00003 


03290 




DSA 


SWD 






01417 


00005 -0498 


03300 




DC 


i,a 






01418 


00001 


03310 


LD2ND 


DSC 


2,00 






01419 


00002 


03320 




DSA 


DIM2 






01425 


00005 -1404 


03330 




DC 


i,a 






01426 


0000 1 


033A0 


STLD2 


TD 


CARRY+7,C0RSIZ 






01428 


K5 00957 07376 


03350 




AM 


CARRY+8, 10,10 






01440 


Jl 00958 OOOJO 


03360 


GM 


CF 


EVENSP+2 






01452 


L3 01349 00000 


03370 




DGM 


DKBUFF+200 






01462 


00001 


03380 




DGM 


SWD+900 






01398 


00001 


03390 




TFM 


I0RT,NI0+11 






01464 


10 00565 -1487 


03400 


NIO 


B 


I0PT,LD2ND,7 






01476 


4R 00532 -1419 


03410 




TRA 








01488 


10 00565 -1507 



01500 49 00716 00000 

01507 00002 2K 

01509 00005 -1515 

01514 00001 3 

01515 00006 1J9783 
01521 00003 -03 
01524 00006 -OOOOa 

03420 TCD STLD2 01428 

03430 DEND 7 00007 
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OOOlO***** 


1620 FORTRAN II-D RELOCATABLE SINE 


AND COSINE ROUTINES 




00020***** 


METHOD 
















00030***** 


C0SXXn#SIN«PI0V2-Xa 














00040***** 


SINSXa#EITHER 
















1-«X 


**2n/2+«X** 


4n/24-SX**6D/720 










00060***** 


OR 
















00070»«**» 


X-%X 


**3n/6+XX** 


5B/120-!JX*»7n/5040 










00080 


DSA FCOS, FSIN 






00004 


00005 -0006 












00009 


00005 -0042 


00090 


DORG *-4 








00005 








00100 FCOS 


BLXM SET 


,*-l«0a 


,11 




00006 


60 


04142 


OOOON 


OOllO* 


















00120* 


SET COSINE INDICATOR 














00130* 


















00140 


TFM IND 


,00005 


,711 




00018 


J6 


00233 


-OOON 


00150 


B FSIN+24 








00030 


M9 


00066 


00000 


00160 FSIN 


BLXM SET 


,*-lX0Q 


,11 




00042 


60 


04142 


0004J 


00170* 


















00180* 


SET SINE INDICATOR 














00190* 


















00200 


TFM IND 


,00000 






00054 


J6 


00233 


-0000 


00210* 


















00220* 


SHIFT TO F+2 


POSITIONS 














00230* 


















00240 SHIFT 


FSL FAC-3?4n 


,FAC-2 






. 00066 


05 


0K489 


02490 


00250* 


















00260* 


SPECIAL CASE 


IF X IS LESS THAN 10**35- 


Fn OR 


GREATER THAN 


10**F 




00270* 


















00280 


C FAC 


,MF 






00078 


24 


02492 


03054 


00290 


BNH CKRAN 








00090 


M7 


01114 


01100 


00300 


C FAC 


»F 






00102 


24 


02492 


02219 


00310 


BL CKRED 








00114 


M7 


00174 


01300 


00320 


TFM EI 


,671 


,9 




00126 


16 


02615 


00071 


00330 


TFL FAC 


tFLZER 






00138 


06 


02492 


03742 


00340 


BLXM RESET 


,ERXV+24«0n 




00150 


66 


06808 


03144 


00350 ZERARG 


BLXM RESET 


♦ZERFACXOa 






00162 


66 


06808 


02836 


00360* 


















00370* 


DOES ARGUMENT 


REQUIRE REDUCTION 












00380* 


















00390 CKRED 


CM FAC 


,00 


,10 




00174 


14 


02492 


000-0 


00400 


BH RED 








00186 


M6 


00314 


01100 


00410* 


















00420* 


NO ARGUMENT REDUCTION IS 


REQUIRED 












00430* 


















00440 NORED 


CF NORED 


,00 






00198 


L3 


00198 


00000 


00450 


BNt »+36 








00210 


M6 


00246 


01300 


00460 


SF NORED 


,00000 






00222 


L2 


00198 


00000 


00470 IND 


DS ,» 








00233 


00000 




00480 


TF NORED+11 


,FMi 






00234 


K6 


00209 


02969 


00490 


TFM ADD+11 


,96 






00246 


J6 


01033 


-0096 


00500 


TF 00314 


,FAC, 






00258 


26 


00314 


02492 


00510 


BD COS 


,IND 






00270 


ML 


00650 


00233 


00520* 



















65 2 



00530* 


INITIALIZE FOR 


SINE SERIES 










UOOHu o 1 In 


TF 


BETA 


, FAC-2 










00550 


TFM 


00309 


,02 ,10 








000 2 


00560 


B7 


SET UP 




00306 


MQ 


006 86 


UUUUU 


00570* 
















00580* 


REDUCE ARGUMENT TO ONE CIRCLE 










00590* 
















00600 RED 


BNF 


»+44 


,IND 


003 14 


MM 


00358 


00233 


006 10 


FADD 


FAC 


,PI0V2 


00326 


0 1 


02492 


03526 


00620 


TDM 


IND 


,0 


00338 


J5 


00233 


00000 


00630 


B7 


CKRED 










00000 


00640 


S 


00309 


,FAC 






nn^ I 


02492 


00650 


BD 


* + 24 


,WJRS 




5^ 






00660 


TF 


79 


,-ZEROM 






nnn7o 




00670 


LD 


lOOSln 


, FAC-2 


00394 


28 


001 0 


02490 


00680 


D 


9921n 


,TWDPl-2 


Q0406 


29 


000R9 


03396 




BNF 


* + 24 


,99 


nn4^n 






00099 


z9 ^ 


A 


99 


,TW0Pl-2 




2 1 


00099 


03396 




















REDUCE ARGUMENT TO -1 LESS THAN X 


LESS THAN +1 


























SF 


99 




00442 


32 


00099 


00000 




A 


99 


,PI-2 




2 1 


00099 




00760 


MF 


MU-1 


,99 


nn466 


7 1 


030 19 


00099 


00770 PLACE 


BD 


MORE 


,98«4n 


00478 




00606 




00780 


SF 


99«4n 




00490 


32 


0-099 


00000 


00790 


TF 


FAC-2 


, 100 


005 02 


26 




OOlOO 


00800 


TFM 


FAC 


,00 ,10 


00514 


16 


02492 


000-0 


008 10* 
















00820* 


NORMALIZE FAC 












00830* 
















00840 NORM 


BD 


CK RED 


,FAC-3«4a 


00526 


M3 


00174 


0K489 


00850 


CM 


FAC-2 


,00 ,10 


005 38 


14 


02490 


000-0 


00860 


BE 


ZERARG 




00550 


M6 


00162 


01200 


00870 


SF 


FAC-2S54n 




00562 


32 


0K490 


00000 


00880 


FSL 


FAC-3»4n 


,FAC-2 


00574 


05 


0K489 


02490 


00890 


SM 


FAC 


,01 ,10 


00586 




nncof 


000- 1 


00900 


87 


NORM 




00598 


MO 

M9 


00526 


UUUUU 


009 10* 
















00920* 


MORE 


REDUCTION 


IS REQUIRED 




























S 


99 


,PlOV2-2 


00606 


22 


00099 


03524 


00950 


CF 


99 




006 18 


33 


00099 


00000 


00960 


AM 


IND 


,05 ,10 


00630 


Jl 


00233 


000-5 


00970 


B7 


PLACE 




00642 


M9 


00478 


00000 


00980* 
















00990* 


INITIALIZE FOR 


COSINE SERIES 










01000* 
















01010 COS 


TF 


BETA 


,9SCPF+2 


00650 


26 


02603 


03240 


01020 


TFM 


FAC 


,00 ,10 


00662 


16 


02492 


000-0 


01030 


TFM 


00309 


,01 ,10 


00674 


16 


00309 


000-1 


01040* 
















01050* 


SET UP TO EVALUATE SERIES 
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01060*. 
















01070 SETUP 


TF 


SAVE 


,BETA 


UUooo 


26 


02565 


n^ni « 


01080 


BD 


* + 24 


,WJRS 




M3 


00722 




01090 


TF 


79 


,-ZEROM 




26 


00079 






M 


FAC-2 


, FAC-2 


00722 


23 


02490 


02490 


01 1 10 


TF 


FAC-2 


,97X4n 


00734 


26 


02490 


0-097 




SF 


FAC-2 




00746 


32 


02490 


00000 


Oil 30 


A 


00314 


,00314 


00758 


21 


00314 


00314 


















Oil 50* 


LOOP 


TO EVALUATE THE SERIES 


























n 1 1 7 n 1 nn d 
U X 1. 1 U L UU r 


BD 


•+24 


,WJRS 


00770 


M3 


00794 


030 18 




TF 


79 


,-ZEROM 


0O782 


26 


00079 


028 5R 


01190 


M 


SAVE 


, FAC-2 


00794 


23 


02565 


02490 




TF 


SAVE 


,97J4n 


008 06 


26 


02565 


0-097 


01210 


MF 


SAVE 


,99 


00818 


71 


02565 


00099 




M 


00309 


,00309 


008 30 


23 


00309 


00309 


01230 


A 


99 


,00309 


00842 


21 


00099 


00309 


01240 


TF 


79 


,ZER0-66 


00854 


26 


00079 


02701 




SF 


97 




0O866 


32 


00097 


00000 


m 9An 


TF 


* + 35 


,99 


00878 


K6 


00913 


00099 


01270 


LO 


99 


,SAVE 


f\f\QQf\ 


28 


00099 


02565 


01280 


DM 


98?4n 


» *"■• 


nna?f 


19 


0-098 


—0000 


01290 


TF 


SAVE 


,96 




26 


02565 




01300 


BE 


END 




00926 


M6 


01046 


f no 




BNF 


ADD 


, NOR ED 


nnn-ia 
00938 


MM 


01022 


00 198 


01320 


A 


NO RED+11 


,00314 




Kl 


00209 


00314 


01330 


BL 


END 






M7 


01046 




01340 


A 


AOD-t-ll 


,00314 


00974 


KI 


01033 


00^4 


01350 


CM 


♦+47 


,00 ,610 


00986 


J4 


0i03L 


000—0 


01360 


BE 


END 






M6 


01046 






MF 


♦+23 


,96 ,6 


01010 


PI 


0103L 


00096 


UI^OU ADD 


A 


BETA 


,96 


01022 


21 


02603 


00096 




BX 


LOOP 


♦SIN+23«ln 


0103* 


OJ 


00770 


003-5 


01400* 


















EXIT 


FROM LOOP 












01420* 
















01430 END 


TF 


FAC-2 


,BETA 


01046 


26 


02490 


02603 


01440 


TFM 


NORM+6 


,*+20 


01058 


JO 


00532 


-1078 




87 


NORM 




01070 


M9 


00526 


00000 


01460 


TFM 


NORM+6 


,CK RED 


01078 


JO 


00532 


-0174 
















01480* 


RESIZE ANSER AND EXIT 










01490* 
















01500 RESIZE 


FSR 


FAC-2 


, FAC-4 


01090 


08 


02490 


02488 


01510 


BLXM 


RESET 


,FlXEND«On 


01102 


66 


06808 


03068 


01520* 
















01530* 


COS%0.n#l. 












01540* 
















01550 CKRAN 


BD 


* + 20 


, I ND 


01114 


ML 


01134 


00233 


01560 


B7 


RESIZE 




01126 


M9 


01090 


00000 


01570 


TFL 


FAC 


,ONE 


01134 


06 


02492 


03302 


01580 


B7 


RESIZE 




01146 


M9 


01090 


00000 



^5 4 



01590 



DEND 2 



00002 
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00010«»*»» 


1620 FORTRAN 


1 II-D RELOCATABLE ARCTANGENT 


ROUTINE 










METHOD 












00030»*»» 


A«X AND B#0 


IF ARG IS LESS THAN .29 










00040**** 


A#%X-,6n/«l+ 


.6*Xn AND B#ATN%.6a IF ARG IS 


NOT UNDER ,29 




00050**** 


ATN«Xn#A*«l- 


A**2/3+A**4/5-. . , .A*»!82«N-lan 


/X2N-lnn+t 


J 






00060 


DSA 


FATN 




00004 


00005 -0006 


00070 FATN 


BLXM 


SET 


,*-l«On ,11 


00006 


60 


04142 


OOOON 


00080* 
















00090* 


ATAN«Xn n X 


IF X IS LESS THAN 10**aE-FD 










00100* 
















00110 


BD 


*-f 24 


,FAC-1«4B 


00018 


M3 


00042 


0K491 


00120 


BLXM 


RESET 


,ZERFACSOn 


00030 


66 


06808 


02836 


00130 


C 


FAC 


,MF 


00042 


24 


02492 


03054 


00140 


BNH 


EXITS 




00054 


M7 


00926 


01100 


00150* 
















00160* 


STORE SIGN AND RESET PROGRAM INDICATORS 










00170* 
















00180 


MF 


MU-1 


,FAC-2 


00066 


71 


03019 


02490 


00190 


TFM 


Q-i-Il 


,000 


00078 


J6 


00197 


-0000 


00200* 
















00210* 


EXPAND FAC TO F+2 POSITIONS 










00220* 
















00230 


FSL 


FAC-3«4n 


,FAC-2 


00090 


05 


0K489 


02490 


00240* 
















00250* 


IS 


RECIPROCAL REQUIRED 










00260* 
















00270 


CM 


FAC 


,00 ,10 


00102 


14 


02492 


000-0 


00280 


BNH 


60 ON 




00114 


M7 


00198 


01100 


00290 


TFL 


BETA 


,ONE 


00126 


06 


02603 


03302 


00300 


BD 


• ■•-24 


,WJRS 


00138 


M3 


00162 


03018 


00310 


TF 


79 


,-ZEROM 


00150 


26 


00079 


0285R 


00320 


FDIV 


BETA 


,FAC 


00162 


09 


02603 


02492 


00330 


TFL 


FAC 


,BETA 


. 00174 


06 


02492 


02603 


00340 Q 


SF 


RECIND 


,00000 


00186 


L2 


00197 


00000 


00350 RECIND 


DS 




,* 


00197 


00000 




00360 .29IN0 


DS 




,*-l 


00196 


00000 




00370* 
















00380* 


SAVE # FAC 


OR SAVE # «FAC - .6n/%l + ,6*FACn 








00390* 
















00400 GOON 


TFL 


SAVE 


,FAC 


00198 


06 


02565 


02492 


00410 


CM 


SAVE 


,00 ,10 


00210 


14 


02565 


000-0 


00415 


BH 


WOW 




00222 


M6 


00270 


01100 


00420 


BNE 


NEXT 




00234 


M7 


00378 


01200 


00430 


CM 


FAC-2«4n 


,29 ,10 


00246 


14 


0K490 


00OK9 


00440 


BL 


NEXT 




00258 


M7 


00378 


01300 


00450 WOW 


SF 


,29 1 NO 


,02 ,10 


00270 


L2 


00196 


000-2 


00460 


FSUB 


SAVE 


,SIXTEN 


00282 


02 


02565 


03494 


00470 


BD 


«+24 


,WJRS 


00294 


M3 


00318 


03018 


00480 


TF 


79 


,-ZEROM 


00306 


26 


00079 


028 5R 


00490 


FMUL 


FAC 


,SIXTEN 


00318 


03 


02492 


03494 


00500 


FADD 


FAC 


,ONE 


00330 


01 


02492 


03302 


00510 


BD 


»+24 


,WJRS 


00342 


M3 


00366 


03018 


00520 


TF 


79 


,-ZEROM 


00354 


26 


00079 


0285R 



esc 
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00530 


FDIV 


SAVE 


» FAC 




00366 


09 


02565 


02492 


005A-0* 


















00550* 


INITIALIZE 


FOR LOOP 












00560* 


















00570 NEXT 


TFL 


FAC 


tSAVE 




00378 


06 


02492 


02565 


00580 


BO 


*+24 


.WJRS 




00390 


M3 


00414 


03018 


00590 


TF 


79 


,-ZEROM 




00402 


26 


00079 


0285R 


00600 


M 


FAC-2 


»FAC~2 




00414 


23 


02490 


02490 


00610 


TF 


BETA 


,97«4n 




00426 


26 


02603 


0-097 


00620 


SF 


BETA 






00438 


32 


02603 


00000 


00630 


TFM 


00309 


f03 , 


10 


00450 


16 


00309 


000-3 


00640 


CF 


ADD 






00462 


L3 


00750 


00000 


00650 


CM 


FAC 


»00 , 


10 


00474 


14 


02492 


000-0 


00660 


BNL 


*+36 


,00 




00486 


M6 


00522 


01300 


00670 QST 


SF 


ADD 


,00000 




00498 


L2 


00750 


00000 


00680 


TF 


QST+11 


,FM1 




00510 


K6 


00509 


02969 


00690 


TFM 


ADD+11 


♦00097 




00522 


J6 


00761 


-0097 


00700 


TF 


QST-1 


,FAC 




0053^ 


K6 


00497 


02492 


00710 


A 


QST-1 


, FAC 




00546 


Kl 


00497 


02492 


00720* 


















00730* 


LOOP TO EVALUATE SERIES 










00740* 


















00750 LOOP 


BD 


«+24 


tWJRS 




00558 


M3 


00582 


03018 


00760 


TF 


79 


,-ZEROM 




00570 


26 


00079 


0285R 


00770 


M 


SAVE-2 


,BETA 




00582 


23 


02563 


02603 


00780 


TF 


SAVE-2 


,97«4D 




00594 


26 


02563 


0-097 


00790 


MF 


SAVE-2 


,99 




00606 


71 


02563 


00099 


00800 


TF 


79 


,ZER0-68 




00618 


26 


00079 


02699 


00810 


LD 


99 


,SAVE-2 




00630 


26 


00099 


02563 


00820 DIV 


D 


98?4n 


,00309 




00642 


29 


0-098 


00309 


00830 


BE 


ZOP 






00654 


M6 


00774 


01200 


00840 


BNF 


ADD 


,ADD 




00666 


MM 


00750 


00750 


00850 


A 


QST+11 


, QST-1 




00678 


KJ 


00509 


00497 


00860 


BL 


ZOP 






00690 


M7 


00774 


01300 


00870 


A 


ADD+U 


, QST-1 




00702 


KJ 


00761 


00497 


00880 


CM 


*+47 


f 00 , 


610 


00714 


J4 


0076J 


000-0 


00890 


BE 


ZOP 






00726 


M6 


00774 


01200 


00900 


MF 


*+23 


t97 , 


6 


00738 


PI 


0076J 


00097 


00910 ADD 


A 


FAC-2 


,00097 




00750 


21 


02490 


00097 


00920 


BX 


LOOP 


twow-t-iism 




00762 


OJ 


00558 


002Q1 


00930* 


















00940* 


SET UP FOR 


EXIT 












00950* 


















00960 ZOP 


CM 


FAC-2 


tOO , 


10 


00774 


14 




000 0 


00970 


BE 


EXIT 






00786 


M6 


00854 


01200 


00980 


BD 


EXIT 


,FAC-3X4n 




00798 


M3 


00854 


0K489 


00990 


SF 


FAC-2«4n 






008 10 


32 


0K490 


00000 


01000 


FSL 


FAC-3S54D 


, FAC-2 




00822 


05 


0K489 


02490 


01010 


SM 


FAC 


»01 , 


10 


008 34 


12 


02492 


000-1 


01020 


B7 


ZOP 






00846 


M9 


00774 


00000 


01030* 


















01040* 


PREPARE TO 


EXIT 












01050* 
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01060 EXIT 


BNF «+24 


,.29IND 


00854 


MM 


00878 


00196 


01070 


FADD FAC 


,ATAN.6 


00866 


01 


02492 


03430 


01080 


BNF *+36 


,RECINO 


00878 


MM 


00914 


00197 


01090 


SF FAC-2 




00890 


32 


02490 


00000 


01100 


FADD FAC 


,PI0V2 


00902 


01 


02492 


03526 


OHIO* 














01120* 


RESIZE TO 


F DIGITS 










01130* 














01140 


FSR FAC-2 


,FAC-4 


00914 


08 


02490 


02488 


01150 EXITS 


BLXM RESET 


,FlXENDXOn 


00926 


66 


06808 


03068 


01160 


DEND 1 




OOOOl 









63b 



00010*«»*« 


1620 FORTRAN 


II-D RELOCATABLE 


SQUARE 


ROOT ROUTINE 






00020«««*» 


METHOD 
















00030***** 


THE SQUARE ROOT IS TAKEN USING 


THE ODD 


INTEGER METHOD 






00040 


DSA SORT 








00004 


00005 -0006 


00050 SORT 


BLXM SET 


tSQRT-ixon 


♦ 11 




00006 


60 


04142 


OOOON 


00060* 


















00070* 


IS ARGUMENT ZERO 














00080* 


















00090 


BD «+24 


,FAC-l«4n 






00018 


M3 


00042 


0K491 


00100 


BLXM RESET 


,ZERFAC«On 






00030 


66 


06808 


02836 


00110* 


















00120* 


STORE SIGN AND 


COMPUTE EXP/2 












00130* 


















00140 


MF SORT 


, FAC-2 






00042 


PI 


00006 


02490 


00150 


MM FAC 


»50 


,10 




00054 


13 


02492 


OOONO 


00160 


BO SQ3 


,98 






00066 


M3 


00422 


00098 


00170* 


















00180* 


SAVE EXPONENT 
















00190* 


















00200 SQ2 


MF 97 


♦ 99 






00078 


71 


00097 


00099 


00210 


TF FAC 


»97 






00090 


26 


02492 


00097 


00220 


A 00309 


,00324 






00102 


21 


00309 


00324 


00230* 


















00240* 


PLACE ARGUMENT 


IN FIXED 


PRODUCT AREA 










00250* 


















00260 


BD »+24 


♦ WJRS 






00114 


M3 


00138 


03018 


00270 


TF 79 


,-ZEROM 






00126 


26 


00079 


0285R 


00280 


LD 97!8in. 


, FAC-2 






0O138 


28 


OO0R7 


02490 


00290* 


















00300* 


SET UP FOR LOOP 














00310* 


















00320 


TF GAM 


,0NE-2 






00150 


26 


02555 


03300 


00330 


TFM GAMS!4n 


,01 


,10 




00162 


16 


0K555 


000-1 


00340 


TF 00309 


♦00324 






00174 


26 


00309 


00324 


00350 


SM 00309 


,01 


,10 




00186 


12 


00309 


000-1 


00360 


TF 00314 


,00334 






00198 


26 


00314 


00334 


00370 


B7 LOOP+12 








00210 


M9 


00230 


00000 


00380* 


















00390* 


LOOP 
















00400* 


















00410 LOOP 


AM GAM+lXln 


,02 


,10 




00218 


11 


025N6 


000-2 


00420 


S 99«2n 


,6AM-t-lSla 






00230 


22 


00-99 


025N6 
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659 



00540* 


MAS THERE AN ERROR 
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99 
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IF 
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CM 
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02484 
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00170 
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EVALEX , 
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A 
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02490 
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M 


FAC , 
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02492 
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TP 


SAV3 , 


r99 14DIG 00186 26 
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00099 


00240 


S 


SAV3 1 
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EXPAND TO NINE DIGIT FIELD AND CALC Z EQUAL ,X-RSQR2/X+RSQR2 
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TF 
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rFAC-2 ft 9 .5 TO .9 00210 26 
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MF 
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S- 
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02490 
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00310 


A 
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02630 


06180 


00320 


LD 


89 , 
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00089 


02490 
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D 


90 , 
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00090 


02630 


00340 


TF 
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,90 tt 10 -.16T0 .17 IS Z 
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00090 
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MF 


BETA , 
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00099 
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M 
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02630 


02630 


00370 


IF 


SAVE , 
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00330 26 


02592 


00089 
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M 
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88 
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00089 


00460 


M 


FAC-2 


t SAVE 






00414 


23 


02490 


02592 


00470 


TDM 


79 


»-2 






ADD CI 00426 


15 
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MF 


91 
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91 
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21 
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00560 
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06 
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71 
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000-1 


00600 


TFL 
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06 
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B7 
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66 
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00420** WHERE F^Zn EQUALS E«V-n. T , A, B , C , D , AND E ARE CONSTANTS 
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OOOlO***** FORTRAN II-D RELOCATABLE-SUBSCRIPTING ROUTINE ?FIXEOn 

00020«««« FOR TWO OR THREE DIMENSIONAL SUBSCRIPTED VARIABLES 

00030**** LINKAGE BTM ENTRYX,»-H2 WHERE X# 2 OR 3 
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00050*««« IF Q ADDRESS IS FLAGGED BASE IS FIXED 

00060**** IF BASE IS FLAGGED ARRAY IS FORMAL PARAMETER 

00070*»»» IF Dl IS FLAGGED - I/O 

00080««*«« INDEX REGISTER FLAGS ARE ON BASE 
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00200 




TF 


X + 11 




,KK 
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K6 
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02221 
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TR 
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MF 
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PI 
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fDl 
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,COM 
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00078 


00250 




CF 


Dl 










00174 


33 


00014 


00000 


00260 




TFM 


ANS 




f 00000 






00186 


J 6 


00041 


-0000 


00270 




TF 
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iK 




til 
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B7 
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M9 
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Dl 
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B7 
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M9 


00430 


00000 


00350 




A 
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»D4 
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X 


MM 
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J3 


00041 


000-0 


00370 




MF 
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,99 
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PI 


00374 


00099 


00380 




MA 
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00314 


PO 


00409 


00004 


00390 




TD 
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00004 
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00400 




TR 


* + 31 
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00530 


KK. 


D S 
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00540 


WKARE A 
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00000 


00042 


00550 
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DS 


,WKAREA+4 


00004 


00000 


00560 


D4 


DS 


,WKAREA+9 


00009 


00000 


00570 


01 
I 


DS 


,WKAREA+14 


000 14 


00000 


00580 


DS 


,WKAREA+19 


00019 


00000 


00590 


02 


DS 


,WKAREA+24 


00024 


00000 


00600 


J 


DS 


,WKAREA+29 


00029 


00000 


00610 


D3 


DS 


, WKAREA+34 


00034 


00000 


00620 


K 


DS 


,WKAREA+39 


00039 


00000 


00630 


RECMK 


DS 


,02403 


02403 


00000 


00640 




□ END 2 




00002 





667 

PAGE 7 

OOOlO* FORTRAN II-D DK 10 FIXED 

00020* 



00030 


ADR 


DSA 


SWDFXtFINO, RECORD) 


.FETCH, 


,SWD,DRAY,0I0END 00004 


00005 -0058 












00009 


00005 -0282 












00014 


00005 -0616 












00019 


00005 -0580 












0002^ 


00005 -0498 












00029 


00005 -0222 












00034 


00005 -0552 


00040 




DORG 


ADR-4 




00000 




00050 


EEXIT 


DS 


,1636 




01636 


00000 


00060 


CHECK 


DS 


,1268 




01268 


00000 


00070 


INOUT 


DS 


,629 




00629 


00000 


00080 


lOCAL 


DS 


,716 




00716 


00000 


00090 


lORBC 


OS 


,520 




00520 


000 Oo 


00100 


lORT 


OS 


,565 




00565 


00000 


00110 


DID 


DS 


,820 




00820 


00000 


00120 


IdSK 


DS 


,554 




00554 


00000 


00130 


INDS 


DS 


,610 




00610 


00000 


00140 


ERRET 


DS 


,602 




00602 


00000 


00150 


lOERR 


OS 


,630 




00630 


00000 


00160 


lOGT 


DS 


,566 




005 66 


00000 


00170 


lOPT 


OS 


t532 




00532 


00000 


00180 


FAC 


DS 


♦ 2492 




02492 


00000 


00190 


DIODDA 


DS 


,2868 




02868 


00000 


00200 


FINDIN 


OS 


,2404 




02404 


00000 


00210 


FKODD 


DS 


,2987 




02987 


00000 


00220 


PAR 


DS 


,3843 




03843 


ooooo 


00230 


ERROR 


OS 


♦ 2936 




02936 


00000 


00240 


EI 


OS 


,2615 




02615 


ooooo 


00250 


RTN 


DS 


,2506 




02506 


ooooo 


00260 


FIXEND 


DS 


,2960 




02960 


ooooo 


00270 


FLTEND 


DS 


,2966 




02966 


ooooo 


00260 


FLOAT 


OS 


,3998 




03998 


ooooo 


00290 


DKDATA 


DS 


,2860 




02860 


ooooo 


00300 


FIX 


DS 


♦ 3854 




03854 


ooooo 


00310 


RECLG 


DS 


♦ 2243 




02243 


ooooo , 


00320 


W 


DS 


,2240 




02240 


ooooo 


00330 


N2 


OS 


,2238 




02238 


ooooo 


00340 


NI 


DS 


,2233 




02233 


ooooo 


00350 


K 


DS 


,2221 




02221 


ooooo 


00360 


F 


DS 


,2219 




02219 


ooooo 


00370 


CORSIZ 


DS 


,7376 




. 07376 


ooooo 


00380* 












00390 


NDWLC 


DSC 


2,02 




00000 


00002 


00400 




DSA 


DIODDA 




00006 


00005 -2868 


00410 




DC 


i,a 




00007 


OOOOl 


00420 


OUT 


BV 


« + 12 




00008 


M6 00020 01 400 


00430 




A 


BE2+20 ,BE2+23 




00020 


KJ 00434 00437 


00440 




BB2 






000 32 


42 OOOOO OOOOO 


00450 


AITEST 


TDM 


FINDIN ,1 


» 11, 


SET FIND INDICATOR OFF 














000 34 


15 02404 OOOOJ 


00460 




B 


FIND+12 




00046 


M9 00294 OOOOO 



668 



00470 


SWDFX 


TD 


SWD-1 »SWDFX-1 




00058 


KN 






00480 




TFL 


SWO-2 ,SWDFX-2 




00070 


—0 


00496 


00056 


00490 




SF 


SWD-1 




00082 


L2 


00497 


OOOOU 


00500 




B7 


SWD 




00094 


M9 


00498 


00000 


00510 


FECH 


TD 


FIND-1 ,FETCH-1 




00102 


KN 


0028 1 


00579 


00520 




TFL 


FIND-2 ,FETCH-2 




00114 


-0 


00280 


00578 


00530 




B7 


FETCH+12 




00126 


M9 


00592 


00000 


00540 


RECp 


TD 


FIND-1 ,RECORD- 


1 


00134 


KN 


0028 1 


00615 


00550 




TFL 


FIND-2 iRECORD- 


2 


00146 


-0 


00280 


00614 


00560 




B7 


RECORD+12 




00158 


M9 


00628 


00000 


00570 


MYER 


BI 


«+12f37Q0,, TURN 


OFF 


WLRC IND 00166 


M6 


00178 


03700 


00580 




BI 


CHECK-12,1900,, LET 


lORT HANDLE DISK OVERFLOW 


















00178 


46 


01256 


01900 


00590 




B7 


EEXIT,,,WLRC WAS 


ONLY ERROR 00190 


49 


01636 


00000 


00600 




TF 


NlTEMPfNl 




00198 


K6 


00401 


02233 


00610 


TOBB 


B 


DRAYl, ,0 




00210 


M9 


01196 


00000 


00620 


DRAY 


TDM 


T0BB+lf9,, 




SET TOBB TO BRANCH 
















00222 


J5 


00211 


00009 


00630 




BD 


EVEN,FKOOD,, 




TEST FOR EVEN ADDRESS 














00234 


M3 


00818 


02987 


00640 




BD 


AGAIN, DDABLK+1,, 




BRANCH IF BUFFER PROG IN CORE 
















00246 


ML 


00964 


00530 


00650 




TFM 


OSABLK+5, AGAIN 




00258 


JO 


00547 


-0964 


00660 




B 


SWD+12 




00270 


M9 


00510 


00000 


00670 


FIND 


TDM 


FINDIN»0, ♦ 




SET FIND INDICATOR ON , 
00282 


15 


02404 


00000 


00680 




SF 


BE2+22 




00294 


L2 


00436 


00000 


00690 




BNV 


♦ + 24 




00306 


M7 


00330 


01400 


00700 




CF 


BE2+22 




00318 


L3 


00436 


00000 


00710 




BD 


SETl fFINDIN 




00330 


M3 


00652 


02404 


00720 




TFM 


RETD2 + 6,SET1» » 




BRANCH TO COMPUTE ADDRESS 


AND TESTI 












00342 


JO 


00408 


-0652 


00730» N2 


ERROR ROUTINE %l GRT 


N2D 








00740 


N2CK 


CM 


FIND-1 ,00 




610, IS I ZERO OR NEG 

00354 


J4 


0028J 


000-0 


00750 




BNH 


BE2 




00366 


M7 


00414 


01100 


00760 




C 


FIND-1, N2i6, 




COMPARE I AND N2 

00378 


K4 


0028J 


02238 


00770 




BH 


BE2 




00390 


M6 


00414 


01100 


00780 


RETD2 


B 






00402 


49 


00000 


00000 


00790 


BUFFAR 


DS 






00413 


00000 




00800 


BE2 


BV 


*+12 




00414 


M6 


00426 


01400 


00810 




AM 


♦+8 ,00000 




79 00426 


Jl 


00434 


-0-00 


00820 




TFM 


EI ,472 




9 00438 


16 


02615 


00M72 


00830 




TF 


N1TEMP,N1 




00450 


K6 


00401 


02233 


00840 




BD 


ERROR, DDABLK,, BR 


IF 


CK MADE FROM EVEN ARRAY PROGRAM 














00462 


4L 


02936 


00529 


00850 




TFM 


DSAOTR-l-5, ERROR 




00474 


J6 


00705 


-2936 


00860 




B 


SETRMK 




00486 


M9 


00656 


00000 


00870» 
















00880*«»«* 


SWO SUBROUTINE 












00890 


SWOA 


TDM 


SWD4-900,0 




00498 


J5 


01398 


00000 


00900 




TFM 


♦-11,41,10 




00510 


J6 


00499 


OOOMl 



669 



00910 




B 


SWDl 






00522 


M9 00708 


00000 


00920 




DQRG 


«-3 






00530 






00930* 




SET UP LINKAGE FOR FLOAT 












00940 


FETCH5 


TF 


FLTEND, IC0N8+5 






005 30 


20 02966 


01194 


00950 




B 


FLOAT 






00542 


49 03998 


00000 


00960 




DORG 


»-4 






00549 






00970 




DORG 


»+4 






00552 






00980 


lOEND 


TFM 


DSA0TR+5,DI0END 






00552 


JO 00705 


-0552 


00990 




BD 


SETRMK, FRIND,, BRANCH IF 


FETCH 




00564 


ML 00656 


00421 


01000 




C 


N1TEMP,N1 






00576 


K4 00401 


02233 


01010 




BE 


SETRMK, , , 


BRANCH 


IF 


BUFFER EMPTY 














00588 


M6 00656 


01200 


01020 




TFM 


RETD2+6,«+20 






00600 


JO 00408 


-0620 


01030 




87 


N2CK 






00612 


M9 00354 


00000 


01040 




TFM 


I0RT,»+23,, 


WRITE 


BUFFER TO FILE 
















00620 


10 00565 


-0643 


01050 




B 


lOPT ,DKDATA,7 






00632 


49 00532 


-2860 


01060 




AM 


FIND-1, 1,610 






00644 


Jl 0028J 


000-1 


01070 


SETRMK 


TO 


SWD+900,DKBUFF+200 






00656 


KN 01398 


01462 


01080 




TFM 


I0RT,I0REF2+11 






00666 


10 00565 


-0743 


01090 




B 


lOGT 






00680 


49 00566 


00000 


01100 




DORG 


»'-4 






, 00687 






OHIO 


DDB 


DSC 


If 1 






00687 


00001 




01120 




DSA 


200 






00692 


00005 -0200 


01130 




DC 


3,9 






.00695 


00003 




01140 


DSAOTR 


DSA 


SWD,DIOEN0 






00700 
00705 


00005 -0498 
00005 -0552 


01150 




DC 


i,a 






00706 


00001 




01160 


SWDl 


A 


BUFFAR, W,, INCREMENT 


BUFFER ARROW 


00708 


Kl 00413 


02240 


01170 




BD 


FETCHl, FRIND,, ' BRANCH 


IF FETCH 




00720 


ML 00984 


00421 


01180** 


RECORD 












01190 


I0REF2 


CF 


SWD-1,DATB,7, 


CLEAR 


FLAG 


ON ADDRESS OF DATA 














. 00732 


LL 00497 


-1253 


01200 




SM 


N1TEMP,1,10 , 


DECREMENT 


WORD COUNT 
















00744 


J 2 00401 


000-1 


01210 




TFL 


BUFFAR, SWD-1, 611 






00756 


-0 0041L 


0049P 


01220 


CK 


CM 


N1TEMP,0,10, 


CHECK 


FOR 


FULL BUFFER 
















00768 


J4 00401 


000-0 


01230 




BNZ 


TOBB 






00780 


M7 00210 


01200 


01240 




BD 


T0B8-12, FRIND,, BR IF FETCH , 




00792 


ML 00198 


00421 


01250 




TFM 


LINKB+18,I0PT 






00804 


J6 00854 


-0532 


01260 


CKI 


TFM 


RETD2+6, LINKB 






00816 


JO 00408 


-0836 


01270 




B 


N2CK 






00828 


'M9 00354 


00000 


01280 




DORG 


*-4 






Q0835 






01290 


LINKB 


TFM 


I0RT,»+23,, 


CALL CORRECT lORT 


ROUTINE 














008 36 


10 00565 


-0859 


01300 




B 


,DKDATA,7 






00848 


49 00000 


-2860 


01310 




TFM 


BUFFAR, DKBUFF+199,, 


INITIALIZE 


BUFFER 


ARROW 
















00860 


JO 00413 


-1461 


01320 




S 


BUFFAR-2,RECLG 






00872 


K2 00411 


02243 


01330 




BNF 


»+24, FRIND 






00884 


MM 00908 


00421 


01340 




A 


BUFFAR, W 






00896 


Kl 00413 


02240 


01350 


ADDTOI 


AM 


FIND-1, 1,610, 


INCREMENT I 


00908 


Jl 0028 J 


000-1 



67 0 



01360 


A 


DIODDA+5 , DI ODDA+8 » t 


INCREMENT 


SECTOR ADDRESS 












00920 


21 




02876 


0 1370 


BD 


FFTCH2fFRIND 




00932 


ML 


01028 


00421 






T0BB-I2 




00944 


M9 


00198 


00000 










00951 








0 1400 


AM 






00952 


Jl 


nnf QT 


- 

000 JO 




■j-p 


SVt'D— 1 » DR AY-1 




00964 


KO 




00221 


01420 


B 


SWD ■ 




00976 


M9 


nft4qR 


00000 


01430 


DORG 


*-4 




00983 








01440 FETCHl 


C 


N1TEMP,N1 




00984 


K4 


0O4O 1 


02233 


01450 


BNE 


FETCH2t»» 


BRANCH IF 


BUFFER NOT 


EMPTY 












00996 


M7 


01028 


01200 


01460 


TFM 


LINKB+18,I0GT 




01008 


J6 


00854 


-0566 


01470 


B 


CKI 




01020 


M9 


00816 


00000 


01480 


DORG 


*-4 




01027 








01490 FETCH2 


SM 


N1TEMP,1,10 




01028 


J2 


00401 


000-1 


01500* 


SEND THE WORD TO FAC 












01510 


TFL 


FACtBUFFARtll 




01040 


00 


02492 


0041 L 


01520 


BI 


«+12, 1400 




01052 


.M6 


01064 


01400 


01530* 


TEST FOR FLOATING ADDRESS 


AT SWD-1 










01540 


BNF 


FETCHBtSWD-l 




01064 


MM 


01158 


00497 


01550* 


IT 


IS A FIXED ADDRESS 












01560 


CF 


SWD-1 




01076 


L3 


00497 


00000 


01570* 


TEST FOR FLOATING WORD IN 


FAC 










01580 


BNF 


FETCH4,FAC-1 




01088 


M4 


01170 


02491 


01590* 


THE WORD IS FLOATING SET 


UP LINKAGE FOR FIX 








01600 


TF 


FIXEND+6,IC0N7+6 




01100 


20 


02966 


01125 


01610 


B 


FIX 




01112 


49 


038 54 


00000 


01620 


DORG 


*-4 




01119 








01630 IC0N7 


DC 


1»4 




01119 


00001 




01640 


DSC 


1»9 




01120 


00001 




01650 


DSA 


RETFLT 




01125 


00005 -1126 


01660 RETFLT 


TFM 


FLTEND tRTN 




01126 


16 


02966 


-2506 


01670 


NOP 






01138 


41 


00000 


00000 


01680* 


BRANCH TO STORE NUMBER 












01690 CKLD 


B 


FETCH4 




01150 


M9 


01170 


00000 


01700 


DORG 


«-4 




01157 








01710 FETCH3 


BNF 


FETCH5, FAC-1, , 


BRANCH IF 


FIXED 

01158 


M4 


00530 


02491 


01720* 


STORE THE WORD IN MEMORY 












01730 FETCH4 


TFL 


SWD-1,FAC»6 




01170 


-6 


0049P 


02492 


01740* 


CHECK FOR EMPTY BUFFER 












01750 


B 


CK 




01182 


M9 


00768 


00000 


01760 


DORG 


♦-4 




01189 








01770 ICONS 


DC 


1»9 




01189 


00001 




01780 


DSA 


RETFLT 




01194 


00005 -1126 


01790 DRAYl 


SM 


PAR tit 10 »t 


DECREMENT 


WORD COUNT 














01196 


12 


03843 


000-1 


01800 


BNZ 


* + 14 




01208 


M7 


01222 


01200 


01810 


BB 






01220 


42 


00000 


00000 


01820 


DORG 


#-.9 




01222 








01830 


BNF 


AGAIN-12,DRAY-1 




01222 


MM 


00952 


00221 


01840 


S 


DRAY-1,K 




01234 


K2 


00221 


02221 



671 



01850 




B 


AGAIN 


01860 




DORG 


♦-4 


01870 


DATB 


DSC 


2t^00 


01880 




DSA 


DDB 


01890 




DC 


ItS 


01900 


DKBUFF 


DS 


,DATB+9 


01910* 








01920* 








01930* 




WRITE 2ND BLOCK 


01940* 








01950 


LDIRD 


DSC 


2,00 


01960 




DSA 


DIMl 


01970 




DC 


I, a 


01980 


01 Ml 


DSC 


l.,l 


01990 




DSA 


209 


02000 




DC 


3,9 


02010 




DSA 


SWD 


02020 




DC 


ItS 


02030 


STLDl 


CF 


IC0N7+2 


02040 




DGM 


DATB+9+200 


02050 




CF 


ICONS+l 


02060 




TFM 


I0RT,HERE+11 


02070 




TD 


SW0+900,DKBUFF+200 


02080 


HERE 


B 


I0PT,LD1RD,7 


02090 




TRA 





TFM 



DORG *-4 



02100 
02110* 
02120* 
02130 
02140 SWD 
02150 
02160 
02170 
02180 DDABLK DSC 
02190 DSA 
02200 DC 
02210 DSABLK DSA 

02,220 DC 

02230 DORG 

02240 DIOEND B 

02250 BB 

02260 DORG 

02270 DATl DSC 

02280 DSA 

02290 DC 



TCD STLDl 



BLOCK 1 OF FETCH FIND RECORD 
DORG SWOA 
TF'M DSABLK+5,SWD 
I0RT,I0REF+11 
lOGT 



Ifl 
209 
3,9 

SWD, SWD 

1, al 

lOEND 
OUT 

»-9 

2, -00 

DDABLK 

i,a 



01246 M9 00964 00000 
01253 

01253 00002 

01259 00005 -0687 

01260 00001 
01262 00000 



01261 
01267 
01268 
01269 
01274 
01277 
01282 
01283 
01284 
01462 
01296 
01308 
01320 
01332 
01344 
01356 
01363 
01365 
01370 
01371 
01377 
01360 
01284 



00498 
00498 
00510 
00522 
00529 
00529 
005 34 
00537 
00542 
00547 
00548 
00552 
00552 
00564 
005 66 
00566 
00572 
00573 



-1269 



00002 
00005 
00001 
OOOOl 
00005 -0209 
00003 

00005 -0498 
00001 

L3 01121 00000 
00001 

L3 01190 00000 
10 00565 -1343 
KN 01398 01462 
4R 00532 -1261 
10 00565 -1363 
49 00716 00000 

00002 2K 

00005 -1371 
OOOOl a 

00006 1J9783 

00003 -03 

00006 -ooooa 



JO 00547 -0498 
10 00565 -0853 
49 00566 00000 

00001 

00005 -0209 
00003 

00005 -0498 
00005 -0498 
00001 

M9 00008 OOOOO 
42 OOOOO OOOOO 



00002 
00005 
00001 



672 



02300 




DS 


5 


00578 00005 




02310 


FETCH 


B 


FECH 


00580 M9 00102 


00000 


02320 




TDM 


FRINDilfllt SET 


FETCH-RECORD INDICATOR TO FETCH 

00592 J5 00421 


OOOOJ 


02330 




B 


AlTEST,t» 


BRANCH TO SET FIND INDICATOR OFF , 










00604 M9 00034 


00000 


02340* 






COMPUTE ADDRESS , TEST I , AND TEST 


02350» 






FOR DEFINE STATEMENT . 




02360 


RECORD 


B 


RECD 


00616 M9 00134 


00000 


02370 




TDM 


FRINDtO,, 


SET FETCH-RECORD INDICATOR TO RECRD 










00628 J5 00421 


00000 


02380 




B 


AITEST 


00640 M9 00034 


00000 


02390 


SETl 


TFM 


DlODDA+5f 218, , 


SET SECTOR ADDRESS IN DDA 
00652 16 02873 


-0218 


02400 




M 


FIND-1,RECLG,6, 


COMPUTE ADDRESS OF FILE RECORD 
00664 K3 0028J 


02243 


02410 




A 


DIODDA+5,99 


00676 21 02873 


00099 


02420 




BD 


*+44,FIN0INt, 


BRANCH IF NOT FIND 00688 M3 00732 


02404 


02430 


SSEEK 


TFM 


I0RT,*+23 


00700 10 00565 


-0723 


02440 




B 


I0SK,DKDATA,7, 


TRANSFER TO lORT TO SEEK 

00712 49 00554 


-2860 


02450 




B 


DIOEND 


00724 M9 00552 


00000 


02460 




DORG 


*-3 


00732 




02470 




TFM 


BUFFAR,DKBUFF+I99tt 


INITIALIZE BUFFER ARROW 

00732 JO 00413 


-1461 


02480 




S 


BUFFAR-2,RECLG 


00744 K2 00411 


02243 


02490 




TF 


NlTEMPtNl, , 


00756 K6 00401 


02233 


02500 




TF 


DI0DDA+8,RECLG, , 


STORE RECORD LENGTH IN DDA 
00768 26 02876 


02243 


02510 




TFM 


DI0DDA+13»DKBUFF+200r 


, STORE ADDRESS OF BUFFER 

00780 10 02881 


-1462 


Q2520 




S 


DIQDOA+llfRECLG,, 


SUB LENGTH OF RECORD TO GET FIRST 
00792 22 02879 


COR 
02243 


02530 


OVER 


TDM 


T0BB+1,2,» 


INITIALIZE BRANCH BACK 

00804 J5 00211 


00002 


02540 




BB 




00816 42 00000 


00000 


02550 




DORG 


»-9 


00818 




02560 


EVEN 


TFM 


TEMPAt 10,10, 


STORE FLOATING LENGTH IN TEMPA 










00818 J6 00377 


OOOJO 


02570 




BNF 


♦ + 36,DRAY-1 , , 


BRANCH IF FLOATING ARRAY 

00830 MM 00866 


00221 


02580 


lOREF 


CF 


DRAY-1, DATl ,7 


00842 LL 00221 


-0566 


02590 




TF 


TEMPA,K, , 


STORE FIXED LENGTH IN TEMPA 










00854 K6 00377 


02221 


02600 




TF 


DI0DDA+13,DRAY-1,, 


STORE ADDRESS OF FIRST ELEMENT 










00866 20 02881 


00221 


02610 




AM 


DIODDA+13, 1 


00878 11 02881 


-0001 


02620 




S 


DI00DA+13,TEMPA,, 


HIGH ORDER POSITION OF ARRAY 










00890 2K 02881 


00377 


02630 




TF 


EVENl+11, DIODDA+13 


00902 K6 01149 


02881 


02640 




M 


TEMPA,PAR 


00914 K3 00377 


03843 


02650 




SF 


95 


00926 32 00095 


00000 


02660 




A 


EVENl+11, 99 


00938 Kl 01149 


00099 
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02670 CARRY 


CM 


02680 


BNE 


02690 


TFM 


02700* 




02710* 




02720* 




02730 


AM 


02740 


TD 


02750 BDI2 


BD 


02760 


TD 


02770 


BD 


02780 


AM 


02790 0VER3 


TF 


02800 


BD 


02810 


MM 


02820 0VER2 


A 


02830 


SM 


02840 


TFM 


02850 


B 


02860 


DORG 


02870 EVENl 


TD 


02880 


BD 


02890* 


REl 


02900 


TD 


02910* 




02920 


TFM 


02930 


B 


02940 


TFM 


02950 EVEN2 


TDM 


02960 


AM 


02970 


A 


02980 


BB 


02990 


DORG 


03000 FETCH8 


TFM 


03010 


TFM 


03020 


B 


03030 


TFM 


03040* 




03050 


BNG 


03060 


B 


03070 


DORG 


03080 


TF 


03090 


TFM 


03100 


B 


03110 


DORG 



EVENl+11, 0 
• + 24 

EVEN 1+11,0 



97,1 ,9, 



00950 J4 01149 -0000 

00962 M7 00986 01200 

00974 J6 01149 -0000 
EVALUATE AND STORE LOW ORDER 
POSITION + 1 OF ARRAY 
EVALUATE SECTOR COUNT 

ADD ONE FOR GROUP MARK 00986 11 00097 00-01 



*+23,RECLG 
0VER3,251,, 
*+23,97 
*+24,210,, 



BRANCH IF RECLG IS 1 



00998 K5 01021 02243 
01010 M3 01058 00251 
01022 K5 01045 00097 
BRANCH IF EVEN NUMB OF SECTORS 

01034 M3 01058 00210 

97,1, 10 
DlODDA+,8,97, 
0VER2,BDI2+11, 11 
DIODDA+8,50,10 

FIND-l,97,6t ADD NUMBER OF RECORDS TO I 
FIND-1, 1,610 
RETD2+6,*+20 

N2CK 



SET UP SECTOR COUNT 



01046 11 00097 000-1 
01058 26 02876 00097 
01070 ML 01094 0102J 
01082 13 02876 OOONO 
01094 Kl 0028J 00097 
01106 J2 0028J 000-1 
01118 JO 00408 -1138 
01130 M9 00354 00000 
01137 

01138 K5 01221 00000 
BRANCH IF FETCH 

01150 ML 01248 00421 

:ORD 

EVENl+ll»DKBUFF+200,6, SET GROUP MARK AT END OF ARRAY 

01162 KN 0114R 01462 
WRITE ARRAY ONTO FILE 

01174 10 00565 -1197 
01186 4R 00520 -0000 
01198 16 02966 -2506 
RESTORE DIGIT 

01210 J5 0114R 00000 
01222 Jl 002BJ 000-1 
INCREMENT SECTOR ADDRESS 

01234 21 02873 02876 
01246 42 00000 00000 
01248 

INSERT ADDRESS FOR ERROR ENTRY 

01248 10 0085N -1354 
READ ARRAY FROM FILE 

01260 10 00565 -12a3 

I0GT,DKDATA,7 " 01272 '49 00566 -2860 

IN0UT,CHECK-12,, RESTORE SPECIAL lORT ERROR EXIT 

01284 16 00629 -1256 
TEST FOR NO GROUP MARK 
•+20,EVEN1+11,11 01296 NN 01316 0114R 

EVEN2 01308 M9 01210 00000 

»-4 01315 

FLTEND, EVENSP+6 01316 20 02966 01353 

EI, 473, 9 01328 16 02615 00M73 

ERROR 01340 49 02936 00000 

»-4 01347 



EVEN2+11 
FETCH8,FRIND, , 



I0RT,*+23 
lORBCNOWLC ,7 
FLTEND . ,RTN 
EVENl+11,, 6, 

FlND-1, 1,610 
Dl0DDA+5,Dl0DDA+8, 



•-9 

DI0+35,YTURN,67, 



I0RT,*+23,, 
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03120 


EVENSP 


DC 


1.4 






01347 


00001 


03130 




DSC 


1t9 






01348 


00001 


03140 




DSA 


EVEN2-12 






01353 


00005 -1198 


03150 


YTURN 


BI 


«+12,3700,, TURN 


OFF WLRC IND 




01354 


M6 01366 03700 


03160 




BNI 


ERRET,1900,, GO ON IF NO OTHER 


ERROR 


01366 


47 00602 01900 


03170 




TFM 


INOUT,MYER, , SET 


UP SECOND lORT 


ERROR EXIT 














01378 


10 00629 -0166 


03180 




B 


IOERR,rt LET lORT 


CHECK ANY OTHER ERRORS 


01390 


49 00630 00000 


03190 




OORG 


«-4 






01397 




03200 




□ ORG 


SWD+906 






01404 




03210 


TEMPA 


DS 


2,N2CK+23 






00377 


00002 


03220 


NITEMP 


OS 


2,RETD2-1 






00401 


00002 


03230 


FRIND 


DS 


l,BE2+7 






00421 


00001 


03240« 




WRITE FIRST BLOCK 










03250* 














03260 


DIM2 


DSC 


1,1 






01404 


00001 


03270 




DSA 


200 






01409 


00005 -0200 


03280 




DC 


3,9 






01412 


00003 


03290 




DSA 


SWD 






01417 


00005 -0498 


03300 




DC 


i,a 






01418 


00001 


03310 


LD2ND 


DSC 


2,00 






01419 


00002 


03320 




DSA 


DIM2 






01425 


00005 -1404 


03330 




DC 


i,a 






01426 


00001 


03340 


STLD2 


TO 


CARRY+7,C0RSIZ 






01428 


K5 00957 07376 


03350 




AM 


CARRY+8, 10, 10 






01440 


Jl 00958 OOOJO 


03360 


GM 


CF 


EVENSP+2 






01452 


L3 01349 00000 


03370 




DGM 


DKBUFF+200 






01462 


00001 


03380 




DGM 


SWD+9Q0 






01398 


00001 


03390 




TFM 


I0RT,NI0+11 






01464 


10 00565 -1487 


03400 


NIO 


B 


I0PT,LD2N0,7 






01476 


4R 00532 -1419 


03410 




TRA 








01488 


10 00565 -1507 



01500 49 00716 00000 
01507 00002 2K 
01509 00005 -1515 

01514 00001 a 

01515 00006 1J9783 
01521 00003 -03 
01524 00006 -OOOOa 

03420 TCD STLD2 01428 

03430 DEND 7 00007 
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00010* 


1620 FORTRAN 


110, MON II 


,FL 


PT 


,RELOC ,FX 


L SINE-COSINE 




00020 


DSA 


FCOS , 


FSIN 








00004 00005 -0006 
00009 00005 -0042 


00030 


D0R6 


♦-4 










00005 




00040 FCOS 


BLXN 


SET , 


FCOS-l«On, 


11, 


ARG 


TO FAC. SAVE OV,EXV. SEL IX 


B A 
















00006 60 04142 


OOOON 


00050 


TFM 


SW+1 , 


-66 , 


10, 


SET 


SW # COS 


000 18 J6 00247 


00000 


00060 


B 


SICO 










00030 M9 00078 


00000 


00070 FSIN 


BLXM 


SET 


FSIN-UOQ, 


11, 


ARG 


TO FAC. SAVE OV,EXV. SEL IX 


B A 
















00042 60 04142 


0004J 


00080 


MF 


MU-1 , 


FAC-2 








00054 71 02967 


02490 


00090 


TFM 


SW+1 , 


41 , 


10, 


SET 


SW #SIN 


00066 J6 00247 


OOOMl 


00100* 


















00110 SICO 


CM 


FAC , 


-4 , 


10 






00078 14 02492 


000-M 


00120 


BNL 


TRY MAX , 






NOT 


TOO SMALL 


00090 M6 00138 


01300 


00130 


BNF 


*+24 , 


SW+1 , 


f 


SIN 




00102 MM 00126 


00247 


00140 


TFL 


FAC , 


FLONE 








00114 06 02492 


03153 


00150 


BLXM 


RESET , 


FiXENDXOn 








00126 66 05862 


02960 


00160 TRYMAX 


CM 


FAC , 


7 , 


10 






00138 14 02492 


000-7 


00170 


BL 


MUL 










00150 M7 00186 


01300 


00180 


TFM 


EI , 


670 , 


9 






00162 16 02707 


00070 


00190 


BLXM 


RESET , 


UNFLO «0a. 




EXIT FOR CHAR 


MORE THAN 6 


















00174 66 05862 


02904 


00200* 


















00210** 


DIVIDE ARG BY 2 PI 












00220 MUL 


M 


R2PI t 


FAC-2 








00186 23 06441 


02490 


00230* 


















00240*** 


SEPARATE FRACTIONAL PORTION 


OF ARG AND PLACE IN GAM, 10 DIGIT 


00250 


TF 


GAM , 


ZERO-8 , 




INIT TO ZEROS 


00198 26 02739 


02749 


00260 


BX 


♦+12 , 


FAC Xln 








00210 01 00222 


024R2 


00270 


SF 


82 «ln, 






SET 


HI ORDER 


FLAG ON TENTHS POSIT 
















00222 32 000Q2 


00000 


00280 


A 


GAM , 


91 Xln, 




POS 


ITION FRACTIONAL PART 


















00234 21 02739 


OOORl 


00290 SW 


BL,XM 


CK SIZE , 


99991 i?ln, 




NOP 


IF SINtRESEt IX 1 IF COS . 


















00246 06 00294 


999R1 


00300 SI NOON 


S 


GAM , 


PT25 








00258 22 02739 


06431 


00310 


OF 


GAM 










0O27O 33 02739 


00000 


00320 


BLXM 


CK SIZE , 


99991 %la 








00282 06 00294 


999R1 


00330* 


















00340 CKSIZE 


CM 


GAM-8 , 


50 


10 






00294 14 02731 


OOONO 


00350 


BNL 


EVAL H-24, 


1 1 


F GREATER THAN .5 


















00306 M6 00362 


01300 


00360 


TF 


FAC-2 , 


PT25 , 




.25 




00318 26 02490 


06431 


00370 


S 


FAC- 2 , 


GAM , 




.25' 


-F 


003 30 22 02490 


02739 


00380 


TF 


GAM , 


FAC-2 , 




STORE Z IN GAMMA 00342 26 02739 


02490 


00390 


B7 


EVAL H 










00354 M9 00386 


00000 


00400 


S 


GAM , 


PT75 , 




F-.75 


00362 22 02739 


06451 


00410 


TF 


FAC-^2 , 


GAM 








00374 26 02490 


02739 


00420* 


















00430** 


10 


DIGIT FIELD Z STORED IN 


GAM , 


AND FAC-2. 


ABS V LESS THAN .25 
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00440 EVALH 


M 


FAC-2 


FAC-2 


♦ ♦ 


00450 


TF 


FAC-2 


,89 


» » 


00460 


TF 


BETA 


r A 


» » 


00470 


A 


BETA 


f 88 


» r 


00480 


M 


BETA 


r FAC-2 


, f 


00490 


MF 


90 


r99 




00500 


TF 


SAV3 


C 


V » 


00510 


A 


SAV3 


90 


1 1 


00520 


A 


FAC-2 


t90 


f f 


00530 


A 


FAC-2 


B 


'» 


00540 


M 


SAV3 


FAC-2 


t t 


00550 


A 


89 


rD 


» » 


00560 


TF 


FAC-2 


► 89 


»» 




M 


FAC-2 






00580 


SF 


81 








TF 


FAC-2 


on 




00600 


M 


FAC-2 


GAM 


f 1 


00610* 










00620** 


WIND UP THIS 


FUNCTION 




00630 NORM 


TFM 


FAC 


92 


f IC 


00640 


BD 


SIGN 


89 SEln 


» f 


00650 


BCXM 


*-12 


1 %la 




00660 


TFL 


FAC 


FLZ 




00670 


87 


EXIT 






00680* 










00690 SIGN 


SF 


89 %ln 






00700 


S 


FAC 


309 


» t 


00710 


TF 


FAC-2 


96 tin 


♦ f 


00720 


BNF 


EXIT 


99 


1 1 


00730 


BNF 


EXIT-12 


MU-1 


1 1 


00740 


CF 


99 






00750 


MF 


MU-1 


99 




00760 EXIT 


BLXM 


RESET 


FIXEND 




00770* 


CONSTANTS FOR SIN COS 




00780 FLZ 


DS 




FLZER 




00790 A 


DS 




ASC 




00800 B 


DS 




BSC 




00810 C 


DS 




CSC 




00820 D 


DS 




DSC 




00830 E 


OS 


. 


ESC 




00840 


DENO 


2 







1*1- 


. 06 


00386 


23 


02490 


02490 


X#Z«Z 


,06 


00398 


26 


02490 


00089 




-1.46 


00410 


26 


02630 


06381 


A+X 


-1.4 


00422 


21 


02630 


00088 


X«A+Xa#Y 


— .084 


004 34 


23 


02630 


02490 






00446 


71 


00090 


00099 


C 


+ .97 


00458 


26 


02562 


06401 


Y+C 


.89 


00470 


21 


02562 


00090 


Y+X 


-.024 


00482 


21 


02490 


00090 


Y+X+B 


+ .37 


00494 


21 


02490 


06391 


W 


+ .30 


00506 


23 


02562 


02490 


W+D 


+ .10 


00518 


21 


00089 


06411 


W+D 




00530 


26 


02490 


00089 






00542 


23 


02490 


06421 






00554 


32 


00081 


00000 


E**W+Da 


+4,0 


00566 


26 


02490 


00090 




+ 1.0 


00578 


23 


02490 


02739 


INIT EXP 


FOR IX 


ADJ 












00590 


16 


02492 


000R2 


NORMALIZED 


00602 


M3 


00646 


0O0Q9 


AOJ ADR 


REF TO 


MANTI SSA 










00614 


04 


00602 


000-1 


EXIT IF 


RESULT 


ZERO 












00626 


06 


02492 


03131 






00638 


M9 


00730 


00000 






00646 


32 


000Q9 


00000 


AOJ EXP 




00658 


22 


02492 


00309 


MOVE MANT 


00670 


26 


02490 


000R6 


MU-1 CONTROLS SIGN 












00682 


M4 


00730 


00099 


99 CONTROLS SIGN 












00694 


M4 


00718 


02967 






00706 


33 


00099 


00000 






00718 


71 


02967 


00099 






00730 


66 


05862 


02960 



03131 00000 

06381 00000 

06391 00000 

06401 00000 

06411 00000 

06421 00000 
00002 
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00010* 


1620 FORTRAN IIDtMON II, FL 


PT, RELOC, FX 


L 


ARC TANGENT 




00020 


DSA 


FATN 








00004 


00005 -0006 


00030 FATN 


BLXM 


SET 


,*-l XOn,ll, 


SAVE OV,EXV. 


LD 


FAC. SEL 


IX BAND A 














00006 


60 


04142 


OOOON 


00040 


BD 


NON Z 


,FAC-9 ,, 


NON ZERO 




00018 


M3 


00042 


02483 


00050 


BLXM 


RESET 


,ZERFAC«0n,, 


RESULT ZERO, 


RESTORE OV,EXV.IX BD B 














00030 


66 


05862 


02884 


00060 NONZ 


MF 


MU-1 


t FAC-2 ,, 


STORE SIGN 




00042 


71 


02967 


02490 


00070 


FSL 


FAC-11 


tFAC-2 ,, 


EXPAND TO 10 


DIGIT MANT 


















00054 


05 


02481 


02490 


00080* 


••• SPLIT INTO FOUR INTERVALS, 


ZERO THRU THREE 










00090 


CM 


FAC 


,00 ,10 






00066 


14 


02492 


000-0 


00100 


BL 


K 


» » f 


NEGATIVE EXP 




00078 


M7 


00378 


01300 


00110 


BH 


K 23 




POSITIVE EXP 




00090 


M6 


00434 


01100 


00120 


CM 


FAC-10 


I23 lio, 


ZERO EXP 




00102 


14 


02482 


000K3 


00130 


BNH 


K 




LESS THAN ,24 


00114 


M7 


00378 


01100 


00140 


CM 


FAC-10 


\eo ,'10 






00126 


14 


02482 


OOOQO 


00150 


BNL 


K2 


t , t 


MORE THAN ,79 




00138 


M6 


00366 


01300 


00160* 




















00170** 


CALCULATE 


Z# BK-GK/XFAC+BKn 














00180 CALC 


FADD 


FAC 


,BK %la 






00150 


01 


02492 


06205 


00190 


TFL 


BETA 


,GK %la 






00162 


06 


02630 


062P7 


00200 


FDIV 


BETA 


,FAC 






00174 


09 


02630 


02492 


00210 


TFL 


FAC 


fBK %ln 






00186 


06 


02492 


06205 


00220 


FSUB 


FAC 


,BETA 






00198 


02 


02492 


02630 


00230 EVALCK 


TFL 


BETA 


,FAC 






00210 


06 


02630 


02492 


00240* 




















00250**** 


EVALUATE F 


OF Z # Z - A*Z**3 + B*Z**5 - C*Z* 


*7 








00260 EVAL 


FMUL 


BETA 


,BETA 






00222 


03 


02630 


02630 


00270 


TFL 


BETA-12 


,BETA ,, 


Z**2 




00234 


06 


02618 


02630 


00280 


FMUL 


BETA 


,c 






00246 


03 


02630 


06241 


00290 


FADD 


BETA 


»B ,, 


B+C*Z**2 




00258 


01 


02630 


06229 


00300 


FMUL 


BETA 


, BETA-12 






00270 


03 


02630 


02618 


00310 


FADD 


BETA 


,A ,, 


A+B*Z**2+C*Z*»4 


00282 


01 


02630 


06217 


00320 


FMUL 


BETA 


, BETA-12 






00294 


03 


02630 


02618 


00330 


FADD 


BETA 


,ONEZ 






00306 


01 


02630 


03121 


00340 


FMUL 


FAC 


fBETA 


FXZn 




00318 


03 


02492 


02630 


00350 


FADD 


FAC 


,AK %latf 


AK + FXZa 




00330 


01 


02492 


062N3 


00360* 




















00370 EXIT 


TF 


FAC-2 


,FAC-4 


CONVERT TO 8 


DIG 


FIELD 
00342 


26 


02490 


02488 


00380 


BLXM 


RESET 


, FIXENDXOn 






00354 


66 


05862 


02960 


00390* 




















00400 K2 


BLXM 


CALC 


,36 «ln,, 


.80 TO 2.076 




00366 


□6 


00150 


000L6 


00410 K 


CM 


FAC 


»-4 ,10 






00378 


14 


02492 


000-M 


00420 


BNH 


EXIT 




ARG TOO SMALL 




00390 


M7 


00342 


01100 


00430 


BLXM 


EVAL CK 


,108 Xln,, 


0.0 TO .23 




00402 


06 


00210 


001-8 


00440* 




















00450 MAXVAL 


TFL 


FAC 


,PI0V2 






00414 


06 


02492 


06371 


00460 


87 


EXIT+12 








00426 


M9 


00354 


00000 


00470* 




















00480** 


INITIALIZE 


FOR POSITIVE EXP 














00490 K23 


CM 


FAC 


,1 ,10 






00434 


14 


02492 


000-1 
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00500 




»+36 






EXP EQUAL 0.1 


00446 


M6 00482 


01200 


005 10 




CM F AC 


f 08 


» 1 0 




00458 


14 02492 


000-8 


00520 




BNL MAX VAL 






ARG TOO LARGE 


00470 


M6 00414 


01300 


00530 




CM ; FAC-8 


,2076 






00482 


14 02484 


0K076 


00540 




BNH K2 




» » 


MANT LESS THAN 


2.077 
00494 


M7 00366 


01100 


00550 


K3 


BLXM CALC 


»72 




2.077 TO INFIN 


00506 


06 00150 


000 P 2 


00560 




CONSTANTS 


FOR ARC 


TAN 










00570 


A 


DS 


,AT 






06217 


00000 




00580 


B 


DS 


,BT 






06229 


00000 




00590 


C 


DS 


tCT 






06241 


00000 




00600 




DEND 1 








00001 
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00010* 


1620 FORTRAN 


IIOtMON II 


»FL 


PT ,RELOC ,FX L 


SQUARE 


ROOT 




00020 


OSA 


SQRT 










00004 


00005 -0006 


00030 SQRT 


BLXM 


SET , 


SQRT- 


UOn, 


11 




00006 


60 


04142 


OOOON 


00040 


BD 


*+24 , 


FAC-9 






NOT ZERO ARG 


00018 


M3 


00042 


02483 


00050 


BLXM 


RESET , 


ZERFACJOn, 




ZERO ARG 


000 30 


66 


05862 


02884 


00060 


MM 


FAG 


50 


f 


10, 


EXP/2 IN LOG 96 


AND 97 


SIGN IN 99 
















00042 


13 


02492 


OOONO 


00070 


MP 


EXIT+7 , 


FAC-2 






REMOVE AND STORE 


SIGN OF 


4RG 


















00054 


PI 


00193 


02490 


00080 


BD 


SQ3 1 


98 






EXP oap 


00066 


M3 


00318 


00098 


00090 SQ2 


MF 
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1 


04710 


OCFPl 


DSC 


l.l 


05998 


1 


04720 




I 

DC 


5,18220 


06003 


5 






J8220 






04730 




DC 


3,027 


06006 


3 






-2 7 








04740 




DSC 


5,02502 


06007 


5 






02502 






04750 




DSC 
• 


1,* 


06012 


1 


04760 


ALTR 


DC 


12,144441536359 


06024 


12 






J44441536359 






04770 


D0AP2 


DSC 


2,22 


06025 


2 






22 








04780 




DSA 


0CFP2 


06031 


5 










06031 


-6033 


04790 




DSC 


1,» 


06032 


1 


04B00 


DCFP2 


DSC 


1,1 


06033 


1 


04810 




1 

DC 


5,19300 


06038 


5 






J9 300 






04820 




DC 


3,038 


06041 


3 






-38 








04830 




DSC 


5,03000 


06042 


5 






03000 






04840 




DSC 
• 


It* 


06047 


1 


04830 


DUMP 


DC 


12,144444645457 


06059 


12 






J44444645457 






04860 


LOAD 


DC 


12,144453564144 


06071 


12 






J44453564144 






04870 


REPL 


DC 


12, 144459455753 


06083 


12 






J444 59455753 






04880 


COPY 


DC 


12,144443565768 


06095 


12 






J44443565768 






04890 


DDAP5 


DSC 


2,22 


06096 


2 






22 








04900 




DSA 


DCFP5 


06102 


5 










06102 


-6104 


04910 




OSC 
• 


lt« 


06103 


1 


04920 


DCFP5 


OSC 


Itl 


06104 


1 


04930 




1 

DC 


9,19363 


06109 


5 



J9363 
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04940 




DC 


3,037 


06112 


3 






-37 








04950 




DC 


5,02700 


06117 


5 






-2700 






04960 




DSC 
( 


1,* 


06118 


1 


04970 


OELET 


DC 


12,144445534563 


06130 


12 






J44445534563 






04980 


FINE 


DC 


12,144446495545 


06142 


12 






J44446495545 






04990 


DDAP7 


OSC 


2,22 


06143 


2 






22 








05000 




DSA 


0CFP7 


06149 


5 










06149 


-6151 


05010 




OSC 
■ 


It* 


06150 


1 


05020 


DCFP7 


OSC 


Itl 


06151 


1 


05030 




1 

OC 


5tl8139 


06156 


5 






J8139 






05040 




OC 


3t038 


06159 


3 






-38 








05050 




OSC 


5 t 05000 


06160 


5 






05000 






05060 




OSC 
• 


It' 


06165 


1 


05070 


LABL 


OC 


12,144453414253 


06177 


^2 






J44453414253 






05080 


0OAP8 


OSC 


2.22 


06178 


2 






22 








05090 




OS A 


0CFP8 


06184 


5 










06184 


-6186 


05100 




OSC 


lt« 


06185 


1 


05110 


DCFP8 


OSC 


1,1 


06186 


1 


05120 




1 

OC 


5,18200 


06191 


5 






J8200 






05130 




OC 


3,020 


06194 


3 






-20 








05140 




DSC 


5,02502 


06195 


5 






02502 






05150 




OSC 
t 


l.» 


06200 


1 


05160 


FLIB 


OC 


12,144446534942 


06212 


12 






J44446534942 






05170 


DDAP9 


DSC 


2,22 


06213 


2 






22 








05180 




DSA 


0CFP9 


06219 


5 










06219 


-6221 


05190 




DSC 
* 


1,* 


06220 


1 


05200 


DCFP9 


DSC 


1,1 


06221 


1 
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DC 


5,18261 


06226 


5 








J8261 












DC 


3.017 


06229 


3 








-17 










0&230 




DC 


5t, 03000 












-3000 








05240 




DSC 
1 


I.* 


06235 


1 




05250 




DSC 
t 


1, •,13775 


13775 


1 




05260 


ENTMES 


DSA 


ENTER 


06240 


5 


X 










06240 


'-6245 




05270 




DC 


3,06« 


06243 


3 








-6* 

OGM 










05280 


ENTER 


DAG 


2 I.ENTER DUP CNTRL REC* 


06245 


21 


X 






ENTER DUP CNTRL REC. • 








05290 


ERCO 


DSA 


ERRCD 


06290 


5 


X 










06290 


-6295 




05300 




DC 


3. 06* 


06293 


3 




05301 




-6» 

DGM 






1 




05310 


ERRCD 


OAC 


12. ERR CONTROL* 


06295 


12 


X 






ERR 


CONTROL* 








05320 


OIMERR 


DAC 


13.0UP«ERROR 00* 


06319 


13 


X 






DUP»ERR0R 00» 








05330 


HOLD 6 


DC 


6.0 


06349 










-00000 








05340 


ZER06 


DC 


6,0 


06355 


6 








-00000 








05350 


DOREAO 


DSC 


2,22 


06356 


2 








22 










05360 




DSA 


DMREAD 


06362 


5 


X 










06362 


-6364 




05370 




DSC 
t 


l.« 


06363 


1 




05380 


OMREAO 


DSC 


1,1 


06364 


I 




05390 




1 

DC 


5,04800 


06369 


5 








-4800 








05400 




DC 


3,001 


06372 


3 








-01 










05410 




DSA 


REAOIN 


06377 


5 


X 










06377 


-6468 




05420 




DSC 
f 


1,« 


06378 


1 




05430 


ZER0L2 


DC 


12,0 


06390 


12 








-OOOQOOOOOOO 








05440 


CARDIO 


DSA 


INPUT 


06395 


5 


X 










06395 


J3613 




05450 




DC 


3,10« 


06398 


3 
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05451 

05460 DIMl 



DGM 
DSC 
22 
DSA 



2.22 
0IM2 



06398 
06399 



05490 




DSC 1.* 
1 


05490 


0IM2 


DSC 1,1 


05500 




1 

DC 5,04800 






-4800 


05510 




DC 3,002 






-02 


05520 




00 5,17900 






J7900 


05530 




DSC 1,* 
• 


05540 


DIM4 


OS tl7980 


05550 


LISTl 


OSC 2,22 






22 


05560 




DSA DIM4 



06405 -6407 

06406 1 

06407 1 
06412 5 
06415 3 

06420 5 

06421 1 

17980 0 

06422 2 

06428 5 X 1 



05570 




OSC 
* 


It* 


05580 


READ 


OS 


t 09778 


05590 


CNTl 


DC 


3,0 






-00 




05600 




DC 


3,0 






-00 




05610 




DC 


3t0 






-00 




05620 




DC 


3,0 






-00 




05630 




DSC 


l.« 


05640 


SPLPKO 


DS 


•12645 


05650 


SPLPKl 


DS 


• 12668 


05660 


SPLPK2 


DS 


,12691 


05670 


SPLPK3 


DS 


• 12714 


05680 


THROWS 


DS 


,12737 


05690 


CORSIZ 


DS 


•12483 


05700 


S PL SUB 


DSC 


2,22 






22 




05710 




DSA 


SUBSPL 



06428 J7980 

06429 1 

09778 0 

06432 3 

06435 3 

06438 3 

06441 3 

06442 1 

12645 0 

12668 0 

12691 0 

127X4 0 

12737 0 

12483 0 

06443 2 

06449 5 X 1 



05720 


DSC 1,« 


06450 


1 


05730 


SUBSPL OSC 1,1 
1 


06451 


1 


05740 


DC 5.18298 


06456 


5 




J8298 






05750 


DC 3.033 


06459 


3 




-33 







6f6 
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05760 




OC 


5,12458 


06464 




5 








J24b8 










05770 




DSC 
• 


It* 


06465 




1 




05780 




DAC 


I »0 


06467 




1 


X 2 


05790 


REAOIN 


0 

OSS 


400 


06468 




400 




05800 


SEL 


TFM 




06868 


16 


00565 


-6891 


05810 




B 


lOPTf SELlt7 


06880 


49 


00532 


-6916 


05820 




TRA 




06892 


36 


00000 


00500 










06904 


49 


00000 


00000 


05830 


SEL I 


DSC 


2.22 


06916 




2 








22 












05840 




DSA 


SEL2 


06922 




5 


X 1 










06922 




—6924 




05850 




OC 
t 


lt« 


06923 




1 




05860 


SEL2 


DSC 


Ifl 


06924 




1 




05870 




1 

OC 


5,18554 


06929 




5 








J8554 










05880 




OC 


3,041 


06932 




3 








-41 












05890 




OC 


5,02402 














-2402 










05900 




OC 


1,' 


06938 




1 




05910 




TCD 


SEL 


06868 








05920 




DEND 




00000 









«!)7 



1620 MONITOR II DUP ROUTINE SELECTION ROUTINE 



BDTEST 


03788 


CALLO 


03118 


DDAl 


05908 


FINE 


06142 


SELl 


06916 


CALCOM 


031 54 


CC02 


05321 


00A2 


03434 


FLIB 


06212 


SEL2 


06924 


CALRPL 


03246 


CCD 


05313 


D0A3 


03526 


H0L02 


05907 


SELEC 


02402 


CAROIO 


06395 


CLRIN 


05246 


D0A4 


03457 


HOLDS 


05897 


SEL 


06868 


COMPAR 


02846 


CNTl 


06432 


00A5 


03503 


H0LD6 


06349 


SLl 


02274 


CONTCD 


03596 


C0M22 


03488 


00A6 


05955 


INPUT 


13613 


SL2 


02282 


CQRSIZ 


12483 


COM2 


03480 


DOAPl 


05990 


lOCAL 


00716 


TREC 


05514 


OOREAO 


06356 


COPY 


06095 


00AP2 


06025 


I06T 


00566 


UP I 


05826 


OIMERR 


06319 


caR2 


02350 


0DAP5 


06096 


lOPT 


00532 


WR2 


02259 


DIMMER 


05346 


COR 


02302 


00AP6 


03549 


lORT 


00565 


WRAD 


05989 


DMREAO 


06364 


CT 


02626 


DDAP7 


06143 


LABL 


06177 


WR 


02251 


ENTNES 


06240 


OCFl 


05916 


0DAP8 


06178 


LIS 


02566 


ZER06 


06355 


EQUOCF 


03580 


0CF2 


03442 


D0AP9 


06213 


LISTl 


06422 


SELECT 


02458 


EQUOOA 


03572 


DCF3 


03534 


ODA 


02434 


LOAD 


06071 


SELERR 


033?8 


ERREPL 


05766 


0CF4 


03465 


DELET 


06130 


MAP 


05935 


SOLDON 


05106 


MAPOOA 


05898 


0CF5 


03511 


DIMl 


06399 


MCS 


17778 


SPLPKO 


12645 


MONCAL 


00796 


DCF6 


05963 


DIM2 


06407 


NEXT 


02706 


SPLPKl 


12668 


NEWOIM 


05934 


DCFPl 


05998 


DIM4 


17980 


ROl 


05059 


SPLPK2 


12691 


NOCOMP 


04692 


0CFP2 


06033 


OMP 


03378 


RD2 


05067 


SPLPK3 


12714 


REAOIN 


06468 


0CFP5 


06104 


ON 


02774 


RD 


05746 


SPLSUB 


06443 


REPLAC 


02202 


0CFP6 


03557 


DUMP 


06059 


ROMR 


02207 


SUBSPL 


06451 


RTURNL 


04716 


0CFP7 


06151 


ENTER 


06245 


READ 


09778 


SYSCAL 


00475 


ALTR 


06024 


0CFP8 


06186 


EQUIV 


05538 


RE PL 


06083 


THROWS 


12737 


BFLG 


02638 


0CFP9 


06221 


ERCO 


06290 


SEC22 


05090 


ZER012 


06390 


BNR 


0S670 


OCF 


02442 


ERRCO 


06295 


SEC2 


05082 
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DORG 


2502 


02502 








00020 


OWRAO 


SF 


CARO+31 


02502 


32 


13644 


00000 


00030 




SF 


CARD+33 


02514 


32 


13646 


00000 


00040 




TFM 


CNr»0«10 


02526 


16 


05132 


000-0 


00050 




CN 


CARD+32.57,10 


02538 


14 


13645 


000N7 


00060 




BNE 


ZS 


02550 


47 


02582 


01200 


00070 




SF 


RDONLY 


02562 


32 


05135 


00000 


00080 




B 


• ♦20 


02574 


49 


02594 


00000 


00090 




00 RG 


•-3 


02562 








00100 


ZS 


CF 


RDONLY 


02582 


33 


05135 


00000 


OOllO 




CM 


CARD* 34, 69, 10 


02594 


14 


13647 


00009 


00120 




BNE 


NOZ 


02606 


47 


02638 


01200 


00130 




SF 


ZERO 


02618 


32 


05138 


00000 


00140 




B 


• ♦20 


02630 


49 


02650 


00000 


00150 




DORG 


• -3 


02638 








00160 


NOZ 


CF 


ZERO 


02638 


33 


05138 


obooo 


00170 




TFM 


AN-t-6,NUMER 


02650 


16 


02680 


-5091 


00180 




TFM 


AN+11,CARD*12 


02662 


16 


02685 


J3625 


00190 


AN 


TO 


NUMER,CARD*12 


02674 


25 


05091 


13625 


00200 




AM 


AN+6,1,10 


02686 


11 


02680 


000-1 


00210 




AM 


AN-t-11,2,10 


02698 


11 


02685 


000-2 


00220 




CH 


AN+6,NUMER'*-26 


02710 


14 


02680 


-5117 


00230 




BNE 


AN 


02722 


47 


02674 


01200 


00240 




SF 


NUMER 


02734 


32 


05091 


00000 


00250 




SF 


NUMER>14 


02746 


32 


05105 


00000 


00260 




SF 


NUMER+20 


02758 


32 


05111 


00000 


00270 




TFM 


SETFLG«11,CAR0>11 


02770 


16 


04555 


J 3 624 


00280 




TFM 


C0MFL6*ll,CARD+23 


02782 


16 


04615 


J3636 


00290 




BTM 


SETFLG,»*12 


02794 


17 


04544 


-2806 


00300 




TFM 


SETFLG*ll,CAR0+39 


02806 


16 


04555 


J3652 


00310 




TFM 


C0MFLG^ll,CAR0+63 


02818 


16 


04615 


J3676 


00320 




BTM 


SETFLG,»*12 


02830 


17 


04544 


-2842 


00330 




TF 


H0L05,ENDAD 


02842 


26 


05123 


0f)U6 


00340 




S 


HOLDS, STARTA 


02854 


22 


05123 


05110 


00350 




BL 


ERAOOR 


02866 


47 


04482 


01300 


00360 


INIT 


RCTY 




02878 


34 


00000 


00102 


00370 




SF 


BUTTON 


02890 


32 


00455 


00000 


00380 




SF 


ADORS-4 


02902 


32 


05092 


00000 


00390 




SF 


STARTA-4 


02914 


32 


05106 


00000 


00400 




SF 


ENOAO-4 


02926 


32 


05112 


00000 


00410 




RCTY 




02938 


34 


00000 


00102 


00420 




WATY 


MESI 


02950 


39 


04767 


00100 


00430 




BNF 


•♦32, ZERO 


02962 


44 


02994 


05138 


00440 




MATY 


MES3 


02974 


39 


04799 


OOlOO 


00450 




B 


• ♦20 


02986 


49 


03006 


00000 


00460 




DORG 


• -3 


02994 








00470 




WA TY 


MES2 


02994 


39 


04789 


OOlOO 


00480 




RCTY 




03006 


34 


00000 


00102 


00490 




WATY 


MES4 


03018 


39 


04809 


OOlOO 


00500 




RCTY 




03030 


34 


00000 


00102 


00510 




TOM 


AODRS^l,,, 


03042 


15 


05097 


00000 


00520 




DSC 
1 


If •#• 


03053 




1 




00530 




TDM 


ENDAO+1,,, 


03054 


15 


05117 


00000 


00540 




DSC 




03065 




1 



€09 
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00550 




TF 


HOLOAtENDAD^l 


03066 


26 


05130 


05117 


00560 




TO 


M0L0A-6,ENOAD-5 


03078 


25 


05124 


05111 


00570 




TOM 


START A^l,,, 


03090 


15 


05111 


00000 


00580 




DSC 
« 


!,•,• 


03101 




1 




00590 




WNTY 


AOORS-5 


03102 


38 


05091 


00100 


00600 




SPTY 




03114 


34 


00000 


00101 


00610 




MNTY 


STARTA-5 


03126 


38 


05105 


00100 


00620 




SPTY 




03138 


34 


00000 


00101 


00630 




MNTY 


HOLDA-6 


03150 


38 


05124 


00100 


00640 




TF 


ENDAO^ltHOLOA 


03162 


26 


05117 


05130 


00650 




RCTY 




03174 


34 


00000 


00102 


00660 




BTM 


KYMESS,^^12 


03186 


17 


04662 


-3198 


00670 




RCTY 




03198 


34 


00000 


00102 


00680 




TDM 


INIT+2,0 


03210 


15 


02880 


00000 


00690 




TF 


NEM^ll, STARTA 


03222 


26 


03645 


05110 


00700 




SM 


NEW^11,1.10 


03234 


12 


03645 


000-1 


00710 


SEEKTR 


TF 


0CF^5,ADDRS 


03246 


26 


04981 


05096 


00720 




TO 


DCF,A0DRS-5 


03258 


25 


04976 


05091 


00730 




CF 


OCF 


03270 


33 


04976 


00000 


00740 




TFM 


H0LD2,0,10 


03282 


16 


05118 


000-0 


00750 




TD 


H0LD2,ADDRS-l 


03294 


25 


05118 


05095 


00760 




MM 


H0LD2,5,10 


03306 


13 


05118 


000-5 


00770 




BD 


•♦20,99 


03318 


43 


03338 


00099 


00780 




B 


•♦20 


03330 


49 


03350 


00000 


00790 




DORG 


•-3 


03338 








00800 




SM 


H0LD2,1,10 


03338 


12 


05118 


000-1 


00810 




TD 


0CF^4,H0LD2 


03350 


25 


04980 


05118 


00820 




TDM 


OCF+5,0 


03362 


15 


04981 


00000 


00830 




TFM 


OCF^IS, TRACK 


03374 


16 


04989 


J3776 


00840 




TF 


M0RKAD,AD0RS 


03386 


26 


05145 


05096 


00850 


RDTRAK 


TFM 


DI0^3S,TEST,67 


03398 


16 


0085N 


-4006 


00860 




TFM 


I0RT,^^23 


03410 


16 


00565 


-3433 


00870 




B 


I0GT,DATA,7 


03422 


49 


00566 


-5153 


00880 




BD 


PUTNEH,INIT^2 


03434 


43 


03586 


02880 


00890 




TF 


TEMPY,A00RS 


03446 


26 


05152 


05096 


00900 




TO 


•♦23,TEMPY-1 


03458 


25 


03481 


05151 


00910 




TD 


•♦23,AJUST 


03470 


25 


03493 


04529 


00920 




SM 


TEMPY-1,0,10 


03482 


12 


05151 


000-0 


00930 




TDM 


TEMPY,0 


03494 


15 


05152 


00000 


00940 




S 


MORKAD,TEMPY 


03506 


22 


05145 


05152 


00950 




MM 


MORKAD, 105,9 


03518 


13 


05145 


00J05 


00960 




SF 


95 


03530 


32 


00095 


00000 


00970 




AM 


99,TRACK-101 


03542 


11 


00099 


J3675 


00980 




TF 


NEW+6,99 


03554 


26 


03640 


00099 


00990 




TDM 


INIT+2,1 


03566 


15 


02880 


00001 


01000 




B 


PUTNEW+12 


03578 


49 


03598 


00000 


OlOiO 




DORG 


• -3 


03586 








01020 


PUTNEW 


TFM 


NEW^6,TRACK-101 
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16 


03640 


J3675 


01030 




AM 
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03598 


11 
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000-1 


01040 




CF 


NEW+11 


03610 


33 
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00000 


01050 




AM 


NEW^6, 105,9 


03622 


11 


03640 


OOJ05 


01060 


NEM 


TFM 




03634 


16 


00000 


-0000 


01070 




BNF 
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DC 
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DC 
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03180 




DC 
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TFM 
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16 
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-6733 
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49 
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32 
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00060 
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14 


13635 
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00070 
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46 
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01200 


00080 




CM 


lNPUT-»'22t73.10 
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14 


13635 
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00090 




BH 


ERRIO 




02550 


46 
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01100 


00100 




CM 


INPUT*22,70,10 
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14 


13635 


OOOPO 


00110 




BL 


ERRIO 




02574 


47 


03926 


01300 


00120 




SF 


INPUT^II 
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32 
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C 
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02598 


24 


13633 


04309 


00140 




BE 
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02610 


46 
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01200 


00150 




TD 


PACK»INPUT-f20 




02622 


25 


04314 


13633 
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TD 
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02634 


25 


04313 


13631 


00170 




TD 


PACK-2>INPUT^16 




02646 


25 


04312 


13629 


00180 




TO 


PACK-3,INPUT*14 




02658 


25 


04311 


13627 


00190 




TD 


PACK-4,INPUT*12 




02670 


25 


04310 


13625 


00200 




SF 


PACK-4 




02682 


32 


04310 
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00210 




CM 


PACK.O 
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14 


04314 


-0000 


00220 




BE 


ERRIO 
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46 
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01200 


00230 
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16 
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SF 
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32 
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11 
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00260 




CM 
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14 
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BL 


ERRIO 
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47 


03926 


01300 
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AM 
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11 


02741 
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00290 




CM 
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14 


02741 


J3634 


00300 




BL 


SETFLG 




02802 


47 


02730 


01300 
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TD 
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25 
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13635 
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TD 
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02873 


00340 
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02850 


11 


02873 
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15 


13635 
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TFM 
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16 
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J3847 


00370 




TOM 
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02886 
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15 
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TFM 
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00565 
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49 
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TF 
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02934 


26 


04270 
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TO 


•♦22,INPUT^22 
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25 


02968 


13635 


00420 




AM 


A00RS,0,9 
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11 


04364 


00-00 


00430 




TD 


DDAL2>1,AD0RS,11 




02970 


25 


04286 


0436M 


00440 




TO 


D0AL4^1tADDRS,ll 




02982 


25 


04217 


0436M 


00450 




TO 


00AL6^1,AD0RS*11 




02994 


25 


04240 


0436M 


00460 




TD 


DDAL8^1,A0DRS,11 




03006 


25 


04263 


0436M 
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TD 


0DAL2,INPUT^22 
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25 
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13635 
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SM 
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03030 


12 
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TFM 
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03042 
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00565 
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B 
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03054 


49 
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TFM 
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16 
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J3837 
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03078 


44 
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TEST48 


BNR 
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45 


03110 
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00540 
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49 


03190 
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03166 








00620 




CM 
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14 
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BE 
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TO 
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25 
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13635 
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03202 
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OPOOO 


00690 




TF 
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03214 


26 


03273 


03213 


00700 




TFM 


IORT,«^23 


03226 


16 
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-3249 


00710 




B 
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03238 


49 


00566 
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00720 
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TFM 
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16 
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OPOOO 


00730 




CM 
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03262 


14 


03261 


OPOOO 


00740 




BE 


•♦48 


03274 


46 


03322 


01200 


00750 




SM 
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03286 


12 
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00760 




CF 


SEV«6,»6 


03298 


33 
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00770 




AM 
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11 
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00780 




AM 
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00810 




CF 


SEV«6tf6 
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03250 


00000 


00820 




AM 


SEV«6,7«10 


03370 


11 


03256 


000-7 
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00900 




SM 


SEV>6.4.10 


03466 


12 


03256 


000-4 
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TFM 
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OHIO 
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00532 
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04285 
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-3601 
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49 


00566 
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TFM 
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16 


15775 


-0199 
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CF 


RDAREA4-1995 
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TF 
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04314 
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-3861 
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-3866 
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49 
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01240 




OORG 
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01250 
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TFM 
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04205 
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ERRIO 
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01310 
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49 
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01320 
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KYMESS 
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TFM 
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• ♦20 
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TFM 
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01570 


DDAL5 
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01620 




DC 


3,020 
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04277 


2 








22 
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01750 


OSC I,* 


04284 




01760 0DAL2 


DSC 1,0 
0 


04285 


1 


01770 


DC 5,04800 


04290 


5 




-4800 






01780 


OC 3,002 


04293 


3 




-02 







3ia 



1620 MONITOR 11 DUP ROUTINE 



01790 




OSA 


ROAREA 


01800 




OSC 
• . 


l,» 


01810 


lORT 


OS 


,565 


01820 


lOGT 
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01850 
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OC 


5,0 
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22 
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02040 
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• 


02050 LABL2 


DSC 1,1 


02060 


1 
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02070 
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TFM 


STERR+24,7175,8 


03016 


16 


03633 


0P175 


00520 




B7 


ERONE+12 


03028 


49 


03552 




00530 


ONI 


AM 


STUll,2 


03036 


11 


02895 


-0002 


005A0 




CM 


STl*ll,CC+76 


03048 


14 


02895 


J3689 


00550 




BL 


STl 


03060 


47 


02884 


01300 


00560 




BTM 


BAK,CKLIM*ll,, GET SYSTEM DIMS 


03072 


17 


03268 


-3207 


00570 




MM 


DCOPY+68,5,10 


03084 


13 


02768 


000-5 


00580 




TF 


LASTN0,99«. PUT LARGEST LEGAL DIM NUMB^l IN LASTNO 


03096 


26 


06314 


00099 


00590 


• : 


SAVE 


SCRATCH AREA DIM 










00600 


COPY 


OS 


,DCOPY 


02700 




0 




00610 




TR 


C0PY4-100,C0PY«-20 


03108 


31 


02800 


02720 


00620 




TOM 


C0PY*110,0 


03120 


IS 


02810 


00000 


00630 




TDM 


C0PY4-109,0 


03132 


15 


02809 


00000 


00640 




A 


C0PY4-108,COPY»108 


03144 


21 


02808 


02808 


00650 


LENCS 


OS 


,C0PY*110 


02810 




0 




00660 


LENSC 


OS 


tCOPY-i-llO 


02810 




0 




00670 


• 














00680 




BNF 


G0AGIN»STCHG4-13t» BR IF NO SECTOR LIMITS 


03156 


44 


03452 


02873 


00690 




B7 


CKLIM, •« LIMITS GIVEN - GO CHECK LIMITS 


03168 


49 


03196 




00700 


SFSECL 


SF 


STCHG-i-13tt, PRESERVE INDICATION THAt SECTOR LIMITS GIVEN 


03176 


32 


02873 


00000 


00710 


DIMNO 


DS 


,CC4-26 


13639 




0 




00720 




B7 


STCHG 


03188 


49 


02860 




00730 


CKLIM 


SF 


CC^31,2»B, CHECK FOR VALID LIMITS Q HAS NUM EQU DIM 


03196 


32 


13644 


0-002 


00740 




SF 


CC+37 


03208 


32 


13650 


00000 


00750 




C 


CC*36,CC*42 


03220 


24 


13649 


13655 


00760 




BNH 


GOON 


03232 


47 


03968 


OllOO 


00770 




TFM 


STERR4-24, 7177,8, END ADDRESS GREATER THAN BEGINNING ADDRESS 


03244 


16 


03633 


0P177 


00780 




B7 


ER0NE412 


03256 


49 


03552 




00790 


• 


GET DIM ROUTINE - ENTER USING BTM BAKtDIMADR 










00800 


• 


GET DIM ROUTINE - UPON EXIT DIM IS IN AOOR AT RMCK^Il 










00810 




DS 


5 


03267 




5 




00820 




C 


•-1, LASTNO, 6. CK FOR DIM IN RANGE 


03268 


24 


0326P 


06314 


00830 




BL 


•♦32,,, BR IF DIM OK 


03280 


47 


03312 


01300 


00840 




TFM 


STERR-f 24, 0076,8, DIM TOO LARGE 


03292 


16 


03633 


0-076 


00850 




B7 


ER0NE-H2, 


03304 


49 


03552 




00860 




TFM 


CALCl, 4800,, CALCULATE THE FROM ADDRESS DIM ADDRESS 


03312 


16 


03642 


-4800 


00870 




TOM 


CALC1^1,0 


03324 


15 


03643 


00000 


00880 




A 


CALC14^1,BAK-1,11 


03336 


21 


03643 


0326P 


00890 




A 


CALC1^1,BAK-1,11 


03348 


21 


03643 


0326P 


00900 




TF 


ODADIM, CALCl,, PUT SECTOR ADDRESS IN DOA 


03360 


26 


03657 


03642 


00910 




TFM 


I0RT,*^23 


03372 


16 


00565 


-3395 


00920 




B 


10GT,DEF1,7, GET DIM 


03384 


49 


00566 


-3644 


00930 




TD 


•♦22,CALC1>1 


03396 


25 


03418 


03643 


00940 


RMCK 


BNR 


BBOIM •RDD1M,7,BR IF DIM IS OK 


03408 


45 


03440 


-2700 


00950 




TFM 


STERR^24, 0074,8, ERROR-DIM NOT IN USE 


03420 


16 


03633 


0-074 


00960 




B7 


ER0NE*12 


03432 


49 


03552 




00970 


BBOIM 


BB 




03440 


42 


00000 


00000 


00980 


■ 














00990 


G0A6IN 


SF 


OIMNO-3 


03452 


32 


13636 


00000 


01000 




CM 


CC*26,0,8 


03464 


14 


13639 


0-000 


01010 




BNE 


BTMO 


03476 


47 


03496 


01200 


01020 




B7 


EOUTLU,,, GO GET DIM NUMBER 


03488 


49 


03676 




01030 


BTHD 


TFM 


DDADIM-i-8,0C0PY-100,, ALTER THE LINKAGE TO RO DIMS 


03496 


16 


03665 


-2600 


01040 




TFM 


RMCK4- 11, OCOPY- 100,, ALTER THE DIM GET ROUTINE 


03508 


16 






01050 




BTM 


BAK, DIMNO,, GET DIM 


03520 


17 


03268 


J3639 
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01060 




BT 


OKGOON 


03532 


49 


04084 




01070 


« 














01080 


ERONE 


TFM 


STERR«24,0071,8, ERROR- TO SECTOR NOT GIVEN 


03540 


16 


03633 


0-071 


01090 




RCTY 




03552 


34 


00000 


00102 


01100 




MATY 


STERR 


03564 


39 


03609 


00100 


OHIO 


EXIT 


H 




03576 


48 


00000 


00000 


01120 


OKEXIT 


BI 


• 4-12,1400 


03588 


46 


03600 


01400 


01130 




B7 


MONCAL,,, ONLY EXIT FROM ROUTINE 


03600 


49 


00796 




01140 


STERR 


DAC 


15,DUP« ERROR XX • 


03609 




15 


X 2 






OUP« 


ERROR XX • 










01150 


• 














01160 


CALCl 


DC 


5,0 


03642 




5 








-0000 










01170 




DS 


1 


03643 




1 






OEFl 


DSC 


2,22 


03644 




2 




01190 




22 
DSA 


ODAOIM-5 


03650 




5 


X 1 










03650 




-3652 




01200 




DC 


l,» 


03651 




1 




01210 




DSC 


1,1 


03652 




1 




01220 


ROOIM 


1 

OS 


t OCOPY 


02700 




0 




01230 


ODADIM 


DC 


5,0 


03657 




5 








-0000 










01240 




DC 


3»1 


03660 




3 








-01 












01250 




OS A 


ROOIM 


03665 




5 


X 1 










03665 




-2700 




01260 




DC 
1 


It* 


03666 




1 




01270 


« 














01280 


OEQU 


DSC 


2,22 


03667 




2 




01290 




22 
DSA 


DCOPYMO 


03673 




5 


X 1 










03673 




-2740 




01300 




DC 


It' 


03674 




1 




01310 
















01320 


» 


TtU EQUIVALENCE TABLE 










01330 


EOUTLU 


BD 


•♦20,CC4>I1 


03676 


43 


03696 


13624 


01340 




87 


ERONE,, • ERROR - ESSENTIAL OPERAND BLANK 


03688 


49 


03540 




01350 


CNT 


OS 


, ERONE 4^ 18 


03558 




0 




01360 




TF 


CNT,DC0PY>48,,SAVE NUM SECTORS IN EQU TABLE 


03696 


26 


03556 


02748 


01370 




TFM 


DC0PY4^53,INEQU,7, FILL IN CORE ADDRESS 


03708 


16 


02753 


J 0000 


01380 




TFM 


DCOPY-t-48,16,9, SET NUM SECTORS TO 16 


03720 


16 


02748 


00-16 


01390 




SF 


CC+11 


03732 


32 


13624 


00000 


01400 




SM 


CNT, 16,9 


03744 


12 


03558 


00-16 


01410 


ROEQU 


TFM 


I0RT,*^23,* RD 16 SECTORS EQ TAB 


03756 


16 


00565 


-3779 


01420 




B 


I0GT,DEQU,7 


03768 


49 


00566 


-3667 


01430 




TFM 


C0MPN*ll,INEQU-5 


03780 


16 


03859 


-9995 


01440 


ADEQU 


AM 


COMPN+11,16 


03792 


11 


03859 


-0016 


01450 




BNR 


•♦20,C0MPN*11,11 


03804 


45 


03824 


0385R 
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87 


CKK£Utff CKKUK — OlAnc WUI IN CUU i AD 






03948 




01 470 




CM 


UUnPIM+Ilt INEQU't-loOO 


03824 


14 


03859 


J 1600 






BH 


TPCTi BO ic CMn nc \ A. ccrrnoc 


03836 


46 


03904 


01 100 


n 1 Aon 
















ni son 






r 1*4. 5 5 Cidn 




24 




00000 


ni SI n 






AUcUUttt oK NUl rUUNUt I R r AGAIN 


03860 


47 


03792 


01200 


ni S3n 


FOUND 


AM 


C0MPN+llt4 


03872 


11 


03859 


-0004 


ni qan 
n t cln 




TF 


DIMNOtCOMPN*ll » 11 » NAME FOUND — MOVE NUMBER 


03884 


26 


13639 


0385R 






®^ 


fi Tun TAIfC CAMC OATU AC tC n t ii All IM ^ t kiCAl 

DiriUft* 1 ARt dAMc rArn A5 Ir 01 H Nun ulVcN 


03896 


49 


03496 




01 550 


• 














01560 


TcSTL 


CM 


CNTt0t9 


03904 


14 


03558 


00-00 


01570 




BNH 


ERR20»tt ERROR - NAME NOT IN EQ TAB 


03916 


47 


03948 


01100 


01580 




A 


DC0PY*45t DC0PY'»"48 


03928 


21 


02745 


02748 


01590 




87 




03940 


49 


03744 










CTCDDA9A totn a Ainv tki en tab 
a 1 CKKt,^^« fc rO tOf NUl IN Cll TAB 


03948 


16 


03633 


0P270 


01610 




87 


CRUNCtI2 


03960 


49 


03552 




01620 


* 














01630 
















01640 


GOON 


S 


tCT42 tCCTj6f t CHANGE ScCTUR LIMITS TO ScvTOK CUUNT. 


03968 


22 


13655 


13649 


01650 




AM 


CC+42,1 


03980 


11 


13655 


-0001 


01660 




TF 


SAVSCT,CC*42,, SAVE THE SECTOR COUNT 


03992 


26 


04312 


13655 






SF 


CC*40 


04004 


32 


13653 


00000 


01680 




TF 


/*#*aao 
ttT39 tUt*^* 


04016 


26 


13652 


13655 


01690 


dAK3 


CF 


CC't-31 1 1 * MOVE 


04028 


33 


13644 


00000 


01700 




SF 


CCT92»t* rLAG 


04040 


32 


13645 


00000 






TDM 


CC^40 tO 


04052 


15 


13653 


00000 


01720 




DC 


I f • #• 


04063 




1 




01730 




TR 


RDDIM,CC*31 


04064 


31 


02700 


13644 


01740 




87 


LOK 


04076 


49 


04120 




01750 


nit fnnu 


TR 


RDDIM,RNCK-»11,11, MOVE FROM DIM 


04084 


31 


02700 


0341R 






TF 


SAVSCT. RD0IM4-89,SAVE SECTOR COUNT 


04096 


26 


04312 


027^08 


01770 




CF 


SAVSCT-2 


04108 


33 


04310 


00000 




S Av2 


OS 


t» 


041X9 








01790 


LOK 


TFM 


R0DIM«13,INEQU 


04120 


16 


02713 


JOOOO 


01800 


• 


•THE NUMB SECTORS NEEDED IS IN SAVSCT 










01810 


* 


















SF 


CC*44 


04132 


32 


13657 


OOOOO 


01830 




TF 


R0DIN^60«5tCC^48f • MOVE THE 


04144 


26 


02765 


13661 






TO 


R00IM460tCC«43 .t TO SECTOR 


04156 


25 


02760 


13656 






TOM 


RD0IM«14t0 




15 


02714 


nnnnn 


01860 




DC 
t 


lf»t» 


04179 








01870 




TR 


RDDIM4-60«6*ROOIN4>6,»PUT SECTOR COUNT CORE AODR IN TO DOA 


04180 


31 


02766 


02706 


01880 


* 


GET SP LIST 








■ ' 


01890 




TO 


0DASPLtR00IM^60»» GET CORRECT MODULE AND 


04 192 


25 


04327 


02760 


01900 




TO 


•♦3S tR00IM«61«« ADDRESS SCHEME FOR SP LIST 


04204 


25 


04239 


02761 


01910 




CF 


• ♦23 


042.16 


33 


04239 


OOOOO 


01920 




TO 


DOA SPL> It POINT 


04228 


25 


04328 


06300 


01930 




TFM 


IORTt«^23 t» READ THE 


04240 


16 


00565 


-4263 


01940 




B 


I0GT,DEFSPLt7t SP LIST 


04252 


49 


00566 


-4319 


01950 


• 


SEARCH FOR CYLINDER 










01960 


CYUMP 


MM 


RD0IM>65>5 


04264 


13 


02765 


-0005 


01970 




TFM 


94»70,10f SET UP THE SP LIST CYL ENTRY 


04276 


16 


00094 


OOOPO 


01980 




TF 


CYLCMP43,96 


04288 


26 


04267 


00096 


01990 


• 


CYLINDER DESIRED IS AT CYLCMP>3 IN 70XX FORMAT 


















• «» i 
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02000 




B7 


CKSPL 


04300 


49 


04342 




02010 


SAVSCT 


DC 


6»0 


04312 




6 








-00000 










02020 


SAVCPY 


DC 


6»0 


04318 




6 








-00000 








02030 


OEFSPL 


DSC 
22 


2,22 


04319 




2 




02040 




OS A 


DDASPL 


04325 




5 


X 1 










04325 




-4327 




02050 




DC 


l,« 


04326 




1 




02060 


DDASPL 


OS 


1 


04327 




I 




02070 




OS A 


19801 


04332 




5 


X 1 










04332 




J9801 




02080 




DC 


3*100 


04335 




3 








JOO 












02090 




OS A 


INEQU 


04340 




5 


X 1 


02100 








04340 




JOOOO 






DC 
• 


l*» 


04341 




1 




021 10 




LOOK FOR CYLINDER ENTRY OF TO CYLINDER 


■ 








02120 


CKSPL, 


SF 


INEQU ••2 


04342 


32 


JOOOO 


OOOOO 


02130 




AM 


CKSPL^6»4 


04354 


11 


04348 


-0004 


02140 




AM 


CKSPL<i-42*4 


04366 


11 


04384 


-0004 


02150 




C 


INEQU-UCYLCMP«3>2 


04378 


24 


-9999 


04267 






BNE 


CKSPL 


04390 


47 


04342 


01200 


02170 




SP POINTER IN CKSPL>42 HAS ADOR OF CYL ENTRY FOR THE 










02180 


* . 


CYLINDER CONTAINING THE TO SECTOR 




■ 






02190 




TF 


WK1«CKSPLM2,1I, NOVE THE 70XX 


04402 


26 


04556 


0438M 


02200 




TOM 


WKl-2,0fll« MAKE FIELD OXX 


04414 


15 


04554 


0000- 


02210 




A 


WKl.WKl., FIVE DIGIT SECTOR ADOR QF CYL IS AT NK2 


04426 


21 


04556 


04556 


02220 




UK2 CONTAINS THE 5 DIGIT SECTOR ADDRESS OF THE TO CYL 








02230 




RD0IM^65 CONTAINS THE5 DIGIT TO SECTOR ADDRESS 










02240 




CKSPL+42 CONTAINS THE ADDRESS OR THE TO CYL ENTRY IN SP LIST 










02250 
















02260 


LAB 


SF 


CKSPL4-6,,6 


04438 


32 


0434Q 


OOOOO 


02270 




AM 


CKSPL*6,4 


04450 


11 


04348 


-0004 






AM 


CKSPLM2t4 


04462 


11 


04384 


-0004 






CM 


CKSPL^42, 9000*68 


04474 


14 


043 8M 


OROOO 


02300 




BH 


AVLENT 


04486 


46 


04560 


01100 


02310 




CM 


CKSPL4-42. 7000*68 


04498 


14 


0438M 


OPOOO 


02320 




BH 


ERUNA 


04510 


46 


04648 


01100 


02330 




CM 


CKSPL ♦42,0001*68 


04522 


14 


0438M 


0-001 


02340 




BE 


SCRENT 


04534 


^6 


04668 


01200 






87 


OIMENT 


04546 




04728 




02360 


WKl 


DC 


4,0 














-000 












02370 




DSC 


1,0 


04557 




1 




02380 


HK2 


0 

DSC 


1,0 


04558 




1 




02390 


• 


SAVSCT CONTAINS THE SECTOR COUNT TO BE COPIED 










02400 


♦ ■ 


SENSC CONTAINS THE SECTOR COUNT OF SCRATCH AREA 











5 



7 32 
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02410 • 



02420 


AVLENT 


TF 


WKA»CKSPL-^42»1I 


04560 


26 


06227 


0438M 


02430 




SF 


WKA-2 


04572 


32 


06225 


00000 


02440 




A 


WK2»WKA»t ADD THE AVAIL SECTORS TO START OF CYLINDER 


04584 


21 


04558 


06227 


02450 


OUTFl 


C 


WK2»RDDIM465 


04596 


24 


04558 


02765 


02460 




BH 


• ♦20 


04608 


46 


04628 


OllCO 


02470 




B7 


LAB 


04620 


49 


04438 




02480 


OUTF 


SM 


WK2,1 


04628 


12 


04558 


-0001 


02490 




B7 


FOUNDS 


04640 


49 


04808 




02500 


ERUNA 


TFM 


STERR^24«007Bf8 


04648 


16 


03633 


0-078 


02510 




B7 


ERONE+12 


04660 


49 


03552 




02520 


SCRENT 


TF 


WK2,C0PY+25 


04668 


26 


04558 


02725 


02530 




A 


WK2,LENSC 


04680 


21 


04558 


02810 


02540 




CF 


STCHG*1 


04692 


33 


02861 


00000 


02550 




TFM 


STERR*24,7176,8 


04704 


16 


03633 


OP 176 


02560 




B 


OUTF 


04716 


49 


04628 


00000 


02570 


• 














02580 


• 














02590 


DIMENT 


TF 


MKA,CKSPL+42.11 


04728 


26 


06227 


0438M 


02600 




BTM 


BAKtWKA 


04740 


17 


03268 


-6227 


02610 




TR 


WKOIM, RMCK+iltll 


04752 


31 


06228 


0341R 


02620 




A 


WK2»WK0IM«8,, ADO SECTOR COUNT TO BEGIN OF CYL 


04764 


21 


04558 


06236 


02630 




C 


MK2tRD0IM4-6S 


04776 


24 


04558 


02765 


02640 




BH 


ERUNA 


04788 


46 


04648 


01100 


02650 




B7 


LAB 


04800 


49 


04438 




02660 


• 














02670 


* 


WHEN FOUNDS IS ENTERED WK2 CONTAINS AOOR OF LAST SECT AVAIL 










02680 


FOUNDS 


TF 


WKHICP»RDDIM^65 


04808 


26 


06223 


02765 


02690 




A 


WKHICP»RDDIM4-68»« ADD SECTOR COUNT TO THE TO SECTOR ADDR 


04820 


21 


06223 


02768 


02700 




SM 


HKHICPtltt OBTAIN THE LAST SECTOR TO BE COPIED 


04832 


12 


06223 


-0001 


02710 


CKIT 


C 


HK2»UKHICP 


04844 


24 


04558 


06223 


02720 




BNL 


COPYIT 


04856 


46 


05064 


01300 


02730 




CM 


CKSPLM2. 0001.68 


04868 


14 


0438M 


0-001 


02740 




BE 


ER0NE«-12 


04880 


46 


03552 


01200 


02750 


• 














02760 


LABZ 


AM 


CKSPL4-42«1»I0 


04892 


11 


04384 


000-1 


02770 




SF 


CKSPLM2,«6 


04904 


32 


0438M 


00000 


02780 




AM 


CKSPL»6,4 


04916 


11 


04348 


-0004 


02790 




AM 


CKSPL*42,3 


04928 


11 


04384 


-0003 


02800 




CM 


CKSPL^42*9000f68 


04940 


14 


0438M 


OROOO 


02810 




BH 


AVL 


04952 


46 


04996 


01100 


02820 




CM 


CKSPL>42«7000»68 


04964 


14 


0438M 


OPOOO 


02830 




BH 


LABZ 


04976 


46 


04892 


01100 


02840 




B7 


ERUNA 


04988 


49 


04648 




02850 


AVL 


TF 


MKA»CKSPL»42«I1 


04996 


26 


06227 


0438M 


02860 




SF 


MKA>2 


05008 


32 


06225 


00000 


02870 




A 


UK2,WKA 


05020 


21 


04558 


06227 


02880 




C 


UK2.WKHICP*. WKHICP IS LAST SECTOR TO BE COPIED 


05032 


24 


04558 


06223 


02890 




BH 


COPYIT 


05044 


46 


05064 


01100 


02900 




B7 


LABZ 


05056 


49 


04892 




02910 


• 














02920 




COPY SUBROUTINE 










02930 


COPY IT 


TF 


SAVCPY»SAVSCT«» SAVE THE NUN OF SECTORS 


05064 


26 


04318 


04312 


02940 




TFM 


RDDIM03*INEQU 


05076 


16 


02733 


JOOOO 


02950 




TF 


R00IM+25,R00IM«65 


05088 


26 


02725 


02765 


02960 




TD 


R0DIM«20tR0DIM«60 


05100 


25 


02720 


02760 
























1620 MONITOR 11 DUP ROUTINE •DCOPY 








PAGE 


02970 


SAVRD 


DS 


•FOUNDS 


04808 




0 




02980 


SAVWR 


OS 


•ROEQU 


03756 




0 




02990 




TR 


SAVRO«RDDIM 


05112 


31 


04808 


02700 


03000 




TR 


SAVWR(RDDIM-f20 


05124 


31 


03756 


02720 


03010 


REPEAT 


S 


SAVCPY.NUMSEC 


05136 


22 


04318 


06317 


03020 


CHGP 


BL 


ADJUST 


05148 


47 


05192 


01300 


03030 




TF 


RDDIM-t-Sf NUMSEC 


05160 


26 


02708 


06317 


03040 




TF 


RDDIM428,NUMSEC 


05172 


26 


02728 


06317 


03050 




B7 


RDWR 


05184 


49 


05252 




03060 


ADJUST 


A 


SAVCPY.NUMSEC 


05192 


21 


04318 


06317 


03070 




SF 


SAVCPY~2 


05204 


32 


04316 


00000 


03080 




TF 


RDDIM*8.SAVCPY 


05216 


26 


02708 


04318 


03090 




TF 


RDDIM*28,SAVCPY 


05228 


26 


02728 


04318 


03100 




S 


SAVCPY.SAVCPY 


05240 


22 


04318 


04318 


03110 


RDWR 


TFH 


IORTf^+23 


05252 


16 


00565 


-5275 


03120 




B 


I0GT,DEFIN»7, READ IN NUMSEC - OR LAST REMAINDER RECORD 


05264 


49 


00566 


-5379 


03130 




BO 


SETFPR,CHGP^7»« BR WHILE FLIP PROTECTION IS OCCURRING 


05276 


43 


06036 


05155 


03140 


WRDSKF 


TFM 


I0RT,»423 


05288 


16 


00565 


-5311 


03150 




B 


I0PT»DEF0UT.7, WRITE COPY 


05300 


49 


00532 


-5387 


03160 




A 


R00IM-«-5tRD0IM4-8 


0531,2 


21 


02705 


02708 


03170 




A 


RD0IM^25tRDDIM428 


05324 


21 


02725 


02728 


03180 


CFINS 


CF 


SAVCPY-2 


05336 


33 


04316 


00000 


03190 




CM 


SAVCPY,0«, IS RD-WR FINISHED 


05348 


14 


04318 


-0000 


03200 




BNZ 


REPEAT 


05360 


47 


05136 


01200 


03210 


• 


TRANSFER OF DATA IS COMPLETE 










03220 




B7 


LCOPY-12 


05372 


49 


05396 




03230 


DEFIN 


DSC 


2*22 


05379 




2 




03240 




22 
OS A 


RODIM 


05385 




5 


X 1 










05385 




-2700 




03250 




DC 
• 


lt« 


05386 




1 




03260 


DEFOUT 


DSC 


2,22 


05387 




2 




03270 




22 
OS A 


RDDIM420 


05393 




5 


X 1 










05393 




-2720 




03280 




DC 




05394 




I 




03290 




CHECK FOR FILE PROTECTION DESIRED 










03300 




BNF 


•♦20,STCHG*l 


05396 


44 


05416 


02861 


03310 


LCOPY 


87 


FILPRO 


05408 


49 


05714 




03320 




END ROUTINE 










03330 


ENDC 


TOM 


SAVRO+6,0 


05416 


15 


04814 


00000 


03340 




DC 


l,*f« 


05427 




1 




03350 




f 

TOM 


SAVWR^6,0 


05428 


15 


03762 


nnnnn 


03360 




DC 
• 




05439 




1 




03370 




TOM 


SAVSCT+1 


05440 


15 


04313 


00000 


03380 




DC 


lt«t» 


05451 




1 




03390 




t 

RCTY 




05452 


34 


00000 


00102 


03400 




HNTY 


SAVSCT-4 


05464 


38 


04308 


00100 


03410 




WATY 


FINMES 


05476 


39 


05605 


00100 



7 2; 4 



1620 MONITOR 11 OUP ROUTINE •DCDPV 



PAGE 







BNF 
















WNTY 








05743 


00100 








clvon 




AO 

zl 




uuouu 










05524 


38 


04808 


00100 






MATY 


FINMS2 


05536 


39 


05665 


OOlOO 


03470 




WNTY 


SAVMR 


05548 


38 


03756 


00100 


03480 




BNF 


•♦24tSTCHG*l 


05560 


44 


05584 


02861 


03490 




MATY 


FL 


05572 


39 


05675 


00100 






TOM 


SYSCALtS 


05584 


15 


00475 


00003 






B7 


OKEXIT 


05596 


49 


03588 






* 


















DAC 


30. SECTORS OF DATA COPIED FROM » 


05605 




30 


X 2 






SECTORS OF DATA COPIED FROM • 










03540 


FINMS2 


OAC 

TO ' 


5, TO • 

1 


05665 




5 


X 2 


03550 


Ft 


DAC 


20, AND FILE PROTECTED* 


05675 




20 


X 2 






AND 


FILE PROTECTED* 












* 


FILE PROTECTION ROUTINE 




■ 








r ILPRO 


RCTY 




05714 


34 


00000 


00102 






MATY 


KEYMES 


05726 


39 


05915 


00100 




SAVRO 


H 


0,0,7 


05738 


48 


00000 


-0000 






DC 
• 


l,*,» 


05749 




1 




. - 




TFM 


KEYMES4-24,4646,8 


05750 


16 


05939 


0M646 


03620 




TDM 


DEFIN4l,6 


05762 


15 


05380 


00006 


03630 




TOM 


OEFOUT+1,6 




15 




00006 






TDM 


CHGP<«-7,1,, SET IND FOR FILE PROTECTION BRANCH 


05786 


15 


05155 


00001 






TF 


CFlNS^U.OUMl^ll 


05798 


26 


05347 


05913 


n^A7n 




TF 


CFINS-»-I8tDUM«6 


05810 


26 , 


05354 


05900 






TR 


RDDIM,SAVMR 


05622 


31 


02700 


03756 


n'lAAn 




TR 


RDDIM«20,SAVMR 


05834 


31 


02720 


03756 


nsAon 




TFM 


RD0IM^8,20,9 


05846 


16 


02708 


00—20 






TFM 


RDDIM-t-28t20,9 


0S8S8 


16 


02728 


00—20 


03710 




TF 


SAVR0>10,SAVRD«^5 


05870 


26 


05748 


04813 






TO 


SAVR0«S,SAVR0 


05882 


25 




04808 


03730 


DUM 


B7 


RDHR,,0 


05894 


M9 


05252 






OUMl 


BD 


ENDMES,SETX«10,0 


05902 


M3 


05992 


062 10 




* 














03760 


KcYncS 


OAC 


39,DUP* TURN ON MRITE ADDRESS KEY, START* 


05915 




39 


X 2 






OUP» 


TURN ON MRITE ADDRESS KEY, START* 












* _ 
















cNDNcS 


RCTY 




05992 


34 


uuuoo 


00102 






MATY 


KEYMES 


nAn?iL 








n^fli n 




H 






Afl 

?n 


UUUUv 








B7 


ENDC 


06028 


49 


05416 






* 


















SELECT AND FILE PROTECT THE SECTORS COPIED 










03840 


- _ 
SET 


TFM 


SFFL*11,1NE0U,7 


06036 


16 


06083 


JOOOO 


03850 




AM 


SFFL^11,4 


06048 


11 


06083 


—0004 


03860 


CFH 


TFM 


FLAG*1,41.10 


06060 


16 


06145 


OOOMl 


03870 


SFFL 


C 


SAVMR4^5,INEQU,7 


06072 


24 


03761 


JOOOO 


03880 




BH 


FLA6-12 


06084 


46 


06132 


01100 


03890 


PNT 


OS 


• SFFL4^11 


06083 




0 




03900 




C 


MKHICP,PNT,11 


06096 


24 


06223 


0608L 


03910 




BL 


SETX 


06108 


47 


06200 


01300 


03920 




TFM 


FLAG4l,)2,lO 


06120 


16 


06145 


000L2 



1620 MONITOR 11 DUP ROUTINE •DCOPY PAGE 



03930 




SM 


PNT,4 


06132 


12 


06083 


-0004 


03940 


FLAG 


SF 


PNTtff6, 


THIS IS THE SET OR CLEAR FLAG INSTRUCTION 06144 


32 


0608L 


00000 


039S0 




AM 


PNT ,105 


06156 


11 


06083 


-0105 


03960 




CM 


PNT,105*20»INEQU 


06168 


14 


06083 


J2100 


03970 




BNH 


SETFPR«12 


06180 


47 


06048 


01100 


03980 




B7 


MRDSKF 


06192 


49 


05288 




03990 


• 














04000 


SETX 


TDM 


SETX«10,9 


06200 


15 


06210 


00009 


04010 




B7 


MRDSKF 


06212 


49 


05288 


04020 


WKHICP 


OS 


5 


06223 




5 




04030 


WKA 


OS 


4 


06227 




4 




04040 


WKOIM 


OSS 


20 


06228 




20 





04050 OENO 



00000 





1620 


MONITOR 11 


OUP ROUTINE 


•DCOPY 








PAGE 1 


ADJUST 


05192 


OKGOON 


04084 


OEFl 


03644 


LAB 


04438 


STl 


AVLENT 


04560 


REPEAT 


05136 


OEFIN 


05379 


LAB2 


04892 


STCHG 


COPYI T 


0506<» 


AOEQU 


03792 


OEQU 


03667 


LCOPY 


05406 


STERR 


CYLCMP 




AVL 


04996 


OIMNO 


13639 


LENCS 


02810 


TESTL 


DOAOIM 


0365 7 


BAK3 


0402B 


OUMl 


05902 


LENSC 


02810 


TRM 


OOASPL 


043 2 7 


BAK 


0 3268 


OUM 


05894 


LQK 


04120 


WKl 


OEFOUT 


05387 


BAKf 


02712 


ENDC 


05416 


ON 


03036 


WK2 


OEFSPL 


04319 


BBDIM 


0 3440 


ERONE 


03540 


OUTFl 


04596 


WKA 


OIMENT 


04728 


BTMD 


03496 


ERR20 


03948 


OUTF 


04628 


WKDIM 


EMDMES 


05992 


CALCl 


0 3642 


ERUNA 


04648 


PNT 


06083 


SAVCPY 


EOUTLU 


03676 


CC 


13613 


EXIT 


03576 


POINT 


0 6300 


SAVSCT 


FILPRO 


05714 


CFH 


06060 


FLAG 


06144 


ROOIM 


02700 


SCRENT 


FINMES 


05605 


CFINS 


05336 


FL 


05675 


ROEQU 


03756 


SETFPR 


F INMS2 


05665 


CHOP 


05148 


FOUND 


03872 


ROWR 


05252 


SFSECL 


FOUMOS 


04808 


CKIT 


04844 


GOON 


03968 


RMCK 


03408 


SYSCAL 


GQAGIN 


03452 


CKLI M 


03196 


GQONT 


02780 


SAV2 


04119 


WKH I C P 


KEYMES 


05915 


CKSPL 


04342 


INEQU 


10000 


SAVRD 


04808 


WRDSKF 


LASTNO 


063 14 


CNT 


03558 


I OCT 


00566 


SA VRO 


05738 




MONCAL 


00796 


COMPN 


03848 


I OPT 


00532 


SAVWR 


03756 




NUMSEC 


06317 


COPY 


02700 


lORBC 


00520 


SETX 


06200 




OKEXIT 


03588 


DCOPY 


02700 


lORT 


00565 


SFFL 


06072 




) OF ONE 


ASSEMBLY. 

















02884 
02860 
0 3609 
03904 
02748 
04556 
04558 
06227 
06228 
04318 
04312 
04668 
06036 
03176 
00475 
06223 
05288 



00010 ••• 
0002Q ••• 
00030 ••« 
00040 ••• 
00050 
00060 

00070 lOPT 
00080 lOGT 
00090 lORT 
00100 KING 

00110 



00150 
00160 



00190 

00200 ERRD 

00210 

00220 

00230 

00240 



1620 MONITOR 11 OUP ROUTINE DLOAD, DREPtf DELET 



SUBROUTINES>OIMMER,GETRtGETLt INSERT, REMOVE.FIND 



DORG 2458 


02458 








OS t532 


00532 




0 




OS t566 


00566 




0 




OS • 565 


00565 




0 




OSC 2,02, • DOA TO FLIP CORE MHEN MOVING PROGRAMS 


02458 




2 




02 










OSA QUEEN 


02464 




5 


X 1 




02464 




-2466 




DC 1,* 
1 


02465 




1 




OSC 1,1 

1 


02466 




1 




DC 5,02000 


02471 




5 




-2000 










DC 3,140 


02474 




3 




J40 










DC 6,05800* 


02480 




6 




-5800* 










DC 3,080,, THE CURRENT SIZE OF THE SPL 

-80 


02483 




3 




DAC 14,DUP«ERR0R 00 * 


02485 




14 


X 2 


0UP«ERR0R 00 • 








TFM 0IMERR^22,0071,8 


02512 


16 


02507 


0-071 


RCTY 


02524 


34 


00000 


00102 


WATY DIMERR 


.02536 


39 


02485 


00100 


H 


02548 


48 


00000 


00000 


B MONCAL 


02560 


49 


00796 


00000 


DORG •-S 


02568 








DSC 2»22,«0DA USED BY DIMMER TO READ IN ONE SECTOR 


02568 




2 




22 










OSA DMREAO 


02574 




5 


X 1 




02574 




-2576 




OSC 1,« 


02575 




1 




DSC 1,0 
0 


02576 




1 




DC 5,0 


02581 




5 




-0000 










DC 3,1 


02584 




3 




-01 










DC 5,19900 


02589 




5 




J990a 










DSC l,» 
• 


02590 




1 




DSC 2,22,,0DA USED BY THE MOVER TO MOVE PROGRAMS 


02591 




2 




22 










OSA RDMOVE 


02597 




5 


X 1 



02597 



-2599 



1620 MONITOR 11 DUP ROUTINE PLOAO* DREPLt OELET PAGE 2 



00350 




DSC 
t 


l.V 








02598 


I 


00360 


RDMOVE 


DSC 


IfO 








02599 




00370 




0 
DC 


5,0 








02604 


5 






-0000 












00380 




DC 


3,140 








02607 


■ 

3 






J40 














00390 




DC 


5,05800 








02612 


5 






-5800 












00400 




DSC 


1,» 








02613 


1 


00410 


WRMOOA 


DSC 


2t22t, 


DDA 


USED BY THE MOVER TO 


TRANSFER PROGRAMS 


02614 


2 






22 














00420 




DSA 


WRMOVE 








02620 


5 


















—2622 


00430 




DSC 
t 


1,' 








02621 


1 


00440 


uo unuc 
HKnuvc 


DSC 


ItO 








02622 


1 


00450 




0 

DC 


5,0 








02627 


5 






-0000 












00460 




DC 


3,140 










3 






J40 














00470 




DC 


5,05800 








02635 


5 






-580Q 












00480 




OSC 
t 


lt« 








02636 


1 


00490 


PKOOOA 


OSC 


2f22f f 


DDA 


FOR HANDLING THE SPL 


ON MODULE ZERO 


02637 


2 






22 














UU3UU 




OSA 


SPLPKO 








02643 




















-2645 


00510 




OSC 
t 


l.» 








02644 


1 


00520 


SPLPKO 


DSC 


Itl 












00530 




1 

DC 


5,19801 








02650 


5 






J9801 












00540 




DC 


3f080 








02653 


3 






-80 














00550 




DC 


5,05800 








02658 


5 






-5800 












00560 




DSC 
« 


If* 








02659 


1 


00570 


PKIODA 


DSC 


2,22,, 


OOA 


FOR HANDLING THE SPL 


ON MODULE ONE 


02660 


2 






22 














00580 




DSA 


SPLPKl 








02666 


















02666 


-2668 


00590 




DSC 
« 


If « 








02667 


1 


00600 


SPLPKl 


DSC 


1.3 








02668 


I 


00610 




3 

DC 


5,39801 








02673 


5 




1620 MONITOR 11 DUP ROUTINE DLOAD, OREPL, DELET PAGE 3 



00620 




DC 


3f080 


02676 


3 








-80 










00630 




DC 


S,05800 


02681 


5 








-5800 








00640 




DSC 
t 


I.' 


02682 


1 




00650 


PK2DDA 


DSC 


2,22,, DDA FOR HANDLING THE SPL ON MODULE TWO 


02683 


2 








22 










00660 




OSA 


SPLPK2 


02689 


5 


X 










02689 


-2691 




00670 




DSC 
« 


l.» 


02690 


1 




00680 


SPLPK2 


OSC 

5 




02691 


1 




00690 




DC 


5,59801 


02696 


5 








N9801 








00700 




DC 


3,080 


02699 


3 








-80 










00710 




DC 


5,05800 


02704 


5 








-5800 








00720 




DSC 
« 


I.' 


02705 


1 




00730 


PK300A 


OSC 


2,22,, DDA FOR HANDLING THE SPL ON NODULE THREE 


02706 


2 








22 










00740 




DSA 


SPLPK3 


02712 


5 


X 










02712 


-2714 




00750 




OSC 
• 


l,» 


02713 


1 




00760 


SPLPK3 


DSC 
7 


lt7 


02714 


I 




00770 




DC 


5,79801 


02719 


5 








P9801 








00780 




DC 


3,080 


02722 


3 








-80 










00790 




DC 


5,05800 


02727 


5 








-5800 








00800 




DSC 
• 


lt« 


02728 


1 




00810 


THRDDA 


DSC 


2*22,, DDA TO EXCHANGE CORE WHEN USING THE SPL 


02729 


2 








22 










00820 




DSA 


THROWS 


02735 


5 


X 










02735 


-2737 




00830 




DSC 
t 


1,* 


02736 


I 




00840 


THROWS 


DSC 


l.l 


02737 


1 




00850 




1 

DC 


5,19881 


02742 


5 








J9881 








00860 




DC 


3,080 


02745 


3 








-80 










00870 




DC 


5,05800 


02750 


5 








-5800 








00880 




DSC 




02751 


1 











1620 MONITOR 11 OUP ROUTINE OLOADi OREPL* OELET 








PAGE 


00890 


BAVAIL 


DC 


3f0,, ACCUMULATES AVAILABLE BLANK SECTORS FOUND IN MOVE 


02754 




3 




00900 


CALC2 


-00 
DC 


5,0 


02759 




5 








-0000 










00910 


GOLDEN 


DC 


l,0,,LISTER-4 


02760 




1 




00920 


LISTER 


DC 


4,0, .HOLDS PRESENT SPL POSITION 


02764 




4 








-000 












00930 


N48000 


DC 


6, 048000,, FIRST SECTOR OF DIM MAP 


02770 




6 








-48000 










00940 




DC 


1,0, .PACK CONTINUED 


02771 




1 




00950 


PACK 


DC 


1,0,, PACK NUM FOR SPL 1ST 


02772 




1 




00960 




DC 




02773 




1 




00970 


CALC3 


DC 


6,0 


02779 




6 








-00000 










00980 


CALC4 


DC 


4,0,, CALCULATION AREA 


02783 




4 








-000 












00990 




DC 


1,0,, SET UP THE OVERRIDE CODE FOR COMPARISION 


02784 




1 




OlOOO 


LISTES 


DC 


6,0,, DESIRED SECTOR ADDRESS FIND 


02790 




6 








-00000 










01010 


LISTET 


DC 


4,0., NUMBER TO BE INSERTED SPL INSERT 


02794 




4 








-000 












01020 


HEX 


OSC 


1,0 


02795 




1 




01030 


CONST 1 


0 

DC 


6,0,, WORK AREAS 


02801 




6 








-00000 










01040 


C0NST2 


DC 


6,0,, 


02807 




6 








-00000 










01050 


QCARRY 


DC 


6,0,, WHERE TO LOAD NEXT MOVED SECTORS 


02813 




6 








-00000 










01060 


QHOLO 


DC 


6,0 


02819 




6 








-00000 










01070 


CONST 5 


DC 


6,0 


02825 




6 








-00000 










01080 


C0NST6 


DC 


6,0 


02831 




6 








-00000 










01090 


C0NST7 


DC 


6,0 


02637 




6 








-00000 










01100 


RACKET 


DC 


♦ tO 


02841 




4 








-000 












OHIO 


STEAL 


DC 


4,0 


02845 




4 








-000 












01120 


CALC7 


DC 


3,0 


02848 




3 








-00 












01130 


FAKSEV 


DC 


4»0,, HAS SEVEN FROM LISTER 


02852 




4 








-000 












01140 


COMMON 


DC 


1,0 


02853 




1 




01150 


NOMMON 


DC 


2*0 


02855 




2 




01160 


NOSECA 


-0 
DC 


1,0 


02856 




1 


























1620 MONITOR 11 DUP ROUTINE DLOAD, DREPLt DELET 








PAGE 


01170 


MOVES A 


DC 


6,0,, FOR SECTOR ADDRESS 


02862 




6 








-00000 










01180 


MOVESC 


DC 


3,0,, FOR SECTOR COUNT 


02865 




3 








-00 












01190 


C0NST8 


DC 


5,0 


02870 




5 








-0000 










01200 
















01210 




SUBRUWTINE-GETR 










01220 


*•• 


SUBROUTINE FOR SHIFTING ONE TO RIGHT IN THE SPL 










01230 


• •• 














01240 


GETR 


TDM 


NOMMON, 1,, INITIALIZE TO SAVE CORE FOR EXCHANGE OF SPL 


02872 


15 


02855 


00001 


01250 


CLIPPP 


TF 


94,PACK 


02884 


26 


00094 


02772 


01260 




TFM 


I0RT,»*23 


02896 


16 


00565 


-2919 


01270 




B 


I0PT,THR0DA,7 


02908 


49 


00532 


-2729 


01280 




B 


REDSPL 


02920 


49 


04702 


00000 


01290 




OORG 


•-3 


02928 








01300 


GETRTR 


TF 


CALC2,SPLC0R,, LEFT PRESENT SPL C.A. 


02928 


26 


02759 


03151 


01310 




AM 


SPLCOR, 04, 10, LEFT END NEW ENTRY 


02940 


11 


03151 


000-4 


01320 




SF 


SPLCOR, ,6, NEW FLAG 


02952 


32 


031 5 J 


00000 


01330 


NEWOIM 


DC 


4,0, ••DESIRED DIM ENTRY 


02963 




4 








-000 












01340 




AM 


CALC2, 07,10, RIGHT END OF NEW ENTRY 


02964 


11 


02759 


000-7 


01350 




TF 


LISTER,CALC2,11 


02976 


26 


02764 


0275R 


01360 




8 


WHYNOT 


02988 


49 


03388 


00000 


01370 




OORG 


•-3 


02996 








01380 
















01390 


• •• 


SUBR0UTINE-6ETL 










01400 


»»• 


SUBROUTINE FOR SHIFTING ONE TO LEFT IN SPL 










01410 


• •• 














01420 


6ETL 


TDM 


NOMMON, 2, 


02996 


15 


02855 


00002 


01430 




B 


CLIPPP 


03008 


49 


02884 


00000 


01440 




OORG 


•-3 


03016 








01450 


6ETLTR 


TF 


CALC2, SPLCOR 


03016 


26 


02759 


03151 


01460 




SM 


SPLCOR, 04, lO.LEFT END OF NEW ENTRY 


03028 


12 


03151 


000-4 


01470 




SF 


SPLCOR, ,6, 


03040 


32 


0315J 


00000 


01480 




SM 


CALC2,01,10, RIGHT END NEW ENTRY 


03052 


12 


02759 


000-1 


01490 




TF 


LISTER,CALC2,11 


03064 


26 


02764 


0275R 


01500 




B 


MHYNOT 


03076 


49 


03388 


00000 


01510 




OORG 


•-3 


03064 








01520 
















01530 


• •• 


SUBROUTINE-REMOVE 










01540 


»•• 1 


REMOVES THE PRESENT ENTRY IN LISTER AND CLOSES THE LIST 










01550 
















01560 


REMOVE 


TDM 


NOMMON, 3,, 


03064 


15 


02855 


00003 


01570 




B 


CLIPPP 


03096 


49 


02884 


00000 


01580 




DORG 


•-3 


03104 








01590 


REMOTR 


TF 


CALC2, SPLCOR 


03104 


26 


02759 


03151 


01600 




AM 


CALC2,04,10, 


03116 


11 


02759 


000-4 


01610 




TR 


SPLCOR, CALC2, 611, CLOSES HOLE 


03128 


31 


0315J 


0275R 


01620 




SF 


SPLCOR,, 6 


03140 


32 


0315J 


00000 


01630 


SPLCOR 


DC 


5,0,»,DIM ADDRESS SPL 


03151 




5 








-0000 










01640 




SM 


CALC2,01,10 


03152 


12 


02759 


000-1 


01650 




TF 


LISTER, CALC2, 11 


03164 


26 


02764 


0275R 


01660 




CF 


SPLCOR, ,6 


03176 


33 


0315J 


00000 


01670 


SPLCYL 


DC 


5, 0,», CYLINDER SPL 


03187 




5 
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01680 


STOMP 


CM 


r ALKf UUf 1011 t PACK ZcKU 




14 


02 772 


000— 


01690 




?u 


WRTSPO 






03268 


0 1 200 


01 700 




CM 


r ALK » 01 1 10 1 1 f PACK UNt 


03212 


14 


02772 


000— J 


01710 




BE 




03224 


46 


03300 


01200 


01720 




CM 


PACK, 02, 1011, PACK TWO 


03236 


14 


02772 


000-K 






BE 


WRTSP2 


03248 






01200 


01 740 




B 


WRTSP3,,, PACK THREE 


03260 


49 


03364 


00000 ' 


0 1 750 




00 RG 


• -3 


03268 








01760 


** 


ROUTINE FOR RETURNING APPROIATE SPL TO DISK 










01770 


WRTSPO 


TFM 


iaRT,»+23 


03268 


16 


00565 


-3291 


0 1780 




B 


I0PT,PK0DDA,7 


03280 


49 


00532 


—2637 


01790 




B 


WHYNOT 


03292 


49 


03388 


00000 






00 RG 


•-3 










01810 


WRTSP 1 


TFM 


IGRT,»*23 


03300 


16 


00565 


-3323 


01820 




B 


I0PT,PK1DDA,7 


03312 


49 


00532 


—2660 


01830 




B 


MHYNOT 


03324 


49 


03388 


00000 


018A0 




00 RG 


•-3 


03332 








01850 


HRTSP2 


TFM 


I0RT,»*23 


03332 


16 


00565 


-3355 


0 1860 




B 


I0PT,PK20DA,7 


03344 


^« 


00532 


—2683 


01870 




B 


WHYNOT 


03356 


49 


03388 


00000 


01 880 




DQRG 


• -3 


03364 








01890 


WRTSP 3 


TFM 


I0RT,»*23 


03364 


1 






01900 




B 


I0PT,PK3D0A,7 


03376 








01910 


wnTIVU 1 


TFM 


I0RT,««23» •RESTORES CORE BEFORE RETURNING TO MAINLINE 


03388 


16 


00565 


-3411 


01920 


*** 














01930 


• «« 


SUBROyTINE- INSERT 










01940 


*** 


INSERTS TO THE LEFT OF THE PRESENT ENTRYAND OPENS LIST 










01950 




B 


I0GT,THRDDA«7 


03400 


49 


00566 


—2729 


01960 




BB 




03412 


42 


OUOuO 


UUUUU 


01970 




□ORG 


•-9 










01980 


INSERT 


TDM 


N0MM0N»4,t 








00004 


01990 




8 


CLIPPP 




49 


n9AflA 

02884 


nnnnti 


02000 




DORG 


•-3 


03434 








02010 


INSETR 


SF 


SPLC0R«,6 








nnnnn 
UUUUU 


02020 


FOUND 


DC 


5,0, ••FIND SECTOR TOTAL 


03445 












-0000 










02030 


•« 


ROUTINE TO SEE IF LIST IS ALREADY FULL 










02040 




TFM 


•♦35,05800,7 


03446 


16 


03481 


— 5800 


02050 




AM 


•♦23,04, 10 


03458 


11 


03481 


000-4 


02060 


T IpSY 


BNR 


•-12t 99999, .FINDS RECORD MARK AT END OF LIST 


03470. 






99999 


02070 




TF 


C0NST2»TIPSV«ll 


03482 


26 




000^4 


02080 




AM 


CONST2»04,10 


03494 


1 1 


02807 




02090 




TF 


CNST3,C0NST2 


03506 


26 


03578 


02807 


02100 




SM 


CNST3,05800,7 


03518 


12 






02110 




C 


CNST3-2,C0RSIZ,,C0MPARES PRESENT SIZE TO DEFINED LIMIT 


03530 


24 


035 76 


02483 


02120 




BL 


NERR 


03542 


47 


03580 




02130 




TFM 


DINERR^22,7178,8 


03554 


16 




OP178 


02140 




B 


ERRD 


03566 


49 


02524 


UUUUU 


02150 




DORG 


•-3 


03574 








02160 


CNST3 


DC 


5,0 


03578 












-0000 










02170 


NERR 


TF 


C0NST2,TIPSY+11,611,0PENS THE LIST 


03580 


26 


0280P 


0348J 


02180 




TF 


CALC2.SPLC0R 


03592 


26 


02759 


03151 


02190 




AN 


CALC2*03»I0 


03604 


11 


02759 


000-3 


02200 




TF 


CALC2^LISTET,6^ INSERTS THE ENTRY FROM LISTET 


03616 


26 


0275R 


02794 


02210 




OF 


SPLC0R,,6^ 


03628 


33 


0315J 


00000 
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02220 


DRESTR 


DC 


5,19880,«, 


03639 












J9860 










02230 




AM 


SPLC0R,4,10, 


«^ CO 


i> 


03151 


000 4 


02240 




CF 


SPLC0R,,6 


03652 




03 15J 


UUUUU 


02250 




B 


STOMP,,, 


03664 


AO 

49 


03188 


00000 


02260 




DORG 


• -3 


03672 








02270 


• •• 
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02290 


• •• 


SPECIFIED IN -NEHDIM- TO BEGIN AT CORE POSITION 19880 










02300 


••• 














02310 


OIMHER 


C 


NEWDIM,MAXDIM 


03672 


7^ 




2 , 


02320 




BNH 


•♦32 


03684 


47 


03716 


01 100 


02330 




TFM 


0IMERR^22,0076,8 


03696 


16 


2? CO J 


0-076 


02340 




B7 


ERRD 


03708 


49 


02524 




02350 




TF 


CALC2,NEW0IM 








2963 


02360 




A 


CALC2,CALC2 


03728 


21 


02759 


02759 


02370 




TF 


CALC3,N48000 




26 






02380 




A 


CALC3,CALC2,,NEW DIM SECTOR ADDRESS 


03752 


21 




02759 


02390 




TF 


DMREA0^13, DRESTR 


03764 


26 






02400 




TO 


•♦23,CALC3 


03776 


25 


03799 


02779 


02410 




SH 


DMREAD^12,0,10,ADJUST DIN READER S A 








999 9 


02420 




TF 


0MREA0^5,CALC3-1 


03800 


26 


02581 


02778 


02430 




TFM 


I0RT,^^23 


03812 


16 






02440 




B 


I0GT,DNDDA,7 


03824 






—2568 


02450 




BB 




03836 


42 


00000 


A A AAA 
OOUOU 


02460 




DORG 


•-9 


03838 








02470 




















THE FIND SUBROUTINE FOR LOCATING A POINT ON A PARTICULAR 










02490 


*** 


SPL FROM AN ADDRESS GIVEN IN -LISTES- 










02500 


*** 














02510 


r IND 


SF 


LISTES-S,,6 




32 




0 000 


02520 




CF 


LISTES-4 


03850 


33 


02766 


AA AAA 
UOUUO 


02530 




TF 


19885, LISTES,, ACCEPTS SECTOR ARGUMENT 


03862 






^^I?9 


02540 




BT 


SPLIST,SPLIST-l,,FINDSTART OF CYLINDER 










02550 




TOM 


N0MM0N,5 


naanA 


1 ^ 




00005 


02560 




B 


CLIPPP 


03898 


49 


02884 


A A AAA 

UUUUU 


02570 




DORG 


•-■3 










02580 


r INDTR 


TF 


CALC2-1,NEW0IH 










02590 




TOM 


CALC2-4,,ll,FLAG ZERO 


03918 


15 


02 755 


AAAA 


02600 




MM 


CALC2-1,02,10,FIND SECTOR 


03930 


13 




AAA O 


02610 




TFM 


ADRSPL,,7, ZERO THE FIELD 


03942 


16 


04520 


— 0000 


02620 




SF 


97,, .PICK UP COUNT 


03954 


32 


00097 


A AAAA 
UUUUU 


02630 




TF 


AORSPL-2,99,, MOVE SECTOR CYL ADDRESS 


03966 


26 


04518 


A A AAA 

00U9'» 


02640 




TO 


A0RSPL-4,LlSTES-4 




25 






02650 




SF 


AORSPL-4 


03990 


32 


04516 


A AAAA 

UUUUU 


02660 


TRYAGN 


TF 


CALC2,SPLC0R,, LEFT PRESENT SPL C.A. 


04002 


?t 


2?yf ? 


03151 


02670 




AM 


SPLCOR,04,10, LEFT END NEW ENTRY 


. 04014 


11 


03151 


000—4 


02680 




SF 


SPLCQR, ,6,NEW FLAG 




32 




A AAAA 

UUUUU 


02690 




AM 


CALC2,07rl0, RIGHT END OF NEW ENTRY 


04038 


11 


02759 


000-7 


02700 




TF 


LISTER, CALC2, 11 


04050 


26 


02764 


0275R 


02710 




TO 


CALC4,SPLC0R,ll, 


04062 


25 


02783 


0315J 


02720 




CM 


CALC4,09,1011, BLANK SECTORS 


04074 


14 


02783 


000-R 


02730 




BE 


ADOBLK 


04086 


46 


04286 


01200 


02740 




TF 


NEWDIM, LISTER 


04098 


26 


02963 


02764 


02750 




BT 


J)IMMER,DIMMER-1 


04110 


27 


03672 


03671 


02760 




C 


19885, ADRSPL,, DOES THIS PROGRAM BEGIN ON THIS CYLINDER 


04122 


24 


19885 


04520 
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02770 




BNL 


• ♦48 


04134 


46 


04182 


01300 


02780 




S 


19885, AORSPL 


04146 


22 


19885 


04520 


02790 




SF 


19883 


04158 


32 


19883 


00000 


02800 




A 


19888,19885 


04170 


21 


19888 


19885 


02810 




A 


AORSPL, 19888,, ADD SECTOR TOT Al , ADJUSTED IF NECESSARY 


04182 


21 


04520 


19888 


02820 


PLUSSR 


SF 


LISTES-4 


04194 


32 


02 786 


00000 


02830 




C 


AORSPL, LI STES.tHAS THE CORRECT ENTRY BEEN REACHED 


04206 


24 


04520 


02790 


028AO 




CF 


LISTES-4 


04218 


33 


02786 


00000 


02850 




BNH 


TRYAGN 


04230 


47 


04002 


01100 


02860 




TF 


FOUND, AORSPL 


04242 


26 


03445 


04520 


02870 


RLGONE 


TFM 


I0RT,»+23 


04254 


16 


00565 


-4277 


02880 




B 


I0GT,THRD0At7 


04266 


49 


00566 


-2729 


02890 




B 


•,,2, EXIT TO BE FILLED 


04278 


49 


—4278 


onnnn 


02900 




00 RG 


• -3 


04286 








02910 


AOOBLK 


SF 


LISTER-2 


04286 


32 


02762 




02920 




A 


AORSPL. LISTER, .ADD IN THE COUNT FOR BLANK SECTORS 


04298 


21 


04520 


02764 


02930 




CF 


LISTER-2 


04310 


33 


02762 


00000 


02940 




B 


PLUSSR 


04322 


49 


04194 


00000 


02950 




00 RG 


•-3 


04330 








02960 


NEVER 


DC 


2»0,AODBLK4ll 


04297 




2 




02970 


CLEVER 


-0 
DC 


lf0,A0DBLK-t-35 


04321 




1 




02980 


»»» 1 


ROUTINE FOR BRINGING IN THE PROPER LIST AND 










02990 


• •• 


SCANN 


ING TO THE CORRECT CYLINDER ENTRY 










03000 


SPLIST 


TFM 


I0RT,»423 


04330 


16 


00565 


-4353 


03010 




B 


I0PT,THR0DA,7 


04342 


49 


00532 


-2729 


03020 




TOM 


19880,, 11 .FLAG ZERO 


04354 


15 


19880 


0000- 


03030 




MM 


19885»05»10 


04366 


13 


19885 


000-5 


03040 




CF 


COMMON 


04378 


33 


02853 


00000 


03050 




SF 


94,,, DESIRED CYLINDER 


04390 


32 


00094 


00000 


03060 




SF 


93 


04402 


32 


00093 


00000 


03070 




TD 


STARDT* 10, 95,, SET-UP SEARCH FOR THE CORRECT CYLINDER 


04414 


25 


05032 


00095 


03080 




TO 


STARDT«11,96 


04426 


25 


05033 


00096 


03090 




MM 


L I STES-5, 50000,7, USE OVERRIDE CODE TO DETERMINE MODULE 


04438 


13 


02785 
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03100 




SF 


94 


04450 


32 


00094 


00000 


03110 




B 


RDSPL 


04462 


49 


04594 


00000 


03120 




00 RG 


•-3 


04470 








03130 


SPLINI 


BNF 


•♦2 Of COMMON 


04470 


44 


04490 


02853 


03140 




B 


GETBAK 


04482 


49 


05170 


00000 


03150 




DORG 


•-3 


04490 








03160 




TDM 


CALC4-I, Of 11. SET-UP CALC4 


04490 


15 


02782 


0000- 


03170 




TFM 


ADRSPL, 05800 


04502 


16 


04520 


-5800 


03180 


LPSRDA 


NOP 


,,, HOLDS COUNT POSITION FOR SPL LIST 


04514 


41 


00000 


00000 


03190 




TD 


CALC4,ADRSPL .ll, PREPARE TO COMPARE 


04526 


25 


02783 


0452- 


03200 




CF 


CALC4 


04538 


33 


02 783 


00000 


03210 




CM 


CALC4»7,10 


04550 


14 


02783 


000-7 


03220 




BE 


COMCYL 


04562 


46 


04986 


01200 


03230 


SPLADD 


AN 


AORSPL ,04, 10. .NEXT ENTRY 


04574 


11 


04520 


000-4 


03240 




B 


A0RSPL4-6 


04586 


49 


04526 


00000 


03250 




OORG 


•-3 


04594 








03260 


ROSPL 


TF 


KEVE»94 


04594 


26 


05009 


00094 


03270 




TF 


NEVER, LISTES-4. tCORRECT TENTHOUSANOS POSITION 


04606 


26 


04297 


02786 


03280 




TDM 


NEVER-1,,11 


04618 


15 


04296 


0000- 


03290 




MM 


NEVER,05,10 


04630 


13 


04297 


000-5 


03300 




BD 


•♦24,99 


04642 


43 


04666 


00099 
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AM 


NEVER,1,10 


04654 


11 


04297 


000-1 


03320 




TO 


CLEVER, NEVER 


04666 


25 


04321 


04297 


03330 




SF 


CLEVER 


04678 


32 


04321 


00000 


03340 


• »• 1 


ROUTINE TO READ IN CORRECT SPL 










03350 




TF 


94,KEVE 


04690 


26 


00094 


05009 


03360 


REDSPL 


CM 


94,0,1011, PACK ZERO 


04702 


14 


00094 


000— 


03370 




TF 


PACK, 94,, SAVE PACK NUM 


04714 


26 


02772 


00094 


03380 




BE 


REDSPO 


04726 


46 


04810 


01200 


03390 




CM 


94,1,1011, PACK ONE 


04738 


14 


00094 


000-J 


03400 




BE 


REDSPl 


04750 


46 


04854 


01200 


03410 




CM 


94,2,1011, PACK TWO 


04762 


14 


00094 


000-K 


03420 




BE 


REDSP2 


04774 


46 


04898 


01200 


03430 




CM 


94.3,1011, PACK THREE 


04786 


14 


00094 


000-L 


03440 




BE 


RE0SP3 


04798 


46 


04942 


01200 


03450 


REDSPO 


TO 


SPLPKO^l, CLEVER 


04810 


25 


02646 


04321 


03460 




TFM 


IORT,«+23 


04822 


16 


00565 


-4845 


03470 




B 


I0GT,PK00DA,7 


04834 


49 


00566 


-2637 


03480 




B 


SPLINI 


04846 


49 


04470 


00000 


03490 




DORG 


•-3 


04854 








03500 


REDSPl 


TD 


SPLPKUl, CLEVER 


04854 


25 


02669 


04321 


03510 




TFM 


I0RT,««23 


04866 


16 


00565 


-4889 


03520 




B 


I0GT,PK1DDA,7 


04878 


49 


00566 


-2660 


03530 




B 


SPLINI 


04890 


49 


04470 


00000 


03540 




OORG 


•-3 


04898 








03550 


REDSP2 


TD 


SPLPK24-1, CLEVER 


04898 


25 


02692 


04321 


03560 




TFM 


I0RT,«4>23 


04910 


16 


00565 


-4933 


03570 




B 


I06T,PK2DDA.7 


04922 


49 


00566 


-2683 


03580 




B 


SPLINI 


04934 


49 


04470 


00000 


03590 




DORG 


• -3 


04942 








03600 


REDSP3 


TD 


SPLPK3'*-1,CLEVER 


04942 


25 


02715 


04321 


03610 




TFM 


I0RT,»^23 


04954 


16 


00565 


-4977 


03620 




B 


I0GT,PK3DDA.7 


04966 


49 


00566 


-2706 


03630 




B 


SPLINI 


04978 


49 


04470 


00000 


03640 




OORG 


•-3 


04986 








03650 


COMCYL 


TF 


SPLCYL, AORSPL ,,CYLC0RE POSITION 


04986 


26 


03187 


04520 


03660 




SF 


AORSPL,, 6 


04998 


32 


0452- 


00000 


03670 


KEVE 


OS 


,COMCYL*23 


05009 




0 




03680 




AM 


SPLCYL,03,10 


05010 


11 


03187 


000-3 


03690 


STARDT 


CM 


SPLCYL, 7000,68, IS THIS THE RIGHT CYLINDER 


05022 


14 


0318P 


OPOOO 


03700 




BE 


SPLEXT 


05034 


46 


05066 


01200 


03710 




CF 


AORSPL,, 6 


05046 


33 


0452- 


00000 


03720 




B 


SPLADD 


05058 


49 


04574 


00000 


03730 




DORG 


»-3 


05066 








03740 


SPLEXT 


TF 


SPLCOR, SPLCYL, .FIND DIM NUM LOCATION 


05066 


26 


03151 


03187 


03750 




SM 


SPLCYL, 03,10, BACK TO HIGH ORDER POSITION 


05078 


12 


03187 


000-3 


03760 




SF 


SPLCYL., 6 


05090 


32 


0318P 


00000 


03770 




TF 


NEWDIM.SPLCOR, 11, CYLINDER DESIRED 


05102 


26 


02963 


0315J 


03780 




TF 


L!STER,SPLC0R,11, 


05114 


26 


02764 


0315J 


03790 




TF 


SPLCOR, SPLCYL 


05126 


26 


03151 


03187 


03800 




TF 


SPLCYL, AORSPL 


05138 


26 


03187 


04520 


03810 




SF 


COMMON 


05150 


32 


02853 


00000 


03820 




B 


WHYNOT 


05162 


49 


03388 


00000 


03830 




OORG 


• -3 


05170 








03840 


♦ *♦ 1 


LINKAGE TO RETURN TO PROPER SUBROUTINE AFTER SAVING CORE 










03850 


GETBAK 


CM 


NOMMON,01,10 


05170 


14 


02855 


000- 1 


03860 




BE 


GETRTR 


05182 


46 


02928 


01200 
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03870 




CM 


NOMMONt02tlO 


05194 


14 


02855 


000-2 


03880 




BE 


GETLTR 


05206 


46 


03016 


01200 


03890 




CM 


NOMMON,03,10 


05218 


14 


02855 


000-3 


03900 




BE 


REMOTR 


05230 


46 


03104 


01200 


03910 




CM 


NOMMON«04»10 


05242 


14 


02855 


000-4 


03920 




BE 


INSETR 


05254 


46 


03434 


012OO 


03930 




B 


FINDTR 


05266 


49 


03906 


00000 


039A0 




□ORG 


• -3 


05274 








03950 


ADRSPL 


OS 


,LPSRDA*6 


04520 




0 




03960 


*•* 


PORTION OF THE MOVER SUBROUTINE WHICH MOVES THE DATA 










03970 


COMPFR 


TFM 


IORT,»*23 


05274 


16 


00565 


-5297 


03980 




B 


I0PT,KING,7,SAVE THE INFORMATION IN CORE 


05286 


49 


00532 


-2458 


03990 




CM 


CALC7.140»9,REGULAR READ 


05298 


14 


02848 


00J40 


04000 




BL 


SPCRED 


05310 


47 


05462 


01300 


04010 




SM 


ROMOVE+5, 140,9 


05322 


12 


02604 


00J40 


04020 




SM 


WRMOVE+5, 140,9 


05334 


12 


02627 


00J40 


04030 


WHIPI T 


TFM 


I0RT,«423 


05346 


16 


00565 


-5369 


04040" 




B 


I06T,R0MDDA,7 


05358 


49 


00566 


-2591 


04050 




TFM 


I0RT,»*23 


05370 


16 


00565 


-5393 


04060 




B 


I0PT,WRMD0A,7 


05382 


49 


00532 


-2614 


04070 




SM 


CALC7, 140,9 


05394 


12 


02848 


00J4O 


04080 




CM 


CALC7, 140,9 


05406 


14 


02848 


00J40 


04090 




BNH 


SPCRED 


05418 


47 


05462 


01100 


04 100 




SM 


WRM0VE-f5,140,9,A0JUST COUNT AND DDA AFTER TRANSFEltING 140 SE 


05430 


12 


0262 7 


oaj4o 


041 10 




SM 


RDMOVE^S, 140,9 


05442 


12 


02604 


00J40 


04120 




B 


WHIPIT 


05454 


49 


05346 


00000 


04130 




DORG 


• -3 


05462 








04140 


SPCRED 


TF 


RDM0VE48,CALC7,»TRANSFER LAST PORTION OF PROGRAM 


05462 


26 


02607 


02848 


04150 




TF 


WRM0VE«8,CALC7 


05474 


26 


02630 


02848 


04160 




S 


WRM0VE*5,CALC7 


05486 


22 


02627 


02848 


04170 




S 


RDM0VE«$,CALC7 


05498 


22 


02604 


02848 


04180 




TFM 


I0RT,»«23 


05510 


16 


00565 


-5533 


04190 




B 


I06T,R0M00A,7 


05522 


49 


00566 


-2591 


04200 




TFM 


IORT,»«23 


05534 


16 


00565 


-5557 


04210 




B 


I0PT,WRMDDA,7 


05546 


49 


00532 


-2614 


04220 




TFM 


MRM0VE«8, 140,9, RESTORE CONSTANTS TO 140 


05558 


16 


02630 


00J40 


04230 




TFM 


R0M0VE48, 140,9 


05570 


16 


02607 


00J40 


04240 




TF 


MPT, 19885,, SAVE ADDRESS OF LAST PROGRAMS ORIGINAL SECTOR A 


05582 


26 


08636 


19885 


04250 




TF 


19885, WRMDVE^S,, CORRECT SECTOR ADDRESS IN DIM ENTRY 


05594 


26 


19885 


02627 


04260 




TFM 


I0RT,*«23 


05606 


16 


00565 


-5629 


04270 




B 


i0PT,0M00A,7 


05618 


49 


00532 


-2568 


04280 




TFM 


I0RT,*«23 


05630 


16 


00565 


-5653 


04290 




B 


I06T,KING,7 


05642 


49 


00566 


-2458 


04300 




B 


MARVEL 


05654 


49 


10884 


00000 


04310 




OORG 


•-3 


05662 








04320 


ERR 


BNF 


•♦68,F0RT,,CHECK FOR ERROR 60 IN OLOAO 


05662 


44 


05730 


13114 


04330 




TFM 


D I MERR'^22, 7670,8 


05674 


16 


02507 


0P670 


04340 




RCTY 




05686 


34 


00000 


00102 


04350 




WATY 


OIMERR 


05698 


39 


02485 


00100 


04360 




BNF 


ERR0«24,0UMP 


05710 


44 


02548 


13426 


04370 




B 


PATCH3 


05722 


49 


14956 


00000 


04380 




OORG 


•-3 


05730 








04390 




TFM 


0IMERR«22,0078,8 


05730 


16 


02507 


0-078 


04400 




B 


ERRO 


05742 


49 


02524 


00000 


04410 




OORG 


•-3 


05750 








04420 


NINESC 


DC 


4,9000 


05753 




4 








ROOD 
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04430 


C0NST3 


OC 


6,0 


05759 




6 








•00000 










04440 


SPLFL 


TFM 


I0RT,*'*-23,, LINKAGE FOR THROWING SACRED SIX TO DISK WHEN LOA 


05760 


16 


00565 


-5783 


04450 




B 


I0PT,SPLR2,7 


05772 


49 


00532 


-5823 


04460 




TRA 




05784 


36 


00000 


00500 










05796 


49 


00000 


00000 


04470 


SPLRX 


OSC 
1 


1,1 


05808 




1 




04480 




OC 


5,18298 


05813 




5 








J8298 










04490 




OC 


3,033 


05816 




3 








-33 












04500 




OC 


5,02458 


05821 




5 








-2458 










04510 




DSC 
• 


1,» 


05822 




I 




04520 


SPLR2 


OSC 


2,22 


05823 




2 




04530 




22 
OS A 


SPLRl 


05829 




5 


X 1 










05829 




-5808 




04540 




OSC 
• 


1,' 


05830 




1 




04550 




TCD 


SPLFL 


05760 








04560 




OORG 


8500 


08500 








04570 


MOVFL 


TFM 


IORT,»>23,, LINKAGE FOR THROWING MOVER TO DISK WHEN LOADING 


08500 


16 


00565 


-8523 


04580 




B 


I0PT,N0VFL1,7 


08512 


49 


00532 


-8548 


04590 




TRA 




08524 


36 


00000 


00500 










08536 


49 


00000 


00000 


04600 


HOVFLl 


OSC 


2.22 


08548 




2 




04610 




22 
OS A 


M0VFL2 


08554 




5 


X 1 










08554 




-8556 




04620 




OSC 
• 


1»« 


08555 




1 




04630 


M0VFL2 


OSC 

I 


1,1 


08556 




1 




04640 




OC 


5,18331 


08561 




5 








J8331 










04650 




OC 
-38 


3,038 


08564 




3 




04660 




OC 


5,08600 


08569 




5 








-8600 










04670 




OSC 
• 


1,« 


08570 




1 




04680 


»•« 














04690 


• •• 














04700 


THE MOVER SUBROUTINE FOR PREPARING A PLACE TO PUT A PROGRAM GIVE 










04710 


*•• A STARTING SECTOR ADDRESS -MOVESA- AND A SECTOR COUNT -MOVESC- 










04720 
















04730 


• •• 














04740 




DORG 


8600 


08600 








04750 


SFSUCE 


SF 


SUCESS 


08600 


32 


13118 


00000 


04760 




TF 


MOVESC, SFSUCE +11,, RESTORE MOVE SECTOR COUNT. 


08612 


26 


02865 


08611 



"J 'Id 
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0^770 


EXITMR 


B 


• tuTO BE TFM BY CALLING PROGRAM 




08624 


49 


08624 


00000 


04780 




DORG 


•-3 




08632 








04790 


MPT 


OC 


5,0 




08636 




5 








-0000 












04800 


PRE7 


TFM 


I0RT,»"»-23 




08638 


16 


00565 


-8661 


04810 




B 


I0GT,N0MAt7, LINKAGE FOR BRINGING 


IN THE SECOND HALF OF MOV 


08650 


49 


00566 


-8670 






B 


PRE7A 




08662 


49 


09000 


00000 


04830 




DORG 


»-3 




08670 








04840 


NOMA 


DSC 


2,22 




08670 




2 








22 














04850 




DSA 


NOMB 




08676 




5 


X 1 












08676 




-8678 




04860 




DC 


1,» 




08677 




1 




04870 


NOMB 


DSC 


1,1 




08678 




1 




04860 




1 

OC 


5,17106 




08683 




5 








J7106 












04890 




DC 


3,022 




08686 




3 








-22 


















DC 


6,09000* 




08692 












-9000* 












04910 


T R WC A R 


DSC 


2,22,, DDA FOR MOVING DATA 




08693 




2 








22 














04920 




DSA 


MOVCAR 




08699 




5 


X 1 












08699 




-8701 




04930 




OC 
t 


1,» 




08700 




1 




04940 


MOVCAR 


OSC 


1,0 




08701 




1 




04950 




0 
DC 


5,0 




08706 




5 








-0000 












04960 




DC 


3,060 




08709 




3 








-60 














04970 




DC 


5,13776 




08714 




5 








J3776 
















DC 
t 


I,* 




08715 




1 




04990 


TR WBUS 


DSC 


2,22,, DDA FOR MOVING DATA 




06716 




2 








22 














05000 




DSA 


MOVBUS 




08722 




5 


X 1 












08722 




-8724 




05010 




DC 
I 


If* 




08723 




1 




05020 


MOVBUS 


OSC 


1,0 




08724 




1 




05030 




0 

DC 


5,0 




08729 




5 








-0000 












05040 




DC 


3.060 




08732 




3 








-60 














05050 




DC 


5,13776 




08737 




5 








J3776 












05060 




DC 


It' 




08738 




1 








• 
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ULUAU, UKCrU, UCkCI 










05070 


TRWA 


OSC 


2,22, • DDA FOR MOVINGDATA 




08739 




2 








22 














05080 




DSA 


LOPEZA 




08745 




5 


X 1 












08745 




-B747 




05090 




DC 
« 


It* 




08746 




1 




05100 


LOPEZA 


DSC 
0 


IfO 




08747 




1 




05110 




DC 


5.0 




08752 




5 








-0000 












05120 




DC 


3t060 




08755 




3 








-60 














05130 




DC 


5,13776 




08760 




5 








J3776 












05140 




DC 
■ 


It* 








1 








DSC 


2,22,, DDA FOR MOVING DATA 




08762 












22 














05160 




DSA 


LOPEZB 




08768 




5 


X 1 












08768 




-8770 




05170 




DC 
• 


It* 




08769 




1 




05180 


LOPEZB 


DSC 


IfO 




08770 




1 




05190 




0 

OC 


5,0 




08775 




5 








-0000 












05200 




DC 


3t060 




08778 




' 








-60 














05210 




DC 


St 13776 




08783 




5 








J3776 












05220 




DC 
• 


It* 




08784 




1 




05230 


MONITR 


OS 


,796 




00796 




0 




05240 


KEY5 


DSC 


ItO 




08785 




1 




05250 


CALC6 


0 
DC 


5,0 




08790 




5 








-0000 












05260 


CALC5 


DC 


6f0 




08796 




6 








-00000 












05270 


ZEROES 


DC 


10,0 




08806 




10 








-000000000 












05280 


CURREN 


DC 


3,0 




08809 




3 








-00 














05290 


LIMIT 


DC 


3,099 




08812 




3 








-99 














05300 


KEVl 


DSC 


1,0 




08813 




1 




05310 


OIMHLD 


0 

DC 


9,0 




08822 




9 








-00000000 












05320 


DIMENT 


OS 


•19880, CONTROL FIELD FOR NOMDIM 




19880 




0 




05330 


MOVER 


SF 


MOVESA-5 




08824 


32 


02857 


00000 


05340 




CF 


MOVESA-4 




08836 


33 


02858 


00000 


05350 




TF 


SFSUCE+ll,MOVESC,, STORE 


MOVE SECTOR COUNT. 


08a48 


26 


08611 


02865 


05360 




TF 


LISTEStNOVESA,, FIND POINT IN LIST WHERE PROGRAM IS TO BEGI 


08860 


26 


02790 


02862 



15 0 
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05370 




TFM 


RLG0NE+30t*+20 


08872 


16 


04284 


-8892 


05380 




B 


FIND 


08884 


49 


03838 


00000 








•—3 


08892 








«^ ?n 






L 1 !> 1 cK-i t UV » 101 1 1 LOUK rUR BLANK cNTRY 


08892 


14 


02 761 


000-R 


05410 




BE 


MIDNIT . 


08904 


46 


09372 


01200 








NEWDI M(L.I STERt t MOVESA IS IN THE MIDDLE OF A PROGRAM 


08916 


26 


02963 


02764 


05430 




BT 


DIMMERf OlMMER-l 


08928 


27 


03672 


03671 


05440 




SF 


MOVESA-4 


08940 


32 


02858 


00000 


05450 




TF 


CON ST5t 19885 


08952 


26 


02825 


19885 


05460 




S 


C0NST5tM0VE-SA 


08964 


22 


02825 


02862 


05470 




CF 


MOVESA-4 


08976 


33 


02858 


00000 


054B0 




SF 


C0NST5-2 


08988 


32 


02823 


00000 


05490 




TF 


BAVAI L«C0NST5t t ADJUST BLANK AVAIL TO MINUS TO ALLOW FOR DIM 


09000 


26 


02754 


02825 


05500 




BNF 


FILTST»19899t, IS THE PROGRAM FILE PROTECTED 


09012 


44 


10204 


19899 


05510 


MSTAKE 


CF 


SUCESS* » tERROR EXIT 


09024 


33 


13118 


00000 


05520 




TF 


M0VESC(SFSUCE4-lltt RESTORE MOVE SECTOR COUNT. 


09036 


26 


02865 


08611 


05530 




B 


EXITMR 


09048 


49 


08624 


00000 


05540 




00 RG 


»-3 


09056 








05550 


DSEVEN 


SF 


L I STES-4 


09056 


32 


02786 


00000 


05560 




S 


FOUNDtLISTES 


09068 


22 


03445 


02790 


05570 




SF 


F0UND--2 


09080 


32 


03443 


00000 


05580 




TF 


C0NST2» FOUND 


09092 


26 


02807 


03445 




AGTAJ 


C 


CUNb 1 MUVt f t cNOUun bcLluRd AVAILAoLc 


09104 


24 


02807 


02865 


05600 




BNL 


ACTAG 


09116 


46 


09260 


01300 


05610 


ACTAH 


BT 


GETRfGETR-l t t LOOK FOR MORE ROOM 


09128 


27 


02872 


02871 


05620 




CM 


LISTER-3t7» 1011 


09140 


14 


02761 


000-P 


05630 




BE 


ACTAH 


09152 


46 


09128 


01200 


05640 




CM 


LISTER-3t9« 1011 


09164 


14 


02761 


000-R 


05650 




BNE 


ACTAK 


09176 


47 


09220 


01200 


05660 




SF 


LISTER-2 


09188 


32 


02762 


00000 


05670 




A 


C0NST2tLISTER 


09200 


21 


02807 


02764 


05680 




B 


ACTAJ 


09212 


49 


09104 


00000 


05690 




00 RG 


•~3 


09220 








05700 


ACTAK 


TF 


L I STESfMOVESAt t REPOSITION LISTER TO MOVESA 


09220 


26 


02790 


02862 


05710 




TFM 


RLG0NE*30t •♦20 


09232 


16 


04284 


-9252 


05720 




B 


FIND 


09244 


49 


03838 


00000 


05730 




DORG 


•-3 


09252 








05740 




B 


BLANKTtt* PROGRAMS MUST BE MOVED 


09252 


49 


10348 


00000 


05750 




00 RG 


•-3 


09260 








05760 


ACTA6 


TF 


L ISTEStMOVESAf t REPOSITION FIND TO MOVESA 


09260 


26 


02790 


02862 


05770 




TFM 


RLG0NE4'30t*^'20 


09272 


16 


04284 


-9292 


05780 




B 


FIND 


09284 


49 


03838 


00000 


05790 




DORG 


•-3 


09292 








05800 




BT 


GETRtGETR-1 


09292 


27 


02872 


02871 


05810 




SP 


tISTER-2 


09304 


32 


02762 


00000 


05820 




MM 


LISTER«200t9 


09316 


13 


02764 


OOKOO 


05830 




TF 


CONST If 99 


09328 


26 


02801 


00099 


05840 




BT 


GETLfGETL~l 


09340 


27 


02996 


02995 






SF 


LI STER"*2 


09352 


32 


02762 


00000 


05860 




B 


ACTAA 


09364 


49 


09552 


00000 


05870 




DORG 


•-3 


09372 








05880 


HIDNIT 


SF 


M0VESA>4,». MOVESA I S AT AN AREA COVERED BY BLANK SECTORS 


09372 


32 


02858 


00000 


05890 




SF 


LISTER-2 


09384 


32 


02 762 


00000 


05900 




BT 


GETRtGETR-1 


09396 


27 


02872 


02871 


05910 




CM 


LISTER-3. 7,1011 


09408 


14 


02761 


000-P 


05920 




BE 


DSEVEN 


09420 


46 


09056 


01200 



nt 
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05930 




TF 


NEWOIMtLtSTER,, POSITION END OF BLANKS FROM THIS DIMS SECTOR 


09432 


26 


02963 


02764 


05940 




BT 


DIMMERfDIMMER-1 


09444 


27 


03672 


03671 


05950 




TF 


CONSTl, 19885 


09456 


26 


02801 


19885 


05960 


ZSEVEN 


TF 


C0NST6.M0VESA 


09468 


26 


0?33l 


02862 


05970 




TF 


C0NST3,C0NST1 


09430 


26 


05759 


02801 


05980 




BT 


GETL.GETL-l 


09492 


27 


02996 


02995 


05990 




SF 


LISTER-2 


09504 


32 


02762 


00000 


06000 




A 


C0NST6,M0VESC 


09516 


21 


02831 


02865 


06010 




C 


C0NST6,C0NST1»,IS THERE ENOUGH ROOM TO LOAD THE MOVESC 


09528 


24 


02831 


02801 


06020 




BH 


8LANKT 


09540 


46 


10348 


01100 


06030 


ACTAA 


S 


CONSTl, LI STERt tENOUGH ROOM HAS BEEN FOUND WITHOUT MOVING PRO 


09552 


22 


02801 


02764 


06040 




TF 


C0NST2,M0VESA 


09564 


26 


02807 


02862 


06050 




S 


C0NST2, CONSTl 


09576 


22 


02807 


02801 


06060 




SF 


C0NST2-2 


09588 


32 


02805 


00000 


06070 




TF 


•♦35.CONST2,, PREPARE THE TRAILING NINES ENTRY 


09600 


26 


09635 


02807 


06080 




CF 


• ♦21 


09612 


33 


09633 


00000 


06090 




TFM 


LISTET,9000.8 


09624 


16 


02794 


OROOO 


06100 




CM 


LISTET,9000,8 


09636 


14 


02794 


OROOO 


06110 




BE 


• ♦24 


09648 


46 


09672 


01200 


06120 




BT 


INSERT. INSERT-1 


09660 


27 


03414 


03413 


06130 


NONANE 


BT 


REMOVE tREMOVE-l 


09672 


27 


03084 


03083 


06140 




CM 


LISTER-3,7,1011 


09684 


14 


02761 


000-P 


06150 




BNE 


ACTAD 


09696 


47 


09896 


01200 


06160 




SF 


LISTER-2 


09708 


32 


02762 


00000 


06170 




MM 


LISTERt200t9 


09720 


13 


02764 


OOKOO 


06180 




TFM 


95.99,10, TO COMPENSATE FOR PACK ADDRESSING 


09732 


16 


00095 


000R9 


06190 




TF 


C0NST3.99 


09744 


26 


05759 


00099 


06200 




S 


99. MOVESA 


09756 


22 


00099 


02862 


06210 




SF 


97 


09768 


32 


00097 


00000 


06220 




C 


99. MOVESC 


09780 


24 


00099 


02865 


06230 




BNL 


ACTAC 


09792 


46 


09968 


01300 


06240 




A 


MOVESA, 99 


09804 


21 


02862 


00099 


06250 




S 


MOVESC, 99 


09816 


22 


02865 


00099 


06260 




TF 


•♦35,99,, PREPARE EIGHTS ENTRY OF MOVESC 


09828 


26 


09863 


00099 


06270 




CF 


• ♦21 


09840 


33 


09861 


00000 


06280 




TFM 


LISTET,B999t8 


09852 


16 


02794 


0Q999 


06290 




BT 


INSERT, INSERT-1 


09864 


27 


03414 


03413 


06300 




BT 


GETR,GETR-1 


09876 


27 


02872 


02871 


06310 




B 


NONAME 


09888 


49 


09672 


00000 


06320 




DORG 


• -3 


09896 






06330 


ACTAD 


TF 


NEWDIM, LISTER, .USE DIM ENTRY TO FIND SECTOR ADRESS 


09896 


26 


02963 


02764 


06340 




BT 


DIMMER, OIMMER-1 


09908 


27 


03672 


03671 


06350 




TF 


C0NST3,1988S 


09920 


26 


05759 


19885 


06360 




TO 


C0NST3-5, 19880 


09932 


25 


05754 


19880 


06370 




CF 


C0NST3-4 


09944 


33 


05755 


00000 


06380 




SF 


C0NST3-5 


09956 


32 


05754 


00000 


06390 


ACTAC 


TF 


•♦35. MOVESC, .PREPARE AN EIGHTS ENTRY OF MOVESC 


09968 


26 


10003 


02865 


06400 




CF 


• ♦21 


09fi80 


33 


10001 


00000 


06410 




TFM 


LISTET,8000,8 


09992 


16 


02794 


OQOOO 


06420 




BT 


INSERT, INSERT-l 


10004 


27 


03414 


03413 


06430 




TF 


C0NST2, MOVESA 


10016 


26 


02807 


02862 


06440 




A 


C0NST2, MOVESC 


10028 


21 


02807 


02865 


06450 




S 


CONST3,CONST2 


10040 


22 


05759 


02807 


06460 




SF 


CONST3-2 


10052 


32 


05757 


00000 


06470 




TF 


•♦35,C0NST3, .PREPARE THE LEADING NINES ENTRY 


10064 


26 


10099 


05759 


06480 




CF 


• ♦21 


10076 


33 


10097 


00000 



752 
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06490 




TFM 


L I STE Tf 9000t 8 




10088 


16 


02794 


OROOO 


06500 




CM 


L I STET, 9000*8 




lOlOO 


14 


02794 


OROOO 


06510 




BE 


• ♦24 




10112 


46 


10136 


01200 


06520 




BT 


INSERTf lNSERT-1 




10124 


27 


03414 


03413 


06530 


REMSIL 


CF 


M0VESA-4tt»P0SITI0N LISTER FOR EXIT 




10136 


33 


02858 


00000 


06540 




BT 


GETLtGETL-1 




10148 


27 


02996 


02995 


06550 




CM 


L ISTER-3f 06(1011 




10160 


14 


02 761 


000-0 


06560 




BNE 


»-24 




10172 


47 


10148 


01200 


06570 




BT 


GETR,GETR-1 




10184 


27 


02872 


02871 


06580 




B 


SFSUCE 




10196 


49 


08600 


00000 


06590 




DORG 


»-3 




10204 








06600 


FILTST 


BNG 


G0RT»I9899(f CHECK FOR FILE PROTECTION 




10204 


55 


10224 


19899 


06610 




B 


MSTAKE 




10216 


49 


09024 


00000 


06620 




DORG 


»-3 




10224 








06630 


GORT 


BT 


GETR,GETR-lt, SEARCH FOR MORE BLANK SECTORS 




10224 


27 


02872 


02871 


06640 




CM 


LISTER-3,07»1011, CYL REPRESENTED 




10236 


14 


02761 


000-P 


06650 




BE 


GORT 




10248 


46 


10224 


01200 


06660 




CM 


L I STER-3,09, 1011. BLANKS 




10260 


14 


02761 


000-R 


06670 




BE 


BAVADD 




10272 


46 


10464 


01200 


06660 




TF 


NEWDIM,LISTER 




10284 


26 


02963 


02764 


06690 




BT 


0!MMER,DIMMER-1 




10296 


27 


03672 


03671 


06700 




BNG 


•♦20,19899,, FILE PROTECTED PROGRAM 




10308 


55 


10328 


19899 


06710 




B 


FiLTST+12 




10320 


49 


10216 


00000 


06720 




DORG 


• -3 




10328 








06730 




BNF 


GORT, 19899, , IMMOVABLE PROGRAM 




10328 


44 


10224 


19899 


06740 




6 


MSTAKE 




10340 


49 


09024 


00000 


06750 




DORG 


•-3 




10346 








06760 


8LANKT 


SF 


LISTES-3 




10348 


32 


02787 


00000 


06770 




TF 


C0NST5, FOUND 




10360 


26 


02825 


03445 


06780 




S 


FOUND, LISTES 




10372 


22 


03445 


02790 


06790 




OF 


LISTES-3 




10384 


33 


02787 


00000 


06B00 




SF 


FOUND-2 




10396 


32 


03443 


00000 


06810 




TF 


BAVAIL, FOUND 




10406 


26 


02754 


03445 


06820 




OF 


FOUND-2 




10420 


33 


03443 


QOOOO 


06830 


BAVCOM 


C 


MOVESC, BAVAIL, , IS HOLE BIG ENOUGH 




10432 


24 


02665 


02754 


06840 




BNH 


MOVNOM 




10444 


47 


10496 


01100 


06850 




B 


GORT 




10456 


49 


10224 


00000 


06860 




OORG 


•-3 




10464 








06870 


BAVADD 


SF 


LISTER-2,,, ADD IN COUNT OF BLANK SECTORS FOUND 




10464 


32 


02762 


00000 


06880 




A 


BAVAIL, LISTER 




10476 


21 


02754 


02764 


06890 




B 


BAVCOM 




10488 


49 


10432 


00000 


06900 




OORG 


•-3 




10496 








06910 


HOVNOW 


S 


BAVAIL, MOVESC, ADJUST LAST NINES ENTRY FOR FINAL 


OUTPUT 


10496 


22 


02754 


02865 


06920 




CM 


BAVAIL, 000, 9, 




10508 


14 


02754 


00-00 


06930 




BE 


REMBLK 




10520 


46 


10628 


01200 


06940 




SF 


LISTER-2 




10532 


32 


02762 


00000 


06950 




TF 


•♦35, BAVAIL 




10544 


26 


10579 


02754 


06960 




CF 


• ♦21 




10556 


33 


10577 


00000 


06970 




TFM 


LISTET, 9000,8 




10568 


16 


02794 


OROOO 


06980 




BT 


INSERT, INSERT-1 




10580 


27 


03414 


03413 


06990 




TFM 


WRM0VE^5,,,ZER0 FIELD 




10592 


16 


02627 


-0000 


07000 




S 


WRM0VE^5, BAVAIL 




10604 


22 


02627 


02754 


07010 




TDM 


HEX,,, RECORD NARK 




10616 


15 


02 795 


00000 


07020 




00 
t 


1,» .» 




10627 




I 




07030 


REMBLK 


BT 


REMOVE, REMOVE-1,, REMOVE LAST NINES ENTRY IF IT IS 


A PERFECT 


10628 


27 


03084 


03083 
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07040 




CM 


LISTER-3,07,1011 




10640 


14 


02761 


000-P 


07050 




BE 


KSEVEN 




10652 


46 


10706 


01200 


07060 




TF 


NEWDIM, LISTER,, SET MOVER OOA FROM DIM ENTRY 




10664 


26 


02963 


02764 


07070 




BT 


DIMMER, DIMMER-1 




10676 


27 


03672 


03671 


07080 




A 


WRMQVE^5, 19885 




10688 


21 


02627 


19885 


07090 




B 


TOPPRO 




10700 


49 


10812 


00000 


07100 




DORG 


•-3 




10708 








07110 


KSEVEN 


SF 


LISTER-1,,,SET MOVER DDA FROM CYLINDER ENTRY 




10708 


32 


02763 


00000 


07120 




MM 


LISTER, 200, 9 




10720 


13 


02764 


OOKOO 


07130 




A 


MRM0VE^5,99 




10732 


21 


02627 


00099 


07140 




SF 


HRMOVE 




10744 


32 


02622 


00000 


07150 




S 


MRMOVE^I, NEVER 




10756 


22 


02623 


04297 


07160 




AN 


MRMOVE^ 1,0 1,10 




10768 


11 


02623 


000-1 


07170 




CF 


WRMOVE 




10780 


33 


02622 


00000 


07180 




B 


TOPPRO 




10792 


49 


10812 


00000 


07190 




DORG 


•-3 




10800 








07200 


RSEVEN 


BT 


REMOVE, REMOVE-1 




10800 


27 


03084 


03083 


07210 


TOPPRO 


BNR 


•♦24, HEX 




10812 


45 


10836 


02795 


07220 




BT 


6ETL,GETL-1,, ADJUST THE LISTER FOR NO EXACT FIT 




10824 


27 


02996 


02995 


07230 




TF 


C0NST5,N0VESA 




10836 


26 


02825 


02862 


07240 




A 


C0NST5, MOVESC 




10848 


21 


02825 


02865 


07250 




SF 


C0NST5-4,,, SECTOR ADORES OF LAST SECTOR TO BE MOVED TOWARD 


10860 


32 


02821 


00000 


07260 




TFM 


NEWDIM, 9999, 8 




10B72 


16 


02963 


0R999 


07270 


MARVEL 


BT 


GETL,GETL-1 




10884 


27 


02996 


02995 


07280 




C 


WRMOVE«5,CONST5,,HAS THE LAST PROGRAM JUST BEEN MOVED 


10896 


24 


02627 


02825 


07290 




BNH 


PRE7 




10908 


47 


08638 


01100 


07300 




CM 


LISTER-3,6,1011,FLAGGE0 ABOVE SIX 




10920 


14 


02761 


000-0 


07310 




BH 


•>32,,,B0TH NUMBERS ARE MINUS 




10932 


46 


10964 


01100 


07320 


MASH 


BT 


REMOVE, REMOVE-1 




10944 


27 


03084 


03083 


07330 




B 


MARVEL 




10956 


49 


10884 


00000 


07340 




OORG 


•-3 




10964 








07350 




C 


LISTER,NEW0IM 




10964 


24 


02764 


02963 


07360 




BE 


WASH 




10976 


46 


10944 


01200 


07370 




TF 


NEWDIM, LISTER,, BEGIN-MOVE PROGRAMS DOWN 




10988 


26 


02963 


02764 


07380 




BT 


DIMMER, DIMMER-I 




11000 


27 


03672 


03671 


07390 




TF 


CALC7, I 9888,, SECTOR COUNT 




11012 


26 


02848 


19888 


07400 




TF 


CALC3, 19885,, INIT READ AND WRITE 




11024 


26 


02779 


19885 


07410 




TD 


ROMOVE, 19880 




11036 


25 


02599 


19880 


07420 




A 


CALC3,CALC7 




11048 


21 


02779 


02848 


07430 




TF 


RDMOVE^5,CALC3 




11060 


26 


02604 


02779 


07440 




TD 


WRMOVE, ROMOVE 




11072 


25 


02622 


02599 


07450 




B 


COMPFR 




11084 


49 


05274 


00000 


07460 




OORG 


•-3 




11092 








07470 




TCO 


MOVFL 




08500 








07480 




DORG 


09000 




09000 








07490 


ROUTINE TO COMPLETE THE REMOVAL OF NON-PROGRAM ENTRIES 












07500 


PRE7A 


BT 


GETR,GETR-1 




09000 


27 


02872 


02871 






TF 


C0NST5, LISTER 




09012 


26 


02825 


02764 


07520 


LOOPSY 


BT 


GETL.GETL-l,, SEARCH TOWARD THE LEFT FOR NEW DIM 


NUMBER 


09024 


27 


02996 


02995 


07530 




CM 


LlSTER-3, 7,1011 




09036 


14 


02761 


000-P 


07540 




BE 


SEVENT 




09048 


46 


09108 


01200 


07550 




CM 


LISTER-3, 9,1011 




09060 


14 


02761 


000-R 


07560 




BE 


NINENT 




09072 


46 


09132 


01200 


07570 




C 


LISTER, C0NST5 




09084 


24 


02764 


02825 


07580 




BNE 


CHOICE 




09096 


47 


09196 


01200 
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07590 


SEVENT 


CM 


LISTER, 7000, 8,CHECK FOR SPECIAL CASE OF CYLINDER ZERO 


09108 


14 


02764 


OPOOO 


07600 




BE 


SPECAS 




09120 


46 


09152 


01200 


07610 


NINENT 


BT 


REMOVE, REMOVE-1 




09132 


27 


03084 


03083 


07620 




B 


LOOPSY 




09144 


49 


09024 


00000 


07630 




D0R6 


•-3 




09152 








07640 


SPECAS 


TFM 


19885,,, 




09152 


16 


19885 


-0000 


07650 




BT 


REMOVE, REMOVE-1 




09164 


27 


03084 


03083 


07660 




TFM 


MAMY4^1,41,10,N0P THE GETR IN THIS SPECIAL CASE 




09176 


16 


09497 


OOOMl 


07670 




B 


MEAT 




09188 


49 


09292 


00000 


07680 




DORG 


• -3 




09196 








07690 


CHOICE 


TF 


NEWOIM, LISTER 




09196 


26 


02963 


02764 


07700 




BT 


DIMMER, OfHMER-1 




09208 


27 


03672 


03671 


07710 




CM 


LISTER,0001>8, CHECK FOR WORK REPRESENTED BY CYLINDER COUNT 


09220 


14 


02764 


0-001 


07720 




BNE 


• ♦48 




09232 


47 


09280 


01200 


07730 




MM 


19688,200,9 




09244 


13 


19886 


OOKOO 


07740 




SF 


95 




09256 


32 


00095 


00000 


07750 




A 


19885,99 




09268 


21 


19885 


00099 


07760 




A 


19885,19688 




09280 


21 


19885 


19888 


07770 


• •• 


SET-UP FAKSEV AND RACKET 












07780 


MEAT 


MM 


MOVESA-4,05,10 




09292 


13 


02858 


000-5 


07790 




TDM 


MOVESA-4,1,11 




09304 


15 


02858 


OOOOJ 


07800 




BD 


•♦24,99 




09316 


43 


09340 


00099 


07810 




TDM 


M0VESA-4,0»11 




09328 


15 


02858 


0000- 


07820 




TO 


19881, MOVESA-4 




09340 


25 


19881 


02858 


07830 




TFM 


FAKSEV, 7000t8 




09352 


16 


02852 


OPOOO 


07840 




SF 


19883 




09364 


32 


19883 


00000 


07850 


DELTA 


DC 


5, 00200, • 




09375 




5 








-0200 












07860 




TFM 


RACKET, ,8 




09376 


16 


02841 


0-000 


07870 




TF 


RACKET, 19885,, ESTABLISH THE NUMBER OF SECTORS USED 


ON THIS C 


09388 


26 


02841 


19885 


07880 




CF 


19683 




09400 


33 


19883 


00000 


07890 




TOM 


RACKET-2,1 




09412 


15 


02839 


OOOOl 


07900 




MM 


19883,05,10 




09424 


13 


19883 


000-5 


07910 




BD 


•♦24,99 




09436 


43 


09460 


00099 


07920 




TDM 


RACKET-2,0 




09448 


15 


02839 


00000 


07930 




TO 


FAKSEV,98 




09460 


25 


02852 


00098 


07940 




TO 


FAKSEV-1,97 




09472 


25 


02851 


00097 


07950 




S 


DELTA, RACKET,, INIT TO 200 MINUS RACKET 




09484 


22 


09375 


02841 


07960 


MAMY 


BT 


6ETR,GETR>1,, SHIFT OFF OF ANCHOR PROGRAM 




09496 


27 


02872 


02871 


07970 




TF 


C0NST5.MOVESA 




09508 


26 


02825 


02862 


07980 




S 


C0NST5,1988S 




09520 


22 


02825 


19885 


07990 




CM 


RACKETt0O0O,8 




09532 


14 


02841 


0-000 


08000 




BNE 


CONCUO 




09544 


47 


09952 


01200 


08010 




TF 


LISTET.FAKSEVf , REPLACE THE CYLINDER MARKER 




09556 


26 


02794 


02852 


08020 




BT 


INSERT, INSERT-1 




09568 


27 


03414 


03413 


08030 




CM 


C0NST5,,7, 




09580 


14 


02825 


-0000 


08040 




BE 


EIGHTS 




09592 


46 


09984 


01200 


08050 


DELNT5 


C 


DELTA.CONSTS,, IS THERE ENOUGH ROOM FOR REMAINING 


NINES ENT 


09604 


24 


09375 


02825 


08060 




BL 


TAC 




09616 


47 


09812 


01300 


08070 




BH 


TIC 




09628 


46 


09744 


01100 


08080 




SF 


CONST5-2,tt A PERFECT FIT,INSERT THE NINES ENTRY 




09640 


32 


02823 


00000 


08090 




TF 


•♦35,C0NST5 




09652 


26 


09687 


02825 


08100 




CF 


• ♦21 




09664 


33 


09685 


00000 


08110 




TFM 


LISTET,9000»8 




09676 


16 


02794 


OR 000 


08120 




BT 


tNSERT«INSERT*l 




09688 


27 


03414 


03413 


08130 




AM 


FAKSEVvOltlO 




09700 


11 


02852 


000-1 



755 
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08140 
08150 
08160 
08170 
081B0 
08190 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
06290 
08300 
08310 
08320 
08330 
08340 
08350 
08360 
08370 
08360 
06390 
08400 
06410 
06420 
08430 
08440 
08450 
08460 
08470 
08480 
08490 
08500 
08510 
08520 
08530 
08540 
08550 
08560 
08570 
08580 
08590 
08600 
08610 
08620 
08630 
08640 
08650 
08660 
08670 
08680 
08690 



RESTORE THE CYLINDER MARKER 



TF LISTET, FAKSEV,. 
BT INSERT, I NSERT-1 
B EIGHTS 
3 

TIC SF C0NST5-2,,, INSERT THE NINES ENTRY 
•♦35,C0NST5 

• ♦21 

LISTET,9000,8 
INSERT, INSERT-1 
EIGHTS 
DORG ^-3 

TAC SF OELTA-2,, FILL THE REST OF THE CYLINDER WITH NINES ENTRY 
•♦35, DELTA 

• ♦21 

LISTET,9000,8 
DELTA-2 

INSERT, INSERT-1 
C0NST5»DELTA 
FAKSEV,01,10 
LISTETtFAKSEV,, 
INSERT. INSERT-1 
OELTA,00200t7, 
0ELNT5 
DORG "-S 
CONCUD CM CONSTS* 00000 vT, 
BE EIGHTS 
B DELNT5 
DORG •-3 
EIGHTS TF •♦35,MOVESC», 

• ♦21 

LISTETt8000,8 
INSERT, INSERT-1 
GETL,GETL-1 
MOVESA-3 
RACKET.MOVESA 
MOVESA-3 
RACKET,200,9 
•-12, RACKET 
RACKET. 200,9 
6ETL,GETL-1 

•*• ROUTINE TO RESTORE THE SPL TO ITS PROPER FORM 
ALLRIT BT GETR,GETR-1 , , SHIFT TO PICK UP NEXT ENTRY TO ANALYZE 
LISrER-3,7.1011 



DORG 

SF 

TF 

CF 

TFM 

BT 

B 



TF 

CF 

TFM 

CF 

BT 

S 

AM 

TF 
BT 
TFM 
B 



CF 

TFM 

BT 

BT 

SF 

TF 

CF 

SM 

BNF 

AM 

BT 



RESTORE THE CYLINDER MARKER 



SECTOR ADORES FITS ON END OF PREVIOUS PROGR 



INSERT AN EIGHTS ENTRY FOR MOVESC 



CM 
BE 
CM 
BE 
CM 
BE 
TF 
BT 
SF 
MM 
SF 
S 

AM 

CF 



BEAUTY 
LISTER-3,9,1011 
AODRAC 

LISTER-3,8,1011 
ADORAC 

NEWDIM, LISTER,, 
DIMMER, DIMMER-1 
FAKSEV- 1 
FAKSEV, 200,9 
94 

95, NEVER 
95,01,10 
FAKSEV- I 



BRING IN NEW DIM ENTRY TO FIND LENGTH 



09712 


26 


02794 




09724 


27 


03414 


03413 


09736 


49 


0*5984 


00000 


09744 








09744 


32 


02823 


00000 


09756 


26 


09791 


02825 


09768 


33 


09789 


00000 


09780 


16 


02794 


OROOO 


09792 


27 


03414 


03413 


09804 


49 


09984 


00000 


09612 








09812 


32 


09373 


00000 


09824 


26 


09859 


09375 


09836 


33 


09857 


00000 


09848 


16 


02794 


OROOO 


09860 


33 


09373 


00000 


09672 


27 


03414 


03413 


09884 


22 


02825 


09375 


09896 


11 


02852 


000-1 


09908 


26 


02794 


02852 


09920 


27 


03414 


03413 


09932 


16 


09375 


-0200 


09944 


49 


09604 


00000 


09952 








09952 


14 


02825 


-0000 


09964 


46 


09984 


01200 


09976 


49 


09604 


00000 


09984 








09984 


26 


10019 


02865 


09996 


33 


10017 


00000 


10008 


16 


02794 


00000 


10020 


27 


03414 


03413 


10032 


27 


02996 


02995 


10044 


32 


02859 


00000 


10056 


26 


02841 


02862 


10068 


33 


02859 


00000 


10080 


12 


02841 


OOKOO 


10092 


44 


10080 


02841 


10104 


11 


02841 


OOKOO 


10116 


27 


02996 


02995 


10128 


27 


02872 


02871 


10140 


14 


02761 


OOO-P 


10152 


46 


10592 


01200 


10164 


14 


02761 


000-R 


10176 


46 


10656 


01200 


10168 


14 


02761 


000-Q 


10200 


46 


10656 


01200 


10212 


26 


02963 


02764 


10224 


27 


03672 


03671 


10236 


32 


02851 


00000 


10248 


13 


02852 


OOKOO 


10260 


32 


00094 


00000 


10272 


22 


00095 


04297 


10284 


11 


00095 


000-1 


10296 


33 


02851 


00000 
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08700 




C 


19885, 99«, DOES THIS PROGRAM START ON A CYLINDER PREVIOUS TO 


10308 


24 


19885 


00099 


08710 




BNL 


• ♦48 


10320 


46 


10368 


01300 


08720 




S 


19885,99 


10332 


22 


19885 


00099 


08730 




SF 


19883 


10344 


32 


19883 


00000 


087A0 




A 


19888,19885 


10356 


21 


19888 


19885 


08750 




A 


RACKET, 19888 


10368 


21 


02841 


19888 


08760 


NOISY 


CM 


RACKET,200,9, HAVE 200 SECTORS BEEN ACCOUNTED FOR THIS CYLI 


10380 


14 


02841 


OOKOO 


08770 




BE 


EZEST 


10392 


46 


10700 


01200 


08780 




BNH 


ALLRIT 


10404 


47 


10128 


01100 


08790 




CM 


LISTER-3, 8,1011 


10416 


14 


02761 


000-0 


08800 




BNH 


TELAST 


10428 


47 


10756 


01100 


08810 




TF 


STEAL, LISTER 


10440 


26 


02845 


02764 


08820 




BT 


GETR,GETR-1 


10452 


27 


02872 


02871 


08830 




AM 


FAKSEV,1,10 


10464 


11 


02852 


000-1 


08840 




TF 


LISTETfFAKSEV,, RESTORE SEVENS MARKER 


10476 


26 


02794 


02852 


08850 




BT 


INSERT, INSERT-I 


10488 


27 


03414 


03413 


08860 




TF 


LISTET, STEAL,, REPEAT THE DIM NUMBER 


10500 


26 


02794 


02845 


08870 




BT 


INSERT, INSERT-1 


10512 


27 


03414 


03413 


08880 


RAKES 


SM 


RACKET, 200,9, 


10524 


12 


02841 


OOKOO 


08890 




C 


LISTER, FAKSEV 


10536 


24 


02764 


02852 


08900 




BE 


• ♦32 


10548 


46 


L0580 


01200 


08910 




BT 


GETL.GETL-1 


10560 


27 


02996 


02995 


08920 




B 


NOISY 


10572 


49 


10380 


00000 


08930 




□ORG 


• -3 


10580 








08940 




BT 


REMOVE, REMOVE-1 


10580 


27 


03084 


03083 


08950 


BEAUTY 


BT 


GETL,GETL-1,, POSITION LISTER FOR EXIT 


10592 


27 


02996 


02995 


08960 




CM 


LISTER-3, 08, 1011 


10604 


14 


02761 


000-0 


08970 




BE 


• ♦20 


10616 


46 


10636 


01200 


08980 




B 


BEAUTY 


10628 


49 


10592 


00000 


08990 




DORG 


• -3 


10636 








09000 




BT 


GETR,GETR-1 


10636 


27 


02872 


02871 


09010 




B 


SFSUCE 


10648 


49 


08600 


00000 


09020 




DORG 


• -3 


10656 








09030 


AODRAC 


SF 


LISTER-2,,, ADO THE BLANK OR EIGHTS SECTOR COUNT TO TOTAL 


10656 


32 


02762 


00000 


09040 




A 


RACKET.LISTER 


10668 


21 


02841 


02764 


09050 




CF 


LISTER-2 


10680 


33 


02762 


00000 


09060 




B 


NOISY 


10692 


49 


10380 


00000 


09070 




DORG 


•-3 


10700 








09080 


EZEST 


AM 


FAKSEV, 1,10, INSERT CYL MARKER FOR A PERFECT FIT 


10700 


11 


02852 


000- 1 


09090 




TF 


LISTET, FAKSEV 


10712 


26 


02794 


02852 


09 LOO 




BT 


6ETR,GETR-1 


10724 


27 


02872 


02871 


09UO 




BT 


INSERT, INSERT-l 


10736 


27 


03414 


03413 


09120 




B 


RAKES 


10748 


49 


10524 


00000 


09130 




DORG 


•-3 


10756 








09140 


TELAST 


SF 


LISTER-2 


10756 


32 


02762 


00000 


09150 




S 


RACKET, LI STER», PREPARE THE SIZE OF THE EIGHTS ENTRY 


10768 


22 


02841 


02764 


09160 




CF 


LISTER-2 


10780 


33 


02762 


00000 


09170 




TFM 


CONST8,200,8 


10792 


16 


02870 


0-200 


09180 




S 


C0NST8, RACKET 


10804 


22 


02870 


02841 






SF 


UUrlo I O t 


108 16 


32 


02 868 


00000 


09200 




S 


LISTER, C0NST8 


10828 


22 


02764 


02870 


09210 




TF 


STEAL, LISTER 


10840 


26 


02845 


02764 


09220 




TF 


•♦35,C0NST8 


10852 


26 


10887 


02870 


09230 




CF 


• ♦21 


10864 


33 


10885 


00000 


09240 




TFM 


LISTET, 8000, 8, INSERT THE EIGHTS ENTRY 


10876 


16 


02794 


00000 


09250 




BT 


REMOVEtREMOVE-1,, REMOVE THE INDICATOR FROM THE LIST 


10888 


27 


03084 


03083 
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PAGE 


09260 




BT 


INSERT, INSERT-1 


10900 


27 


03414 


03413 


09270 




AM 


FAKSEV, 1,10 


10912 


11 


02852 


000-1 


09280 




TF 


LISTET, FAKSEV 


10924 


26 


02794 


02852 


09290 




BT 


INSERT, INSERT-1,, INSERT THE SEVENS MARKER 


10936 


27 


03414 


03413 


09300 




TF 


LISTET, STEAL 


10948 


26 


C279A 


02845 


09310 




BT 


INSERT, INSERT-1,, REPLACE THE REDUCED INDICATOR 


10960 


27 


03414 


03413 


09320 




BT 


6ETL,GETL-1 


10972 


27 


02996 


02995 


09330 




TF 


RACKETvLISTET 


10984 


26 


02841 


02794 


09340 




TDM 


RACKET-3,0,11 


10996 


15 


02838 


0000- 






B 


NOISY 


1 LOOB 


49 


10380 


00000 


09360 




DORG 


•-3 


11016 












LINKAGE FOR PLACING THIS LAST PORTION OF MOVER ON DISK 










09380 


NOMC 


TFM 


I0RT,»^23 


11016 


16 


00565 


J1039 


09390 




B 


I0PT,N0MD,7 


11028 


49 


00532 


J 1064 






TRA 








nt\(\f\r\ 
uuuuu 












11052 


49 


00000 


00000 


09410 


NOMO 


DSC 


2,22 


1 1064 








09420 




22 
OSA 


NOME 


11070 




5 


X 1 










11070 




J1072 




09430 




DC 
• 


lf« 


11071 




1 




09440 


NOME 


DSC 
1 


Itl 


11072 




1 




09450 




DC 


S, 17106 


11077 




5 








J7106 










09460 




DC 


3,022 


11080 




3 








-22 












09470 




DC 


6,09000* 


11086 




6 








-9000« 














TCD 


NOMC 














DORG 


S600 










09S00 


DELFL 


TFM 


I0RT,«423 


05600 


16 


00565 


-5623 


09510 




B 


I0PT,DEL1,7 


05612 


49 


00532 


-5648 






TRA 




05624 


36 


nt\nnt\ 
QUUUU 


00500 










05636 


49 


00000 


00000 


09530 


DELI 


DSC 
22 


2,22 


05648 




2 




09540 




OSA 


DEL2 


05654 




5 


X 1 














5656 




09550 




DSC 


l.» 


05655 








09560 


0EL2 


DSC 


Ifl 


05656 




1 




09570 




1 

DC 


5,18247 


05661 




5 








J8247 










09580 




DC 


3,013 


05664 




3 




09590 




-13 

DC 


5,05800 


05669 




5 








-5800 










09600 




DSC 


!»• 


05670 




1 





09610 • DELETE PROGRAM ROUTINE 
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DREPL, DELET 








PAGE 


09620 


• 


















09630 


* 


















09640 




00 RG 


5800 






05800 








09650 


OELET 


SF 


DELETE 






05800 


32 


13134 


00000 


09660 


*** 




DETERMINE MAX. NO. OF DIM ENTRIES 














09670 




TFM 


MAX0IM,9999»8 






05812 


16 


03849 


0R999 


09680 




TFM 


NEWDIM«3t8 






05824 


16 


02963 


0-003 


09690 




BT 


DIMMERtDIMMER-l 






05836 


27 


03672 


03671 


09700 




1 BNR 


■+20»MAP 






05848 


45 


05868 


19880 


09710 




B 


MONCAL 






05860 


49 


00796 


00000 


09720 




DORG 


• -3 






05868 








09730 




MM 


MAP4-8v5tl0 






05868 


13 


19888 


000-5 


09740 




SF 


96 






05880 


32 


00096 


00000 


09750 




SM 


99tlfflO 






05892 


12 


00099 


000-1 


09760 




TF 


MAX0IM»99 






05904 


26 


03849 


00099 


09770 




SF 


INPUT-m 






05916 


32 


13624 


00000 


09780 




TF 


PNAME»INPUT-*-22 






05928 


26 


13229 


13635 


09790 




TO 


OIMNUMt INPUT«-30 






05940 


25 


13190 


13643 


09800 




TO 


DIMNUM-lt INPUT«28 






05952 


25 


13189 


13641 


09810 




TO 


0IMNUM-2f INPUT4^26 






05964 


25 


13188 


13639 


09820 




TD 


DIMNUM-3t INPUT^24 






05976 


25 


13187 


13637 


09830 




SF 


DIMNUM-3 






05988 


32 


13187 


00000 


09840 




CM 


DIMNUMf Of 8 






06000 


14 


13190 


0-000 


09850 




BE 


OKOEL-24 






06012 


46 


06124 


01200 


09860 






IS DIM NO. IN RANGE 














09870 




C 


OIMNUM,MAXOIM 






06024 


24 


13190 


03849 


09880 




BNH 


• ♦32 






06036 


47 


. 06068 


OllOO 


09890 




TFM 


DIMERR«22ff0076t8 






06048 


16 


02507 


0-076 


09900 




B 


ERRD 






06060 


49 


02524 


00000 


09910 




00 RG 


•-3 






06068 








09920 






IS DIM NO. IN USE 














09930 




TF 


NEWDIMf OIMNUM 






06068 


26 


02 963 


13190 


09940 




BT 


OIMMERtOIMMER-1 






06080 


27 


03672 


03671 


09950 




BNR 


OKDEL f MAP 






06092 


45 


06148 


19880 


09960 




TFM 


0IMERR^22t7271t8 






06104 


16 


02507 


0P271 


09970 




B 


ERRD 






06116 


49 


02524 


00000 


09980 




DORG 


•-3 






06124 








09990 




C 


PNAMEtZER012 






06124 


24 


13229 


13167 


10000 




BE 


ERRO-12 






06136 


46 


02512 


01200 


10010 


OKDEL 


BTM 


EQUIVt*'*-12 






06148 


17 


08606 


-6160 


10020 




CM 


OIMNUMtOfS 






06160 


14 


13190 


0-000 


10030 




BNE 


• ♦32 






06172 


47 


06204 


01200 


10040 




TFM 


0IMERRt22f7270t8 






06184 


16 


02507 


0P27O 


10050 




B 


ERRD 






06196 


49 


02524 


00000 


10060 




DORG 


•-3 






06204 








10061 




TF 


NEWOIMtDIMNUM 






06204 


26 


02963 


13190 


10062 




BT 


DIMMER fDIMMER-1 






06216 


27 


03672 


03671 


10063 




BNR 


•♦20tMAP 






06228 


45 


06248 


19880 


10064 




BT 


EXIT3 






06240 


49 


06936 




10070 


• 


DELETE ENTRY FROM SP LIST 














10080 




BTM 


SPLDeL»*«12 






06248 


17 


12090 


-6260 


10090 




TF 


NEWDIM, OIMNUM 






06260 


26 


02963 


13190 


10100 




BT 


OIMMERtOIMMER-1 






06272 


27 


03672 


03671 


10110 




TF 


FWRIT>5»MAP«5 






06284 


26 


13272 


19885 


10120 




TO 


FWRIT»MAP 






06296 


25 


13267 


19880 


10130 




TF 


HOLDS >MAP4-8 






06308 


26 


13193 


19888 
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PAGE 


10140 




TF 


LOADSCtMAP^B 






06320 


26 


13180 


19688 


10150 




TFM 


FLAG^11,TRACK2 






06332 


16 


06523 


J7778 


10160 




TF 


LOADSA.NAP^S 






06344 


26 


13102 


19885 


10170 




TO 


L0ADSA-5»MAP 






06356 


25 


13097 


19880 


10180 




SF 


MAP«4 






06368 


32 


19884 


00000 


10190 




SM 


MAP^5t20tlO 






06380 


12 


19885 


OOOKO 


10200 




BH 


•-12 






06392 


46 


06380 


01100 


10210 




BZ 


• ♦48 






06404 


46 


06452 


01200 


JI0220 




AM 


MAP^5920»IO 






06416 


11 


19885 


OOOKO 


10230 




MM 


MAP^5»105t9 






06428 


13 


19885 


0OJO5 


10240 




A 


FLAG^11,99 






06440 


21 


06523 


00099 


10250 




TF 


GLFP^6«FLAG^11 






06452 


26 


06702 


06523 


10260 




TFM 


FWRIT^8,20«9 






06464 


16 


13275 


00-20 


10270 




TFM 


FURIT^13tTRACK2 






06476 


16 


13280 


J7778 


10280 




TFM 


IORT,»^23 






06488 


16 


00565 


-651 1 


10290 




B 


tOGT»FPDDA,7 






06500 


49 


00566 


J3451 


10300 


FLAG 


BNF 


•♦20»TRACK2tt SEARCH FOR 


FILE PROTECTION 


06512 


44 


06532 


17778 


10310 




B 


CLEAR 






06524 


49 


06624 


00000 


10320 




DORG 


•-3 






06532 








10330 




SM 


HOLD3»1,10 






06532 


12 


13193 


000-1 


10340 




BZ 


FPOK 






06544 


46 


06864 


01200 


10350 




AM 


FLAG^lltl05,9 






06556 


11 


06523 


00J05 


10360 




CM 


FLAG^11,TRACK2^2100 






06568 


14 


06523 


J9878 


10370 




BL 


FLAG 






06580 


47 


06512 


01300 


10380 




TFM 


FLAG^ll,TRACK2 






06592 


16 


06523 


J7778 


10390 




AM 


FWRIT^5,20,10 






06604 


1 1 


13272 


OOOKO 


10400 




B 


FLAG-24 






06616 


49 


06488 


00000 


10410 




DORG 


•-3 






06624 








10420 


CLEAR 


TF 


FWRIT^5»L0ADSA 






06624 


26 


13272 


13102 


10430 




TD 


FWRlTtL0AOSA>5 






06636 


25 


13267 


13097 


10440 




SF 


BUTTON 






06648 


32 


00455 


00000 


10450 




BTM 


KYMESSf»+l2 






06660 


17 


11998 


-6672 


10460 




TFM 


I0RT,»^23 






06672 


16 


00565 


—6695 


10470 




B 


I0GT,FPDDA,7 






06684 


49 


00566 


J3451 


10480 


CLFP 


CF 


TRACK2.,, CLEAR FILE 


PROTECTION 


06696 


33 


17778 


00000 


10490 




SM 


LOADSC»1«10 






06708 


12 


13180 


OOO-l 


10500 




BZ 


WROK 






06720 


46 


06768 


01200 


10510 




AM 


CLFP+6, 105,9 






06732 


11 


06702 


OOJ05 


10520 




CM 


CLFP+6,TRACK2+2100 






06744 


14 


06702 


J9878 


10530 




BL 


CLFP 






06756 


47 


06696 


01300 


10540 


WROK 


TFM 


I0RT,»+23 






06768 


16 


00565 


-6791 


10550 




B 


I0PT,FPDDA,7 






06780 


49 


00532 


J3451 


10560 




AM 


FWRIT^5, 20,10 






06792 


11 


13272 


OOOKO 


10570 




TFM 


CLFP+6,TRACK2 






06804 


16 


06702 


J7778 


10580 




CM 


LOA0SC,0«9 






06816 


14 


13180 


00-00 


10590 




BNE 


CLFP-24 






06828 


47 


06672 


01200 


10600 




CF 


BUTTON 






06840 


33 


00455 


00000 


10610 




BTM 


KYMESS,*^12 






06852 


17 


11998 


-6864 


10620 


FPOK 


TF 


NEWOIMvDIMNUM 






06864 


26 


02963 


13190 


10630 




BT 


DIMMER, OIMMER-l 






06876 


27 


03672 


03671 






TOM 


MAP,,, REMOVE DIM 


ENTRY 




0 6886 








10650 




DSC 


l,»t» 






06899 




1 




10660 




TF 


MAP^19,ZER019 






06900 


26 


19899 


13174 


10670 




TFM 


I0RT,»*23 






06912 


16 


00565 


-6935 


10680 




B 


I0PT,DM00A,7 






06924 


49 


00532 


-2568 

















PAGE 


10690 


EXIT3 


TDM 


SYSCAL.3 


06936 


15 


00475 


00003 


10700 




B 


MONCAL 


06948 


49 


00796 


00000 


10710 




00 RG 


•-3 


06956 








10720 




TCD 


DELFL 


05600 








10730 


• ••• 














10740 


•••»•• 




•DLOAO INDEPENDENT ROUTINES 










10750 


• »•• 






























10770 


LOADFL 


TFM^ 


I0RT,»*23 


04400 


16 


00565 


-4423 


10780 




B 


IOPT,L0A02*7 


04412 


49 


00532 


-4463 


10790 




TRA 




04424 


36 


00000 


00500 










04436 


49 


00000 


00000 


10800 


LOADl 


DSC 


l.l 


04448 




1 




10810 




I 

DC 


5,18369 


04453 




5 








J8369 










10820 




DC 


3,027 


04456 




3 








-2 7 












10830 




DC 


5,05800 


04461 




5 








-5800 










10840 




DSC 
( 


1,« 


04462 




1 








DSC 


2,22 


04463 




2 




10860 




22 
OS A 


LOAOl 


04469 




5 


X 1 










04469 




-4448 




10870 




DSC 
t 


1,* 


04470 




1 




10880 




DORG 


5800 


05800 








10890 


OLGAO 


BTM 


SCRA0,»+12 


05800 


17 


09298 


-5812 


10900 




TD 


MXN0SA-2,MCS*49 


05812 


25 


05833 


17827 


10910 




SF 


MXNOSA-2,399,9 


05824 


32 


05833 


00L99 


10920 




SM 


MXNOSA, 100,9 


05836 


12 


05835 


OOJOO 


10930 


MXNOSA 


DC 


3,399,0L0AD*35 


05835 




3 








L99 












10940 




TFM 


HOL02,0,10 


05848 


16 


13104 


000-0 


10950 




TD 


HOL02,SYSCAL 


05860 


25 


13104 


00475 


10960 


• » 


IS CALL FROM CONTROL CARD 










10970 




CM 


H0LD2,4,10 


05872 


14 


13104 


000-4 


10980 




BNE 


SPS 


05884 


47 


07484 


01200 


10990 




TFM 


ATN4^11,INPUT^32 


05896 


16 


09053 


J3645 


11000 




I CONVERT CONTROL CARD TO NUMERIC 










11010 




BTM 


ATNR,«^12 


05908 


17 


08606 


-5920 


11020 


DC2 


SF 


HOLOCD^IO 


05920 


32 


13056 


00000 


11030 




SF 


HOLDCD+17 


05932 


32 


13063 


00000 


11040 




SF 


tint n/* rvft. o *> 


0 5944 


32 


13068 


00000 


11050 




SF 


HOLUCD-rZ T 


05956 


32 


13073 


00000 


11060 






mA.i^a MTCCT 


05968 


43 


06036 


13132 


11070 






nUL Ui>Uv<co , U , f 


05980 


14 


13072 


-0000 


11080 




BNE 




05992 


47 


06016 


01200 


11090 




TFM 


fflUL Uv U— £0 f Wc. f r 


06004 


16 


13072 


-2402 


11100 








06016 


26 


13150 


13072 


11110 




R7 




06028 


49 


06072 




11120 








06036 


14 


13072 


-0000 
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11130 




BNE 


•-32 


06048 


47 


06016 


01200 


11140 




TFM 


MAPMA, 99999,7 


06060 


16 


13150 


R9999 


11150 




TF 


MAPEA,HGL0CD^3l 


06072 


26 


13155 


13077 


11160 




BD 


DISKN,PHI,, IF NOT ON DISK GOTO NODISK 


06084 


43 


06340 


13130 


11170 


DC22 


SF 


INPUT*39 


06096 


32 


13652 


00000 


11180 




C 


INPUT«50,ZER012 


06108 


24 


13663 


13167 


11190 




BE 


ERRD-12 


06120 


46 


02512 


01200 


11200 




TF 


HOL06,H0LOC0>15 


06132 


26 


13215 


13061 


11210 




S 


HOL06,H0LDC0-f9 


06144 


22 


13215 


13055 


11220 




BNL 


• ♦32 


06156 


46 


06188 


01300 


11230 




TFM 


DIMERR^22,7177,8 


06168 


16 


02507 


0P177 


11240 




B 


ERRD 


06180 


49 


02524 


00000 


11250 




DORG 


•-3 


06188 








11260 




C 


H0L0C0-»-9,SCRl 


06188 


24 


13055 


13203 


11270 




BL 


SCERR 


06200 


47 


12854 


01300 


11280 




C 


HQLOC 04-15, SCR2 


06212 


24 


13061 


13209 


11290 




BH 


SCERR 


06224 


46 


12854 


01100 


11300 




TF 


L0ADSC,H0LDCD*15,, COMPUTE SECTOR COUNT 


06236 


26 


13180 


13061 


11310 




S 


LOADSC,HOL0CD^9 


06248 


22 


13180 


13055 


11320 




AM 


L0A0SC,1,10 


06260 


11 


13180 


000- 1 


11330 




TF 


SCRACH,H0LDCD^9 


06272 


26 


13186 


13055 


11340 




SF 


LOAOSC-2 


06284 


32 


13178 


00000 


11350 




SF 


SCRACH-4 


06296 


32 


13182 


00000 


11360 




CF 


SCRACH-5 


06308 


33 


13181 


00000 


11370 




BD 


MOOOKl.RTEST 


06320 


43 


10682 


13131 


11360 




B 


MAINBl 


06332 


49 


06364 


00000 


11390 




DORG 


•-3 










11400 


OISKN 


BD 


M0DND1,RTEST 


06340 


43 


10482 


13131 


11410 




BTM 


NODISK, •♦12 


06352 


17 


09866 


-6364 


11420 


HAINBl 


BD 


•♦32,PTEST 


06364 


43 


06396 


13133 


11430 




TOM 


MAPRM,,t NO FILE PROTECTION 


06376 


15 


13115 


00000 


11440 




OSC 
t 


1,»,» 


06387 




1 




11450 




8 


•♦20 


06388 


49 


06408 


00000 


11460 




DORG 


•-3 


06396 








11470 




TO 


MAPRNtGPMARK,. FILE PROTECTION 


06396 


25 


13115 


13116 


11480 




SF 


INPUT^63 


06408 


32 


13676 


00000 


11490 




C 


INPUT^74.ZER0I2 


06420 


24 


13687 


13167 


11500 




BE 


NOSAC 


06432 


46 


10886 


01200 


11510 




SF 


MAPRM.., IMMOVABLE PROGRAM 


06444 


32 


13115 


00000 


11520 




TF 


L0ADSA,H0LDCD^21 


06456 


26 


13102 


13067 


11530 




TD 


L0A0SA-5,H0LDCD^16 


06468 


25 


13097 


13062 


11540 




CF 


LOADS A-4 


06480 


33 


13098 


00000 


11550 




SF 


LOADSA-5 


06492 


32 


13097 


00000 


11560 




C 


L0ADSA,SCR2 


06504 


24 


13102 


13209 


11570 




BH 


SCROK 


06516 


46 


065B8 


01100 


11580 




TF 


H0LD6,L0A0SA 


06S2B 


26 


13215 


13102 


11590 




A 


H0LD6,L0ADSC 


06540 


21 


13215 


13180 


11600 




SM 


HOL06,1,10 


06552 


12 


13215 


000-1 


11610 




C 


H0LD6,SCR1 


06564 


24 


13215 


13203 


11620 




BNL 


SCERR 


06576 


46 


12854 


01300 


11630 


SCROK 


SF 


INPUT+Il 


06588 


32 


13624 


00000 


11640 




SF 


LOAOSA-4 


06600 


32 


13098 


00000 


11650 




CF 


LOADSA-5 


06612 


33 


13097 


00000 


11660 




TF 


PNAME,INPUT^22 


06624 


26 


13229 


13635 


11670 




CM 


HOLDC0*3,O,8 


06636 


14 


13049 


0-000 



7C2 
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11680 




BE 


FINDON 




06648 


46 


06740 


01200 


11690 




TF 


NEHOIM,H0LDCO*3 




06660 


26 


02963 


13049 


11700 




BT 


DIMMER, DIMMER-l 




06672 


27 


03672 


03671 


11710 




BNR 


•♦20fMAP 




06684 


45 


06704 


19880 


11720 




B 


CALLMV 




06696 


49 


07036 


00000 


11730 




00 RG 


•-3 




06704 








117^,0 




RCTY 






06704 


34 


00000 


00102 


11750 




TFM 


DIMERR>22t7572>8 




06716 


16 


02507 


0P572 


11760 




WATY 


OIMERR 




06728 


39 


02485 


00100 


11770 


F I NOON 


TFM 


NEHDIM,204>8, 


FIND FIRST UNUSED DIM ENTRY 


06740 


16 


02963 


0-204 


11780 




TF 


H0L06tZER06 




06752 


26 


13215 


13161 


11790 




TF 


H0L06.NEH0IN 




06764 


26 


13215 


02963 


11800 




A 


H0LD6*HOL06 




06776 


21 


13215 


13215 


11810 




CF 


H0LD6-3 




06788 


33 


13212 


00000 


11820 




AM 


H0LD6-1 •4800,8 




06800 


11 


13214 


0M800 


11830 




TF 


D2REA045,H0L06-1 




06812 


26 


13504 


13214 


118A0 




TFM 


I0RTt**23 




06824 


16 


00565 


-6847 


11850 




B 


IOGTfOIREAO,7 




06836 


49 


00566 


J3491 


11860 




TFM 


TREC+ll»TRACK 




06848 


16 


06895 


J3776 


11870 




TD 


•♦23tH0LD6 




06860 


25 


06883 


13215 


11880 




AM 


TREC+10,0»10 




06872 


11 


06894 


000-0 


11890 


TREC 


BNR 


•♦20, TRACK 




06884 


45 


06904 


13776 


11900 




B 


CALLMV 




06896 


49 


07036 


00000 


11910 




00 RG 


•-3 




06904 








11920 




AM 


NEWDIM,1,10 




06904 


11 


02963 


000-1 


11930 




C 


NEWDIM,MAXOIM 




06916 


24 


02963 


03849 


119A0 




BH 


EXITFL 




06928 


46 


06984 


01100 


11950 




AM 


TREC^ll,20,10 




06940 


11 


06895 


OOOKO 


11960 




CM 


TREC^11,TRACK«2100 




06952 


14 


06895 


J5876 


11970 




BL 


TREC 




06964 


47 


06884 


01300 


11980 




B 


FINDON+12 




06976 


49 


06752 


00000 


11990 




OORG 


•-3 




06984 








12000 


EXITFL 


BNF 


•♦32, FORT 




06984 


44 


07016 


13114 


12010 




TFM 


DIMERR+22,7671,8 




06996 


16 


02507 


0P671 


12020 




B 


ERR^24 




0 7008 


49 


05686 


00000 


12030 




DORG 


•-3 




07016 








12040 




TFM 


0IMERR^22»0079,8 




07016 


16 


02507 


0-079 


12050 




B 


ERRD 




07028 


49 


02524 


00000 


12060 




DORG 


•-3 




07036 








12070 


CALLMV 


TF 


DIMNUM.NEWOIM 




07036 


26 


13190 


02963 


12080 




TF 


MOVESCLOAOSC 




07048 


26 


02865 


13180 


12090 




TF 


MOVESA,LOAOSA 




07060 


26 


02862 


13102 


12100 




TD 


M0VESA-5,L0ADSA-5 




07072 


25 


02857 


13097 


12110 




TFM 


I0RT,»+23 




07084 


16 


00565 


-7107 


12120 




B 


I0GT#M0VD0At7 




07096 


49 


00566 


J3244 


12130 




TFM 


EXITMR^6,»«20 




07108 


16 


08630 


-7128 


12140 




B 


MOVER 




07120 


49 


08824 


00000 


12150 




OORG 


• -3 




07128 








12160 




BNF 


ERR.SUCESS 




07128 


44 


05662 


13118 


12170 




TFM 


IORT,»+23 




07140 


16 


00565 


-7163 


12180 




B 


I0GT,E0UDDA,7 




07152 


49 


00566 


J3312 


12190 




TFM 


I0RT,»^23 




07164 


16 


00565 


-7187 


12200 




B 


I0GT,C0M2.7 




07176 


49 


00566 


J3335 


12210 




TF 


NEW0IM,DiMNUM 




07188 


26 


02963 


13190 


12220 




BT 


DIMMER, OIMMER-1 




07200 


27 


03672 


03671 


12230 




BTM 


SETMAP«»412 




07212 


17 


10738 


-7224 



76^ 
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12240 




BTM 


WRLAST,*412 




0 7224 


17 


11842 


-7236 


12250 




BNF 


MONCALtDUMP 




07236 


44 


00796 


13426 


12260 




TD 


MCS^23,DUMP 




07248 


25 


17801 


13426 


12270 




TFM 


I0RT,»423 




07260 


16 


00565 


-7283 


12280 




B 


I0GT*DMPDIM,7 




07272 


49 


00566 


J3403 


12290 


UR2 


OS 


t2259 




02259 




0 




12300 


LOAORE 


TFM 


ATN^11»INPUT432 




07284 


16 


09053 


J364ii 


12310 




SF 


LOAORE 




07296 


32 


07284 


00000 


12320 




BTM 


ATNR,»^12 




07308 


17 


06606 


-7320 


12330 




TFM 


INPUT449,7070t8 




07320 


16 


13662 


0P070 


12340 




A 


WR2^3,425 




07332 


21 


02262 


00425 


12350 




TD 


WR2,422 




07344 


25 


02259 


00422 


12360 




SF 


MR2 




07356 


32 


02259 


00000 


12370 




CF 


MR2^1 




07366 


33 


02260 


00000 


12360 




TF 


HOLDCD*9,WR2^5 - 




07380 


26 


13055 


02264 


12390 




TF 


H0LDCD415,WR2*5 




07392 


26 


13061 


02264 


12400 




A 


H0LDCD^15,WR248 




07404 


21 


13061 


02267 


12410 




SM 


HOLDCD415,1.10 




07416 


12 


13061 


000-1 


12420 




TF 


H0LDCD^26»WR2413 




07428 


26 


13072 


02272 


12430 




TF 


MAPMA,WR24l3 




07440 


26 


13150 


02272 


12440 




BNF 


DC2,MCS^22 




07452 


44 


05920 


17800 


12450 




SF 


FORT 




07464 


32 


13114 


00000 


12460 




B 


NOREl 




07476 


49 


07600 


00000 


12470 




DORG 


•-3 




07484 








12480 


SPS 


TFM 


PHI, 0,9, 


LOAD AFTER COMPILATION 


07484 


16 


13130 


00-00 


12490 




CM 


H0LD2,6,10 


07496 


14 


13104 


000-6 


12500 




BNE 


LOAORE 




07508 


47 


07284 


01200 


12510 




TOM 


FREODA,0 




07520 


15 


13467 


00000 


12520 




SF 


FORT 




07532 


32 


13114 


00000 


12530 




TF 


MAPMA,MCS«12 




07544 


26 


13150 


17790 


12540 




BO 


NOREl, MCS422 




07556 


43 


07600 


17800 


12550 




TFM 


SCRACH,0,7 




07568 


16 


13186 


-0000 


12560 




TOM 


SCRACH-5,0 




07580 


15 


13181 


00000 


12570 




B 


MODDK 1 




07592 


49 


10682 


00000 


12580 




OORG 


•-3 




07600 








12590 


NOREl 


TF 


INPUT422,MCS+35 




07600 


26 


13635 


17813 


12600 




TF 


MAPEA,MCS4-17 




07612 


26 


13155 


17795 


12610 




TD 


DUMP,MCS«23 




07624 


25 


13426 


17801 


12620 


NEGATE 


TDM 


PTEST.O,, 


NEGATE FILE PROTECTION 


07636 


15 


13133 


00000 


12630 




TF 


INPUT474,ZER012 




07648 


26 


13687 


13167 


12640 




TF 


HOLDC0440,ZER06,, 


CYLINDER SPEC. 


07660 


26 


13086 


13161 


12650 




TF 


H0L0CD43,MCS+39 




07672 


26 


13049 


17817 


12660 




BNF 


•♦20,LOA0RE 




07684 


44 


07704 


07284 


12670 




B 


DC22 




07696 


49 


06096 


00000 


12680 




OORG 


•-3 




07704 








12690 




TFM 


LOADSC,0,9 




07704 


16 


13180 


00-00 


12700 




TFM 


DCFSCR+8,3,9 




07716 


16 


13381 


00-03 


12710 




TFM 


DCFSCR45,0,7 




07728 


16 


13378 


-0000 


12720 


INITl 


TFM 


LOOP, 4, 10 




07740 


16 


13120 


000-4 


12730 




TFM 


SCAN146,REA0IN 




07752 


16 


07794 


J7778 


12740 




TFM 


IORT,»^23 




07764 


16 


00565 


-7787 


12750 




B 


I0GT,D0ASCR,7 




07776 


49 


00566 


J3483 


12760 


SCANl 


NOP 


REAOIN.O 




07788 


41 


17778 


00000 


12770 




TF 


BNR^11,SCAN146 




07800 


26 


09661 


07794 


12780 




TFM 


N00ISK-1,MA1NB1 




07812 


16 


09865 


-6364 


12790 




BTM 


LCTEST,»^12 




07824 


17 


09614 


-7836 



7U4 
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12800 




SM 


LOOP, 1,10 


07836 


12 


13120 


000-1 


12810 




BD 


UPSCA, LOOP 


07848 


43 


07892 


13120 








1 n Anc r 2 I n 
LUAUoU , ^ , lU 


07860 


11 


13180 


000-3 


12830 




AM 


OCFSCR+5,3,10 


07872 


11 


13378 


000-3 


12840 




B 


INITl 


07884 


49 


07740 


00000 


12850 




DORG 


•-3 


07892 








12860 


UPSCA 


AM 


SCANl+6,75,9 


07892 


11 


07794 


00-75 


12870 




B 


SCANl 


07904 


49 


07788 


00000 


12880 




00 RG 


•-3 


07912 








12890 




TCO 


LOADFL 


04400 








12900 
















12910 




•DREPL INDEPENDENT ROUTINES 










12920 
















12930 




DORG 


4400 


04400 








12940 


REPLFL 


TFM 


I0RT,«*23 


04400 


16 


00565 


-4423 


12950 




B 


I0PT,REPL2,7 




49 


00532 


—4463 


12960 




TRA 




04424 


36 


00000 


00500 










04436 


49 


00000 


00000 


12970 


REPLl 


DSC 


Itl 


04448 




1 




12980 




1 

DC 


5,18400 


04453 




5 








J840Q 










12990 




OC 


3,028 


04456 




3 




13000 




-28 
DC 


5,05800 


04461 




5 








-5800 










13010 




DSC 
• 


It* 


04462 




\ 




13020 


REPL2 


DSC 
22 


2,22 


04463 




2 




13030 




DSA 


REPLl 


04469 




5 


X 1 










04469 




-4448 




13040 




DSC 
• 


If* 


04470 




1 




13050 




DORG 


5800 


05800 








13060 


DREPL 


TFM 


H0LD2,0,10 


05800 


16 


13104 


000-0 


13070 




BTM 


SCRAD,»«12 


05812 


17 


09298 


-5824 


13080 




TD 


H0L02,SVSCAL 


05824 


25 


13104 


00475 


13090 




CM 


H0LD2,4,10 


05836 


14 


13104 


000-4 


13100 




BNE 


RELD 


05848 


47 


08172 


01200 


13110 




SF 


INPUT*11 


05860 


32 


13624 


00000 


13120 




TFM 


ATN+11,INPUT*24 


05872 


16 


09053 


J3637 


13130 




BTM 


ATNR,*4-12,, CARD 


TO NUMERIC 05884 


17 


08606 


-5896 


13140 




SF 


H0LDCD*8 


05896 


32 


13054 


00000 


13150 




SF 


H0LDCD«14 


05908 


32 


13060 


00000 


13160 




SF 


H0LDCD^26 


05920 


32 


13072 


00000 


13170 




SF 


H0LDCD^31 


05932 


32 


13077 


00000 


13180 




TF 


PNAME,INPUT^22 


05944 


26 


13229 


13635 


13190 


ISTO 


CM 


HOLDC0^7,0,e, ERROR IF NO TO 


DIN 05956 


14 


13053 


0-000 


13200 




BE 


ERRD-12 


05968 


46 


02512 


01200 


13210 




TF 


NEW0IM,H0L0CD«^7 


05980 


26 


02963 


13053 


13220 




BT 


0IMMER*DINMER-1 


05992 


27 


03672 


03671 


13230 




BNR 


•♦32, MAP 


06004 


45 


06036 


19880 


13240 




TFM 


0IMERR4-22, 0072,8 


06016 


16 


02507 


0-072 



T«5 
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13250 




B 


ERR0,,t ERROR IF TO DIM NOT IN USE 


06028 


49 


02524 


00000 


13260 




DORG 


•-3 


06036 








13270 




BNF 


•♦32,MAP*19 


06036 


44 


06068 


19899 


13280 


• ••• 




ERROR IF TO DIM IS IMMOVABLE 










13290 




TFM 


0IMERR-*^22,O073,8 


06048 


16 


02507 


0-073 


13300 




B 


ERRO 


06060 


49 


02524 


00000 


13310 




DORG 


• -3 


06068 








13320 




TF 


L0ADSA,MAP4-5 


06068 


26 


13102 


19885 


13330 




TD 


L0ADSA-5,MAP 


06080 


25 


13097 


19680 


13340 






ENTRY AND CORE ADDRESSES FROM CARD 










13350 




TF 


MAPEA,HOL0CO^35 


06092 


26 


13155 


13081 


13360 




BO 


PATCH2*52tNTEST 


06104 


43 


11634 


13132 


13370 




CM 


HOLDC 04-30, 0,7 


06116 


14 


13076 


-0000 


13380 




B7 


PATCH2 


06128 


49 


11582 




13390 


PAT2 


TFM 


MAPNA,99999,7 


06136 


16 


13150 


R9999 


13400 




BD 


•♦32,PTEST 


06148 


43 


06180 


13133 


13410 


• • 


NO 


FILE PROTECTION 










13420 




TDM 


MAPRM,,, 


06160 


15 


13115 


00000 


13430 




DSC 




06171 




1 




13440 




B 


•♦20 


06172 


49 


06192 


00000 


13450 




DORG 


•-3 


06180 








13460 


• • 


FILE 


PROTECTION 










13470 




TO 


MAPRMtGPMARK 


06tB0 


25 


13115 


13116 


13480 


•• 




PROGRAM IS MOVABLE 










13490 




BD 


NDISK.PHI 


06192 


43 


06848 


13130 


13500 


• • 


IS THERE A FROM DIM 










13510 




CM 


H0LDCD>3,0,8 


06204 


14 


13049 


0-000 


13520 


PATCH4 


BNE 


NTZ 


06216 


47 


06380 


01200 


13530 


• • 




PROGRAM IS IN WORK AREA 










13540 




SF 


INPUT439 


06228 


32 


13652 


00000 


13550 




C 


iNPUT^S0,ZERO12 


06240 


24 


13663 


13167 


13560 




BE 


ERRD-12 


06252 


46 


02512 


01200 


13570 




C 


H0L0C0>19,SCR2 


06264 


24 


13065 


13209 


13580 




BH 


SCERR 


06276 


46 


12854 


01100 


13590 




C 


H0LDC0-M3,SCRl 


06288 


24 


13059 


13203 


13600 




BL 


SCERR 


06300 


47 


12854 


01300 


13610 


• • 




COMPUTE SECTOR COUNT 










13620 




TF 


LOADSCHOLDC 04-19 


06312 


26 


13180 


13065 


13630 




S 


L0ADSCtH0LDC04l3 


06324 


22 


13180 


13059 


13640 




AM 


LOADSCi.lO 


06336 


11 


13180 


000-1 


13650 




SF 


LOADSC-2 


06348 


32 


13178 


00000 


13660 




TF 


SCRACH,H0LDC04-13 


06360 


26 


13186 


13059 


13670 




B 


MAINB2 


06372 


49 


06884 


00000 


13680 




DORG 


•-3 


06380 








13690 


NTZ 


TF 


NEWDIM,H0LDC0+3 


06380 


26 


02963 


13049 


13700 




BNF 


•♦20, LOADER 


06392 


44 


06412 


11310 


13710 




B 


NTZ-6fi 


06404 


49 


06312 


00000 


13720 




DORG 


•-3 


06412 








13730 




BT 


DIMMER, DIMMER-1 


06412 


27 


03672 


03671 


13740 




ERROR IF FROM DIM NOT IN USE 










13750 




BNR 


•♦32, MAP 


06424 


45 


06456 


19880 


13760 




TFM 


DIMERR^22,0074,8 


06436 


16 


02507 


0-074 


13770 




B 


ERRO 


06448 


49 


02524 


00000 


13780 




DORG 


• -3 


06456 
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13800 




BNF 


•♦32,MAP+19 




06456 


44 


06488 


19899 


13810 




TFM 


OIMERR*22,0077,8 




06468 


16 


02507 


0-077 


13820 




B 


ERRO 




06480 


49 


02524 


00000 


13830 




OORG 


•-3 




06488 








13840 




TF 


L0ADSCtMAP4-8 




06488 


26 


13180 


19886 


138 50 






PUT FROM DIM PROG. ON 


SCRATCH 










13860 




TOM 


FWRDOAf 0 




06500 


15 


13459 


00000 


13870 




TFH 


FWRIT4^5tO»7 




06512 


16 


13272 


-0000 


13880 




TOM 


FWRITtO 




06524 


15 


11267 


00000 


13890 




TFM 


FWRIT4-13*TRACK 




06536 


16 


13280 


J3776 


13900 




TF 


FREAD^5tMAP4-S 




06548 


26 


13287 


19885 


13910 




TO 


FREAOtMAP 




06560 


25 


13282 


19880 


13920 




TFM 


FREA0>13fTRACK 




06572 


16 


13295 


J3776 


13930 


NORERO 


CM 


MAP«8»040t9 




06584 


14 


19888 


00-40 


13940 




BNH 


• ••-44 




06596 


47 


06640 


01100 


13950 




SM 


MAP4-8«040t9 




06608 


12 


19888 


00-40 


13960 




TFM 


FREAD48>040f9 




06620 


16 


13290 


00-40 


13970 




B 


• ♦32 




06632 


49 


06664 


00000 


13980 




OORG 


• -3 




06640 








13990 




TF 


FREAD«8»MAP^8 




06640 


26 


13290 


19868 


14000 




s 


MAP«8»MAP4-8 




06652 


22 


19888 


19888 


14010 




TF 


FWRIT4^8«FREAD^8 




06664 


26 


13275 


13290 


14020 




TFM 


I0RT,*4^23 




06676 


16 


00565 


-6699 


14030 




B 


I0GT»FRE0DAt7 




06688 


49 


00566 


J3467 


14040 




TFM 


I0RTt«^23 




06700 


16 


00565 


-6723 


14050 




B 


tOPTf FWRDDA,7 




06712 


49 


00532 


J3459 


14060 




CM 


MAP-i-8t0t9 




06724 


14 


19688 


00-00 


14070 




BE 


• ♦44 




06736 


46 


06780 


01200 


14080 




A 


FREA0^5tFREA04-8 




06748 


21 


13287 


13290 


14090 




A 


FWRIT4-5tFREAD«8 




06760 


21 


13272 


13290 


14100 




B 


MORERD 




06772 


49 


06584 


00000 


14110 




OORG 


• -3 




06780 








14120 




TDM 


FWR0DA,2 




06780 


15 


13459 


00002 


14130 




TFM 


SCRACH,0,7 




06792 


16 


13166 


-0000 


14140 




TDM 


FREDOAtO 




06804 


15 


13467 


00000 


14150 






ENTRY AND CORE ADDRESSES 


FROM FROM DIM MAP 










14160 




CM 


H0LDCD435t0«7 




06816 


14 


13081 


-0000 


14170 




BNE 


PATCHl+12 




06826 


47 


12810 


01200 


14180 




B7 


PATCHl 




06840 


49 


12798 




14190 


NDISK 


BO 


MOONDltRTEST 




06846 


43 


10462 


13131 


14200 




BTM 


NOOISK,»4-12 




06860 


17 


09866 


-6872 


14210 




TFM 


H0LDCD43>0,8 




06872 


16 


13049 


0-000 


14220 


MA1NB2 


BD 


M0D0K1,RTEST 




. 06884 


43 


10682 


13131 


14230 




TFM 


I0RT»*423 




06896 


16 


00565 


-6919 


14240 




B 


1 OCT, COM2 tT 




06908 


49 


00566 


J3335 


14250 




CM 


H0L0C043t0i8 




06920 


14 


13049 


0-000 


14260 




BE 


• ♦36 




06932 


46 


06968 


01200 


14270 


• •• 




DELETE FROM DIM FROM S.P.LIST 










14280 




TF 


DIMNUM,H0LDCD«3 




06944 


26 


13190 


13049 


14290 




BTM 


SPLDELt^^l2 




06956 


17 


12090 


-6968 


14300 


• 


DELETE TO DIM FROM SP LIST 












14310 




TF 


DIMNUM«H0LDCD^7 




06968 


26 


13190 


13053 


14320 




BTM 


SPLDEL.»+12 




06980 


17 


12090 


-6992 


14330 




TF 


MOVESAtLOAOSA 




06992 


26 


02862 


13102 


14340 




TO 


M0VESA-5,LOA0SA-S 




07004 


25 


02857 


13097 


14350 




TF 


MOVESCtLOAOSC 




07016 


26 


02865 


13180 
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14360 




TFM 


I0RT,^+23 




07028 


16 


00565 


-7051 


14370 




a 


I0GT.M0VD0A.7 




07040 


49 


00566 


J3244 


14380 




TFM 


EX!TMR46,^-t>20 




07052 


16 


08630 


-7072 


14390 




B 


MOVER 




07064 


49 


08824 


00000 


14400 




OORG 


•-3 




07072 








14410 




BNF 


•♦20»A0K 




07072 


44 


07092 


13118 


14420 




B 


UPDIM 




07084 


49 


07312 


00000 


14430 




OORG 


•-3 




07092 








14440 


• •• 




INSERT TO AND FROM DIMS INTO S 


.P.LIST 










14450 


NOSPAC 


TF 


NEWDIM,H0L0CD47»7 




07092 


26 


02963 


J3053 


14460 




BT 


DIMMER«DIMMER-1 




07104 


27 


03672 


03671 


14470 




TF 


M0VESC,MAP-t-8 




07116 


26 


02865 


19888 


14480 




TF 


M0VESAtMAP45 




07128 


26 


02862 


19885 


14490 




TO 


M0VESA-5.MAP 




07140 


25 


02857 


19880 


14500 




TFM 


EXITMR«6,^>20 




07152 


16 


08630 


-7172 


14510 




B 


MOVER 




07164 


49 


08824 


00000 


14520 




DORG 


•-3 




07172 








14530 




TF 


0IMNUM»N0SPAC4-lItll 




07172 


26 


13190 


0710L 


14540 




TFM 


I0RT»^423 




07184 


16 


00565 


-7207 


14550 




B 


IOGT»COM2»7 




07196 


49 


00566 


J3335 


14560 




BTM 


SPLINS.*«12 




07208 


17 


10606 


-7220 


14570 




CM 


N0SPAC«lltHOLDCD4-3 




07220 


14 


07103 


J3049 


14580 




BE 


ERR 




07232 


46 


05662 


01200 


14590 




CM 


H0L0C043»0*8 




07244 


14 


13049 


0-000 


14600 




BE 


ERR 




07256 


46 


05662 


01200 


14610 




TFM 


NOSPAC*ll,HOLDC0*3 




07268 


16 


07103 


J 3049 


14620 




TFM 


I0RT»^423 




07280 


16 


00565 


-7303 


14630 




B 


IO6T»MOVD0At7 




07292 


49 


00566 


J 3244 


14640 




B 


NOSPAC 




07304 


49 


07092 


00000 


14650 




OORG 


•-3 




07312 








14660 


UPOIM 


TFM 


I0RT,»*23 




07312 


16 


00565 


-7335 


14670 




B 


I0GT,EQUDDA«7 




07324 


49 


00566 


J3312 


14680 




TFM 


I0RT,^423 




07336 


16 


00565 


-7359 


14690 




B 


IOGTfCOM2»7 




07348 


49 


00566 


J3335 


14700 


• •• 




CLEAR ANY FILE PROTECTION IN 


TO AND FROM DIM 










14710 


SEARFP 


TF 


NEW0IN,H0LDC04-7t7 




07360 


26 


02963 


J3053 


14720 




BT 


DIMMER. DIMMER-1 




07372 


27 


03672 


03671 


14730 




TF 


FWRIT>5tMAP-t-5 




07384 


26 


13272 


19885 


14740 




TO 


FURIT.MAP 




07396 


25 


13267 


19880 


14750 




TF 


H0LD3.MAP48 




07408 


26 


13193 


19888 


14760 




TFM 


TESTFP4-11, TRACK 




07420 


16 


07587 


J3776 


14770 




TF 


HOLDS tMAP^S 




07432 


26 


13139 


19885 


14780 




SP 


HOLDS- 1 




07444 


32 


13138 


00000 


14790 




SM 


HOLDS. 20*10 




07456 


12 


13139 


OOOKO 


14800 




BH 


•-12 




07468 


46 


07456 


01100 


14810 




BZ 


•♦48 




07480 


46 


07528 


01200 


14820 




AM 


HOLDS. 20, 10 




07492 


11 


13139 


OOOKO 


14830 




MM 


HOLDS. 105 .9 




07504 


13 


13139 


00J05 


14840 




A 


TESTFP4ll,99 




07S16 


21 


07587 


00099 


14850 




TFM 


FMRlT^8t020.9 




07528 


16 


13275 


00-20 


14860 




TFM 


FWRIT^13.TRACK 




07540 


16 


13280 


J3776 


14870 




TFM 


IORT.^^23 




07552 


16 


00565 


-7575 


14680 




B 


tOGT.FPDOA»7 




07564 


49 


00566 


J3451 


14890 


TESTFP 


BNF 


♦♦20, TRACK 




07576 


44 


07596 


13776 


14900 




B 


CLRFP 




07588 


49 


07688 


00000 


14910 




OORG 


•-3 




07596 
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14920 




SM , 


HOLD3tltlO 


07596 


12 


13193 


000-1 


14930 




BZ 


MOFLGS 


07608 


46 


07748 


01200 


14940 




AM 


TESTFP*11,105»9 


07620 


11 


07587 


O0JO5 


14950 




CM 


TESTFP+11,TRACK>2100 


07632 


14 


07587 


J5876 


14960 




BL 


TESTFP 


07644 


47 


07576 


01300 


14970 




AM 


FWRIT+5, 20,10 


07656 


11 


13272 


OOOKO 


14980 




TFM 


TESTFP+ll , TRACK 


07668 


16 


07587 


J3776 


14990 




B 


TESTFP-24 


07680 


49 


07552 


00000 


15000 




DORG 


• -3 


07688 








15010 


CLRFP 


TP 


H0LD3,MAP*8 


07688 


26 


13193 


19888 


15020 




TF 


FWRIT+5,MAP*5 


07700 


26 


13272 


19885 


15030 




TO 


FWRir,MAP 


07712 


25 


13267 


19880 


15040 




TFM 


FPSF+1,33.10 


07724 


16 


11643 


000L3 


15050 




BTM 


FP,»+12 


07736 


17 


11462 


-7748 


15060 


NOFLGS 


CM 


SEARFP+11 ,H0LDCD*3 


07748 


14 


07371 


J3049 


15070 




BE 


ALLCLR 


07760 


46 


07816 


01200 


15080 




CM 


HOLDCD-i-3,0t8 


07772 


14 


13049 


0-000 


15090 




BE 


ALLCLR 


07784 


46 


07816 


01200 


15100 




TFM 


SEARFP-m.HOL 000*3 


07796 


16 


07371 


J3049 


15110 




B 


SEARFP 


07808 


49 


07360 


00000 


15120 




DORG 


• -3 


07816 








15130 


• mm 




REMOVE NAMES 










15140 


ALLCLR 


C 


HOLDCD*3tHOLDCD+7 


07816 


24 


13049 


13053 


15150 




BE 


• ♦108 


07828 


46 


07936 


01200 


15160 




CM 


H0L0C0«3t0t8 


07840 


14 


13049 


0-000 


15170 




BE 


• ♦48 


07852 


46 


07900 


01200 


15180 




SF 


DELETE 


07864 


32 


13134 


00000 


15190 




TF 


DIMNUM»H0LDC0*3 


07876 


26 


13190 


13049 


15200 




BTM 


EQUIV,»^12 


07888 


17 


08606 


-7900 


15210 




SF 


DELETE 


07900 


32 


13134 


00000 


15220 




TF 


DIMNUM»H0LDC0*7 


07912 


26 


13190 


13053 


15230 




BTM 


E0UIV,»+12 


07924 


17 


08606 


-7936 


15240 




TF 


NEWDIM,H0LDCD*7 


07936 


26 


02963 


13053 


15250 




BT 


DIMMER, DIMMER-1 


07948 


27 


03672 


03671 


15260 




BTM 


SETMAP,»*12 


07960 


17 


10738 


-7972 


15270 




C 


H0LDC0^3,H0LDCD*7 


07972 


24 


13049 


13053 


15280 




BE 


VOILA 


07984 


46 


08112 


01200 


15290 




CM 


H0L0CD^3,0,8 


07996 


14 


13049 


0-000 


15300 




BE 


VOILA 


08008 


46 


08112 


01200 


15310 




DELETE FROM DIM REFERENCES 










15320 




TF 


NEWDIM,H0L0C0^3 


08020 


26 


02963 


13049 


15330 




BT 


DIMMER, OIMMER-1 


08032 


27 


03672 


03671 


15340 




BNR 


•♦20, MAP 


08044 


45 


08064 


19880 


15350 




B 


MONCAL 


08056 


49 


00796 


00000 


15360 




DORG 


•-3 


08064 








15370 




TOM 


HAP,,, 


08064 


15 


19880 


00000 


15380 




DSC 
• 


lt»t» 


08075 




1 




15390 




TF 


MAP4-19.ZER019 


08076 


26 


19899 


13174 


15400 




TFM 


I0RT,**23 


08088 


16 


00565 


-8111 


15410 




B 


I0PT*DM00A,7 


08100 


49 


00532 


-2568 


15420 


VOILA 


BTM 


MRLAST,«*i2 


08112 


17 


11842 


-8124 


15430 




BNF 


MONCAL, DUMP 


0B124 


44 


00796 


13426 


15440 




TO 


NCS«23t0UMP 


08136 


25 


17801 


13426 


15450 




TFM 


IORT,«*23 


08148 


16 


00565 


-8171 


15460 




B 


I0GT,0MP0IM,7 


08160 


49 


00566 


J 340 3 
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n69 

OELET 



15470 RELO 

15480 

15490 

15500 

15510 

15520 

15530 

15540 

15550 

15560 

15570 

15580 

15590 N0RE2 

15600 

15610 

15620 

15630 

15640 INIT2 
15650 
15660 
15670 

15680 SCAN2 

15690 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 UPSCAN 

15790 

15800 

15810 REL02 
15820 
15830 
15880 



15890 

15900 »•••• 
15910 •••• 

15920 DORG 7200 

15930 COMMFL TFM I0RT,»+23 

15940 B I0PT,C0MM2,7 

15950 TRA 

15960 COMMl DSC 1,1 
1 



TFM 


PHI, 0,10 


08172 


16 


13130 


000-0 


CM 


H0LD2,6,10 


08184 


14 


13104 


000-6 


BNE 


LOADER 


08196 


47 


11310 


01200 


SF 


FORT 


08208 


32 


13114 


00000 


TO 


0UMP,MCS^23 


08220 


25 


13426 


17801 


TF 


PNAME,MCS+35 


08232 


26 


13229 


17813 


TF 


H0LDC04-7,MCS*39 


08244 


26 


13053 


17817 


TFM 


SCRACH,0,7 


08256 


16 


13186 


-0000 


TDM 


FREODA,0 


08268 


15 


13467 


00000 


BD 


•♦20,MCS*22 


08280 


43 


08300 


17800 


B 


MODOKl 


08292 


49 


10682 


00000 


DORG 


•-3 


08300 








TF 


H0LDCD^30,MC$*12 


08300 


26 


13076 


17790 


TF 


H0L0C0*35,MCS*17 


08312 


26 


13081 


17795 


TFM 


L0A0SC,0,9 


08324 


16 


13180 


00-00 


TFM 


0CFSCR^8,3,9 


08336 


16 


13381 


00-03 


TFM 


0CFSCR^5,0,7 


08348 


16 


13378 


-0000 


TFM 


LOOP, 4, 10 


08360 


16 


13120 


000-4 


TFM 


SCAN2*6,READIN 


08372 


16 


08414 


J7778 


TFM 


tORT,»*23 


08384 


16 


00565 


-8407 


B 


I0GT,DDASCR,7 


08396 


49 


00566 


J3483 


NOP 


READIN,0 


08408 


41 


17778 


00000 


TF 


BNR*11,SCAN2*6 


08420 


26 


09661 


08414 


TFM 


N00ISK-1,RELD2 


08432 


16 


09865 


-8532 


BTM 


LCTEST,»*12 


08444 


17 


09614 


-8456 


SM 


LOOP, 1,10 


08456 


12 


13120 


000-1 


BO 


UPSCAN, LOOP 


08468 


43 


08512 


13120 


AM 


L0A0SC,3ffl0 


08480 


11 


13180 


000-3 


AM 


DCFSCR*5,3,10 


08492 


11 


13378 


000-3 


B 


INIT2 


08504 


49 


08360 


00000 


DORG 


•-3 


08512 








AM 


SCAN2«-6,75,9 


08512 


11 


08414 


00-75 


B 


SCAN2 


08524 


49 


08408 


00000 


DORG 


•-3 


08532 








TFM 


PATCH4^6,MAINB2 


08532 


16 


06222 


-6884 


TOM 


PATCH44l,9 


08544 


15 


06217 


00009 


87 


1 STO 


08556 


49 


05956 




TOO 


REPLFL 


04400 







COMMON ROUTINES FOR •OLOAO AND •OREPL 



15970 
15980 
15990 
16000 



DC 5,18480 
J8480 

OC 3,031 
-31 

DC 5,08600 

-8600 

OSC 1,« 



07200 
07200 
07212 
07224 
07236 
07248 

07253 

07256 

07261 

07262 



00565 
00532 



-7223 
-7263 



16 
49 

36 00000 00500 
49 00000 00000 
1 



i7U 
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16010 


C0MM2 


DSC 


2,22 


07263 




2 




16020 




22 
OSA 


COMMl 


07269 




5 


X 1 










07269 




-7248 




16030 




DSC 
t 


If* 


07270 




1 




16040 




DORG 


8100 


08100 








16050 


EQUFL 


TFM 


I0RT,»+23 


08100 


16 


00565 


-8123 


16060 




B 


I0PT»EQUlf7 


08112 


49 


00532 


-8148 


16070 




TRA 




08124 


36 


00000 


00500 










08136 


49 


00000 


00000 


16080 


EQUl 


DSC 


2,22 


08148 




2 




16090 




22 
OSA 


EQU2 


08154 




5 


X 1 










08154 




-8156 




16100 




DSC 




08155 




I 




16110 


EQU2 


DSC 


1.1 


08 156 




1 




16120 




1 

DC 


5,18278 


08161 




5 








J8278 










16130 




DC 


3,020 


08164 




3 








-20 












16140 




DC 


5,08600 


08169 




5 








-860Q 










16150 




DSC 


l,« 


08170 




1 




16160 




DORG 


8600 


08600 








16170 


• 














16180 


» 


EQUIVALENCE TABLE SUBROUTINE 










16190 




DC 


5,0 


08604 




5 








-0000 










16200 


EQUIV 


TFM 


NEWDI M, 0002 ,8 


08606 


16 


02963 


0-002 


16210 




BT 


DIMMER,DIMMER-1 


08618 


27 


03672 


03671 


16220 




BNF 




08630 


44 


09690 


13134 


16230 








08642 


14 


13190 


0-000 


16240 




BE 


ANAME 


08654 


46 


10466 


01200 


16250 


LIMITS 






08666 


14 


13190 


0-010 


16260 




BL 


B2READ 


08678 


47 


09054 


01300 


16270 




CM 


D I MNUM t SUBH 1,8 


08690 


14 


13190 


0-039 


16280 




BH 


B2REA0 


08702 


46 


09054 


01100 


16290 






TMI MP-AA.niMMtiM 
bni nc^o , u I nraun 


08714 


16 


08816 


J3190 


16300 




TFM 


CNINE 4 11, TRACK'*' 15 


08726 


16 


08821 


J3791 


16310 


MITHIN 


TFM 


HOLD4ff0,10 


08738 


16 


13197 


000-0 


16320 






DISKF^SfEQUOIM^Stt MITHIN SUBROUTINE DIM LIMITS 


08750 


26 


13393 


19885 


16330 




TO 




08762 


25 


13388 


19880 


16340 




TFM 










—8797 


16350 




g 




08786 


49 


00566 


J 3443 


16360 




AM 




08798 


11 


13197 


000-1 


16370 


CNINE 


c 




08810 


24 


00000 


00000 


16380 




BE 


TFLG 


08822 


46 


08878 


01200 


16390 




CM 


HOL04,50tlO 


08834 


14 


13197 


OOONO 


16400 




BH 


MRT2 


08846 


46 


08946 


01100 


16410 




AM 


CNINE4-11, 16,10 


08858 


11 


08821 


000J6 
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PAGE 


16420 




B 


CNINE-12 


08870 


49 


08798 


00000 


16430 




DORG 


•-3 


08878 




16440 


TFLG 


BNF 


NOF, DELETE 


08878 


44 


08986 


13134 


16450 




TFM 


CNINE41I, 9999,6 


08890 


16 


0882J 


09999 


16460 




SM 


CNINE«>11,4,10 


08902 


12 


Oefi2l 


000-4 


16470 




TF 


CNINE«11,N1NE12,6 


089U 


26 


0B82J 


13243 


16480 




AM 


CN1NE«11,20,10 


08926 


11 


08821 


OOOKO 


16490 




B 


CNINE-12 


08938 


49 


08798 


00000 


16500 




OORG 


•-3 


08946 




16510 


URT2 


BNF 


• '*'20, DELETE 


08946 


44 


08966 


13134 


16520 




B 


WRT 


08958 


49 


09022 


00000 


16530 




DORG 


•-3 


08966 






16540 




TFM 


D I MERR«22 , 7574 , B 


08966 


16 


02507 


0P574 


16550 




B 


MULT2 


08978 


49 


09974 


00000 


16560 




DORG 


•-3 


08986 






16570 


NOP 


TF 


CNINE4-U,PNAMEt6 


08986 


26 


0882J 


13229 


16580 




AM 


CNINE4>11,4,I0 


08998 


11 


08821 


000-4 


16590 




TF 


CNINE4-11,0IMNUM,6 


09010 


26 


08 82 J 


13190 


16600 


Wrt 


TFM 


iORT,*«23 


09022 


16 


00565 


-9045 


16610 




B 


I0PT,D0AKF,7 


09034 


49 


00532 


J3443 


16620 




B 


EXIT 


09046 


49 


10530 


00000 


16630 




OORG 


•-3 


09054 








16640 


B2READ 


TF 


0ISKF*5,E0U0IM*5,, NOT WITHIN LIMITS 


09054 


26 


13393 


19885 


16650 




AM 


DISKF45,8»10 


09066 


11 


13393 


000-8 


1 AA^n 




TO 


0ISKF,EQU0IM 


09078 


25 


13388 


19880 




INITSC 


TFM 


REC04 11, TRACK 


09090 


16 


09185 


J3776 


16680 




TFM 


CMPAR*11,TRACK*15 


09102 


16 


09205 


J3791 


16690 




TFM 


CL0SR4-8,20,9 


09114 


16 


13366 


00-20 


16700 




TFM 


CLOSW48,20,9 


09126 


16 


13305 


00-20 


16710 




TFM 


IORT,«+23 


09138 


16 


00565 


-9161 






B 


I0GT,00AKF,7 


09150 


49 


00566 


J3443 


16730 




AM 


•4-23,11,10 


09162 


11 


09185 


000 J 1 


16740 


RECO 


BNR 


•♦20,,, TEST FOR LAST ENTRY 


09174 


45 


09194 


00000 


16750 




B 


EXIT 


09186 


49 


10530 


00000 


16760 




DORG 


•-3 


09194 








16770 


CMPAR 


C 


DIMNUM,,, LOOK FOR DIM NUMBER 


09194 


24 


13190 


00000 


16780 




BE 


CLOSE 


09206 


46 


09294 


01200 


16790 




CM 


CMPAR*11,TRACK*1999,, TEST FOR END OF 20 SECTORS 


09218 


14 


09205 


J5775 


16800 




BE 


INCRD 


09230 


46 


09274 


01200 


16810 




AM 


REC04-11, 16,10 


09242 


11 


09185 


000J6 


16820 




AM 


CMPAR+11,16,10 


09254 




09205 




16830 




B 


RECD 


09266 


49 


09174 


00000 


.16840 




DORG 


• -3 


09274 






1 « 


INCRD 


AM 


DISKF45r20,9 


09274 


11 


13393 


00-20 


16860 




B 


INITSC 


09286 


49 


09090 


00000 


16870 




OORG 


•-3 


09294 






16880 


CLOSE 


TDM 


CL0SUP*2000,,, RPUTINE TO CLOSE IN LIST 


09294 


15 


15776 


00000 


16890 




DSC 
( 


1,«,» 


09305 




1 


16900 




TF 


TRREC+6,CMPAR+11 


09306 


26 


09420 


09205 


16910 




SM 


TRREC+6,15,10 


09318 


12 


09420 


000J5 


16920 




TF 


TRREC*ll,CMPAR+ll 


09330 


26 


09425 


09205 


16930 




AM 


TRREC+11,1,10 


09342 


11 


09425 


000-1 


16940 




TFM 


CL0SW*13,CL0SUP 


09354 


16 


13310 


J3776 


16950 




TFM 


CL0SR«13,CLQSUP41984 


09366 


16 


13371 


J5760 


16960 




TF 


CL0SW*5,0ISKF+5 


09378 


26 


13302 


13393 
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PAGE 



16970 




TF 


CL0SR+5.DISKF"i'5 




09390 


26 


13363 


13393 


16980 




AM 


CL0SRi^5v20f 10 




09402 


11 


13363 


OOOKO 


16990 


TRREC 


TR 


OtOf t 


nn FTP PMTQV 






nnnnn 


nnnnn 
UUUUU 


17000 




BNR 


00NE»CL0SUP*19fl4,, 


TEST FOR END OF lABLE 


09426 


45 


09542 


15760 


17010 




TFM 


I0RT,»4'23 




09438 


16 


00565 


-9461 


17020 




B 


I0GT,CL0DDA,7 




09450 


49 


00566 


J3427 


17030 




TFM 


IORT,»+23 




09462 


16 


00565 


-9485 


170*0 




B 


I0PT,CLWDDA,7 




09474 


49 


00532 


J3435 


17050 




TOM 


CLOSUP+3984,,, 




09486 


15 


17760 


00000 


17060 




DSC 
« 


If 




09497 




1 




17070 




TR 


CL0SUP«CL0SUP4-2000 




09498 


31 


13776 


15776 


17080 




AM 


CL0SR+5«20»10 




09510 


11 


13363 


OOOKO 


17090 




AM 


CLaSW4-5,20«10 




09522 


11 


13302 


OOOKO 


17100 




B 


TRREC+12 




09534 


49 


09426 


00000 


17110 




DORG 


•-3 




09542 








17120 


DONE 


TF 


H0LD5»CL0SH45«» 


RECORD MARK IS IN LAST TRACK 


09542 


26 


13139 


13302 


17130 




S 


HOLDS, EQUDIM4^5 




09554 


22 


13139 


19885 


171*0 




SF 


H0L05-2 




09566 


32 


13137 


00000 


17150 




C 


H0LD5»EQUDIM>8 




09578 


24 


13139 


19888 


17160 




BH 


NOTOK 




09590 


46 


09634 


OllOO 


17170 




TFM 


IORT,«*23 




09602 


16 


00565 


-9625 


17180 




B 


lOPTtCL W0DA,7 




09614 


49 


00532 


J3435 


17190 




B 


INITSC 




09626 


49 


09090 


00000 


17200 




DORG 


•-3 




09634 








17210 


NOTOK 


SM 


H0LD5, 20,10, 


00 NOT HRITE A FULL TRACK 


09634 


12 


13139 


OOOKO 


17220 




TF 


HOL03,EOUDIM+8 




09646 


26 


13193 


19888 


17230 




S 


H0LD3,H0LD5 




09658 


22 


13193 


13139 


17240 




TF 


CL0SM4-8,H0LD3 




09670 


26 


13305 


13193 


17250 




B 


NOTOK-32 




09682 


49 


09602 


00000 


17260 




DORG 


•-3 




09690 








17270 


SKNAME 


CM 


0IMNUM,0,8, 


NOT A DELETE OPERATION 


09690 


14 


13190 


0-000 


17280 




BE 


EXIT 




09702 


46 


10530 


01200 


17290 




TF 


DISKF>5,E0UDIM«S 




09714 


26 


13393 


19885 


17300 




TO 


DISKFiEQUDIM 




09726 


25 


13388 


198B0 


17310 




TFM 


DISKF+8,20,9 




09738 


16 


13396 


00-20 


17320 




TFM 


0ISKF-t-13,TRACK 




09750 


16 


13401 


J3776 


17330 


SCANN 


TFM 


CNAMES«11«TRACK«11 




09762 


16 


09829 


J3787 


17340 




TFM 


I0RT,»*23 




09774 


16 


00565 


-9797 


17350 




B 


iaGT,DDAKF,7 




09786 


49 


00566 


J3443 


17360 




BNR 


• «^20,CNAMES«11,11, 


TEST FOR END OF TABLE 


09798 


45 


09818 


a982R 


17370 




B 


NOMULT 




09810 


49 


10030 


00000 


17380 




DORG 


• -3 




09818 








17390 


CNAHES 


C 


PNAME,,7, 


LOOK FOR MULTIPLE NAME 


09818 


24 


13229 


-0000 


17400 




BE 


MULT 




09830 


46 


09906 


01200 


17410 




CM 


C NAME $♦ 1 1 • TR ACK-i-1 99S • 7 




09842 


14 


09829 


J5771 


17420 




BE 


• ♦32 




09854 


46 


09886 


01200 


17430 




AN 


CNAMES^11,16,10 




09866 


11 


09829 


000J6 


17440 




B 


CNAMES-20 




09878 


49 


09798 


00000 


17450 




DORG 


•-3 




09886 








17460 




AM 


DISKF-«-5, 20,10 




09886 


11 


13393 


OOOKO 


17470 




B 


SCANN 




09898 


49 


09762 


00000 


17480 




DORG 


•-3 




09906 








17490 


HULT 


BNF 


•♦20,0ELETE,, 


IF MULTIPLE NAME 


09906 


44 


09926 


13134 


I7S00 




B 


HOLOIM 




09918 


49 


10498 


00000 


17510 




DORG 


•-3 




09926 









773 
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17520 




AM 


CNAMES^11,4,10 






09926 


11 


09829 


000-4 


17530 




C 


0IMNUM,CNAMES>11,11 






09938 


24 


13190 


0982R 


17540 




BE 


EXIT 






09950 


46 


10530 


01200 


17550 




TFM 


DIMERR^22,757L,8 






09962 


16 


02507 


0P571 


17560 


MULT2 


RCTY 








09974 


34 


00000 


00102 


17570 




WATY 


OIMERR 






09986 


39 


02485 


00100 


17580 




MATY 


PNAME-10 






09998 


39 


13219 


OOlOO 


17590 




TF 


PNAME,ZER012 






10010 


26 


13229 


13167 


17600 




B 


EXIT 






10022 


49 


10530 


00000 


17610 




DORG 


•-3 






10030 








17620 


NOMULT 


BNF 


•♦20,0ELETE 






10030 


44 


10050 


13134 


17630 




B 


EXIT 






10042 


49 


10530 


00000 


17640 




DORG 


•-3 






10050 








17650 




CM 


DIMNUM,SUBL0,8, 


TEST DIM NUMBER 


LIMITS 


10050 


14 


13190 


0-010 


17660 




BL 


OLIMIT 






10062 


47 


10130 


01300 


17670 




CN 


DIMNUN,SUBHI,8 






10074 


14 


13190 


0-039 


17680 




BH 


OLIMIT 






10086 


46 


10130 


01100 


17690 




TFM 


CNINE4-6,NINE12 






10098 


16 


08816 


J3243 


17700 




TFM 


CNINE^11,TRACK«11 






10110 


16 


08821 


J3787 


17710 




B 


WITHIN 






10122 


49 


08738 


00000 


17720 




00 RG 


•-3 






10130 








17730 


OLIMIT 


TFM 


CNT,0,10, WILL 


ENTRY EXCEED MAX SC 




10130 


16 


13142 


000-0 


17740 




TFM 


• «-23,TRACK>95 






10142 


16 


10165 


J3871 


17750 




CM 


CNAMES'»11,TRACK«9S 






10154 


14 


09829 


J3871 


17760 




BE 


SECT 






10166 


46 


10234 


01200 


17770 




AN 


•-13,100,9 






10178 


11 


10165 


OOJOO 


17780 




AM 


CNT,1,10 






10190 


11 


13142 


000-1 


17790 




CM 


CNT*20,10 






10202 


14 


13142 


OOOKO 


17800 




BNE 


•-60 






10214 


47 


10154 


01200 


17810 




B 


ENTOK 






10226 


49 


10362 


00000 


17820 




00 RG 


•-3 






10234 








17830 


SECT 


TF 


HOL05*DISKF^5 






10234 


26 


13139 


13393 


17840 




A 


H0LD5,CNT 






10246 


21 


13139 


13142 


17850 




S 


HOL05,EQUOIM*5 






10258 


22 


13139 


19885 


17860 




SF 


HOLD5-2 






10270 


32 


13137 


00000 


17870 




C 


H0LD5,EQUDIM*8 






10282 


24 


13139 


19888 


17880 




BL 


•♦32 






10294 


47 


10326 


01300 


17890 




TFM 


0IMERR«22,7573,8 






10306 


16 


02507 


0P573 


17900 




B 


MULT2 






10318 


49 


09974 


00000 


17910 




DORG 


•-3 






10326 








17920 




CM 


CNAMES«11,TRACK^1995 






10326 


14 


09829 


J5771 


17930 




BNE 


ENTOK 






10338 


47 


10362 


01200 


17940 




AM 


0ISKF+e,l,10 






10350 


11 


13396 


000-1 


17950 


ENTOK 


TF 


CNAMES«11,PNAME,6, 


ADO A NEW ENTRY 




10362 


26 


0982R 


13229 


17960 




AM 


CNAMES«ll,4,10 






10374 


11 


09829 


000-4 


17970 




TF 


CNAMES«11,0IMNUM,6 






10386 


26 


0982 R 


13190 


17980 




AM 


CNANES^ll, 12,10 






10398 


11 


09829 


000J2 


17990 




TF 


CNAMES^11,ZER012,6 






10410 


26 


0982R 


13167 


18000 




TDM 


CNAMES^11,,6 






10422 


15 


0982R 


00000 


18010 




DSC 
t 


lt«f« 






10433 








18020 




TFM 


I0RT,»*23 






10434 


16 


00565 


J0457 


18030 




B 


I0PT,DDAKF,7 






10446 


49 


00532 


J3443 


18040 




B 


EXIT 






10458 


49 


10530 


00000 


18050 




DORG 


•-3 






10466 








18060 


ANANE 


C 


PNAME,ZER012,, 


FIND DIM NUMBER 


TO BE DELETED 


10466 


24 


13229 


13167 
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PAGE 



18070 




BE 


EXIT 


10478 


46 


10530 


01200 


16080 




B 


SKNAME+24 


10490 


49 


09714 


00000 


18090 




DORG 


»-3 


10496 








18100 


HQLDIM 


AH 


CNAHES-t-1 1 ,4t 10 


10498 


11 


09829 


000-4 


18110 




TF 


DIMNUM,CNAMES+11,11 


10510 


26 


13190 


0982R 


18120 




B 


LIMITS 


10522 


49 


08666 


00000 


18130 




DORG 


•-3 


10530 








18U0 


EXIT 


CF 


DELETE 


10530 


33 


13134 


00000 


18150 




B 


EQUlV-1,,6 


10542 


49 


0860N 


00000 


18160 




DORG 


• -3 


10550 








18170 




TCD 


EQUFL 


08100 








18180 


• «•• 




COMMON 1 










18190 




DORG 


8600 


08600 








18200 




DC 


5»0 


08604 




5 








-0000 










18210 


ATNR 


CF 


FORT 


08606 


33 


13114 


00000 


18220 




SF 


INPUT+95 


08618 


32 


13708 


00000 


18230 




CM 


INPUT4^96,43«10» DETERMINE INPUT DEVICE 


08630 


14 


13709 


0OOM3 


18240 




BNE 


• ♦32 


08642 


47 


06674 


01200 


18250 




TFM 


PHt,05,10 


08654 


16 


13130 


000-5 


18260 




B 


R 


08666 


49 


08754 


00000 


18270 




DORG 


• -3 


06674 








18280 




CM 


INPUT+96,57,10 


08674 


14 


13709 


0OON7 


18290 




BNE 


• + 32 


08686 


47 


08718 


01200 


18300 




TFM 


PHI, 03. 10 


08698 


16 


13130 


000-3 


18310 




B 


R 


08710 


49 


08754 


00000 


18320 




DORG 


• -3 


08718 








18330 




CM 


lNPUT+96,44,10 


08718 


14 


13709 


000M4 


18340 




BNE 


ERRD-12 


08730 


47 


02512 


01200 


18350 




TFM 


PHI, 0,10 


08742 


16 


13130 


000-0 


18360 


R 


SF 
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20970 


SCRKO 


A 


L0ADSA,NINESC 



10886 16 00565 J0905 

10898 49 00716 
10905 2 

10911 5 X 1 



10911 
10912 

10913 

10918 

10921 

10926 

10926 
10931 

10931 
10932 

10934 14 
10946 47 
10958 
10970 
10982 
10994 
11006 33 
11018 25 
11030 21 
11042 
11054 
11066 
11078 49 
11090 16 
11102 25 
11114 11 
11126 43 
11138 16 
11150 25 
11162 41 
11174 33 
11186 49 
11194 
11194 
11206 
11218 
11230 26 
11242 25 
11254 21 



32 
13 
26 
25 



11 
15 
16 



26 
27 
21 



J0913 
I 

1 

5 

3 

5 X 

J3800 

5 X 

J3800 
I 

02761 
11194 
02763 
02764 
13102 
13097 
13097 
11065 
11065 
11065 
13097 
00565 
00566 
13214 
11124 
13214 
11150 
11163 
13098 
13102 
02763 
11254 

02963 
03672 
19885 
13102 
13097 
13102 



000-P 
01200 

ooooo 

OOKOO 
00099 
02772 
OOOOO 
13097 
11065 
000-1 
000-0 
J 1089 
J1286 
J7849 
13097 
00-00 
13098 
000J2 
1321M 
JOOOO 

ooooo 

OOOOO 

02764 
03671 
19888 
19885 
19880 
05753 



780 
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44 



20980 




S 


LOAOSA,LOADSC 


1 1266 


22 


13102 


13180 


20990 




B 


SCROK 


11278 


49 


06588 


00000 


21000 




□ORG 


•-3 


11266 








21010 


03READ 


DSC 


2t22 


11286 




2 




21020 




22 
DSA 


D4READ 


1 1292 




5 


X 1 










11292 




Jl 294 




21030 




DSC 
t 


1.* 


11293 








21040 


04READ 


DSC 


If 1 


11294 




1 




21050 




1 

DC 


5 » 04800 


11299 




5 








-4800 










21060 




DC 


3.2 


11302 




3 








-02 












21070 




DSA 


REAOIN 


11307 




5 


X 1 










11307 




J7778 




21080 




DSC 
t 


It* 


11308 








21090 


LOADER 


TFM 


ATN*11»INPUT*24 


11310 


16 


09053 


J3637 


21100 




SF 


LOADER 


11322 


32 


11310 


00000 


21110 




BTM 


ATNR,»*12 


11334 


17 


08606 


J 1 346 


21120 




TFM 


INPUT+49,7070,8 


11346 


16 


13662 


0P070 


21130 




A 


WR2+3,425 


11358 


21 


02262 


0042 5 


21140 




TO 


HR2f422 


1 1370 


25 


02259 


00422 


21150 




SF 


HR2 


11382 


32 


02259 


00000 


21160 




CF 


WR24^1 


11394 


33 


02260 


00000 


21170 




TF 


H0LDCD+13.WR2+5 


1 1406 


26 


13059 


02264 


21180 




TF 


H0LDCD+19,WR2*5 


11418 


26 


13065 


02264 


21190 




A 


HQL0CD+19,WR2>8 


11430 


21 


1 3065 


02267 


21200 








11442 


12 


13065 


000-1 


21210 




TF 


H0LDCD4-30,WR2«13 


11454 


26 


13076 


02272 


21220 




TDM 


RTEST.O 


11466 


15 


13131 


00000 


21230 




BNF 


IST0-24,MCS*22 


11478 


44 


05932 


17800 


21240 




SF 


FORT 


11490 


32 


13114 


00000 


21250 




TDM 


PTEST.O 


11502 


15 


13133 


00000 


21260 




TF 


H0LDCD*7,MCS*39 


11514 


26 


13053 


17817 


21270 




TF 


PNAHE»HCS4^35 


11S26 


26 


13229 


17813 


21280 




'TD 


0UMP,MCS4-23 


11538 


25 


13426 


17801 


21290 




TF 


H0L0CD>3S«MCS«^17 


11550 


26 


13081 


17795 


21300 




TFM 


H0L0CD43t0t8 


11562 


16 


13049 


0-000 


21310 




B 


ISTO 


11574 


49 


05956 


00000 


21320 




OORG 


•-3 


11582 








21330 


PATCH2 


BE 


• ♦32 


11582 


46 


11614 


01200 


21340 




TF 


MAPMA(H0L0CD«30 


11594 


26 


13150 


13076 


21350 




B7 


PAT2+12 


11606 


49 


06148 




21360 




TFM 


MAPMA, 02402(7 




16 


13150 


—2402 


21370 




B7 


PAT2«12 


11626 


49 


06148 




21380 




CN 


HOLOCD^ 30(0(7 


11634 


14 


13076 


-0000 


21390 




BNE 


•-52 


11646 


47 


11594 


01200 


21400 




B7 


PAT2 


11658 


49 


06136 




21410 




TCD 


COMMFL • 


07200 








21420 




DORG 


10100 


10100 
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21430 


COMFL TFM 


I0RT,»'t-23 










10100 


16 


00565 


J0123 


21440 


B 


I0PT,C0MFL1,7 










10112 


49 


00532 


J0148 


21450 


TRA 












10124 


36 


00000 


00500 
















10136 


49 


00000 


OOOOO 


21460 


COMFL I DSC 
22 


2(22 










10148 




2 




21470 


OS A 


C0MFL2 










10154 




5 


X 1 
















10154 




J0156 




21480 


OSC 
( 












10155 




1 




21490 


COMFL 2 OSC 


Itl 










10156 




1 




21500 


1 

DC 


5(18512 










10161 




5 






J8512 


















21510 


DC 


3(030 










10164 




3 






-30 




















21520 


DC 


5(10600 










10169 




5 






JO 600 


















21530 


DSC 
• 


It* 










10170 




1 




21540 


OORG 


10600 










10600 








21550 


DC 


5(0 










10604 




5 






-0000 


















21560 


SPLINS TFM 


H0LD3»0(9 










10606 


16 


13193 


00-00 


21570 


CM 


LISTER-3>8(1011 










10618 


14 


02761 


OOO-Q 


21580 


BNE 


LOOK 










10630 


47 


10690 


01200 


21590 


A 


H0L03 (LISTER 










10642 


21 


13193 


02764 


21600 


BT 


REMOVE* REMOVE-1 










10654 


27 


03084 


03083 


21610 


TF 


LISTET, DIMNUM 










10666 


26 


02794 


13190 


21620 


BT 


INSERT* INSERT-1 










10678 


27 


03414 


03413 


21630 


LOOK C 


H0LD3(M0VESC 










10690 


24 


13193 


02865 


21640 


BE 


SPLINS-1».6 










10702 


46 


1060N 


01200 


21650 


BT 


GETL(GETL-1 










10714 


27 


02996 


02995 


21660 


B 


SPLINS+12 










10726 


49 


10618 


OOOOO 


21670 


SETMAP TF 


MAP^5(L0ADSA(( 


SET UP DIM 


ENTRY 






10738 


26 


19885 


13102 


21680 


TD 


MAP,L0ADSA-5 










10750 


25 


19880 


13097 


21690 


CF 


MAP 










10762 


33 


19880 


OOOOO 


21700 


SF 


MAP+1 










10774 


32 


19881 


OOOOO 


21710 


TF 


MAP^8,L0A0SC 










10786 


26 


19888 


13180 


21720 


BNF 


•♦24»STFLA6 










10798 


44 


10822 


13537 


21730 


SF 


MAPMA 










10810 


32 


13150 


OOOOO 


21740 


TF 


MAP>13,MAPMA 










10822 


26 


19893 


13150 


21750 


TF 


MAPtl8»MAPEA 










10834 


26 


19898 


13155 


21760 


TO 


MAP4-19,MAPRM 










10846 


25 


19899 


13115 


21770 


TF 


OIMNUMtNEWDIM 










10858 


26 


13190 


02963 


21780 


TFM 


I0RT,»+23 










10870 


16 


00565 


J0893 


21790 


B 


I0PT,0M0DA(7 










10882 


49 


00532 


-2568 


21800 


TFM 


I0RT,»*23 










10894 


16 


00565 


J0917 


21810 


B 


I0GT,MCS1(7 










10906 


49 


00566 


J3514 


21820 


TF 


MCS+39, DIMNUM 










10918 


26 


17817 


13190 


21830 


TFM 


I0RT,«*23 










10930 


16 


00565 


J0953 


21840 


B 


I0PT,MCSl(7 










10942 


49 


00532 


J3514 


21850 


• INSERT DIMNUM IN SPLIST 


















21860 


BTM 


SPLINS, •♦12 










10954 


17 


10606 


J0966 


21870 


C 


PNAME,2ERQ12(, 


WAS 


PROGRAM 


NAME 


GIVEN 


10966 


24 


13229 


13167 
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21880 




BE 


NONAM 








10978 






^1 nn!> 


21890 




BTM 


kWUt y $ ^ ~ L€, 9 t 




Pi Afit 1 N 


FOIifUAl FMrP rARi P 


1 ?nn? 


17 


Uo ouo 


1 ti ol 


2 1 900 


NONAM 


TF 


FREAD+5 • SCRACHt t 


LOAD 


ppnCR AM 


TO DISK 


1 mil 


26 


1 ^9B5 




21910 




TO 
















L3I81 


2 1920 




SF 










1 1 n^A 




13283 


00000 








fread*^ 








1.1038 


33 


13282 


00000 


21940 




TC 










1 1050 


26 


13272 


1 3102 






TO 










1 1062 


25 


13267 


I 3097 


21960 




TF M 












If 










TFM 










1 1086 


16 


1 3280 


J3776 


21980 














1 1098 


24 


1 3107 


13180 






BL 










1 1 1 10 


47 


1 1282 


01300 


22000 




jf 










!" } 






1 al ftn 


22010 




jp 


FURf T-«>fl.i riAncr 








11134 




1 

i 


13180 




LSK 


TFM 


I OR T t ♦♦■23 








1 1146 


7 

16 


00565 


J 1 169 


53nf n 






t T cDtint\k "7 
I UG 1 t rKEDUA t 7 








1 1 158 


49 


00566 


J3467 






TPM 


1 no T M.x.'yi 








1 1 170 


16 


00565 


J1193 


22050 




R 


iriDT.FuannA t 

I Ur 1 t rilRUUA t » 








1 1 laf 


Ti. 


00532 


J 3459 


22060 




RD 


m*y{\^ DTCCT 
r 1 t S 1 












1 n^io 


13133 


22070 


ENDWRT 


_ 


SET MA P— 1 » 1 6 








1 1 3n*! 


49 


1073P 


r\r\f\r\r\ 
OOOUU 






OORG 


•*"3 








A 1214 








22090 




TFM 










1 1214 


16 


11643 




22100 




jf: 
















1 ai flft 


221 10 




TF 


cull I T.^- It. 1 nAncA 








1 1236 


9A 




1 3102 


22120 














11250 


25 


13267 


1 3097 


22130 














1 1262 














ENDHRT 








1 1274 


49 


11206 


UUOUO 


22150 




OORG 










1 1282 








22160 


ALTER 




Mm n4 .1 nAn<:r 












1 




22170 






Mm .MA vcr 








11294 


22 




1 ai n7 


22180 




Jf 


PRFAn«^ft .MAXCr 








1 1 306 


26 


13290 


13107 


22190 




TF 


FMRIT-*-8f MAXSC 








1 1318 


26 


13275 


13107 


22200 




TFM 


A |JI\ 1 t 3 








11330 


16 






222 10 






inAT.FRFnnA.7 
1 Uw 1 frl^CUwAt f 








1 1342 








22220 




TFM 










1 1354 


16 




1 1 a7 7 


22230 






1 noT. FURnnA. i 

1 Ur 1 f rimUUAf f 








1 1366 


5? 






22240 






FBF An*li - MAKCr 








1 i^an 




1 75 


1 al n7 


22250 






FUB tT«it.MAycr 








1 i^n^ 


51 




1 ai n7 

1 ^1 








HAvcr .unt 
nAAovtnULU:! 








1 1402 


24 


I «i n7 

II iol 


13193 


22270 




M 










11414 


>I 


11294 


?a?Qa 






TF 












si 






22290 






r WIS 1 1 f nULU J 








11438 


f o 


13275 


13193 


22300 






LSK 








1 1450 




11 146 


nnnnn 


223 10 




SF 


nilTTHM. . 

oui 1 unt t f 


FII F 

PlLc 


rKUl 1 


Akin 1 nAn DpncoAu 
AraU LUAU rKUwKAn 


It A^f 




??oaa 


UUUUU 








K VMF C C m*. 1 3 








11474 


17 






22330 




Jf 


Mm n<i.PUBtTA<i 












la 1 ao 


13272 


22340 














11 AOS 


32 


t at afl 


nnnnn 

\JU\JV\J 


22350 




TFM 










1 1510 


16 


11648 




22360 




SM 


HOLD5t20t 10 








1 1522 


12 


13139 


OOOKO 


22370 




BH 


•-12 








11534 


46 


11522 


01100 


22380 




BZ 


• ♦48 








11546 


46 


11594 


01200 


22390 




AM 


HOLD5,20»10 








11558 


11 


13139 


OOOKO 


22400 




MM 


HOLD5,105t9 








11570 


13 


13139 


00J05 


22410 




A 


FPSF*6,99 








11582 


21 


11648 


00099 


22420 




TFM 


FWRIT«8t20t9 








11594 


16 


13275 


00-20 


22430 




TFM 


FWRIT<M3fTRACK2 








11606 


16 


13280 


J7778 



7tiJ 
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22440 




TFM 


I0RT,>«23 


11618 


16 


00565 


J1641 


22450 


FPSF 


B 


I0GT,FPD0A,7 


11630 


49 


00566 


J3451 


22460 


SF 


TRACK2 


11642 


32 


17778 


00000 


22470 




SM 


H0LD3,1,10 


11654 


12 


13193 


000-1 


22480 




CM 


HOL03,0,9 


11666 


14 


13193 


00-00 


22490 




BE 


DONESF 


11678 


46 


11782 


01200 


22500 




AM 


FPSF*6, 105,9 


11690 


11 


11648 


OOJ05 


22510 




CM 


FPSF«6,TRACK2«2100 


11702 


14 


11648 


J9878 


22520 




BNE 


FPSF 


11714 


47 


11642 


01200 


22530 




TFM 


I0RT,»^23 


11726 


16 


00565 


J1749 


22540 




B 


I0PT.FPDDA,7 


11738 


49 


00532 


J3451 


22550 




AM 


FWRIT^5,20,10 


11750 


11 


13272 


OOOKO 


22560 




TFM 


FPSF*6,TRACK2 


11762 


16 


11648 


J7778 


22570 




B 


FPSF-36 


11774 


49 


11606 


00000 


22580 




OORG 


•-3 


11782 








22590 


DONESF 


TFM 


I0RT,»+23 


11782 


16 


00565 


J1805 


22600 




B 


I0PT,FPDDA,7 


11794 


49 


00532 


J3451 


22610 




CF 


BUTTON 


11806 


33 


00455 


00000 


22620 




BTM 


KYMESS,»*12 


11818 


17 


11998 


J1830 


22630 




B 


FP-1,,6 


11830 


49 


1146J 


00000 


22640 


WRLAST 


TF 


FINALM430,PNAME,, WRITE FINAL MESSAGE 


11842 


26 


12905 


13229 


22650 




TF 


NEWDIM,DIMNUM 


11854 


26 


02963 


13190 


22660 




BT 


DIMMER,DIMMER-1 


11866 


27 


03672 


03671 


22670 




RCTY 




11878 


34 


00000 


00102 


22680 




WATY 


FINALM 


11890 


39 


12875 


00100 


22690 




TO 


19999, MAP^19 


11902 


25 


19999 


19899 


22700 




TF 


19998,DIMNUM 


11914 


26 


19998 


13190 


22710 




WNTY 


19995 


11926 


38 


19995 


00100 


22720 




SP TY 




11938 


34 


00000 


00101 


22730 




WNTY 


MAP 


11950 


38 


19880 


OOlOO 


22740 




DNTY 


19999 


11962 


35 


19999 


00100 


22750 




TOM 


SYSCAL,3 


11974 


15 


00475 


00003 


22760 




B 


WRLAST-1,,6 


11986 


49 


11 84 J 


00000 


22770 


• 


ADDRESS KEY MESSAGE SUBROUTINE 










22780 


KYMESS 


BNF 


•♦32, BUTTON 


11998 


44 


12030 


00455 


22790 




TFM 


KEYMES^24,5500,8 


12010 


16 


12991 


ON 500 


22800 




B 


• ♦20 


12022 


49 


12042 


00000 


22810 




DORG 


•-3 


12030 








22820 




TFM 


KEYMES^24,4646,8 


12030 


16 


12991 


0M646 


22830 




RCTY 




12042 


34 


00000 


00102 


22840 




WATY 


KEYMES 


12054 


39 


12967 


00100 


22850 




H 




12066 


48 


00000 


00000 


22860 




B 


KYMESS-1,,6 


12078 


49 


1199P 


00000 


22870 


• •• 




DELETE DIM NO, FROM S.P. LIST 










22880 


SPLDEL 


TF 


NEWDIM.OIMNUM 


12090 


26 


02963 


13190 


22890 




BT 


DIMMER, OtMMER-1 


12102 


27 


03672 


03671 


22900 




TF 


LISTES.MAP+5 


12114 


26 


02790 


19885 


22910 




TD 


LISTES-5,MAP 


12126 


25 


02785 


19880 


22920 




TF 


NINESCHAP^B 


12138 


26 


05753 


19888 


22930 




TF 


HOLDS, MAP+5 


12150 


26 


13139 


19885 


22940 




CF 


NINESC-2 


12162 


33 


05751 


00000 


22950 




TFM 


RL&ONE+30,*+20 


12174 


16 


04284 


J2194 


22960 




B 


FIND 


12186 


49 


03838 


00000 


22970 




OORG 


• -3 


12194 








22980 


REMDEL 


C 


LISTER, DIMNUM 


12194 


24 


02764 


13190 


22990 




BNE 


SPLDEL-1,,6 


12206 


47 


1208R 


01200 
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BT 


REM0VE«REM0VE-1 


12218 


27 


03084 


03083 


23010 




CM 


LISTER-3f7,1011 


12230 


14 


02761 


000-P 


23020 




BE 


CYLDEL 


12242 


46 


12462 


01200 


23030 




CM 


LISTER-3.9.1011 


12254 


14 


02761 


000-R 


23040 




BE 


COMPRS 


12266 


46 


12406 


01200 


23050 


INSOEL 


TF 


LISTET,NINESC 


12278 


26 


02794 


05753 


23060 




BT 


INSERT, INSERT-1 


12290 


27 


03414 


03413 


23070 




BT 


GETL,GETL-1 


12302 


27 


02996 


02995 


23080 




BT 


GETL,GETL-1 


12314 


27 


02996 


02995 


23090 




CM 


LISTER-3,9,1011 


12326 


14 


02761 


000-R 


23100 




BNE 


SPLDEL-1,,6 


12338 


47 


120BR 


01200 


23110 




SF 


LISTER-2 


12350 


32 


02762 


00000 


23120 




A 


NINESC.LISTER 


12362 


21 


05753 


02764 


23130 




CF 


LISTER-2 


12374 


33 


02762 


00000 


23140 




BT 


REMOVE, REMOVE-l 


12386 


27 


03084 


03083 


23150 




B 


COMPRS+36 


12398 


49 


12442 


00000 


23160 




DORG 


• -3 


12406 








23170 


COMPRS 


SF 


LISTER-2 


12406 


32 


02762 


00000 


23180 




A 


NINESC, LISTER 


12418 


21 


05753 


02764 


23190 




CF 


LISTER-2 


12430 


33 


02762 


00000 


23200 




BT 


REMOVE, REMOVE-l 


12442 


27 


03084 


03083 


23210 




B 


INSOEL 


12454 


49 


12278 


00000 


23220 




DORG 


• -3 


12462 








23230 


CYLDEL 


BT 


6ETL,GETL-l 


12462 


27 


02996 


02995 


23240 




CM 


LISTER-3t7«1011 


12474 


14 


02761 


000-P 


23250 




BNE 


N0200 


12486 


47 


12566 


01200 


23260 




BT 


GETR,GETR-l 


12498 


27 


02872 


02871 


23270 




TFM 


LISTET,9200>8 


12510 


16 


02794 


0R200 


23280 




SM 


NINESC, 200*9 


12522 


12 


05753 


OOKOO 


23290 




BT 


INSERT, INSERT-1 


12534 


27 


03414 


03413 


23300 




BT 


GETR,GETR-1 


12546 


27 


02872 


02871 


23310 




B 


REMOEL 


12558 


49 


12194 


00000 


23320 




DORG 


•-3 


12566 








23330 


N0200 


CM 


LISTER-3«9,1011 


12566 


14 


02761 


000-R 


23340 




BE 


YES9 


12578 


46 


12730 


01200 


23350 




SF 


H0L05-2 


12590 


32 


13137 


00000 


23360 




SM 


HOLDS, 200, 9 


12602 


12 


13139 


OOKOO 


23370 




BNF 


•-12, HOLDS 


12614 


44 


12602 


13139 


23380 




A 


NINESC, HOLDS 


12626 


21 


05753 


13139 


23390 




TOM 


H0L05-3,9,ll 


12638 


15 


13136 


OOOOR 


23400 




CF 


HOLDS 


12650 


33 


13139 


00000 


23410 




CF 


H0L05-2 


12662 


33 


13137 


00000 


23420 




TF 


LISTET, HOLDS 


12674 


26 


02794 


13139 


23430 




BT 


GETR,GETR-l 


12686 


27 


02872 


02871 


23440 




BT 


INSERT, INSERT-1 


12698 


27 


03414 


03413 


23450 




BT 


GETR,GETR-l 


12710 


27 


02872 


02871 


23460 




B 


REMOEL 


12722 


49 


12194 


00000 


23470 




DORG 


•-3 


12730 
















12730 






nnonn 


23490 




A 


NINESC, LISTER 


12742 


21 


05753 


02764 


23500 




S 


HOLDStLISTER 


12754 


22 


13139 


02764 


23510 




CF 


LISTER-2 


12766 


33 


02762 


00000 


23520 




BT 


REMOVE, REMOVE-l 


12778 


27 


03084 


03083 


23530 




B 


CYLDEL 


12790 


49 


12462 


00000 


23540 




DORG 


•-3 


12798 








23550 


PATCHl 


TF 


NAPEAfMAP^lB 


12798 


26 


13155 


19898 
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PAGE 


23560 




CM 


H0LDC0-»-30,0t7 


12810 


14 


13076 


-0000 


23570 




BNE 


• ♦24 


12822 


47 


12846 


01200 


23580 




TF 


MAPMA,MAP^13 


12834 


26 






23590 




B7 


MINB2 


12846 


49 


06884 




23600 


SCERR 


TFM 


0IMERR<t-22,0075,8 


12854 


16 


02507 


0-075 


23610 




B 


ERRO 


12866 


49 


02524 


00000 


23620 




DORG 


•-3 


12874 








23630 


FINALM 


DAC 


18, DK LOADED • 


12875 




18 


X 2 






OK LOADED • 










23640 


RMARK 


OAC 

n 


1*0 


12911 




1 


X 2 


23650 


ERRSEQ OAC 


27,DUP*ERR0R55 CARD SEQUENCE • 


12913 




27 


X 2 






0UP«ERR0R55 CARD SEQUENCE • 










23660 


KEYMES 


DAC 


39,DUP» TURN OFF WRITE ADDRESS KEY* START* 


12967 




39 


X 2 






DUP» 


TURN OFF HRITE ADDRESS KEY, START* 










23670 




OAC 


1*0 


13045 




1 


X 2 


23680 


CLOSUP 


0 

OSS 


4000*13776 


13776 




4000 




23690 


INPUT 


OAS 


81,13613 


13613 




81 


X 2 


23700 


REAOIN 


DS 


• 17778 


17778 




0 




23710 


CARD 


DC 


45,0 


13090 




45 








-00000000000000000000000000000000000000000000 










23720 


HOLDCD 


OS 


•CARO-44 


13046 




0 




23730 


MCS 


OS 


* 17778 


17778 




0 




23740 


THOU 


oc 


6*100000 


13096 




6 








JOOOOO 










23750 


LGAOSA 


DC 


6*0 


13102 




6 








-00000 










23760 


H0L02 


oc 

-0 


2*0 










23770 


MAXDIM 


OS 


0,FIND4ll 


03849 




0 




23780 


MAXSC 


oc 


3*050 


13107 




3 








-50 












23790 


MCAS 


oc 


6,0 


13113 












-00000 










23800 


FORT 


osc 


1,0 


13114 








23810 


MAPRH 


0 

DSC 


1,0 


13115 




^ 




23820 


GPMARK 


0 

DGM 




13116 




1 




23830 


FINDIM 


DSC 
0 


1,0 


13117 




1 




23840 


AOK 


DSC 
0 


1,0 


13118 




1 




23850 


LOOP 


DC 


2,0 










23860 


SCREM 


-0 
DC 


3,0 














-00 












23870 


SEQ 


DC 


5,0 


13128 




5 








-0000 










23880 


BUTTON 


OS 


.455 


00455 




0 




23890 


PHI 


OC 
-0 


2,0 


13130 




2 




23900 


RTEST 


DSC 
0 


1,0 


13131 




1 




23910 


NTEST 


DSC 


1,0 


13132 




1 
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23920 
23930 
23940 
23950 
23960 
23970 
23980 
23990 
24000 
24010 
24020 
24030 
24040 
24050 
24060 
24070 
24080 
24090 
24100 
24110 
24120 
24130 
24140 
24150 

24160 



PTEST OSC 
0 

DELETE DSC 
0 

HOLDS 



1,0 

1,0 



DC 5,0 
-0000 
CNT DC 3,0 
-00 

COUNT OC 3,0 
-00 

MAPMA OC 5,0 

-0000 
MAPEA OC 5,0 

-0000 
ZER019 OC 19,0 

-000000000000000000 
ZER06 OC 6,0,ZER019-13 

-00000 
LQAOSC OC 6,0 

-00000 
SCRACH DC 6.0 

-00000 
DIMNUM OC 4.0 

-000 
HQLD3 DC 3,0 

-00 

H0LD4 DC 4.0 

-000 
SCRl OC 6.0 

^00000 
SCR2 DC 6,0 

-00000 
H0L06 DC 6,0 

-00000 

OAC 1,0 

0 

PNAME DC 12,0 

-00000000000 
DAC 1 , • 
• 

ZER012 OC 12,0.ZER019-7 

-00000000000 
NINE 12 OC 12,999999999999 

R99999999999 
MOVODA DSC 2,22 

22 

OS A MOVOCF 



OSC 
t 

24170 MOVOCF DSC 1,1 
1 

24180 OC 5,18331 

J8331 

24190 OC 3,038 

-38 



787 



13133 

13134 

13139 

13142 

13145 

13150 

13155 

13174 

13161 

13180 

13186 

13190 

13193 

13197 

13203 

13209 

13215 

13217 

13229 

13231 

13167 

13243 

13244 

13250 

13250 
13251 

13252 

13257 

13260 



PAGE 

1 
I 
5 
3 
3 
5 
5 
19 
6 
6 
6 
4 
3 
4 
6 
6 
6 

1 X J 
12 

1 X ; 
12 
12 

2 

5 X ] 



J3252 
1 

1 

5 
3 
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24200 




DC 5,08600 


13265 


5 






-8600 






24210 




DSC 1,* 


13266 


1 


24220 


FWRIT 


DSC 1,1 


13267 


1 


24230 




1 

DC 5,0 


13272 


5 






-0000 






24240 




DC 3,0 


13275 


3 






-00 






24250 




OC 5,0 


13280 


5 






-0000 






24260 




DSC 1,« 
• 


13281 


1 


24270 


FREAO 


OSC 1.1 


13282 


1 


24280 




1 

OC 5,0 


13287 


5 






-0000 






24290 




OC 3,0 


13290 


3 






-00 






24300 




DC 5.0 


13295 


5 






-0000 






24310 




OSC l.« 
f 


13296 


1 


24320 


CLOSH 


OSC 1,1 


13297 


1 


24330 




1 

DC 5.0 


13302 


5 






-0000 






24340 




OC 3.0 


13305 


3 






-00 






24350 




OC 5,0 


13310 


5 






-0000 






24360 




DSC I , • 


13311 


1 


24370 


EQUOOA 


OSC 2.22 


13312 


2 






22 






24380 




OSA EQUOCF 


13318 


5 X 








13318 


J3320 


24390 




OSC 1,» 
, 


13319 


1 


24400 


EQUOCF 


OSC 1,1 

1 


13320 


1 


24410 




OC 5,18278 


13325 


5 






J8278 






24420 




OC 3,020 


13328 


3 






-20 






24430 




OC 5,08600 


13333 


5 






-8600 






24440 




DSC !,• 
• 


13334 


1 


24450 


COM2 


OSC 2,22 


13335 


2 






22 






24460 




OSA C0M22 


13341 


5 X 








13341 


J3343 



1620 MONITOR 11 OUP ROUTINE DLOAD, OREPL* OELET 



24470 




DSC I,* 
• 


13342 


1 


?4480 


CUM22 


DSC 1,1 
I 


13343 


1 


24490 




OC 5,18512 


13348 


5 






J8512 






24500 




OC 3,020 


13351 


3 






-20 






24510 




DC 5,10600 


13356 


5 






J0600 






24520 




OSC 1,' 
i 


13357 


1 


24530 


CLOSR 


DSC 1,1 


13358 


1 


24540 




DC 5,0 


13363 


5 






-0000 






24550 




OC 3,0 


13366 


3 












24560 




DC 5,0 


13371 


5 






-0000 






24570 




OSC 1,» 
• 


13372 


1 


24580 


MAP 


DSC 20,0,19880 


19880 


20 






nnnnttnnnnnnnnnnnnnnn 






24590 


OCFSCR 


DSC 1,0 


13373 


1 


24600 




0 

DC 5,0 


1 3378 


3 






-0000 






24610 




DC 3,0 


13381 


3 






-00 






24620 




DSA READIN 


13386 


5 X 








13386 


J7778 


24630 




DSC 1 , • 
• 


13387 


1 


24640 


EQUDIM 


DSC 20,0,19880 


19880 


20 






nnnnnnnnnnnoonnnnnnn 






24650 


DISKF 


DSC 1,0 


13388 


1 


24660 




0 

DC 5,0 


13393 








-0000 






24670 




DC 3,020 


13396 


3 






-20 






24680 




DSA TRACK 


13401 


5 X 








13401 


J3776 


24690 




DSC 
• 


13402 


1 


24700 


FAREA 


DS ffCLOSUP 


13776 


0 


24710 


SYSCAL 


DS #475 


00475 


0 


24720 


SUBLO 


DS .10 


00010 


0 


24730 


SUBHI 


DS ,39 


00039 


0 


24740 


TRACK 


DS .CLOSUP 


13776 


0 


24750 


BASICM 


OS ,796 


00796 


0 


24760 


MONCAL 


DS t BASICM 


00796 


0 


24770 


TRACKS 


OS fCLOSUP 


13776 


0 
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24780 


DUPCRD 


DS 


•INPUT 


13613 


0 






24790 


SUCESS 


OS 


• AOK 


13118 


0 






24800 


DMPOIM 


OSC 


2,-22 


13403 


2 










2K 












24810 




DSA 


DMPDM 


13409 


5 


X 


1 










13409 


J3411 






24820 




OSC 


^•' 


13410 


I 






24830 


OMPOM 


OSC 


If 1 


13411 


1 






24840 




1 

DC 


5,18430 


13416 


B 










J843Q 










24850 




DC 


3,050 


13419 


3 










-50 












24860 




OC 


5,02500 


13424 


5 










-2500 










24870 




OSC 
• 




13425 


1 






24880 


DUMP 


DSC 


ifO 


13426 


1 






24890 


CLODOA 


0 

DSC 


2,22 


13427 


2 










22 












24900 




OS A 


CLOSR 


13433 


5 


X 


1 










13433 


J3358 






24910 




DSC 
• 


lt« 


13434 


1 






24920 


CLWDOA 


DSC 


2,22 


13435 


2 










22 












24930 




OSA 


CLOSW 


13441 


5 


X 


1 










13441 


J3297 






24940 




DSC 
• 




13442 


1 






24950 


OOAKF 


OSC 


2,22 


13443 


2 










22 












24960 




OSA 


DISKF 


13449 


5 


X 


1 










13449 


J3388 






24970 




OSC 




13450 


1 






24980 


FPDDA 


OSC 


2,26 


13451 


2 










26 












24990 




DSA 


FWRIT 


13457 


5 


X 


1 










13457 


J3267 






25000 




DSC 
• 


If* 


13458 


1 






25010 


FWRDOA 


OSC 


2,22 


13459 


2 










22 












25020 




OSA 


FWRIT 


13465 


5 


X 


1 










13465 


J3267 






25030 




OSC 
• 


l,» 


13466 


1 
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25040 


FREDDA 


osc 


2, 22 


13467 


2 






22 








25050 




OS A 


FREAO 


13473 


5 










13473 


J3282 


25060 




DSC 
• 


I . • 


13474 


I 


25070 


READ 


OS A 


REAOIN 


13479 


5 










13479 


J7778 


25080 




DC 


3, 00* 


13482 


3 














25081 




DGM 






1 


25090 


ODASCR 


DSC 


2«02 


13483 


2 






02 








25 100 




OS A 


DCF SCR 


13489 


5 










13489 


J3373 






DSC 
• 


It' 


1 3490 


1 








2t22 


13491 


2 






22*^ 








25130 




OSA 


02READ 


13497 


5 










13497 


J3499 


25U0 




DSC 
t 


lf« 


13498 


1 


25150 


D2REA0 


OSC 


Itl 


13499 


1 


25160 




1 

DC 


5t0 


13504 


5 






-0000 






25170 




DC 


3t02l 


13507 


3 






-21 








25180 




OSA 


TRACK 


13512 


5 










13512 


J3776 


25190 




OSC 
• 


It* 


13513 


1 


25200 


MC S I 


OSC 


2,22 


13514 


2 






22 








25210 




OSA 


MCS2 


13520 


5 










13520 


J3522 


25220 




DSC 
• 


lt» 


13521 


1 


25230 


MCS2 


OSC 


Itl 


13522 


1 


25240 




1 

DC 


5«19663 


13527 


5 






J9663 






25250 




DC 




13530 


3 






-01 








25260 




OS A 


MCS 


13535 


5 










13535 


J7778 


25270 




DSC 


It* 


13536 


1. 



?9/ 
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PAGE 


25280 


STFLAG 


OSC 


ItO 




13537 




1 




25290 


rRACK2 


0 

OSS 


2100, 17778tt READ 


WRITE AREA FOR TRACK 


17778 




2100 




25300 




TCO 


COMFL 




10100 








25310 


• •« 


FIND AVAILABLE AREA 












25320 




OORG 


13800 




13800 








25330 


NOSA 


CF 


MAPRM,,, 


NOT IMMOVABLE 


13800 


33 


13115 


00000 


25340 




SF 


M0L0C0*35 




13812 


32 


13081 


00000 


25350 




C 


HOLDCD^40tZER06 




13824 


24 


13086 


13161 


25360 




BNE 


• ♦24 




13836 


47 


13860 


01200 


25370 




TF 


H0L0CD^40,MXN0SA 




13848 


26 


13086 


05835 


25380 




SF 


M0LDCD*38 




13860 


32 


13084 


00000 


25390 




TF 


HILIM,HOLOCO«-40 




13872 


26 


13823 


13086 


25400 




TF 


LOLIM,H0LDCO«37 




13884 


26 


13955 


13083 


25410 




C 


MXNOSA.HILIM 




13896 


24 


05835 


13823 


25420 




BL 


ERRCVL 




13908 


47 


14276 


01300 


25430 




C 


MXNOSA.LOLIM 




13920 


24 


05835 


13955 


25440 




BL 


ERRCYL 




13932 


47 


14276 


01300 


25450 




CF 


HILIM-2 




13944 


33 


13821 


00000 


25460 




CF 


LOLIM-2 




13956 


33 


13953 


00000 


25470 




SF 


H0LDC0^36 




13968 


32 


13082 


00000 


25480 




MM 


HOLDC04-37, 200,9 




13980 


13 


13083 


OOKOO 


25490 




SF 


95 




13992 


32 


00095 


00000 


25500 




TF 


LISTES,99 




14004 


26 


02790 


00099 


25510 




CF 


H0LDCD*35 




14016 


33 


13081 


00000 


25520 




TO 


•♦47,H0L0C0435t, 


SET UP DRIVE CODE 


14028 


25 


14075 


13081 


25530 




A 


•♦35, •♦35 




14040 


21 


14075 


14075 


25540 




AM 


•♦23,1,10 




14052 


11 


14075 


000-1 


25550 




TOM 


LISTES-5,0tl0 




14064 


15 


02 785 


000-0 


25560 




TFM 


IORT,«^23 




14076 


16 


00565 


J4099 


25570 




B 


I0GT,03REA0,7, 


DETERMINE ADDRESS SCHEME 


14088 


49 


00566 


J1286 


25580 




TFM 


H0LD6-1,REA0IN^71 




14100 


16 


13214 


J7849 


25590 




TO 


•♦22,LISTES-5 




14112 


25 


14134 


02785 


25600 




AM 


HOL 06-1, 0,9 




14124 


11 


13214 


00-00 


25610 




BO 


•♦24,LISTES-4 




14136 


43 


14160 


02786 


25620 




TFM 


•♦25,12,10 




14148 


16 


14173 


000J2 


25630 




TO 


LISTES-4,H0LD6-l,ll 




14160 


25 


02786 


1321M 


25640 




NOP 


LISTES,10000,7 




14172 


41 


02790 


JOOOO 


25650 




TF 


NINESCLOAOSC 


DETERMINE NUMBER OF CYLINDERS 


14184 


26 


05753 


13180 


25660 




TFM 


CNTCYL,0,10 




14196 


16 


13979 


000-0 


25670 




CF 


NINESC-2 




14208 


33 


05751 


00000 


25680 




CM 


NINESC,9200,8 




14220 


14 


05753 


0R200 


25690 




BNH 


SMALL 




14232 


47 


14296 


01100 


25700 




SM 


NINESC, 200,8 




14244 


12 


05753 


0-200 


25710 




AM 


CNTCYL,1,10 




14256 


11 


13979 


000-1 


25720 




B 


•-48 




14268 


49 


14220 


00000 


25730 




OORG 


•-3 




14276 








25740 


ERRCYL 


TFM 


DIMERR^22t7274,8 




14276 


16 


02507 


0P274 


25750 




B 


ERRO 




14288 


49 


02524 


00000 


25760 




OORG 


•-3 




14296 








25770 


SMALL 


CM 


CNTCYLtOtlO 




14296 


14 


13979 


000-0 


25780 




BE 


♦♦36 




14308 


46 


14344 


01200 


25790 




TF 


SCOLCNINESC 




14320 


26 


13967 


05753 


25800 




TFM 


NINESC ,9200,8 




14332 


16 


05753 


0R200 


25810 




TFM 


LGE^23,0,10 




14344 


16 


14831 


000-0 



^02 
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25820 




TDM 


RLG0NE4^13,1 


14356 


15 


04267 


00001 


25830 




TDM 


WHYN0T*l3t I 


14368 


15 


03401 


00001 


25840 




TOM 


CLIPPP*25,1 


14380 


IS 


02909 


00001 


25850 




TFM 


CLIPPP-i-42,SPLINI 


14392 


16 


02926 


-4470 


25860 




TFM 


RLG0NE't-30,*4-20 


14404 


16 


04284 


J4424 


25870 




8 


FIND 


14416 


49 


03838 


00000 


25880 




00 RG 


•-3 


14424 








25890 


RGE 


C 


LISTERtNINESC 


14424 


24 


02764 


05753 


25900 




BNL 


LGE 


14436 


46 


14808 


01300 


25910 




CM 


LISTER-3. 7,1011 


14448 


14 


02761 


000-P 


25920 




BE 


• ♦60 


14460 


46 


14520 


01200 


25930 




TFM 


LGE>23,0,10 


14472 


16 


14831 


000-0 


25940 




CM 


CNTCYL.0.10 


14484 


14 


13979 


000-0 


25950 




BE 


• ♦24 


14496 


46 


14520 


01200 


25960 




TFM 


NINESC.9200,8 


14508 


16 


05753 


0R200 


25970 




BT 


GETR,GETR-l 


14520 


27 


02872 


.02871 


25980 




BNR 


•♦20, LISTER-3 


14532 


45 


14552 


02761 


25981 




87 


• ♦20 


14544 


49 


14564 




25982 




BNF 


CHIL,LISTER-1 


14552 


44 


14692 


02763 


25990 




AM 


LOLIM, 100,9 


14564 


11 


13955 


OOJOO 


26000 




C 


L0LIM-2,HILIM-2 


14576 


24 


13953 


13821 


26010 




BH 


ERR 


14588 


46 


05662 


01100 


26020 




TOM 


WHYN0T^13,9 


14600 


15 


03401 


00009 


26030 




TOM 


CLIPPP^25,9 


14612 


15 


02909 


00009 


260A0 




TFM 


CLIPPP+42,REDSPL 


14624 


16 


02926 


-4702 


26050 




TOM 


RLG0NE^13,9 


14636 


15 


04267 


00009 


26060 




BT 


WHYN0T,WHYN0T-1 


14648 


27 


03388 


03387 


26070 




TFM 


HOLDCD+37,0,9 


14660 


16 


13083 


00-00 


26080 




TO 


H0LDCD^35,L0LIM-2 


14672 


25 


13081 


13953 


26090 




B 


NOSA 


14684 


49 


13800 


00000 


26100 




DORG 


• -3 


14692 








26110 


CHIL 


CM 


LISTER-3, 7,1011 


14692 


14 


02761 


000-P 


26120 




BNE 


RGE 


14704 


47 


14424 


01200 


26130 




TO 


•♦47,HILIM-2 


14716 


25 


14763 


13821 


26140 




TOM 


HILIM-2,0 


14728 


15 


13821 


00000 


26150 




C 


LISTER, HIL'IM 


14740 


24 


02764 


13823 


26160 




TDM 


HILIM~2,0 


14752 


15 


13821 


00000 


26170 




BNE 


RGE 


14764 


47 


14424 


01200 


26180 




C 


L0LIM-2,HILIM-2 


14776 


24 


13953 


13821 


26190 




BNE 


RGE 


14788 


47 


14424 


01200 


26200 




B 


ERR 


14800 


49 


05662 


00000 


26210 




DORG 


• -3 


14808 








26220 


LGE 


AN 


•♦23, 1, 10 


14808 


11 


14831 


000-1 


26230 




CM 


CNTCYL,0,10 


14820 


14 


13979 


000-0 


26240 




BH 


RGE^96 


14832 


46 


14520 


01100 


26250 




BL 


• ♦32 


14844 


47 


14876 


01300 


26260 




TF 


NINESC, SCOLD 


14856 


26 


05753 


13967 


26270 




B 


RGE^96 


14868 


49 


14520 


00000 


26280 




DORG 


•-3 


14876 








26290 




SF 


NINESC-2 


14876 


32 


05751 


00000 


26300 




TDM 


WHYN0T^13,9 


14888 


15 


03401 


00009 


26310 




BT 


GETL,GETL-l 


14900 


27 


02996 


02995 


26320 




TDM 


CLIPPP^25,9 


14912 


15 


02909 


00009 


26330 




TFM 


CLIPPP«42,REDSPL 


14924 


16 


02926 


-4702 


26340 




TOM 


RLG0NE«13,9 


14936 


15 


04267 


00009 


26350 




B7 


SPO 


14948 


49 


10934 





^9, 
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26360 


HILIM 


DC 


4t7000,N0SA^23 






POOO 




26370 


LOLIM 


DC 


4,7000,NOSA^155 






POOO 




26380 


SCOLD 


DC 


4,0,NQSA^167 






-000 




26390 


CNTCYL 


DC 


2,0tN0SA4-179 






-0 




26391 


PATCH3 


TFM 


I0RT,^»23 


26392 




B 


tQGT,THRDDAt7 


26393 




B7 


LOAORE-36 


26400 


FINDFL 


TFM 


I0RT«»»23 


26410 




B 


I0PT,FIN0LF,7 


26420 




TRA 




26430 


FINOLF 


DSC 


2,22 






22 




26440 




DSA 


FINOOA 


26450 




OSC 
t 


l.» 


26460 


FINOOA 


OSC 


Itl 


26470 




L 

DC 


5,18542 






J8542 


26480 




DC 


3,012 






-12 




26490 




DC 


5,13800 






J3800 


26500 




OSC 
• 




26510 




TCD 


FINDFL 


26520 


lOCAL 


OS 


t716 



13823 




4 




13955 




4 




13967 




4 




13979 




2 




14956 


16 


00565 


J4979 


14968 


49 


00566 


-2729 


14980 


49 


07248 




14988 


16 


00565 


J5011 


15000 


49 


00532 


J5036 


15012 


36 


00000 


00500 


15024 


49 


00000 


00000 


15036 




2 




15042 




5 


X 1 


15042 




J5044 




15043 




1 




15044 




1 




15049 




5 




15052 




3 




15057 




5 




15058 




1 




14988 








00716 




0 




00000 
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AOOBLK 


04286 


DONESF 


11782 


MARVEL 


10684 


_ _ 


10136 


OLD 


10858 


AODRAC 


10656 


DRESTR 


03639 


HAXDI M 


03849 


REPLFL 




DLOAD 


05800 


AORSPL 


04520 


DSEVEN 


09056 


MI ON IT 


09372 






OMODA 


02568 


ALLCLR 


07816 


DUPCRD 


13613 


Mnnnic l 

PIlJUl/IV A 




ArTA A 


?nflnn 


OMPDM 


13411 


ALLRIT 


101 28 


EIGHTS 


Q99g4 




10482 






DONE 


09542 


ALPHAS 


10266 


ENDWRT 


11206 


MO NC AL 


00796 


ACT AC 


09968 


DREPL 


05800 


B2REA0 


09054 




13320 


MON I TR 




ACTAD 


09896 


DUMP 


13426 


BAS ICH 


00796 


EQUDOA 


1 3312 


unoco n 




ACTAG 


09260 


ENTOK 


10362 


BAVADO 


10464 


EQUOIM 


19880 






APTA^l 


09128 


EOUl 


08148 


BAVAIL 


02754 


ERRCYL 


14276 










EQU2 


08156 


BAVCOM 


10432 


ERRSEQ 


12913 






ArrAtr 


09220 


EQUFL 


08100 


BEAUTY 


10592 


EX I TFL 






13244 


Al TED 


1 1282 


EQUIV 


08606 


BLANKT 


10348 


EXITMR 


08624 


MOVESA 


02862 


AMAMP 




ERRD 


02524 


BUTTON 


00455 


FAKSEV 


02852 


nu vc 




An^ 


1 31 18 


ERR 


05662 


CALLNV 


07036 


FILTST 


1 0204 


MOVFLl 




ATMP 


08606 


EXI T2 


09110 


CHOICE 


091 96 


FINALM 


12875 




tnfaA 


ATM 


09042 


EXIT3 


06936 


CLEVER 


04321 










RUB 




EXIT 


10530 


CL I PPP 


02884 


FINOFL 


14988 








02759 


EZEST 


10700 


CLODOA 


13427 


F INOIM 


13117 


MXNOS A 




TAi ra 




FAREA 


13776 


CLOSUP 


137 76 


FINOLF 


15036 


riHouuu 




CALC4 


02783 


FIND 


03838 


CLWDOA 


13435 


c t MnnN 
r I nuun 








CALC5 


08796 


FINOX 


10905 


CNAMES 


098 1 8 


FINDTR 


03906 


NEHOIM 


02963 






FLAG 


06512 


CNTCYL 


13979 


FINDXX 


10913 


NINE12 


13243 






FORT 


13114 


COMCYL 


04986 


FREODA 


13467 


NINENT 


09132 


TAOn 


1 ^non 


FOUND 


03445 


COMFLl 


10148 


FMROOA 


13459 


NI NESC 


05753 


CC02 


1 HAAA 


FPDOA 


13451 


C0MFL2 


101 56 


GETBAK 


05170 




09866 


ceo 




FPOK 


06864 


COMMFL 


07200 


GETLTR 


03016 




07748 




1 4692 


FP 


1 1462 


COMMON 


02853 


GETRTR 


02928 


MnMMnN 


02855 






FPSF 


11642 


COMPFR 


052 74 






nomult 


10030 


CLFP 


06696 


FREAO 


13282 


COMPRS 


12406 


CPMAitK 


131 16 


NONAME 




CL OSE 




FWRIT 


13267 


CONCUO 


099 52 


HOLOCD 


1 3046 








13^5* 


GETL 


02996 


CONSTl 


02801 


Hfli DIM 


10498 


NOSPAC 




CLOSW 


1 3297 


GETR 


02872 


C0NST2 


02807 


INITRO 


09974 


olimit 


10 130 






GORT 


10224 


C0NST3 


05759 


INITSC 


09090 


PATCHl 


12798 


CNPAR 




HERE 


11194 


C0NST5 


02825 


INSOEL 


12278 


PATCH2 


11582 


CNINE 


08810 


HEX 


02795 


C0NST6 


02831 


INSERT 


03414 


PATCH3 


14956 


CNST3 


03578 


HILIM 


13823 


C0NST7 


02837 


INSETR 


03434 


PATCH4 


06216 


CNT 




HDLD2 


13104 


C0NST8 


02870 


KEYNES 


12967 


PKOOOA 


02637 


C0M22 


13343 


HOLDS 


13193 


CORSIZ 


02483 


K SEVEN 


10708 








1 3335 


H0LD4 


13197 


CURREN 


08809 


KYNESS 


11998 


PK2D0A 


02683 


CONFL 




H0LD5 


13139 


CYLOEL 


12462 


LCTEST 


09614 


PK3D0A 


02706 


CQMMl 




H0LD6 


13215 


DIREAD 


13491 


LIMITS 


08666 


PLUSSR 


04194 


C0MM2 


J: 


INCRD 


09274 


D2REA0 


13499 


LISTER 


02764 


QCARRY 


02813 


CONP 


1 niOA 


INCRE 


10246 


03READ 


11286 


LISTES 


02790 


RACKET 


02841 


COUNT 


1 


INITl 


07740 


D4REA0 


1 1294 


LI STET 


02794 


KUnUUM 








INIT2 


08360 


DCFSCR 


13373 


LOADER 


11310 


R nun VP 


02599 


DC22 




INPUT 


13613 


OOASCR 


13483 


LOADFL 










05920 


lOCAL 


00716 


DELETE 


13134 


LOAORE 


072 84 


REOSPO 


04810 


nnAKF 


]i«AAa 


I OCT 


00566 


DELNT5 


09604 


LOADSA 


13102 




04894 


nci 1 




lOPT 


00532 


DIMENT 


19880 


LOAOSC 


13180 


RE0SP2 




0EL2 


05656 


lORT 


00565 


DIMERR 


02485 


LOOPSY 


09024 


RE0SP3 


04942 


OELET 


0 5800 


ISTO 


05956 


DIMHLO 


08822 


LOPEZA 


08747 


REDSPL 


04702 


OELFL 


05600 


KEVE 


05009 


DIMMER 


03672 


LOPEZB 


08770 


REMBLK 


10628 


DELTA 


09375 


KEYl 


08813 


OIMNUM 


13190 


LPSROA 


04514 


REMDEL 


12194 


OISKF 


13388 


KEY5 


08785 


DMPDIN 


13403 


MAINBl 


06364 


REMOTR 


03104 


OISKN 


06340 


KING 


02458 


OMREAD 


02576 


MA1NB2 


06884 


REMOVE 


03084 


DLDCF 


10871 


LGE 


14808 



?9S 
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LIMIT 

LOAOl 

L0A02 

LOLIM 

LOOK 

LOOP 

LSK 

MAINB 

MAMY 

MAPEA 

MAPMA 

MAPRM 

MAP 

MAXSC 

MCAS 

MCSl 

MCS2 

MCS 

MEAT 

MOVER 

MOVFL 

MPT 

MULT2 

MULT 

NOISK 

NERR 

NEVER 

N0200 

NOALF 

NOF 

NOISY 

NONA 

NOMB 



08812 
04448 
04463 
13955 
10690 
13120 
11146 
10370 
09496 
13155 
131 50 
13115 
19880 
13107 
13113 
13514 
13522 
17778 
09292 
08824 
08500 
08636 
09974 
09906 
06848 
03580 
04297 
12566 
09854 
08986 
10380 
08670 
08678 



NOMC 

NOMO 

NOME 

NQNAM 

NOREl 

N0RE2 

NOSAC 

NOSA 

NOTOK 

NTEST 

NTZ 

OKOEL 

PACK 

PAT2 

PHI 

PNAME 

PRE 7 A 

PRE7 

PTEST 

QHOLD 

QUEEN 

R2 

RAKES 

ROSPL 

REAOC 

READ 

RECD 

RELD2 

RELD 

REPLl 

REPL2 

RGE 

RMARK 



11016 
11064 
11072 
11002 
07600 
08300 
10886 
13800 
09634 
13132 
06380 
06148 
02772 
06136 
13130 
13229 
09000 
08638 
13133 
02819 
02466 
08950 
10524 
04594 
10022 
13479 
09174 
08532 
08172 
04448 
04463 
14424 
12911 



R 

RTEST 

SCANl 

SCAN2 

SCANN 

SCERR 

SCOLD 

SCRl 

SCR2 

SCRAD 

SCREM 

SCRKO 

SCROK 

SECT 

SEQ 

SF 

SMALL 

S0L2 

SQL 

SPD 

SPLFL 

SPLftl 

SPLR2 

SPS 

STEAL 

STOMP 

SUBHI 

SUBLQ 

TAC 

TFLG 

THOU 

TIC 

TIPSY 



08754 
13131 
07788 
08408 
09762 
12854 
13967 
13203 
13209 
09298 
13123 
11254 
06588 
10234 
13128 
10094 
14296 
10666 
10658 
10934 
05760 
05808 
05823 
07484 
02845 
03188 
00039 
00010 
09812 
08878 
13096 
09744 
03470 



TRACK 
TREC 
TRREC 
TRWA 
TRHB 
UPDIM 
UPSCA 
VOILA 
WASH 
MR 2 
WROK 
WRT2 
WRT 
YES9 
ZER06 
SCRACH 
SEARFP 
SEQERR 
SETFLG 
SETMAP 
SEVENT 
SFSUCE 
SKNAME 
SPCRED 
SPECAS 
SPLAOD 
SPLCOR 
SPLCYL 
SPLDEL 
SPLEXT 
SPLINI 
SPLINS 
SPLIST 



13776 
06884 
09414 
08739 
08762 
07312 
07892 
08112 
10944 
02259 
06766 
08946 
09022 
12730 
13161 
13186 
07360 
10378 
09122 
10738 
09108 
08600 
09690 
05462 
09152 
04574 
03151 
03187 
12090 
05066 
04470 
10606 
04330 



SPLPKO 
SPLPKl 
SPLPK2 
SPLPK3 
STARDT 
STFLAG 
SUCESS 
SYSCAL 
TELAST 
TESTFP 
THRDDA 
THROWS 
TOPPRO 
TRACK2 
TRACK3 
TRWBUS 
TRWCAR 
TRYAGN 
UPSCAN 
WHIPIT 
WHYNOT 
WITHIN 
WRLAST 
WRMDDA 
WRMOVE 
WRTSPO 
WRTSPl 
WRTSP2 
WRTSP3 
ZER012 
ZER019 
ZEROES 
ZSEVEN 



02645 
02668 
02691 
02714 
05022 
13537 
13118 
00475 
10756 
07576 
02729 
02737 
10812 
17778 
1 3776 
08716 
08693 
04002 
08512 
05346 
03388 
08738 
11842 
02614 
02622 
03268 
03300 
03332 
03364 
13167 
13174 
08806 
09468 



END OF ONE ASSEMBLY. 
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00010 




DORG 


2500 






02500 








00020 


DUMP 


BNF 


DUMPCC«MCS4^23f » 


IS 


CALL FROM SPS, FORTRAN 


02500 


44 


02604 


17801 


00030 




CF 


CONTRO-2 






02512 


33 


13611 


00000 


00040 




TR 


FILA0,402 






02524 


31 


05474 


00402 


00050 




TFM 


FtLA045,0,9 






02536 


16 


05479 


00-00 


00060 




TF 


FILA043f425 






02548 


26 


05477 


00425 


00061 




TO 


FILAD,422 






02560 


25 


05474 


00422 


00070 




TF 


SC,FILA0+8 






02572 


26 


13643 


05482 


00080 




BD 


PAPST, MCS*23 






02584 


43 


03246 


17801 


00090 




B 


CA 






02596 


49 


03190 


00000 


00100 




DORG 


•-4 






02603 








00110 


DUMPCC 


SF 


CONTR0-2»t, 




CALL FROM CONTROL RECORD 


02604 


32 


13611 


00000 


00120 




SF 


TYPE-l 






02616 


32 


13646 


00000 


00130 


• 








DETERMINE TYPE 










00140 




CM 


TYPE, 50, 10 






02628 


14 


13647 


OOONO 


00150 




BH 


LORM 






02640 


46 


02906 


01100 


00160 




CM 


TYPE, 45, 10 






02652 


14 


13647 


000M5 


00170 




BE 


E 






02664 


46 


02738 


01200 


00180 




CM 


TYPE. 49, 10 






02676 


14 


13647 


000M9 


00190 




BE 


I 






02688 


46 


02758 


01200 


00200 




CM 


TYPE, 41, 10 






02700 


14 


13647 


OOOMl 


00210 




BE 


TYPA 






02712 


46 


06494 


01200 


00220 




B 


ERRD-12 






02724 


49 


06080 


00000 


00230 




DORG 


• + 3 






02738 








00240 


E 


TFM 


NUMB.EENT 






02738 


16 


13643 


-0002 


00250 




B 


BL 






02750 


49 


03026 


00000 


00260 




DORG 


• -4 






02757 








00270 


I 


TFM 


NUMB,MENT 






02758 


16 


13643 


-0003 


00280 




B 


Bl 






02770 


49 


03026 


00000 


00290 




DORG 


•-4 






02777 








00300 


SPL 


CM 


TYPE, 62, 10 






02778 


14 


13647 


00002 


00310 




BNE 


ERRD-12 






02790 


47 


06080 


01200 


00320 




SF 


TYPE*1 






02802 


32 


13648 


00000 


00330 




CM 


TYPE+2,73,10 






02814 


14 


13649 


000P3 


00340 




BH 


ERRD-12 






02826 


46 


06080 


OllOO 


00350 




CM 


TYPE+2,70,10 






02838 


14 


13649 


OOOPO 


00360 




BL 


ERRD-12 






02650 


47 


06080 


01300 


00370 




TFM 


NUMB, SENT 






02862 


16 


13643 


-0004 


00380 




TD 


•♦23,TYPE*2 






02874 


25 


02897 


13649 


00390 




AM 


NUMB, 0,10 






02886 


11 


13643 


000-0 


00400 




B 


Bl 






02898 


49 


03026 


00000 


00410 




DORG 


•-3 






02906 








00420 


LORM 


CM 


TYPE, 53,10 






02906 


14 


13647 


000N3 


00430 




BE 


L 






02918 


46 


04634 


01200 


00440 




CM 


TYPE, 54,10 






02930 


14 


13647 


000N4 


00450 




BNE 


SPL 






02942 


47 


02778 


01200 


00460 




SF 


NUMB-7 






02954 


32 


13636 


00000 


00470 




CM 


NUMB,0, 10 






02966 


14 


13643 


000-0 


00480 




BE 


NAME 






02978 


46 


04278 


01200 


00490 




TFM 


T0^6,NUMB-1,, 




CONV MAP NO TO NUMERIC 


02990 


16 


05196 


J3642 


00500 




TFM 


AN-1,»*23 






0 3002 


16 


05165 


-3025 


00510 




B 


AN, NUMB-7, 7 






03014 


49 


05166 


J3636 


00520 


Bl 


TF 


FIN04 23,NUMB,, 




FIND MAP ENTRY 


03026 


26 


05045 


13643 


00530 




TFM 


TR*23,»*23,711 






03038 


16 


05129 


-306J 


00540 




B 


TEMAP,FILAD 






03050 


49 


04974 


05474 


00550 




BNR 


CONT.FILAD 






03062 


45 


03094 


05474 
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PAGE 


00560 


• 


ERROR MAP NO NOT IN 


USE 












00570 




TFM 


0IMERR4^22,0074,8 






03074 


16 


06319 


0-074 


00580 




B 


ERRD 






03086 


49 


06092 


00000 


00590 




DORG 


• -3 






03094 








00600 


CONT 


TF 


SCFtLAO^S,, 




SAVE SC FROM FILAD 


03094 


26 


13643 


05482 


00610 


B2 


SF 


IOD-1 






03106 


32 


13644 


00000 


00620 




CM 


100,57,10, 




OUTPUT DEVICE TEST 


03118 


14 


13645 


000N7 


00630 




BE 


PAPST 






03130 


46 
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03654 


DUNSY 


07098 


L 


04634 


TD3 


03954 






A2 


03770 


EENT 


00002 


MCS 


17778 


TO 


05190 






A3 


03814 


EQUIV 


16000 


MENT 


00003 


TEMAP 


04974 






A4 


03882 


ERMAP 


05294 


NAME 


04278 


TEN 


07436 







END OF ONE ASSEMBLY. 
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00010 ♦•• 
00020 

00030 SUBROUTINES- DIMMER, GETR, GETL , REMOVE , INSERTtFIND 

00040 ••• THIS VERSION OPERATES WITH THE SPL ALWAYS IN CORE TIL JUST 

00050 BEFORE THE RETURN TO THE MONITOR 

00060 »»• 

00070 ••• 



00080 




00 R6 


2458 


02458 








00090 


lOPT 


OS 


,532 


00532 




0 




00100 


lOGT 


OS 


,566 


00566 




0 




OOllO 


lORT 


OS 


,565 


00565 




0 




00120 


OIMMTR 


TF 


CALC2,NEWDIM 


02458 


26 


02613 


09649 


00130 




A 


CALC2,CALC2 


02470 


21 


02613 


02613 


00140 




TF 


CALC3,N48000 


02482 


26 


02608 


02624 


00150 




A 


CALC3,CALC2,,NEW DIN SECTOR ADDRESS 


02494 


21 


02608 


02613 


00160 




TF 


DMREAD>13, DRESTR 


02506 


26 


02601 


02618 


00170 




TO 


•♦23,CALC3 


02518 


25 


02541 


02608 


00180 




SM 


DMREA04l2,0tl0, ADJUST DIM READER S A 


02530 


12 


02600 


000-0 


00190 




TF 


DMREA0*5,CALC3-l 


02542 


26 


02593 


02607 


00200 




TFM 


I0RT,«*23 


02554 


16 


00565 


-2577 


00210 




B 


I0GT,DM0DA,7 


02566 


49 


00566 


-2580 


00220 




BB 




02578 


42 


00000 


00000 


00230 




DORG 


• -9 


02580 








00240 


DHDDA 


DSC 
22 


2,22,,0DA FOR DIMMER-READS ONE SECTOR 


02580 




2 




00250 




OS A 


DMREAO 


02586 




5 


X I 










02586 




-2588 




00260 




DSC 
• 


If* 


02587 




I 




00270 


DMREAD 


DSC 
0 


1*0 


02588 




1 




00280 




DC 


5,0 


02593 




5 








-0000 










00290 




DC 




02596 




3 








-01 












00300 




DC 


5,19900 


02601 




5 








J9900 










00310 




DSC 


If* 


02602 




1 




00320 


CALC3 


DC 


6,0 


02608 




6 








-00000 










00330 


CALC2 


X 


5,0 


02613 




5 








-OOOQ 










00340 


DRESTR 


DC 


5, 19880,, RESTORES CORE ADDRESS FOR DIM ODA 


02618 




5 








J9880 










00350 


N 48000 


DC 


6, 048000,, FIRST SECTOR OF DIM MAP 


02624 




6 








-48000 










00360 


CQRSI2 


DC 


3,080,, THE PRESENT LENGTH OF THE SPL 


026^7 




3 








-80 










00370 


THRDDA 


OSC 
02 


2,02,, DDA FOR SAVING CORE WHEN MOVING THE EQV. TABLE 


02628 




2 




00380 




OS A 


THROWS 


02634 




5 


X 1 










02634 




-2636 




00390 




DSC 


1»* 


02635 




1 
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2 



00400 


THROWS 


DSC 
0 


IfO 








02636 




1 








DC 


5(02000 








02641 




5 








-2000 
















00420 




DC 


3,100 








02644 




3 








JOO 


















00430 




DC 


5,09800 








02649 




5 








-9800 
















00440 




DSC 


If* 








02650 




1 




00450 


OIMERR 


DAC 


13,0UP»ERR0R 00" 








02653 




13 


X 2 






DUP* ERROR 00 • 
















00460 




TFM 


0IMERR^22,0071t8 








02678 


16 


02675 


0-071 


00470 


ERRD 


RCTY 










02690 


34 


00000 


00102 






WATY 


DIMERR 








02702 


39 


02653 


00100 


00490 




H 










02714 


48 


00000 


00000 


00500 




B 


796,,,M0NCAL 








02726 


49 


00796 


00000 






DORG 


•-3 








02734 








00520 


PKODOA 


DSC 


2,22,, DDA FOR SPL 


ON 


MODULE 


ZERO 


02734 




2 








22 


















00530 




OS A 


SPLPKO 








02740 




5 


X 1 
















02740 




-2742 




00540 




DSC 
• 


l.« 








02741 




1 




00550 


SPLPKO 


DSC 
1 


Ifl 








02742 




1 




00560 




DC 


5,19801 








02747 




5 








J9801 
















00570 




DC 


3,100 








02750 




3 








JOO 


















00580 




DC 


5,09800 








02755 












-9800 
















00590 




DSC 
1 


!»• 








02756 




1 




00600 


PKIODA 


DSC 


2,22,, DDA FOR SPL 


ON 


MODULE 


ONE 


02757 




2 








22 


















00610 




OS A 


SPLPKL 








02763 




5 


X 1 
















02763 




-2765 




00620 




DSC 
• 


l,« 








02764 




1 




00630 


SPLPKI 


DSC 


1.3 








02765 




1 




00640 




3 

DC 


5,39801 








02770 




5 








L9801 
















00690 




DC 


3,100 








02773 




3 








JOO 


















00660 




DC 


5,09800 








02778 




5 








-9800 
















00670 




DSC 
1 


l.» 








02779 




1 




00680 


PK200A 


DSC 


2t22«, ODA FOR SPL 


ON 


MODULE 


TMO 


02780 




2 








22 


















00690 




OS A 


SPLPK2 








02786 




5 


X 1 



8)^ 
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02786 


-2788 


00700 




DSC 1 , • 
• 


02787 


1 


00710 


SPLPK2 


DSC 1,5 
5 


02788 




00720 




DC 9,59801 


02793 


5 






N9801 






00730 




DC 3,100 


02796 


3 






JOO 






00740 




DC 5,09800 


02801 


5 






-9800 






00750 




OSC I,* 
• 


02802 


1 


00760 


PK3D0A 


OSC 2,22ff, DOA FOR SPL ON MODULE THREE 


02803 


2 






22 






00770 




OS A SPLPK3 


02809 


5 X 








02809 


-2811 


00780 




DSC l,« 


02810 


I 


00790 


SPLPK3 


DSC 1,7 


02811 


I 


00800 




7 

DC 5,79801 


02616 


5 






P9801 






00810 




DC 3,100 


02819 


3 






JOO 






00820 




DC 5,09800 


02824 


5 






-9800 






00830 




OSC It* 

• ' 


02829 


1 


00840 


CLEVER 


DC 2,0 
-0 


02827 


2 


00850 


BAVAIL 


00 3t0,,0TAL BLANKS FOUND IN MOVE 


02830 


3 






-00 






00860 


FOUND 


DC 5,0,, FINDS SECTOR TOTAL 


02835 


5 






-0000 






00870 


ADR SPL 


DC 5,0 ADDRESS OF THE SPLIST CORE SEARCH POINT 


02840 


5 






-0000 






00880 


SPLCYL 


DC 5,0, •CYLINDER SPL 


02845 


5 






-0000 






00890 


SPLCOR 


DC 5,0,, DIM ADDRESS SPL 


02890 


5 






-0000 






00900 


REPACK 


OC 2,0 

-0 


02852 


2 


00910 


UNPACK 


DC 2,0 

-0 


02854 




00920 




DC 1,0,, PACK CONTINUED 


02855 


I 


00930 


PACK 


DC 1,9,, PACK NUM FOR SPLIST 


02896 


1 


00940 




R 

DC 1,» 
• 


02857 


I 


00950 


CALC9 


DC 6,0 


02863 


6 






-00000 






00960 


CALC4 


DC 4,0,, CALCULATION AREA 


02867 


4 
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00970 


HEX ' 


DSC 
0 


If 0 




02868 




1 




00980 


CONSTl 


DC 


6,0ftWURK AREAS 




02874 




6 








-00000 












00990 


C0NST2 


DC 


6,0«, 




02880 




6 








-00000 












01000 


CJCARRY 


DC 


6,0,»WHERE TO LOAD NEXT MOVED SECTORS 




02886 




6 








-00000 












01010 


QHOLO 


DC 


6»0 




02892 




6 








-00000 












01020 


C0NST5 


DC 


6,0 




02898 




6 








-00000 












01030 


C0NST6 


DC 


6tO 




02904 




6 








-00000 












01040 


C0NST7 


DC 


6tO 




02910 




6 








-00000 












01050 


RACKET 


DC 


4,0. » ACCUMULATES 200 SECTORS FOR A CYLINDER 




02914 




4 








-000 














01060 


STEAL 


DC 


4,0 




02918 




4 








-000 














01070 


CALC7 


DC 


3,0 




02921 




3 








-GO 














01080 


FAKSEV 


DC 


4,0,, HAS SEVEN FROM LISTER 




02925 




4 








-000 














01090 


COMMON 


DC 


1.0 




02926 




1 




01100 


NOMMON 


DC 


2.0 




02928 




2 




OHIO 


NOSECA 


-0 
DC 


1.0 




02929 




1 




01120 


C0NST8 


DC 


5.0 




02934 




5 








-0000 












01 130 


ERRRIT 


TFM 


DIMERR-f22t7l79.8 




02936 


16 


02675 


0P179 


01140 




B 


ERRD 




02948 


49 


02690 


00000 


01 150 




DORG 


•-3 




02956 








01 160 


















01170 


SUBROUTINE-GETR SHIFTS ONE TO RIGHT IN SPL 












01180 


















01 190 


GETRTR 


TF 


CALC2.SPLC0R,, LEFT PRESENT SPL C.A. 




02956 


26 


02613 


02850 


01200 




AM 


SPLC0R,04.10. LEFT END NEW ENTRY 




02968 


11 


02850 


000-4 


01210 




SF 


SPLC0R..6.NEW FLAG 




02980 


32 


0285- 


00000 


01220 




AM 


CALC2,07,10.RIGHT END OF NEM ENTRY 




02992 


11 


02613 


000-7 


01230 




TF 


LISTER, CALC2tll 




03004 


26 


09654 


0261L 


01240 




CF 


SPLC0R..6 




03016 


33 


0285- 


00000 


01250 




SB 






03028 


42 


00000 


00000 


01260 




DORG 


•-9 




03030 








01270 


• •• 
















01280 


• •* 


5UBR0UTINE-GETL SHIFTS ONE TO LEFT IN THE SPL 












01290 


















01300 


GETLTR 


TF 


CALC2,SPLC0R 




03030 


26 


02613 


02850 


01310 




SM 


SPLC0R.04.10,FELT END OF NEW ENTRY 




03042 


12 


02850 


000-4 


01320 




SF 


SPLC0R»t6. 




03054 


32 


0285- 


00000 


01 330 




SM 


CALC2.01.I0tRIGHT END NEW ENTRY 




03066 


12 


02613 


000—1 


01340 




TF 


LISTER,CALC2.11 




03078 


26 


09654 


0261L 


01350 




CF 


SPLC0R..6 




03090 


33 


0285- 


00000 


01360 




BB 






03102 


42 


00000 


00000 










go 
















1620 MONITOR 11 DUP ROUTINE •OEFIN 
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01370 




DORG 


•-9 




03104 








01380 


















01390 




SUBROUTINE-REMOVE REMOVES AN ENTRY FROM SPL 












01400 


• •• 
















01410 


REMOTR 


TF 


CALC2.SPLC0R 




03104 


26 


02613 


02650 


01420 




AM 


CALC2.04.10. 




03116 


11 


02613 


000-4 


01430 




TR 


SPLC0R,CALC2,611.CL0SES HOLE 




03128 


31 


0285- 


0261L 


01440 




SF 


SPLC0R,,6 




03140 


32 


0285- 


00000 


01450 




SM 


CALC2.01,10 




03152 


12 


02613 


000-1 


01460 




TF 


LISTER. CALC2.ll 




03164 


26 


09654 


0261L 


01470 




CF 


SPLC0R..6 




03176 


33 


0285- 


00000 


01480 




BB 






03188 


42 


00000 


00000 


01490 




DORG 


•-9 




03190 








01500 


• •• 
















01510 


• •• 


SUBROUTINE-INSERT INSERTS AN ENTRY IN THE SPL 












01520 


• •• 
















01530 


INSETR 


SF 


SPLCOR.,6 




03190 


32 


0285- 


00000 


01540 




TFM 


•♦35,09800,7 




03202 


16 


03237 


-9800 


01550 




AM 


•♦23,04.10 




03214 


11 


03237 


000-4 


01560 


TIPSY 


BNR 


•-12,99999.. FINDS RECORD MARK IN SPL 




03226 


45 


03214 


99999 


01570 




TF 


C0NST2.TIPSY+11 




03238 


26 


02880 


03237 


01580 




AM 


C0NST2. 04,10 




03250 


11 


02880 


000-4 


01590 




TF 


C0NST3.C0NST2,. 




03262 


26 


05130 


02880 


01600 




SM 


C0NST3. 09800.7 




03274 


12 


05130 


-9800 


01610 




C 


C0NST3-2.C0RSIZ.. IS THERE ROOM FOR ANOTHER 


ENTRY 


03286 


24 


05128 


02627 


01620 




BL 


NERR 




03298 


47 


03354 


01300 


01630 




RCTY 






03310 


34 


00000 


00102 


01640 




WNTY 


PACK 




03322 


38 


02856 


00100 


01650 




TFM 


DIMERR^22, 7178.8, THE SPL IS FULL MESSAGE 




03334 


16 


02675 


0P178 


01660 




B 


ERRO 




03346 


49 


02690 


00000 


01670 




DORG 


•-3 




03354 








01680 


NERR 


TF 


C0NST2,TIPSY+11.61l. OPENS A HOLE IN THE LIST 


03354 


26 


0288- 


0323P 


01690 




TF 


CALC2,SPLC0R 




03366 


26 


02613 


02850 


01700 




AM 


CALC2, 03,10 




03378 


11 


02613 


000-3 


01710 




TF 


CALC2,LISTET.6 




03390 


26 


0261L 


09665 


01720 




CF 


SPLCOR.,6. 




03402 


33 


0285- 


00000 


01730 




AM 


SPLCOR.4.10. 




03414 


11 


02850 


000-4 


01740 




CF 


SPLC0R,,6 




03426 


33 


0285- 


00000 


01750 




BB 






03438 


42 


00000 


00000 


01760 




DORG 


•-9 




03440 








01770 


• •• 
















01780 




SUB ROUTINE- Ft NO GIVEN A SECTOR ADDRESS THE LISTER 










01790 




IS INITIALIZED TO COVER THAT ADDRESS 












01800 


• •• 
















01810 


FINOTR 


CF 


LISTES-4 




03440 


33 


09657 


00000 


01820 




SF 


LlSTES-5 




03452 


32 


09656 


00000 


01830 




TF 


19885,LISTES, .ACCEPTS SECTOR ARGUMENT 




03464 


26 


19885 


09661 


01840 




B 


SPL I ST 




03476 


49 


03956 


00000 


01850 




DORG 


•-3 




03484 








01860 


SPL EXT 


MM 


SPLC0R,200,69, RETURNS WITH CYLINDER IN LISTER 


03484 


13 


0285- 


OOKOO 


01870 




SF 


95 




03496 


32 


00095 


00000 


0188.0 




TF 


ADRSPL,99 




03508 


26 


02840 


00099 


01890 




SM 


A0RSPL,01,10 




03520 


12 


02840 


000-1 


01900 




MM 


LISTES-4, 05, 10 




03532 


13 


09657 


000-5 


01910 




TOM 


LISTES-4, 1,11 




03544 


15 


09657 


OOOOJ 


01920 




BD 


•♦24,99 




03556 


43 


03580 


00099 
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01930 




TDM 


L ISTES-4,0, 11 


03568 


15 


09657 


0000- 


01940 




SM 


SPLC0R»03tl0fSET AT HIGH ORDER OF LIST IN CORE 


03580 


12 


02850 


000-3 


01950 




CF 


SPLC0R,,6 


03592 


33 


0285- 


00000 


01960 


TRYAGN 


TF 


CALC2,SPLC0Rt t LEFT PRESENT SPL C.A. 


03604 


26 


02613 


02850 


01970 




AM 


SPLCGRt04» 10» LEFT END NEW ENTRY 


03616 


11 


02850 


000-4 


01960 




SF 


SPLCORt t6tNEW FLAG 


0362B 


32 


0285- 


00000 


01990 




AM 


CALC2t07f 10«RIGHT END OF NEW ENTRY 


03640 


11 


02613 


000-7 


02000 




TF 


LlSTERtCALC2tll 


03652 


26 


09654 


0261L 


02010 




CF 


SPLC0Rfft6 


03664 


33 


0285- 


00000 


02020 




CM 


LISTER-3»9t toil 


03676 


14 


09651 


000-R 


02030 




BE 


AODBLK 


03688 


46 


03912 


01200 


02040 




CM 


L ISTERt0001»8t IF WORK AREA EXIT 


03700 


14 


09654 


0-001 


02050 




BE 


PLUSSR*24 


03712 


46 


03892 


01200 


02060 




TF 


NEWOIMtLISTER 


03724 


26 


09649 


09654 


02070 




BT 


DIMMERtOIMMER-*! 


03736 


27 


09600 


09599 


02080 




TDM 


I9880t0tll 


03748 


15 


19880 


0000- 


02090 




MM 


19881 fOSf 1011 


03760 


13 


19881 


000-N 


02100 




TDM 


19881f Itll 


03772 


15 


19881 


OOOOi 


02110 




BD 


«-*-24t99ft ^MATCH-UP THE TENTHOUSANOS POSITION 


03784 


43 


03808 


00099 


02120 




TOM 


19881t0tll 


03796 


15 


19881 


0000- 


02130 




SM 


19885ff01tl0 


03808 


12 


19885 


000-1 


02140 




s 


19885tADRSPL 


03820 


22 


19885 


02840 


02150 




BE 


• ♦24 


03832 


46 


03856 


01200 


02160 




A 


ADRSPLf 19885t9SUBTRACTS THE BACKFLOW 


03844 


21 


02840 


19885 


02170 




A 


ADRSPLt 198889 9 ADD THE SECTOR COUNT TO SECTOR POSITION 


03856 


21 


02840 


19888 


02180 


PLUSSR 


C 


ADRSPL,LISTES 


03868 


24 


02840 


09661 


02190 




BL 


TRYAGN 


03880 


47 


03604 


01300 


02200 




TF 


FOUND, ADRSPL 


03892 


26 


02835 


02840 


02210 




B 


GOONY 


03904 


49 


09638 


00000 


02220 




DORG 


•-3 


03912 








02230 


AODBLK 


SF 


LISTER-2,,, ADD THE BLANK SECTOR COUNT 


03912 


32 


09652 


00000 


02240 
















02250 


• 1 


ROUTINE FOR LOCATING THE CORRECT SPL IN CORE AND 










02260 


• 1 


DIRECTING THE LISTER TO THE CORRECT CYLINDER ENTRY 










02270 
















02280 




A 


ADRSPLtLISTER 


03924 


21 


02840 


09654 


02290 




CF 


LISTER-2 


03936 


33 


09652 


00000 


02300 




B 


PLUSSR 


03948 


49 


03868 


00000 


02310 




00 RG 


• -3 


03956 








02320 


SPLIST 


TOM 


19880. • 11 f FLAG ZERO 


03956 


15 


19880 


0000- 


02330 




MM 


19885,05,10 


03968 


13 


19885 


000-5 


02 340 




SF 


94,,, DESIRED CYLINDER 


03980 


32 


00094 


00000 


02350 




SF 


93 


03992 


32 


00093 


00000 


02360 




TO 


STARDT+10,95 


04004 


25 


04174 


00095 


02370 




TO 


STARDT+11,96 


04016 


25 


04175 


00096 


02380 




TF 


REPACK, 94 


04028 


26 


02852 


00094 


02390 




MM 


LISTES-5,05,10 


04040 


13 


09656 


000-5 


02400 




BD 


• 4^32, 99,, SIGNIFICANT OVERRIDE CODE 


04052 


43 


04084 


00099 


02410 




TF 


94, REPACK 


04064 


26 


00094 


02852 


02420 




B 


REOSPL 


04076 


49 


04220 


00000 


02430 




00 RG 


•-3 


04084 












MM 


LI STES-5, 50006979 GENERATE PROPER MODULE FROM OVER IDE CODE 


04084 


13 


09656 


NOOOO 


02450 




SF 


94 


04096 


32 


00094 


00000 


02460 




B 


REOSPL 


04108 


49 


04220 


00000 


02470 




OORG 


•-3 


04116 








02480 


SPLINI 


TFM 


ADRSPL ,09800 


04116 


16 


02840 


-9800 
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02490 


CLUCK 


SF 


ADRSPL, 96 


04128 


32 


0284- 


00000 


02500 




TF 


SPLCOR9ADRSPL 


04140 






02840 


02510 




AM 


SPLC0R,039l0 


04152 


11 


02850 




02520 


STAROT 


CM 


SPLCOR9 7000,68, FIND THE CORRECT CYLINDER ENTRY 


04164 


14 


0285- 


OPOOO 


02530 




BE 


SPLEXT 


04176 


46 


03484 


01200 


02540 




CF 


ADRSPL,, 6 


04188 


33 


0284— 


nnnnn 


02550 




AM 


ADRSPL, 04, 10 


04200 




02840 


000—4 


02560 




B 


CLUCK 


04212 


49 


04128 




02570 




OORG 


•-3 


04220 






02580 




ROUTINE TO WRITE BACK LIST ALREADY IN CORE IF NECESSARY 








02590 


REOSPL 


C 


94, PACK 


04220 


24 


00094 


02856 


02600 




BE 


SPLINI 


04232 


46 


04116 


01200 


02610 




CM 


PACK, 09,1011, FIRST TRIP 


04244 








02620 




TF 


UNPACK, 94 


04256 


26 


02854 


00094 


02630 




BE 


SPORT 


04268 


46 


04480 


01200 


02640 




CM 


PACK, 00, 1011, PACK ZERO 




14 


02856 


000— 


02650 




BE 


WRTSPO 


04292 


46 


04360 


01200 


02660 




CM 


PACK,01,1011»PACK ONE 


04304 


14 


02856 




02670 




BE 


WRTSPl 


04316 


46 


04392 


01200 


02680 




CM 


PACK,029l01I, PACK TWO 




14 


02 856 


000— K 


02690 




BE 


WRTSP2 


04340 




04424 




02700 




B 


WRTSP3,,, PACK THREE 


04352 


49 


04456 


00000 


02710 




OORG 


•-3 


04360 






02720 


WRTSPO 


TFM 


I0RT9*-t-23 




16 




—4383 


02730 




B 


I OPT, PK ODD A, 7 


04372 


49 


00532 


-2734 


02740 




B 


SPORT 


04384 


49' 


04480 


00000 


02750 




OORG 


•-3 


04392 






02760 


WRTSPl 


TFM 


I0RT,t423 




16 


00565 


—441 5 


02770 




B 


I0PT,PK1DDA,7 


04404 


49 


00532 


-2757 


02780 




B 


SPORT 


04416 


49 


04480 


00000 


02790 




DORG 


•-3 






02800 


NRTSP2 


TFM 


I0RT,t«23 


04424 


16 


00565 


—4447 


02810 




B 


I0PT,PK2D0A,7 


04436 


49 


00532 


-2780 


02820 




B 


SPORT 


04448 


49 


04480 


noonn 


02830 




OORG 


♦-3 


04456 






02840 


HRTSP3 


TFM 


I0RT,»+23 


04456 


16 


00565 


-4479 


02850 




B 


I0PT,PK30DA,7 


04468 


49 


00532 


—2803 


02860 


• •• 1 


ROUTINE TO BRING IN DESIRED SPL IF NOT ALREADY IN CORE 






02870 


SPORT 


TF 


PACK, UNPACK,, SAVE PACK NUM 


04480 


26 


02856 


02854 


02880 




TO 


CLEVER, LISTES-4 


04492 


25 






02890 




SF 


CLEVER 


04504 


32 


02827 


00000 


02900 




MM 


LISTES>4,05,10 


04516 








02910 




BD 


•♦24,99 


04528 


43 


04552 


00099 


02920 




SM 


CLEVER, 01, 10 


04540 


12 


02827 




02930 




CM 


PACK, 0,1011, PACK ZERO 


04552 


14 


02856 


000—— 


02940 




BE 


REDSPO 


04564 


46 






02950 




CM 


PACK, 1,1011, PACK ONE 


04576 


14 


02856 




02960 




BE 


REDSPl 






04712 


01200 


02970 




CM 


PACK, 2, 1011, PACK TWO 


04600 


14 


02856 


000-K 


02980 




BE 


REDSP2 


04612 


46 


04756 


01200 


02990 


ReDSP3 


TO 


SPLPKS^l, CLEVER 


04624 


25 


02812 


02827 


03000 




TFM 


I0RT,«-»-23 


04636 


16 


00565 


-4659 


03010 




B 


I0GT,PK300A,7 


04648 


49 


00566 


-2803 


03020 




B 


SPLINI 


04660 


49 


04116 


00000 


03030 




OORG 


•-3 


04668 








03040 


REDSPO 


TO 


SPLPKO+1, CLEVER 


04668 


25 


02743 


02827 
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03050 




TFM 


I0RT,»*23 




04680 


16 


00565 


-4703 


03060 




B 


IOGr»PK0DDA»7 




04692 


49 


00566 


-2734 


03070 




B 


SPLINI 




04704 


49 


04116 


00000 


03080 




DORG 


• -3 




04712 








03090 


REDSPl 


TD 


SPLPKl+l, CLEVER 




04712 


25 


02766 


02827 


03100 




TFM 


lORTf •♦23 




04724 


16 


00565 


-4747 


03110 




B 


I0GTtPKlDDAt7 




04736 


49 


00566 


-2757 


03120 




B 


SPLINI 




04748 


49 


04116 


00000 


03130 




DORG 


•-3 




04756 








03U0 


REDSP2 


TD 


SPLPK24-1, CLEVER 




04756 


25 


02789 


02827 


03150 




TFM 


I0RT,*«23 




04768 


16 


00565 


-4791 


03160 




B 


I0GT,PK2DDA«7 




04780 


49 


00566 


-2780 


03170 




B 


SPLINI 




04792 


49 


04116 


00000 


03160 




DORG 


•-3 




04800 








03190 


• 1 


ROUT II 


JiE TO LOAD THE SACRED SIX TO DISK WHEN LOADING FROM 


CARDS 










03200 


SPLFL 


TFM 


I0RTt»^23 




04800 


16 


00565 


-4823 


03210 




B 


I0PT,SPLR2,7 




04812 


49 


00532 


-4863 


03220 




TRA 






04824 


36 


00000 


00500 












04836 


49 


00000 


00000 


03230 


SPLRl 


DSC 


Itl 




04848 




1 




03240 




1 

DC 


5.19338 




04853 




5 








J9338 












03250 




DC 


3,025 




04856 




3 








-25 














03260 




DC 


5,02458 




04861 




5 








-24'>8 












03270 




DSC 


1,» 




04862 




1 




03280 


SPLR2 


DSC 


2.22 




04863 




2 








22 














03290 




DSA 


SPLRl 




04869 




5 


X 1 












04869 




-4848 




03300 




DSC 


l.» 




04870 




1 




03310 




TCD 


SPLFL 




04800 








03320 


••• 
















03330 


• 




DDDD EEEEE FFFFF III N N EEEEE 












03340 


• 




0 00 E F I NN N E 












03350 


• 




0 D EEEE FFFF I N N N EEEE 












03360 


• 




0 DD E F I N NN E 












03370 


• 




DDDD EEEEE F III N N EEEEE 












03380 


• •• 
















03390 




THE DEFINE PROGRAM FOR REDEFINING THE SYSTEM PARAMETERS 












03400 


















03410 




DORG 


5000 




05000 








03420 




TDM 


13775.00000 




05000 


15 


13775 


00000 


03430 




DC 
• 


l.»,» 




05011 




1 




03440 




TR 


9336. 13612, t TRANSMIT THE DEFINE CONTROL CARD 




05012 


31 


09336 


136L2 


03450 




TFM 


I0RT,«4^23 




05024 


16 


00565 


-5047 


03460 




B 


I0GT,SLtPRY,7. BRING IN THE SECONDARY LINKAGE 




05036 


49 


00566 


-5056 


03470 




B 


DFINE 




05048 


49 


05174 


00000 


03480 




DORG 


•-3 




05056 
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03490 


SLIPRY 


DSC 


2»22., DDA FOR THE SACRED SIX SECONDARY LINKAGE 




05056 




2 








22 














03500 




DSA 


TABC 




05062 




5 


X 1 












05062 




-5064 




03510 




DC 
• 


It* 




05063 




1 




03520 


TABC 


DSC 


Itl 




05064 




I 




03530 




1 

DC 


Sfl8197 




05069 




5 








J8197 












03540 




DC 


3,003 




05072 




3 








-03 














03550 




DC 


6,09500* 




05078 




6 








-9500' 












03560 


TRWSLD 


DSC 


2,22,, DDA FOR SHIFTING THE EQUIVALENCE LIST 




05079 




2 








22 














03570 




DSA 


SLOEQV 




05085 




5 


X 1 












05085 




-5087 




03580 




DC 
• 


l.» 




05086 




1 




03590 


SLOEQV 


DSC 
0 


1.0 




05087 




1 




03600 




DC 


5.0 




05092 




5 








-0000 












03610 




DC 


3.060 




05095 




3 








-60 














03620 




DC 


5.09800 




05100 




5 








-9800 












03630 




DC 


lt« 




05101 




1 




03640 


TRWTLO 


OSC 


2,02.. DDA FOR SHIFTING THE EQUIVALENCE LIST 




05102 




2 








02 














03650 




OSA 


TLDEQV 




05108 




5 


X 1 












05108 




-5110 




03660 




DC 






05109 




1 




03670 


TLDEQV 


OSC 






05110 




I 




03680 




0 

DC 


5.0 




05115 




5 








-0000 












03690 




DC 


3,060 




05118 




3 








-60 














03700 




DC 


5.09800 




05123 




5 








-9800 












03710 




DC 






05124 




1 




03720 


CaNST3 


DC 


6.0 




05130 




6 








-ooboo 












03730 


ZEROES 


DC 


10,0 




05140 




10 








-000000000 












03740 




DSC 


2,0., EXTENSION OF ZEROES 




05141 




2 








00 














03750 


CURREN 


DC 


3,0 




05145 




3 





-00 
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03760 


LIMIT 


DC 


3,099 


05148 




3 








""99 












03770 


KEYS 


DSC 
0 


IfO 


05149 




1 




03780 


OUPCRO 


DSS 


162t9337 


09337 




162 




03790 


SARB 


OSC 
22 


2.22,, DDA FOR COMMUNICATION SECTOR ON DISK 


05150 




2 




03800 




DSA 


SARC 


051S6 




5 


X 1 










05156 




-5158 




03810 




DC 




05157 




1 




03820 


SARC 


DSC 


Itl 


05158 




1 




03830 




1 

DC 


5,19639 


05163 




5 








J9639 










03840 




DC 


3,001 


05166 




3 




03850 




-01 
DSA 


DFINE 


05171 




5 


X 1 










05171 




-5174 




03860 




DC 


1, • 


05172 




1 




03870 


DFINE 


TFM 


NEWDIM, 0004,8 


05174 


16 


09649 


0-004 


03880 




BT 


DIMMER, OIMMER-1 


05186 


27 


09600 


09599 


03890 




TF 


CORSIZ, 19888 


05198 


26 


02627 


19888 


03900 




TO 


CALC9,0UPCRD>22,, STARTING SECTOR FOR WORK AREA 


05210 


25 


02863 


09359 


03910 




TO 


CALC9-1,0UPCRD^20 


05222 


25 


02862 


09357 


03920 




TD 


CALC9-2,0UPCRD+18 


05234 


25 


02861 


09355 


03930 




TO 


CALC9-3,0UPCRD-M6 


0 5246 


25 


02860 


09353 


03940 




TD 


CALC9-4,0UPCR0«14 


05258 


25 


02859 


09351 


03950 




TD 


CALC9-5,0UPCR0*12 


05270 


25 


02858 


09349 


03960 




SF 


CALC9-5 


05282 


32 


02858 


00000 


03970 




SF 


OUPCRD^Il 


05294 


32 


09348 


00000 


03980 




C 


DUPCRD>22,2ER0ES^2,, HAS THIS FIELD BLANK 


05306 


24 


09359 


05142 


03990 




BNE 


SANDOR 


05318 


47 


05402 


01200 


04000 




TFM 


NEWDIM, 0001,8 


05330 


16 


09649 


0-001 


04010 




BT 


DIMMER, OIMMER-1,, BRING IN WORK AREA DIM 


05342 


27 


09600 


09599 


04020 




TF 


CALC9, 19885 


05354 


26 


02863 


19885 


04030 




CF 


CALC9-4 


05366 


33 


02859 


00000 


04040 




TO 


CALC9-5, 19880 


05378 


25 


02856 


19880 


04050 




SF 


CALC9-5 


05390 


32 


02858 


00000 


04060 


SANDOR 


MM 


CALC9,05,9,USE0 FOR CYLINDER NUMBER ALSO 


05402 


13 


02863 


00-05 


04070 




BD 


ERR0R1,97,,IS START OF SCRATCH AT BEGINNING OF CYLINDER 


05414 


43 


05698 


00097 


04080 




BD 


ERR0R1,98,, 


05426 


43 


05698 


00098 


04090 




BD 


ERR0R1,99,, 


05438 


43 


05698 


00099 


04100 


LENSCT 


TD 


CALC4-1,DUPCRD«30,, NUMBER OF CYLINDERS REQUESTED 


05450 


25 


02866 


09367 


04110 




TO 


CALC4-2,DUPCR0^2B 


05462 


25 


02865 


09365 


04120 




TO 


CALC4-3,DUPCRD>26 


05474 


25 


02864 


09363 


04130 




SF 


CALC4-2 


05486 


32 


02865 


00000 


04140 




SF 


DUPCRD+25 


05498 


32 


09362 


00000 


04150 




C 


DUPCR04-30,ZER0ES-4,, HAS THIS FIELD BLANK 


05510 


24 


09367 


05136 


04160 




BNE 


ENUFF 


05522 


47 


06026 


01200 


04170 




C 


DUPCRD^22.ZER0ES4-2 


05534 


24 


09359 


05142 


04180 




BE 


ESOR 


05546 


46 


06530 


01200 


04190 




TFM 


NEHDIM.OOOl.B 


05558 


16 


09649 


0-001 



Sl1 
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04200 




BT 


OtMMER,OIMMER-l 


05570 


27 


09600 


09599 


04210 




TF 


CALC4-l,I9888tf SAVE OLD CYLINDER COUNT 


05S82 


26 


02866 


19888 


04220 




SF 


CALC4-2 


05594 


32 


02865 


00000 


04230 


PKROOM 


TF 


CURREN, LIMIT 


05606 


26 


05145 


05148 


04240 




SF 


CURREN-1 


05618 


32 


05144 


00000 


04250 




SF 


95 


05630 


32 


00095 


00000 


04260 




S 


CURREN»96,, TO FIND ALLOWABLE CYLINDERS LEFT 


05^42 


22 


05145 


00096 


04270 




C 


CALC4-I, CURREN 


05654 


24 


02866 


05145 


04280 




BNH 


ROMENF 


05666 


47 


05718 


01100 


04290 




TFM 


0IMERR+22,7l73f8 


05678 


16 


02675 


0P173 


04300 




B 


ERRD 


05690 


49 


02690 


00000 


04310 




00 RG 


•-3 


05698 








04320 


ERROR 1 


TFM 


0IMERR4-22,7172,8 


05698 


16 


02675 


0P172 


04330 




B 


ERRD 


05710 


49 


02690 


00000 


04340 




DORG 


•-3 


05718 








04350 


»♦ 1 


HILL 


THERE BE ENOUGH ROOM TO MOVE THE HORKING AREA 










04360 


ROMENF 


TF 


LISTES,CALC9 


05718 


26 


09661 


02863 


04370 




TFM 


RLGONE*30,»*20 


05730 


16 


09644 


-5750 


04380 




B 


FIND 


05742 


49 


09540 


00000 


04390 




DORG 


•-3 


05750 








04400 




TFM 


ADRSPL,00,10 


05750 


16 


02840 


000-0 


04410 


SCRASN 


CM 


LISTER, 9200, 8, IS THIS AREA AVAILABLE 


05762 


14 


09654 


OR200 


04420 




BE 


• ♦36 


05774 


46 


05810 


01200 


04430 




CM 


LISTER, 0001, 8 


05786 


14 


09654 


0-001 


04440 




BNE 


ERR23 


05798 


47 


06282 


01200 


04450 




AM 


ADRSPL,01,10 


05810 


11 


02840 


000-1 


04460 




C 


ADRSPL,CALC4-1,, HAVE ENOUGH CYLINDERS BEEN FOUND 


05822 


24 


02840 


02B66 


04470 




BE 


FIXEQV 


05834 


46 


05878 


01200 


04480 




BT 


GETR,GETR-l 


05846 


27 


09520 


09519 


04490 




BT 


6ETR,GETR-1 


05858 


27 


09520 


09519 


04500 




B 


SCRASN 


05870 


49 


05762 


00000 


04510 




DORG 


•-3 


05878 








04520 


FIXEQV 


TFM 


NEWDIM, 1,8, SCRATCH ENTRY 


05878 


16 


09649 


0-001 


04530 




BT 


DIMMER, OIMMER-1 


05890 


27 


09600 


09599 


04540 




TF 


LISTES, 19885 


05902 


26 


09661 


19885 


04550 




TD 


LISTES-5,19880 


05914 


25 


09656 


19880 


04560 




TFM 


RLG0NE^30,*«20 


05926 


16 


09644 


-5946 


04570 




B 


FIND 


iD5938 


49 


09540 


00000 


04580 




DORG 


•-3 


05946 








04590 




TFM 


LISTET, 9200,8 


05946 


16 


09665 


0R200 


04600 


DOC 


CM 


LISTER, 0001, 8, IS THERE MORE WORK AREA TO ERASE 


05958 


14 


09654 


0-001 


04610 




BNE 


SLEEPY 


05970 


47 


06074 


01200 


04620 




BT 


REMOVE, REMOVE-l 


05982 


27 


09560 


09559 


04630 




BT 


INSERT, INSERT-1 


05994 


27 


09580 


09579 


04640 




BT 


GETR,6ETR-1 


06006 


27 


09520 


09519 


04650 




B 


DOC 


06018 


49 


05958 


00000 


04660 




DORG 


•-3 


06026 








04670 


ENUFF 


CM 


CALC4-1,11,10, ARE THERE LESS THAN ELEVEN CYLINDERS DESIRED 


06026 


14 


02866 


OOOJl 


04680 




BNL 


PKROOM 


06038 


46 


05606 


01300 


04690 




TFM 


OIMERR+22,7078,8 


06050 


16 


02675 


0P078 


04700 




B 


ERRD 


06062 


49 


02690 


00000 


04710 


SLEEPY 


TFM 


LISTET, 0001, 8 


06074 


16 


09665 


0-001 


04720 




TF 


LISTES, CALC9 


06086 


26 


09661 


02863 


04730 




TFM 


RLG0NE*30,»*20 


06098 


16 


09644 


-6118 


04740 




B 


FIND,,, WHERE THE NEW WORK AREA WILL BEGIN 


06110 


49 


09540 


00000 


04750 




DORG 


»-3 


06118 
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04760 




TF 


A0RSPLtCALC4-l 


06118 


26 


02840 


02866 


04770 




cn 


LISTERf 9200f8 


06130 


14 


09654 


0R2OO 


04780 




BNE 


ERR23 


06142 


47 


06282 


01200 


04790 


LUCKY 


BT 


REMOVEtREMOVE-1 


06154 


27 


09560 


09559 


04800 




BT 


INSERTt INSERT-ltt STUFF IN THE NEW WORK AREA 


06166 


27 


09580 


09579 


04810 




SM 


AORSPLffOltIO 


06178 


12 


02840 


000-1 


04820 




CM 


ADRSPLtOOtlO 


06190 


14 


02840 


000-0 


04830 




BNH 


FIXSUP 


06202 


47 


06302 


01100 


04840 


LOUNGE 


CM 


LtSTERt9200t8 


06214 


14 


09654 


0R200 


04850 




BE 


LUCKY 


06226 


46 


06154 


01200 


04860 




CM 


LISTER-3»7,10ll 


06238 


14 


09651 


000-P 


04870 




BNE 


ERR23 


06250 


47 


06282 


01200 


04880 




BT 


GETRtGETR-l 


06262 


27 


09520 


09519 


04890 




B 


LOUNGE 


06274 


49 


06214 


00000 


04900 




DORG 


•-3 


06282 








04910 


ERR23 


TFM 


0IMERR4-22t7173v8 


06282 


16 


02675 


0P173 


04920 




B 


ERRO 


06294 


49 


02690 


00000 


04930 




00 RG 


• -3 


06302 








04940 


FIXSUP 


TFM 


IORTt««23t« LET lORT IN ON THE SECRET 


06302 


16 


00565 


-6325 


04950 




B 


lOGTvSARBtT 


06314 


49 


00566 


-5150 


04960 




TF 


00425 tCALC9-2tf WORK AREA CHANGED IN COMMUNICATION AREA 


06326 


26 


00425 


02861 


04970 




SF 


00423 


06338 


32 


00423 


00000 


04980 




CF 


00422 


06350 


33 


00422 


00000 


04990 




TF 


0FINE«23tCALC9-2 


06362 


26 


05197 


02861 


05000 




SF 


OFINE+21 


06374 


32 


05195 


00000 


05010 




CF 


0FINE«20 


06386 


33 


05194 


00000 


05020 




TFM 


I0RTt*^23 


06398 


16 


00565 


-6421 


05030 




B 


lOPTtSARBtT 


06410 


49 


00532 


-5150 


05040 


NUMMQD 


TFM 


NEWOIMtOOOltSf LET THE DIM TABLE IN ON OUR SECRET 


06422 


16 


09649 


0-001 


05050 




BT 


0IMMER«DIMNER-1 


06434 


27 


09600 


09599 


05060 




TF 


19885tCALC9 


06446 


26 


19885 


02863 


05070 




SF 


19881 


06458 


32 


19881 


00000 


05080 




CF 


19880 


06470 


33 


19880 


00000 


05090 




TF 


l98B8tCALC4-l 


06482 


26 


19888 


02866 


05100 




CF 


19887 


06494 


33 


19887 


00000 


05110 




TFM 


iaRTt*«23 


06506 


16 


00565 


-6529 


05120 




B 


I0PT*0M00A,7 


06518 


49 


00532 


-2580 


05130 


ESOR 


SF 


0UPCRD«33t*t HOW ARE WE FIXED FOR NUMBER OF MODULES 


06530 


32 


09370 


00000 


05140 




CM 


0UPCR0«34t00t 10 


06542 


14 


09371 


000-0 


05150 




BE 


AAA 


06554 


46 


06660 


01200 


05160 




TO 


CURREN-l»0UPCR0>34tt THERE HAS SOMETHING THERE 


06566 


25 


05144 


09371 


05170 




CM . 


CURREN>1«04,10, IS MODULE MUM 4 OR LESS 


06578 


14 


05144 


000-4 


05180 




BH 


• 4-36 


06590 


46 


06626 


01100 


05190 




CM 


CURREN-ltOltlO 


06602 


14 


05144 


000- 1 


05200 




BNL 


AAA 


06614 


46 


06660 


01300 


05210 




TFM 


0IMERR^22t7171t8 


06626 


16 


02675 


0P171 


05220 




B 


ERRO 


06638 


49 


02690 


00000 


05230 




00 RG 


•-3 


06646 








05240 


NEWTOT 


DC 


4*0 


06649 




4 








-000 












05250 


OLDTOT 


OC 


4tO 


06653 




4 








-000 












05260 


OOIM 


OC 


3>0 


06656 




3 








-00 












05270 


OEQV 


OC 


3f 0 


06659 




3 








-00 
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05280 


AAA 


TO 


CALC4-l»DUPCR0>42tt BRING IN DIM SECTOR COUNT 


06660 


25 


02866 


09379 


05290 




TO 


CALC4-2 f OUPCRD-t-40 


06672 


25 


02865 


09377 


05300 




TO 


CALC4--3tDUPCRD^38 


06684 


25 


02864 


09375 


05310 




SF 


CALC4-3 


06696 


32 


02864 


00000 


05320 




TO 


CALC7»0UPCR0^50»t BRING IN THE EQV TABLE SECTOR COUNT 


06708 


25 


02921 


09387 


05330 




TO 


CALC7-l»0UPCRD4-48 


06720 


25 


02920 


09385 


05340 




TO 


CALC7-2fOUPCRD4>46 


06732 


25 


02919 


09383 


05350 




SF 


CALC7-2 


06744 


32 


02919 


00000 


05360 


• • 1 


BRING 


IN OLD DIM AND EQV ENTRIES 










05370 




TFM 


NEWDIM»0002,8 


06756 


16 


09649 


0-002 


05380 




BT 


0IMMER«0IMMER-1 


06768 


27 


09600 


09599 


05390 




TF 


OEQV. 19888 


06780 


26 


06659 


19888 


05400 




TOM 


NEW0IM,3 


06792 


15 


09649 


00003 


05410 




BT 


DIMMER,0IMMER-1 


06804 


27 


09600 


09599 


05420 




TF 


OOIM* 19888 


06816 


26 


06656 


19888 


05430 


• •• 


A LITTLE MATHMETICS TO SEE IF THE DIM PLUS THE EQV 










05440 




TABLE 


TOTAL HAS INCREASED OR AT LEAST TRYEO 










05450 




SF 


0UPCRD445 


06828 


32 


09382 


00000 


05460 




C 


DUPCRD«50tZER0ES-4*t SHOULD OLD EQV LENGTH BE USED 


06840 


24 


09387 


05136 


05470 




BNE 


• ♦24 


06852 


47 


06876 


01200 


05480 




TF 


CALCTtOEQV 


06864 


26 


02921 


06659 


05490 




SF 


DUPCR0*37 


06876 


32 


09374 


00000 


05500 




C 


0UPCRD«42,ZER0ES-4>f SHOULD OLD DIM LENGTH BE USED 


06888 


24 


09379 


05136 


05510 




BNE 


• ♦24 


06900 


47 


06924 


01200 


05520 




TF 


CALC4-1*00IM 


06912 


26 


02866 


06656 


05530 




TF 


NEWT0T»CALC7 


06924 


26 


06649 


02921 


05540 




CF 


NEWTOT-2 


06936 


33 


06647 


00000 


05550 




A 


NEWTOT •CALC4-1 


06948 


21 


06649 


02866 


05560 




TF 


OLDTOT. OOIM 


06960 


26 


06653 


06656 


05570 




CF 


OLOTOT-2 


06972 


33 


06651 


00000 


05580 




A 


OLDTOT. OEQV 


06984 


21 


06653 


06659 


05590 




C 


OLDTOT. NEWTOT. • IS THE TOTAL LENGTH OF THE TWO TABLES LONGE 


06996 


24 


06653 


06649 


05600 




BNL 


CONTIN 


07008 


46 


07236 


01300 


05610 




S 


NEWTOT. OLDTOT 


07020 


22 


06649 


06653 


05620 




TFM 


LISTES, 04800 


07032 


16 


09661 


-4800 


05630 




TDM 


LISTES-5,1 


07044 


15 


09656 


00001 


05640 




A 


LISTES. OLDTOT 


07056 


21 


09661 


06653 


05650 




TFM 


RLG0NE^30.*^20 


07068 


16 


09644 


-7088 


05660 




B 


FIND... FIND THE END OF THE OLD EQV TABLE 


07080 


49 


09540 


00000 


05670 




00 RG 


•-3 


07088 








05680 




TFM 


C0NST5. 000.8 


07088 


16 


02898 


0-000 


05690 


SARJ 


CM 


LISTER-3, 9,1011 


07100 


14 


09651 


000-R 


05700 




BNE 


ERRORS 


07112 


47 


07216 


01200 


05710 




SF 


LISTER-2 


07124 


32 


09652 


00000 


05720 




A 


C0NST5. LISTER 


07136 


21 


02898 


09654 


05730 




C 


C0NST5. NEWTOT.. HAVE ENOUGH BLANK SECTORS BEEN FOUND 


07148 


24 


02898 


06649 


05740 




BNL 


CONTIN 


07160 


46 


07236 


01300 


05750 




BT 


GETR.GETR-1 


07172 


27 


09520 


09519 


05760 




CM 


LISTER-3, 7. 1011 


07184 


14 


09651 


000-P 


05770 




BE 


♦-24 


07196 


46 


07172 


01200 


05780 




B 


SARJ 


07208 


49 


07100 


00000 


05790 




00 RG 


•-3 


07216 








05800 


ERR0R8 


TFM 


DIMERR^22.7078.8. NOT ENOUGH ROOM AT SPECIED LOCATION 


07216 


16 


02675 


0PO78 


05810 




B 


ERRO 


07228 


49 


02690 


00000 


05820 




DORG 


•-3 


07236 








05830 


CONTIN 


SF 


DUPCRD^37 


07236 


32 


09374 


00000 
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05840 




c 


0UPCRD-«-42»ZER0ES-4t t WAS THERE ANEW DIM TABLE LENGTH 


07248 


24 


09379 


05136 


05850 




BE 


EOVLEN 


07260 


46 


08400 


01200 


05860 




CM 


CALC4-l,035,9 


07272 


14 


02866 


00-35 


05870 




BNL 


» + 32 


07284 


46 


07316 


01300 


05880 




TFM 


0IMERR+22t7078,8 


07296 


16 


02675 


0P078 


05890 




B 


ERRD 


07308 


49 


02690 


00000 


05900 




00 R6 


♦-3 


07316 








05910 




TFM 


NEWDIMt0003f BtNEW DIM LENGTH SPECIFIED 


07316 


16 


09649 


0-003 


05920 




BT 


DIMMER«DIMMER->1 


07328 


27 


09600 


09599 


05930 




TF 


C0NST3« 19888 


07340 


26 


05130 


19888 


05940 




c 


C0NST3tCALC4-l 


07352 


24 


05130 


02866 


05950 




BE 


EQVLEN 


07364 


46 


08400 


01200 


05960 




TF 


19888tCALC4-lf f SET NEW DIM LENGTH 


07376 


26 


19888 


02866 


05970 




TFM 


IORTt*-*>23 


07388 


16 


00565 


-7411 


05980 




B 


I0PTt0M00At7 


07400 


49 


00532 


-2580 


05990 




TFM 


TL0EQV<t-5t01000t7 


07412 


16 


05115 


-1000 


06000 




TFM 


NEWDIMt2tBt EOV TABLE 


07424 


16 


09649 


0-002 


06010 




BT 


OIMMERtOIMMER-I 


07436 


27 


09600 


09599 


06020 




TF 


CALC7tl9888 


07448 


26 


02921 


19888 


06030 




TF 


C0NST2t 19888 / 


07460 


26 


02880 


19888 


06040 




TF 


SL0EQV'«-5t 19885 


07472 


26 


05092 


19885 


06050 




TO 


SLDEQV* 19880 


07484 


25 


05087 


19880 


06060 




TFM 


I0RTt*^23 


07496 


16 


00565 


-7519 


06070 




B 


lOPTtTHRDDAf 7 


07508 


49 


00532 


-2628 


06080 


HERO 


TFM 


I0RTt«'*-23t t PREPARE TO SHIFT THE EQUIVALENCE TABLE 


07520 


16 


00565 


-7543 


06090 




B 


lOGTtTRWSLOfT 


07532 


49 


00566 


-5079 


06100 




TFM 


IORTt*-*-23 


07544 


16 


00565 


-7567 


06110 




B 


I0PTtTRWTL0t7 


07556 


49 


00532 


-5102 


06120 




AM 


SLDEQV4^5t60t 10 


07568 


11 


05092 


00000 


06130 




AM 


TLDEQV-i-5t60f 10 


07580 


11 


05115 


00000 


06140 




SM 


C0NST2t60»10 


07592 


12 


02880 


00000 


06150 




BNF 


HERO* C0NST2 


07604 


44 


07520 


02880 


06160 




TDM 


TRWSLDvO 


07616 


15 


05079 


00000 


06170 




TDM 


TRWTLDt2 


07628 


15 


05102 


00002 


06180 




TFM 


SLDE0V45f OlOOOf 7 


07640 


16 


05092 


-1000 


06190 




TFM 


TLOEQV^St 04800 


07652 


16 


05115 


-4800 


06200 




A 


TLDEQV4-5tCALC4-l 


07664 


21 


05115 


02866 


06210 


JANITO 


CM 


CALC7t060t9ff MAJOR SHIFT OF EQUIVALENCE TABLE 


07676 


14 


02921 


00-60 


06220 




BNH 


MELANC 


07688 


47 


07792 


01100 


06230 




TFM 


IORTt»^23 


07700 


16 


00565 


-7723 


06240 




B 


lOGTf TRWSLOtT 


07712 


49 


00566 


-5079 


06250 




TFM 


lORTf v-f 23 


07724 


16 


00565 


-7747 


06260 




B 


I0PT,TRWTLDt7 


07736 


49 


00532 


-5102 


06270 




AM 


SLDEQV-*-5t060t9 


07748 


11 


05092 


00-60 


06280 




AM 


TLDEQV«5t060t9 


07760 


11 


05115 


00-60 


06290 




SM 


CALC7t060f9 


07772 


12 


02921 


00-60 


06300 




B 


JANITO 


07784 


49 


07676 


00000 


06310 




□ORG 


•-3 


07792 








06320 


MELANC 


TF 


TL0EQV^B»CALC7,, MINOR SHIFT OF EQUIVALENCE TABLE 


07792 


26 


05118 


02921 


06330 




TFM 


I0RT,»*23 


07804 


16 


00565 


-7827 


06340 




B 


I0GT»TRWSLD,7 


07816 


49 


00566 


-5079 


06350 




TFM 


IORT,»*23 


07828 


16 


00565 


-7851 


06360 




B 


I0PT»TRWTLD,7 


07840 


49 


00532 


-5102 


06370 




TFM 


TLDEQV«8t60«9 


07852 


16 


05118 


00-60 


06380 




TFM 


IORT»*«23 


07864 


16 


00565 


-7887 


06390 




B 


tOGT,THRODA,7, REFRESH THE CORE FROM DISK 


07876 


49 


00566 


-2628 
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06400 


NURSES 


SF 


KEYS 








07888 


32 


05149 


00000 


06410 




C 


C0NST3,CALC4-l 








07900 


24 


05130 


02866 


06420 




BNL 


EOVLEN 








07912 


46 


08400 


01300 


06430 




TF 


C0NST5,CALC4-1 








07924 


26 


02898 


02666 


06440 




S 


C0NST5.C0NST3tt 


NUMBER 


OF 


SECTORS ADDED 


07936 


22 


02898 


05130 


06450 




TFM 


NEWDIM, 0002*8 








07948 


16 


09649 


0-002 


06460 




BT 


DIMMER, OIMMER-1 








07960 


27 


09600 


09599 


06470 




TF 


SARH4-5» 19885 








07972 


26 


08189 


19885 


06480 




TO 


SARH, 19880 








07984 


25 


08184 


19880 


06490 


SARI 


TFM 


IORT,»*23 








07996 


16 


00565 


-8019 


06500 




B 


I0PT,SARF,7 








08008 


49 


00532 


-8176 


06510 




SM 


CONST5,01,10 








08020 


12 


02898 


000-1 


06520 




CM 


C0NST5, 000*9 








08032 


14 


02898 


00-00 


06530 




BE 


EQVLEN 








08044 


46 


08400 


01200 


06540 




AM 


SARH4-5,01,10 








08056 


11 


08189 


000-1 


06550 




B 


SARI 








08068 


49 


07996 


00000 


06560 




00 RG 


•-3 








08076 








06570 


OUMDIM 


DC 
• 


1 , • , , DUMMY 


SECTOR 1 


FILL 




08076 




1 




06580 




DC 


IfO 








08077 




1 




06590 




DSC 


18,0 








08078 




18 








OOOOOOOOOOOOOOOOOO 
















06600 




DC 
• 


It* 








08096 




1 




06610 




DC 


ItO 








08097 




1 




06620 




DSC 


18,0 








08098 




18 








OOOOOOOOOOOOOOOOOO 
















06630 




DC 
t 


It* 








08116 




1 




06640 




DC 


ItO 








08117 




1 




06650 




DSC 


18f0 








08118 




18 








OOOOOOOOOOOOOOOOOO 
















06660 




DC 
• 


1,» 








08136 




1 




06670 




DC 


1*0 








08137 




1 




06680 




DSC 


18,0 








08138 




18 








OOOOOOOOOOOOOOOOOO 
















06690 




DC 
1 


1,« 








08156 




1 




06700 




DC 


l.O 








08157 




1 




06710 




DSC 


18,0 








081SB 




18 








OOOOOOOOOOOOOOOOOO 
















06720 


SARF 


DSC 


2,22,, DDA FOR 


FILLING 


IN 


BLANK DIM SECTORS 


08176 




2 








22 


















06730 




DSA 


SARH 








08182 




5 


X 1 
















08182 




-8184 




06740 




DC 
t 


1,« 








08183 




1 




06750 


SARH 


DSC 


1,1 








08184 




1 





1 

82^ 
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06760 




DC 


5,99999 


08189 




5 








R99V9 










06770 




DC 


3,001 


08192 




3 








-01 












06780 




OS A 


DUMDIM 


08197 




5 


X 1 










08197 




—8076 




06790 




DC 
1 


1, • 


08 198 








06800 




DORG 


08400 


08400 








06810 


• •« 1 


LINKAGE TO CALL IN PHASE TWO AND EXECUTE IT 










06820 


EOVLEN 


TFM 


IGRT,»+23 


08400 


16 


00565 


—6423 


06830 




B 


I0GT,SARK,7 


08412 


49 


00566 


-8424 


06840 


SARK 


DSC 


2.-22 


08424 




2 








2K 












06850 




DSA 


SARL 


08430 




5 


X 1 










08430 




—8432 




06860 




DC 
f 


1,» 


08431 




\ 




06870 


SARL 


DSC 
1 




08432 




1 




06880 




DC 


5,18174 


08437 




5 








J8174 










06890 




DC 


3,023 


08440 




3 








-23 












06900 




DSA 


PHASE2 


_ _ 




5 


X 1 










08445 




—5600 




06910 




DC 


1,« 


08446 




1 




06920 


1 


LINKAGE FOR THROWING PHASEl TO DISK WHEN LOADING PROGRAM 










06930 


0DFIN4 


TFM 


I0RT,»>23 


08448 


16 


00565 


-8471 


06940 




B 


I0PT>DDFIN5,7 


08460 


49 


00532 


-8496 


06950 




TRA 




08472 


36 


00000 


00500 










08484 


49 


00000 


00000 


06960 


DOFINS 


OSC 


2,22 


08496 




2 








22 












06970 




DSA 


D0FIN6 


08502 




5 


X 1 










08502 




-8504 




06980 




DC 
t 


1,» 


08503 




1 




06990 




OSC 

1 


Ifl 


08504 








07000 




DC 


5,18139 


08509 




5 








J8139 










07010 




DC 


3,038 


08512 




3 








-38 












07020 




DC 


5,05000 


08517 




5 








-5000 










07030 




DC 
• 


It* 


08518 




1 




07040 




TCD 


DDFIN4 


08448 








07050 




DORG 


05600 


05600 









825 
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07060 


PHASE2 


TO 


CALC7.DUPCR0^50,« READ IN EQV ENTRY DATA 


05600 


25 


02921 


09387 


07070 




TD 


CALC7-1,0UPCRD«48 


05612 


25 


02920 


09385 


07080 




TD 


CALC7-2,DUPCRD-i-46 


05624 


25 


02919 


09383 


07090 




SF 


CALC7-2 


05636 


32 


02919 


00000 


07100 




SF 


OUPCRD-i-45 


05648 


32 


09382 


00000 


07110 




C 


DUPCR04^50,ZEROES-4,, WAS THERE A EQV TABLE ENTRY 


05660 


24 


09387 


05136 


07120 




BNE 


LNGNFF 


05672 


47 


06872 


01200 


07130 




BNF 


0UTSYD,KEY5 


05684 


44 


06922 


05149 


07140 


TABA 


TFM 


NEUDIM,2,8« EQV ENTRY 


05696 


16 


09649 


0-002 


07150 




8T 


DIMMERfDIMMER-1 


05708 


27 


09600 


09599 


07160 




TF 


CALC9, 19888 


05720 


26 


02863 


19888 


07170 




BNF 


BBB.KEY5 


05732 


44 


05804 


05149 


07180 




TFM 


CALC3, 04800 


05744 


16 


02608 


-4800 


07190 




A 


CALC3*CALC4-1 


05756 


21 


02608 


02866 


07200 




TF 


19885,CALC3 


05768 


26 


19885 


02608 


07210 




CM 


CALC7,000,9 


05780 


14 


02921 


00-00 


07220 




BE 


TABB 


05792 


46 


05816 


01200 


07230 


BBB 


TF 


19888, CALC7ff SET NEW EQV LENGTH 


05804 


26' 


19888 


02921 


07240 


TABB 


TFM 


I0RT,*«23 


05816 


16 


00565 


-5839 


07250 




B 


I0PT,DM00A,7 


05828 


49 


00532 


-2580 


07260 


LENLIS 


TF 


EL,19888 


05840 


26 


05887 


19888 


07270 




CF 


EL-2 


05852 


33 


05885 


00000 


07280 


ACCUM 


DC 

-000 


4,0,» 


05863 




4 




07290 




TF 


DL»CALC4-1 


05864 


26 


06715 


02866 


07300 




CF 


DL-2 


05876 


33 


06713 


00000 


07310 


EL 


DC 

-000 


4,0,* 


05887 




4 




07320 


• SET 


POINTER TO END OF CYL 23 










07330 


LOOPA 


TF 


LISTES,END23 


05888 


26 


09661 


06921 


07340 


LOOPB 


TFM 


RLGONE«30»*-f20 


05900 


16 


09644 


-5920 


07350 




B 


FIND 


05912 


49 


09540 


00000 


07360 




DORG 


•-3 


05920 








07370 




TFM 


LISTET,9200,8 


05920 


16 


09665 


0R20O 


07380 




BT 


GETR,GETR-L 


05932 


27 


09520 


09519 


07390 


LOOPl 


CM 


LISTER-3,7,1011 


05944 


14 


09651 


OOO-P 


07400 




BE 


•-24 


05956 


46 


05932 


01200 


07410 




CM 


LISTER, 0003, 8 


05968 


14 


09654 


0-003 


07420 




BNE 


L00P2 


05980 


47 


06024 


01200 


07430 


L00P3 


BT 


REMOVE, REMOVE-1,, REMOVE DIM TABLE ENTRIES 


05992 


27 


09560 


09559 


07440 




BT 


INSERT, INSERT-1 


06004 


27 


09580 


09579 


07450 




B 


LOOPl 


06016 


49 


05944 


00000 


07460 




DORG 


•-3 


06024 








07470 


L00P2 


CM 


LISTER, 0002, 8 


06024 


14 


09654 


0-002 


07480 




BE 


LOOPS 


06036 


46 


06164 


01200 


07490 




CM 


LISTER-3,9,1011 


06048 


14 


09651 


000-R 


07500 




BNE 


L00P4 


06060 


47 


06240 


01200 


07510 




CM 


LISTER, 9200,8, HAVE WE ERASED ALL PROGRAMS 


06072 


14 


09654 


0R20O 


07520 




BE 


SETKEY 


06084 


46 


06456 


01200 


07530 




BT 


GETR,GETR-l 


06096 


27 


09520 


09519 


07540 




CM 


LISTER-3,7,1011 


06108 


14 


09651 


OOO-P 


07550 




BNE 


L00P4 


06120 


47 


06240 


01200 


07560 




BT 


GETL,GETL-1 


06132 


27 


09500 


09499 


07570 




BT 


REMOVE, REMOVE-1 


06144 


27 


09560 


09559 


07580 




B 


SETKEY 


06156 


49 


06456 


00000 


07590 




DORG 


•-3 


06164 
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07600 


LOOPS 


BT 


GETL,GETL-1 


06164 


27 


09500 


09499 


07610 




CM 


LISTER-3,9,1011, IS THIS A NININES INDICATOR 


06176 


14 


09651 


000-R 


07620 




BNE 


L00P6 


06188 


47 


06220 


01200 


07630 




BT 


REMOVEtREMOVE-1 


06200 


27 


09560 


09559 


07640 




B 


LOOPS 


06212 


49 


06164 


00000 


07650 




DORG 


•-3 


06220 








07660 


L00P6 


BT 


GETR,GETR-1 


06220 


27 


09520 


09519 


07670 




B 


L00P3 


06232 


49 


05992 


00000 


07680 




DORG 


•-3 


06240 








07690 


L00P4 


TF 


NEWOIM, LISTER 


06240 


26 


09649 


09654 


07700 




BT 


DIMMER, DIMMER-1 


06252 


27 


09600 


09599 


07710 




MM 


19883,05,10, CALCULATE SIZE OF ODD NINES ENTRY 


06264 


13 


19883 


000-5 


07720 




TDM 


19«83,l,ll 


06276 


15 


19883 


ODOOJ 


07730 




BD 


•♦24,99 


06288 


43 


06312 


00099 


077A0 




TDM 


19883,0,11 


06300 


15 


19883 


0000- 


07750 




TF 


L00P74ll,19885 


06312 


26 


06347 


19885 


07760 




CF 


• ♦21 


06324 


33 


06345 


00000 


07770 


KEYl 


OS 


• • 


06335 




0 




07780 


L00P7 


TFM 


LISTET,9000,8 


06336 


16 


09665 


OROOO 


07790 




BT 


GETL,GETL-1 


06348 


27 


09500 


09499 


07800 




CM 


LISTER-3,9,1011 


06360 


14 


096S1 


OOO-R 


07810 




BNE 


• ♦36 


06372 


47 


06408 


01200 


07820 




BT 


REMOVE, REHOVE-1,, REMOVE THE NINES RECORD 


06384 


27 


09560 


09559 


07830 




B 


• -48 


06396 


49 


06348 


00000 


07840 




BT 


GETR,6ETR-1 


06408 


27 


09520 


09519 


07850 




CM 


LISTET, 9000,8 


06420 


14 


09665 


OROOO 


07860 




BE 


• ♦24 


06432 


46 


06456 


01200 


07870 




BT 


INSERT, INSERT-1 


06444 


27 


09580 


09579 


07880 


SETKEY 


SF 


KEYl 


06456 


32 


06335 


00000 


07890 


NWTOT 


DC 


5,0,» 


06467 




5 








-0000 










07900 






NN 1 U 1 ,UL 


06468 


26 


06467 


06715 


07910 






MUTnr Ci 


06480 


21 


06467 


05887 


07920 






innDO^tl DCTItOM DOCDADC Tn DCDnCtTtnkl TUC 1 ICTCD TUDnil#*U 


06492 


16 


05911 


-6512 


07930 






LOOPA 


06504 


49 


05888 


00000 


07940 




nnar 
□ORG 




06512 








07950 


RETURN 




b C 1 K f toe 1 K— I 


06512 


27 


09520 


09519 


07960 




CM 


L I J 1 cK— J, r , 1011 


06524 


14 


09651 


000-P 


07970 




?1 


D CTI lOM 

R t 1 UKN 


06536 


46 


06512 


01200 


07980 




SF 


L I STER— 2 


06548 


32 


09652 


00000 


07990 




* 


ACuUn f L I 5TcR , , AttUMULATc THc IMUMocR Or ScUTURa rILLcD 


06560 


21 


05863 


09654 


08000 




CF 


L I STER-2 


06572 


33 


09652 


00000 


08010 






DFMnUP DFMn\rF»1 


06584 


27 


09560 


09559 


08020 




RMF 


Fl rUftC ICFV1 


06596 


44 


06756 


06335 


08030 




TCM 


1 TCTCT f\f\n'k D 

L 1 o 1 c 1 , UOO J , o 


06608 


16 


09665 


0-003 


08040 




RT 


tMCCDT tKlCCDT_l 


06620 


27 


09580 


09579 


08050 




SM 


DL , £1)0, *f 


06632 


12 


06715 


OOKOO 


08060 




BH 


RclUKN,,, RclURN 10 rILL IN MORc Din lAoLc cNTRIcS 


06644 


46 


06512 


01100 


08070 




BE 


CLFLAG 


06656 


46 


06736 


01200 


08080 




A 


EL,DL 


06668 


21 


05887 


06715 


08090 




TFM 


LISTET, 0002,8 


06680 


16 


09665 


0-002 


08100 




BT 


INSERT, INSERT-1 


06692 


27 


09580 


09579 


08110 




CF 


KEYl 


06704 


33 


06335 


00000 


08120 


DL 


DC 


4,0.» 


06715 




4 








-000 












08130 




BNF 


RETURN, EL 


06716 


44 


06512 


05887 








8i7 
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08140 




B 


C0MPEL^24 


06728 


49 


06804 


00000 


06150 




DORG 


•-3 


06736 








06160 


CLFLA6 


CF 


KEYl 


06736 


33 


06335 


00000 


08170 




B 


RETURN 


06748 


49 


06512 


00000 


08180 




DORG 


•-3 


06756 








08190 


ELCHEK 


TFM 


LISTET, 0002, 8, PREPARE TO INSERT THE EQV TABLE ENTRIES 


06756 


16 


09665 


0-002 


08200 




BT 


INSERT, INSERT-1 


06768 


27 


09560 


09579 


08210 


COMPEL 


SM 


EL, 200, 9 


06780 


12 


05887 


OOKOO 


08220 




BH 


RETURN 


06792 


46 


06512 


01100 


08230 




S 


ACCUM,NWTOT 


06804 


22 


05863 


06467 


08240 




BE 


OUTSYD 


06816 


46 


06922 


01200 


08250 




TDM 


ACCUM-3,9,11 


06828 


15 


05860 


OOOOR 


08260 




TF 


LISTET, ACCUM 


06840 


26 


09665 


05863 


08270 




BT 


INSERT, INSERT-1 


06852 


27 


09580 


09579 


08280 




B 


OUTSYD 


06864 


49 


06922 


00000 


08290 




DORG 


•-3 


06872 








08300 


LNGNFF 


CM 


CALC7,009,9, DOES THE EQUIVALENCE TABLE MEET MINIMUM STANDA 


06872 


14 


02921 


00-09 


08310 




BNL 


TABA 


06884 


46 


05696 


01300 


08320 




TFM 


0IMERR^22,7078,8 


06896 


16 


02675 


0P078 


08330 




B 


ERRD 


06908 


49 


02690 


00000 


08340 




DORG 


•-3 


06916 








08350 


END23 


DC 


6,104799 


06921 




6 








J04799 










08360 


OUTSYD 


TFM 


tORT,*«23,, BRING IN AND EXECUTE PHASES 


06922 


16 


00565 


-6945 






B 


I0GT,TRWAA,7 


06934 


49 


00566 


-6946 


08380 


TRMAA 


OSC 


2,-22 


06946 




2 




08390 




2K 
OS A 


TRWBB 


06952 




5 


X 1 










06952 




-6954 








DC 
f 


I,* 


06953 




1 






TRWBB 


DSC 
1 


Itl 


06954 




1 




08420 




DC 


5,17084 


06959 




5 








J7084 










08430 




DC 
-22 


3,022 


06962 




3 




08440 




DSA 


PHASES 


06967 




5 


X 1 










06967 




-5200 




08450 




DC 
• 




Q6968 




1 








TFM 


I0RT,^^23,, TRA-TCD TO THROW PHASE2 TO DISK WHILE LOAbiNG 


06970 


16 


00565 


-6993 


08470 




B 


I OPT, SARO, 7 


06982 


49 


00532 


-7018 


08480 




TRA 




06994 


36 


00000 


00500 










07006 


49 


00000 


00000 


08490 


SARO 


OSC 
22 


2,22 


07018 




2 




08500 




DSA 


SARP 


07024 




5 


X I 










07024 




-7026 




08510 




DC 


1,' 


07025 




I 




08520 


SARP 


DSC 


1,1 


07026 




1 





8Zs 
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08530 




DC 


5,18174 




07031 




5 








J8174 












08540 




DC 


3,023 




07034 




3 




08550 




-2 3 
DC 


5,05600 




07039 




5 








-5600 












08560 




DC 
* ■ 


1, • 




07040 




1 




08570 




TCD 


SARN 




06970 








08580 




DORG 


05200 




05200 








08590 


PHASE3 


TO 


PATCH, DUPCRD+58,, LENGTH OF SPL LIST 




05200 


25 


05459 


09395 


08600 




TO 


PATCH-l,0UPCRD*56 




05212 


25 


05458 


09393 


08610 




TD 


PATCH-2,DUPCR0-f54 




05224 


25 


05457 


09391 


08620 




SF 


PATCH-2 




05236 


32 


05457 


00000 


08630 




CM 


PATCH,000«9 




05248 


14 


05459 


00-00 


08640 




BE 


ACTP 




05260 


46 


06280 


01200 


08650 




TFM 


LISTES,., 




05272 


16 


09661 


-0000 


08660 




TDM 


LISTES-5»1»» 




05284 


15 


09656 


00001 


08670 




TFM 


RL60NE+30,*+20 




05296 


16 


09644 


-5316 


08680 






FIND... BRING IN THE SPL FOR SOME OBSERVATION 


05308 


49 


09540 


00000 


08690 




DORG 


•-3 




05316 








08700 




SF 


DUPCR04-33 




05316 


32 


09370 


00000 


08710 




CM 


0UPCRD•^^4•00tlb 




05328 


14 


09371 


000-0 


08720 




BNE 


• ♦48 




05340 


47 


05388 


01200 


08730 




TFM 


I0RTt*-i-23 




05352 


16 


00565 


-5375 


08740 






I0GT,LDX,7 




05364 


49 


00566 


-6876 


08750 






DUPCRD«34tCS«-49 




05376 


25 


09371 


05249 


08760 






•♦35«09800t7 




05388 


16 


05423 


-9800 


08770 




* 


• 4^23t04tl0 




05400 




05423 


000— A 


08780 






•- 12, 99999* • FIND THE END OF THE SPL 




05412 


45 


05400 


99999 


08790 




AM 


•-1,04,10 




05424 


11 


05423 


000-4 


08800 




SM 


•-13,9800,7 




05436 


12 


05423 


-9800 


08810 




CM 


•-27, PATCH 




05448 


14 


05421 


-5459 


08820 


PATCH 


DC 


3,0,* 




05459 




3 








-00 














08830 




BNH 


• ♦32 




05460 


47 


05492 


01100 


08840 




TFM 


DIMERR«22,7178,8, SPL LIST IS REDEFINED LESS THAN 


NEEDED 05472 


16 


02675 


0P178 


08850 




B 


ERRO 




05484 


49 


02690 


00000 


08860 




DORG 


• -3 




05492 








08870 




TF 


C0NST5, PATCH 




05492 


26 


02898 


05459 


08880 




TF 


CALC9, PATCH 




05504 


26 


02863 


05459 


08890 




CM 


PATCH, 80, 9 




05516 


14 


05459 


00-80 


08900 




BNH 


ACTN 




05528 


47 


05560 


01100 


08910 




TFM 


0IMERR>22,7174,B 




05540 


16 


02675 


OP 174 


08920 




B 


ERRO 




05552 


49 


02690 


00000 


08930 




DORG 


•-3 




05560 








08940 


»•• 


ROUT I ME TO UPDATE THE SPL ENTRY FOR ITSELF 












08950 


ACTN 


TFM 


LISTES, 19801 




05560 


16 


09661 


J9801 


08960 




TOM 


LlSTES-5,1,11 




05572 


15 


09656 


OOOOJ 


08970 




TDM 


OUPCRD-i-33, ,11, FLAG ZERO 












08980 




TF 


CURREN-1,0UPCRD^34 




05596 


26 


05144 


09371 


08990 




TFM 


NEWDIM, 0004,8 




05608 


16 


09649 


0-004 


09000 




BT 


DIMMER, OIMMER-1 




05620 


27 


09600 


09599 


090 10 




C 


C0NST5, 19888 




05632 


24 


02898 


19688 


09020 




BE 


ACTP 




05644 


46 


06280 


01200 
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09030 


ACTT 


TF 


C0NST6, 19888 




05656 


26 


02904 


19888 


09040 




TF 


I98B8,CALC9 




05668 


26 


19888 


02863 


09050 




TFM 


t0RT,*^23 




05680 


16 


00565 


-5703 


09060 




B 


I0PT,0M0DA,7, CORRECT SPL ENTRY ON DISK 




05692 


49 


00532 


-2580 


09070 




TF 


C0NST5,CALC9 




05704 


26 


02898 


02863 


09080 




TFM 


600NY4-6,*^20 




05716 


16 


09644 


-5736 


09090 




B 


FIND 




05728 


49 


09540 


00000 


09100 




DORG 


•-3 




05736 








09110 




BT 


GETR,GETR-1 




05736 


27 


09520 


09519 


09120 




C 


C0NST5,C0NST6,, IS THE NEW LIST LONGER OR 


SHORTER 


05748 


24 


02898 


02904 


09130 




BL 


ACTQ 




05760 


47 


05864 


01300 


09140 




S 


C0NST5,C0NST6 




05772 


22 


02898 


02904 


09150 




S 


LISTER, C0NST5 




05784 


22 


09654 


02898 


09160 




TF 


LISTET, LISTER 




05796 


26 


09665 


09654 


09170 




BT 


REMOVE, REMOVE-1 




05808 


27 


09560 


09559 


09180 




CM 


LISTET, 9000, B 




05820 


14 


09665 


OROOO 


09190 




BE 


• ♦24 




05832 


46 


05856 


01200 


09200 




BT 


INSERT,INSERT-1,, PLACE THE CORRECT BLANK 


SECTOR 


IN THE LIS 05844 


27 


09580 


09579 


09210 




8 


NO0S2 




05856 


49 


06004 


00000 


09220 




DORG 


•-3 




05864 








09230 


ACTQ 


S 


C0NST6,C0NST5 




05864 


22 


02904 


02898 


09240 




CM 


LISTER-3, 7,1011 




05876 


14 


09651 


000-P 


09250 




BNH 


ACTR 




05888 


47 


05956 


01100 


09260 




TF 


•♦35,C0NST6 




05900 


26 


05935 


02904 


09270 




CF 


• ♦21 




05912 


33 


05933 


00000 


09280 




TFM 


LISTET, 9000,8 




05924 


16 


09665 


OROOO 


09290 




BT 


INSERT, INSERT-1 




05936 


27 


09580 


09579 


09300 




B 


M0DS2 




05948 


49 


06004 


00000 


09310 




DORG 


• -3 




05956 








09320 


ACTR 


A 


LISTER,C0NST6,, INCREASE THE BLANK SECTOR 


COUNT 


05956 


21 


09654 


02904 


09330 




TF 


LISTET, LISTER 




05968 


26 


09665 


09654 


09340 




BT 


REMOVE, REMOVE-1 




05980 


27 


09560 


09559 


09350 




BT 


INSERT, INSERT-1 




05992 


27 


09580 


09579 


09360 


M0DS2 


CM 


CURREN-1,01,10 




06004 


14 


05144 


000-1 


09370 




BE 


ACTP 




06016 


46 


06280 


01200 


09380 




CM 


CURREN-1,02,10 




0602B 


14 


05144 


000-2 


09390 




BE 


ACT2 




06040 


46 


06212 


01200 


09400 




CM 


CURR€N-1,03,10 




06052 


14 


05144 


000-3 


09410 




BE 


ACT3 




06064 


46 


06144 


01200 


09420 




TFM 


NEWOIM, 0007,8, SET UP ON MODULE THREE 




06076 


16 


09649 


0-007 


09430 




BT 


DIMMER, 01 MMER-1 




06088 


27 


09600 


09599 


09440 




TF 


LISTES, 19885 




06100 


26 


09661 


1988 5 


09450 




TD 


LISTES-5, 19880 




06112 


25 


09656 


19880 


09460 




TDM 


CURREN-1,3,, 




06124 


15 


05144 


00003 


09470 




B 


ACTT 




06136 


49 


05656 


00000 


09480 




DORG 


•-3 




06144 








09490 


ACT3 


TFM 


NEWDIM, 0006, 8 




06144 


16 


09649 


0-006 


09500 




BT 


DIMMER, DIMMER-1 




06156 


27 


09600 


09599 


09510 




TF 


LISTES, 19885,, FIND END OF OLD LISTS 




06168 


26 


09661 


19685 


09520 




TD 


LISTES-5, 19880 




06180 


25 


09656 


19880 


09530 




TDM 


CURREN-1,2,, 




06192 


15 


05144 


0O002 


09540 




B 


ACTT 




06204 


49 


05656 


00000 


09550 




DORG 


• -3 




06212 








09560 


ACT 2 


TFM 


NEWOIM, 0005, 8 




06212 


16 


09649 


0-005 


09570 




8T 


DIMMER, DIMMER-1 




06224 


27 


09600 


09599 


09580 




TF 


LISTES, 19885 




06236 


26 


09661 


19885 



8,3 
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09590 




TO 


LISTES-5, 19880 






0624B 


25 


09656 


19880 


09600 




TDM 


CURREN-1,1,, 






06260 


15 


05 144 


00001 


096 10 




B 


ACTT 






06272 


49 


05656 


00000 


09620 




DORG 


• -3 






06280 








09630 


ACTP 


TFM 


I0RT,«+23,f BRING IN 


THE COMMUNICATION 


SECTOR 


06280 


16 


00565 


-6303 


09640 




B 


I0GTfL0X,7 






06292 


49 


00566 


-'6876 


09650 


»•♦ 


ROUTINE FOR TRANSFERING THE 


CONTROL CHARACTERS 


IF PRESENT 










09660 


»•« 


TO THE COMMUNICATION SECTOR 


AND SETTING FLAGS 


IF NECESSARY 










09670 




SF 


UUr LKU+ f 1 






06304 


32 


09408 


00000 


09680 






niiDron^TA. nnnn b 
U\Jry,t\U* f*l'fUUUvtOt 






063 16 


14 


0941 1 


0-000 


09690 




RP 








06328 


46 


06376 


01200 


09700 




Tn 








06340 


25 


05240 


09409 


09710 




TO 








06352 


25 


05241 


09411 


09720 




SF 


CSt'40 






06364 


32 


05240 


00000 


09721 




SF 








06376 


32 


09414 


00000 


09722 






UUr UKU~ OUf UUUU f O 






06388 


14 


0941 7 


0-000 


09723 




ttP 








06400 


46 


0644 B 


01200 


09724 




Tn 


l»»*4c , UUr UKU* f B 






06412 


25 


05242 


09415 


09725 




rn 

le 


I, a* 4j t UUruKU*oU 






06424 


25 


05243 


09417 


09726 




Sr 


C S+42 






06436 


32 


05242 


00000 


09730 












06448 


32 


09420 


00000 


09740 




CM 


ni iDTDnjk OA . nn in 

UUr UI\U* OH t UU t xu 






06460 


14 


09421 


000-0 


09750 




BE 


• ■f24 






06472 


46 


06496 


01200 


09760 




TD 


CS'*'44 t0UPCRD'*-84 






06484 


25 


05244 


09421 


09770 




SF 


0UPCRD-*'87 






06496 


32 


09424 


00000 


09780 




CM 


niiprRn^-Qn.onno. ft 






06508 


14 


09427 


0-000 


09790 




BE 








06520 


46 


06568 


01200 


09800 




TD 








06532 


25 


05245 


09425 


09810 












06544 


25 


05246 


09427 


09820 




SF 


CS+45 






06556 


32 


05245 


00000 


09830 












06568 


32 


09430 


00000 


09840 




CM 


0UPCRD4'96 tODOO* 8 






06580 


14 


09433 


0-000 


09850 




BE 


• ♦48 






06592 


46 


06640 


01200 


09860 




TD 


C S+47 tDUPCRD^94 






06604 


25 


05247 


09431 


09870 












06616 


25 


05248 


09433 


09880 




SF 


CS+47 






0662B 


32 


05247 


00000 


09890 




SF 








06640 


32 


09370 


00000 


09900 




CM 








06652 


14 


09371 


000-0 


09910 












06664 


46 


06688 


01200 


09920 




TO 


CS*49,DUPCR0*34 






06676 


25 


05249 


09371 


09930 




SF 


DUPCRD+99 






0668B 


32 


09436 


00000 


09940 




CM 


DUPCRD+100,00tl0 






06700 


14 


09437 


000-0 


09950 




BE 


• ♦24 






06712 


46 


06736 


01200 


09960 




TD 


CS + 73,DUPCRD-H00 






06724 


25 


05273 


09437 


09970 




SF 


DUPCRD+103 






06736 


32 


09440 


00000 


09980 




CM 


OUPCRD+104,00,10 






06748 


14 


09441 


000-0 


09990 




BE 


• ♦36 






06760 


46 


06796 


01200 


10000 




TD 


CS+76,DUPCRD+104 






06772 


25 


05276 


09441 


10010 




SF 


CS+76 






06784 


32 


05276 


00000 


10070 




SF 


DUPCRD^lll 






06796 


32 


09448 


00000 


10080 




CM 


DUPCR0^1I2«00»10 






06808 


14 


0944 9 


000-0 


10090 




BE 


• ♦24 






06820 


46 


06844 


01200 


10100 




TO 


CS^83,DUPCRD*ll2 






06832 


25 


05283 


09449 


10110 




TFM 


I0RT,»^23 






06844 


16 


00565 


-6867 


10120 




B 


I0PT,L0X,7,, PLACE THE COMMUNICATION SECTOR BACK ON DISK 


06856 


49 


00532 


-6876 


10130 




B 


MONITR 






06868 


49 


06900 


00000 
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H3i 



10140 




00 RG 


•-3 


06876 




10150 


LOX 


DSC 


2,22, , DOA FOR THE COMMUNICATION SECTOR 


06876 


2 






22 








10160 




OS A 


FIELOX 


06882 


5 X 










06882 


-6884 


10170 




DC 
I 


If* 


06883 


1 


10180 


CS 


OSS 


100,05200 


05200 


100 


10190 


FIELDX 


DSC 


1,0 


06884 


1 


10200 




0 
DC 


5,19663 


06889 


5 






J9663 






10210 




DC 


3,001 


06892 


3 






-01 








10220 




DSA 


CS 


06897 


5 X 










06897 


-5200 


10230 




OC 


1,* 


06898 


1 



10240 ••• ROUTINE FOR WRITING BACK THE SPL TO THE PROPER PACK BEFORE 
10250 ••• EXITING TO MONITOR 



10260 


MONITR 


CM 


PACK,00,1011, PACK ZERO 


06900 


14 


02856 


000— 


10270 




BE 


RITSPO 


06912 


46 


07004 


01200 


10280 




CM 


PACK,01,1011,PACK ONE 


06924 


14 


02856 


000-J 


10290 




BE 


RITSPl 


06936 


46 


07036 


01200 


10300 




CM 


PACK, 02, 1011, PACK TWO 


06948 


14 


02856 


000-K 


10310 




BE 


RITSP2 


06960 


46 


07068 


01200 


10320 




CM 


PACK, 03,1011 


06972 


14 


02856 


000-L 


10330 




BE 


RITSP3 


06984 


46 


07100 


01200 


10340 




B 


WHYNOT 


06996 


49 


07124 


00000 


10350 




00 RG 


•-3 


07004 








10360 


RITSPO 


TFM 


I0RT,»^23 


07004 


16 


00565 


-7027 


10370 




B 


I0PT,PK0DDA,7 


07016 


49 


00532 


-2734 


10380 




B 


WHYNOT 


07028 


49 


07124 


00000 


10390 




DORG 


• -3 


07036 








10400 


RITSPl 


TFM 


I0RT,»^23 


07036 


16 


00565 


-7059 


10410 




B 


I0PT,PK1D0A,7 


07048 


49 


00532 


-2757 


10420 




B 


WHYNOT 


07060 


49 


07124 


00000 


10430 




DORG 


•-3 


07068 








10440 


RITSP2 


TFM 


10RT,»^23 


07068 


16 


00565 


-7091 


10450 




B 


I0PT,PK2DDA,7 


07080 


49 


00532 


-2780 


10460 




B 


WHYNOT 


07092 


49 


07124 


00000 


10470 




DORG 


•-3 


07100 








10480 


RITSP3 


TFM 


I0RT,»^23 


07100 


16 


00565 


-7123 


10490 




B 


I0PT,PK3D0A,7 


07112 


49 


00532 


-2803 


10500 


WHYNOT 


TOM 


475,3 


07124 


15 


00475 


00003 


10510 




B 


796,,,MQNCAL 


07136 


49 


00796 


00000 


10520 




DORG 


•-3 


07144 








10530 


DDF INI 


Tf^M 


IORT,*^23,, LINKAGE FOR THROWING PHASE! TO DISK 


07144 


16 


00565 


-7167 


10540 




B 


IOPT,DDFIN2,7 


07156 


49 


00532 


-7192 


10550 




TRA 




07168 


36 


00000 


00500 










07180 


49 


00000 


00000 


10560 


D0FIN2 


DSC 


2,22 


07192 




2 




10570 




22 
DSA 


DDFIN3 


07198 




5 


X 1 
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07198 




—7200 




10580 




DC 
1 


If* 


07199 




1 




10590 


DDFIN3 


DSC 


1.1 


07200 




1 




10600 




1 

DC 


5,17084 


07205 




5 








J70B4 










10610 




DC 


3,022 


07208 




3 




10620 




-22 
DC 


5,05200 


07213 




5 








-5200 










10630 




DC 


I.' 


07214 




1 




10640 




TCD 


OOFINl 


07144 








10650 


SECONDARY LINKAGE FOR THE FIN0,6ETL,GETR, REMOVE, INSERT 










10660 


PROGRAMS TO SEE IF THE ROUTINES ARE PRESENTLY IN CORE 










10670 




DORG 


9500 


09500 








10680 


GETL 


TFM 


CHEX*-6,GETLTR 


09500 


16 


09722 


-3030 


10690 




B 


INCORE 


09512 


49 


09668 


00000 


10700 




OORG 


• -3 


09520 








10710 


GETR 


TFM 


CHEX*6,6ETRTR 


09520 


16 


09722 


-2956 


10720 




B 


INCORE 


09532 


49 


09668 


00000 


10730 




DORG 


•-3 


09540 








10740 


FIND 


TFM 


CHEX+6,FIN0TR 


09540 


16 


09722 


-3440 


10750 




B 


INCORE 


09552 


49 


09668 


00000 


10760 




OORG 


• -3 


09560 








10770 


REMOVE 


TFM 


CHEX-t-6,REN0TR 


09560 


16 


09722 


-3104 


10780 




B 


INCORE 


09572 


49 


09668 


00000 


10790 




DORG 


•-3 


09580 








10800 


INSERT 


TFM 


CHEX+6, INSETR 


09580 


16 


09722 


-3190 


10810 




B 


INCORE 


09592 


49 


09668 


00000 


10820 




DORG 


• -3 


09600 








10830 


DIMMER 


TFM 


CHEX+6,DIMMTR 


09600 


16 


09722 


-2458 


10840 




B 


INCORE 


09612 


49 


09668 


00000 


10850 




DORG 


• -3 


09620 








10860 


MOVESA 


DC 


6,0,, FOR SECTOR ADDRESS 


09625 




6 








-00000 










10870 


MOVESC 


DC 


3,0,, FOR SECTOR COUNT 


09628 




3 








-00 












10680 


EXITMR 


B 


99999 


09630 


49 


99999 


00000 


10890 




DORG 


•-3 


09638 








10900 


GOONY 


B 


99999 


09638 


49 


99999 


00000 


10910 




DORG 


• -3 










10920 


NEWDIM 


DC 


4,0 


09649 




4 








-000 












10930 




DC 


1,0,, FOR COMPARING AT LISTER-3 


09650 




1 




10940 


LISTER 


DC 


4,0 


09654 




4 








-000 












10950 




DC 


1,0,, TO SET-UP LISTES OVERRIDE CODE 


09655 




1 




10960 


LISTES 


DC 


6,0 


09661 




6 








-00000 










10970 


LISTET 


DC 


4,0 


09665 




4 





-000 
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PAGE 


10980 


LAYSPL 


DC 


1,0 


09666 




1 




10990 


INCORE 


BNF 


CHEX, LAYSPL,, IS THE ROUTINE ALREADY IN CORE 


09668 


44 


09716 


09666 


11000 




TFM 


IORT,»*23 


09680 


16 


00565 


-9703 


11010 




B 


I0GT,SPL1,7 


09692 


49 


00566 


-9724 


11020 




CF 


LAYSPL 


09704 


33 


09666 


00000 


11030 


CHEX 


B 


99999 


09716 


49 


99999 


00000 


11040 




OORG 


•-3 


09724 








11050 


RLGONE 


DS 


•GOONY-24 


09614 




0 




11060 


SPLL 


DSC 


2,22, • DOA FOR BRINGING IN THE SACRED SIX 


09724 




2 








22 












11070 




OS A 


SPL2 


09730 




5 


X 1 










09730 




-9732 




11080 




DC 
1 


l»* 


09731 




1 




11090 


SPL2 


DSC 


1,1 


09732 




1 




11100 




1 

DC 


5,19338 


09737 




5 








J9338 










11110 




DC 


3,025 


09740 




3 








-25 












11120 




DC 


6,02458* 


09746 




6 








-2458* 










11130 


GREATl 


TFM 


I0RT,»^23,, TRA-TCO FOR THROWING THE SECONDARY LINKAGE TO 0 


09748 


16 


00565 


-9771 


11140 




B 


I0PT,GREAT2,7 


09760 


49 


00532 


-9796 


11150 




TRA 




09772 


36 


00000 


00500 










09784 


49 


00000 


00000 


11160 


6REAT2 


DSC 


2,22 


09796 




2 








22 












11170 




OS A 


6REAT3 


09802 




5 


X 1 










09802 




-9804 




11180 




DC 
1 




09803 




1 




11190 


ORE AT 3 


DSC 


1,1 


09804 




1 




11200 




1 

DC 


5,18197 


09809 




5 








J8197 










11210 




DC 


3,003 


09812 




3 








-03 












11220 




DC 


6,09500* 


09818 




6 








-9500' 










11230 




TCD 


GREATl 


09748 








11240 




OEND 


0 


00000 









83 
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ADOBLK 


03912 


GETRTR 


02956 


REDSP3 


04624 




GETL 


09500 


SPL2 


09732 


AORSPL 


02840 


GREATl 


09748 


REDSPL 


04220 




GETR 


09520 


SPLFL 


04800 


BAVAIL 


02830 


GREAT2 


09796 


REMOTR 


03104 




GOONY 


09638 


SPLRl 


04848 


CLEVER 


02827 


GREAT3 


09804 


REMOVE 


09560 




HERO 


07520 


SPLR2 


04863 


CLFLAG 


06736 


INCORE 


09668 


REPACK 


02852 




HEX 


02868 


SPORT 


04480 


COMMON 


02926 


INSERT 


09580 


RETURN 


06512 




lOGT 


00566 


STEAL 


02918 


COMPEL 


06780 


INSETR 


03190 


RITSPO 


07004 




lOPT 


00532 


TABA 


05696 


CONSTl 


02874 


JANITO 


07676 


RITSPl 


07036 




lORT 


00565 


TABB 


05816 


C0NST2 


02880 


LAYSPL 


09666 


RITSP2 


07068 




KEYl 


06335 


TABC 


05064 


C0NST3 


05130 


LENLIS 


05840 


RITSP3 


07100 




KEY5 


05149 


TIPSY 


03226 


C0NST5 


02898 


LENSCT 


05450 


RLGONE 


09614 




LDX 


06876 


TRWAA 


06946 


C0NST6 


02904 


LISTER 


09654 


ROMENF 


05718 




LIMIT 


05148 


TRWBB 


06954 


CQNST7 


02910 


LISTES 


09661 


AAA 


06660 




LOQPl 


0 5944 


SANDOR 


05402 


C0NST8 


02934 


LISTET 


09665 


ACCOM 


05863 




L00P2 


06024 


SCRASN 


05762 


CQNTIN 


07236 


LNGNFF 


06872 


ACT2 


06212 




LaOP3 


05992 


SETKEY 


06456 


CORSIZ 


02627 


LOUNGE 


06214 


ACT3 


06144 




L00P4 


06240 


SLDEQV 


05087 


CURREN 


05145 


MELANC 


07792 


ACTN 


05560 




LOOPS 


06164 


SLEEPY 


06074 


DOFINl 


07144 


MONITR 


06900 


ACTP 


06280 




L00P6 


06220 


SLIPRY 


05056 


DDFIN2 


07192 


MOVESA 


09625 


ACTQ 


05864 




L00P7 


06336 


SPLCOR 


02850 


0DFIN3 


072 00 


MOVESC 


09628 


ACTR 


05956 




LOOPA 


05888 


SPLCYL 


02845 


D0FIN4 


08448 


N48000 


02624 


ACTT 


05656 




LOOPB 


0 5900 


SPLEXT 


03484 


00FIN5 


08496 


NEWOIM 


09649 


BBB 


05804 




LUCKY 


06154 


SPLINI 


04116 


00FIN6 


08504 


NEWTOT 


06649 


CALC2 


02613 




M0DS2 


06004 


SPLIST 


03956 


OIMERR 


02653 


NOMMON 


02928 


CAtC3 


02608 




NERR 


03354 


SPLPKO 


02742 


DIMMER 


09600 


NOSECA 


02929 


CALC4 


02867 




NWTOT 


06467 


SPLPKl 


02765 


DIMMTR 


024 58 


NUMMOO 


06422 


CALC7 


02921 




ODIM 


06656 


SPLPK2 


02788 


DMREAO 


02588 


NURSES 


07888 


CALC9 


02863 




OEQV 


06659 


SPLPK3 


02811 


ORESTR 


02618 


OLDTOT 


06653 


CHEX 


09716 




PACK 


02856 


STARDT 


04164 


OUMDIM 


08076 


OUTSYD 


06922 


CLUCK 


04128 




PATCH 


05459 


THRDDA 


02628 


DUPCRD 


09337 


PHASE2 


05600 


cs 


05200 




QHOLO 


02892 


THROWS 


02636 


ELCHEK 


067 56 


PHASE3 


05200 


DFINE 


05174 




SARB 


05150 


TLDEOV 


05110 


EOVLEN 


08400 


PKOODA 


02734 


OL 


06715 




SARC 


05158 


TRWSLD 


05079 


ERRORl 


05698 


PKIDOA 


02757 


OMDOA 


02580 




SARF 


0 8176 


TRWTLD 


05102 


ERRORS 


07216 


PK2DDA 


02780 


DOC 


05958 




SARH 


08184 


TRYAGN 


03604 


ERRRIT 


029 36 


PK300A 


02803 


EL 


05887 




SARI 


07996 


UNPACK 


02854 


EXI TMR 


09630 


PKROOM 


05606 


END23 


0692 1 




SARJ 


07100 


WM TiMU 1 




FAKSEV 


02925 


PLUSSR 


03866 


ENUFF 


06026 




SARK 


08424 


WRTSPO 


04360 


FIELDX 


06884 


QCARRY 


02886 


ERR23 


06282 




SARL 


08432 


WRTSPl 


04392 


FINDTR 


03440 


RACKET 


02914 


ERRO 


02690 




SARN 


06970 


WRTSP2 


04424 


FIXEQV 


05878 


REDSPO 


04668 


ESOR 


06530 




SARD 


07018 


WRTSP3 


04456 


FIXSUP 


06302 


REDSPl 


04712 


FIND 


09540 




SARP 


07026 


ZEROES 


05140 


GETLTR 


03030 


REDSP2 


04756 


FOUND 


02835 




SPLl 


09724 







END OF ONE ASSEMBLY. 



000 10 • 
00020 • 
00030 

00040 STAR 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 TOI 

00150 

00160 

00170 

00180 

00190 SFl 

00200 

00210 TEHPSC 

00220 

00230 

00240 

00250 

00260 

00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 

00350 INITZ 

00360 

00370 

00380 • 

00390 • 

00400 • 

00410 CDINI 

00420 

00430 RC 

00440 

00450 

00460 

00470 8F 

00480 CM 

00490 

00500 

00510 

00520 

00530 

00540 

00550 



MONITOR SYSTEM LOADER 

THIS PROGRAM HILL LOAD MONITOR I SYSTEM TO DISK 
FORMAT FOR CNTR CD IS •LOCNTR NAMEPR SSSSSS EEEEEE NN NNS 



00 RG 


7404 


07404 








TR 


3972,NAM-1 


07404 


31 


03972 


08866 


RACD 




07416 


37 


03973 


00500 


TFM 


T0I«^6,4000 


07428 


16 


07526 


-4000 


TFM 


TDI*11,4003 


07440 


16 


07531 


-4003 


SF 


3972 


07452 


32 


03972 


00000 


SF 


3988 


07464 


32 


03988 


00000 


BNR 


•♦20,3983 


07476 


45 


07496 


03983 


B7 


ERHI 


07488 


49 


08042 




C 


3985,LDCTR+12 


07496 


24 


03985 


08041 


BNE 


ERHI 


07508 


47 


08042 


01200 


TD 


4000t4003t27 


07520 


25 


, -4000 


-4003 


AM 


TDl4-6tl 


07532 


11 


07526 


-0001 


AM 


TDK'11,2 


07544 


11 


07531 


-0002 


CM 


TDl<-6,4067 


07556 


14 


07526 


-4067 


BNE 


TDI,,, CONVERT CNTRL CD TO NUMERIC 


07568 


47 


07520 


01200 


SF 


4001.,, SET FIELD FLAG ON SECTOR AOOR 


07580 


32 


04001 


00000 


SF 


4008* »• AND ON SECTOR COUNT 


07592 


32 


04008 


00000 


DS 


,SF1*11 


07591 




0 




SF 


4014 


07604 


32 


04014 


00000 


S 


4012,4005 


07616 


22 


04012 


04005 


BL 


ERHI 


07626 


47 


08042 


01300 


TOM 


4006»0t> PLACE REC MK FOR TR 


07640 


15 


04006 


00000 


DC 
f 




07651 




1 




TR 


DSKOUT,4000 


07652 


31 


09028 


04000 


AM 


4012.1 


07664 


11 


04012 


-0001 


TF 


T0TSEC*4012«. SAVE TOTAL SECTOR COUNT 


07676 


26 


08511 


04012 


TFM 


TEMPSCtO 


07688 


16 


07591 


-0000 


SF 


4060 


07700 


32 


04060 


00000 


TF 


CH4-1 1,4064 


07712 


26 


07879 


04064 


TF 


CH^9,4016 


07724 


26 


07877 


04016 


AM 


CM«11,1 


07736 


11 


07879 


-0001 


TFM 


0SK0UT-i-B,0,9« MAKE SECTOR CNT ZERO 


07748 


16 


09036 


00-00 


TFM 


OSKOUT4>13,5000 


07760 


16 


09041 


-5000 


TD 


NOP^ltl,, MAKE WLRC SW INTO NOP 


07772 


25 


09287 


00001 


READ INPUT FOR DISK LOAD 










TFM 


RC^6,5000 


07784 


16 


07814 


-5000 


TFM 


CM'i-6,5079 * 


07796 


16 


07874 


-5079 


RNCD 




07808 


36 


-5000 


00500 


BI 


HALTRD»0600 


07820 


46 


07996 


00600 


TF 


BF4ll,CM^6., NOP IF P. T. 


07832 


26 


07867 


07874 


SM 


BF^ll,4,t NOP IF P. T. 


07844 


12 


07867 


-0004 


BNF 




07856 


44 


08466 


00000 


CM 


5079, 1»27, COMPARE CO SEO NOP IF TP»»*«» 


07866 


14 


-5079 


-0001 


BNE 


ERSEQ-12,,, NOP IF TP»»»«» 


07880 


47 


08250 


01200 


AM 


CM+11,1 


07892 


11 


07879 


-0001 


BD 


RDTRL,ERSEQ+10, , BR TO READ TRAILER 


07904 


43 


08488 


08272 


CM 


RC+6,5000,,CK FOR FIRST CD OF SET 


07916 


14 


07814 


-5000 


BE 


ADJUST 


07928 


46 


08156 


01200 


CM 


RC+6-, 5075,, 2ND CD CK 


07940 


14 


07814 


-5075 


BE 


ADJUST 


07952 


46 


08156 


01200 
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00560 




CM RC+6»5150.,3R0 CD CK 


07964 


14 


07814 


-5150 


00570 




BE ADJUST 


07976 


46 


08158 


01200 


00580 




B7 WRDSK,t, 4TH CO MAS READ* MRITE 3 SECTORS 


07988 


49 


09042 




00590 


« 












00600 


HALTRD 


WATY •♦15 


07996 


39 


08011 


00100 


00610 




OAC 6»HR0ER« 
HRDER* 


08009 




6 


X 2 


00620 




B7 RC 


08020 


49 


07808 




00630 


• 












00640 


LOCTR 


DAC 7,*L0CNTR 
•LOCNTR 


08029 




7 


X 2 


00650 


ERHI 


RCTY 


08042 


34 


OOOOG 


00102 


00660 




WATY ERHIGH 


08054 


39 


08087 


OOlOO 


00670 




H 


08066 


48 


00000 


00000 


00680 




87 STAR 


0807R 


49 


07404 




00690 


ERHIGH 


OAC 36>C0NTRQL STATEMENT INVALID, RE-ENTER* 
CONTROL STATEMENT INVALID, RE-ENTER* 


08087 




36 


X 2 


00700 


ADJUST 


AM DSK0UT^8,1«9, I NCREMENTSECTOR COUNT 


08158 


11 


09036 


00-01 


00710 




AM RC^6,75,, INCREMENT READ-IN POINTER 


08170 


11 


07814 


-0075 


00720 




AM CM«6,75,, INCREMENT SEQ NUM ADDRESS 


08182 


11 


07874 


-0075 


00730 




AM TEMPSCl,, ADD TO COUNT OF SECTORS USED 


08194 


11 


07591 


-0001 


00740 




C TOTSECTEMPSCt, ALL SECTORS PREPARED FOR LOAD 


08206 


24 


08511 


07591 


00750 




BNE RC, READ ANOTHER RECORD 


08218 


47 


07808 


01200 


00760 




TDM ERSEQ^10,1,, SI^T TERMINAL INDICATOR 


08230 


15 


08272 


00001 


00770 




B7 RC 


08242 


49 


07808 




00780 


• 












00790 


• 


SEQUENCE ERROR ROUTINE 










00800 


• 












00810 




TFM SAVHS1+18,RC 


08250 


16 


08352 


-7808 


00820 


ERSEQ 


RCTY 


08262 


34 


00000 


00102 


00830 




BD TRSEQ,ERSEQ^10 


08274 


43 


08354 


08272 


00840 




TF WQUT^4,CM+6,11, TRANSFER WRONG SEQ NO. FOR PRINTING 


08286 


26 


08464 


0787M 


00850 




WNTY WOUT 


08298 


38 


08460 


00 1 00 


00860 




WATY ERR 


08310 


39 


08391 


00100 


00870 




BI •♦12,0700 


08322 


46 


08334 


00700 


00880 


SAVNSl 


H 


08 334 


48 


00000 


00000 


00890 




B7 RC 


08 346 


49 


07808 




00900 


TRSEO 


WATY TC 


08354 


39 


08375 


00100 


00910 




B7 SAVMSl-12 


08366 


49 


08322 




00920 


TC 


OAC 8, TRAILER • 
TRAIIlER 


08375 




8 


X 2 


00930 


ERR 


DAC 35, CARD SEQ ERRORt CORRECT AND START* 
CARD SEQ ERROR* CORRECT AND START* 


08391 




35 


X 2 


00940 


UOUT 


DSC 6,00000* 
00000* 


08460 




6 




00950 


• 












00960 














00970 


• 


TRAILER CARD EARLY DETECTION ROUTINE 










00980 


• 












00990 


CDl 


TFM CM«6»0,67t SPECIAL SEQ NUN IF NON-SEQ AND NOT TRAILER 


08466 


16 


0787M 


-0000 


01000 




67 CM 


08478 


49 


07868 




OlOlO 


• 












01020 


• 












01030 


SKADR 


DC 3*999 
R99 


08487 




3 




01040 


• 
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01050 


• 


LAST CD READ AND CK 


01060 


• 






01070 


RDTRL 


RNCD 


5311,,, READ TRAILER RNPT IF PAPER TAPE • 


01080 


TOTSEC 


DS 


,RDTRL«23 


01090 




SF 


5311 


01100 




TFM 


SAVMS1>18, RDTRL 


OHIO 




C 


5390,CM^11,, NOP IF P. T. ••••• 


01120 




BNE 


ERSEQ,,, NOP IF P. T. 


01130 




BD 


•♦60,5318 


01140 




BD 


•♦48,5317 


01150 




BNR 


•♦36,5316 


01160 




CM 


5315,99999 


01170 




BE 


WRDSK,,, BR IF TRAILER OK 


01180 


• 


ERROR NO TRAILER REC 


01190 


• 






01200 


ERTR 


RCTY 




01210 




WATY 


NOTRL 


01220 




RCTY 




01230 




WATY 


N0TRL2 


01240 




RCTY 




01250 




BI 


•♦12*0700 


01260 




TDM 


ERSEQ^IO.O 


01270 




H 




01280 




B7 


ERTR 


01290 


NOTRL 


DAC 


47, NO TRAILER REC. CORRECT* RE-LOAD COMPLETE 






NO TRAILER REC. CORRECT, RE-LOAD COMPLETE DECK* 


01300 


N0TRL2 


OAC 


30, WITH CNTR REC* AND BR TO 7404* 






WI TH 


CNTR REC* AND BR TO 7404* 


01310 


• 






01320 


NAM 


OAC 


50. 


01330 




DAC 


31. 

* 


01340 


DSKOUT 


DSS 


6 


01350 




DC 


3.0 






«00 




01360 




DSA 


SOOO 


01370 




WRITE DISK ROUTINE 


01380 


WRDSK 


C 


DSK0UT^3, SKADR** CK FOR SEEK NEEDED 


01390 




BE 


•♦36 - 


01400 


SKI 


SK 


DSKOUT 


01410 




TF 


SKADR, DSK0UT^3** SAVE SEEK ADDRESS 


01420 




WON 


DSKOUT 


01430 




CDN 


DSKOUT 


01440 




BI 


ASC,3800,* BR OVERFLOW 


01450 




BI 


TEST, 1900,, BR ANY OTHER ERROR 


01460 




BNI 


SM2.I900., BR NO ERRORS 


01470 


H2 


H 




01480 




61 


•♦12,0700 


01490 




B7 


SKI 


01500 


SM2 


A 


DSK0UT+5,DSKOUT^8,*AD0 NUMB SECT WRITTEN TO 


01510 




BO 


END,ERSEQ^10,, BRANCH IF LAST WRITE 


01520 




B7 


INITZ,,, BRANCH IF NOT LAST WRITE 


01530 


• 







08488 


36 


05311 


00500 


08511 




0 




08500 


32 


05311 


00000 


08512 


16 


08352 


-8488 


08524 


24 


05390 


07879 


08536 


47 


08262 


01200 


08548 


43 


08608 


05318 


08560 


43 


08608 


05317 


08572 


45 


08608 


05316 


08584 


14 


05315 


R9999 


08596 


46 


09042 


01200 


08608 


34 


00000 


00102 


08620 


39 


08713 


00100 


0B632 


34 


00000 


00102 


08644 


39 


08807 


00100 


08656 


34 


00000 


00102 


08668 


46 


08680 


00700 


08680 


15 


08272 


00000 


08692 


48 


00000 


00000 


08704 


49 


08608 




08713 




47 


X 2 


08807 




30 


X 2 


08867 




50 


X 2 


08967 




31 


X 2 


09028 




6 




09036 




3 




09041 




5 


X 1 


09041 




-5000 




09042 


24 


09031 


08487 


09054 


46 


09090 


01200 


09066 


34 


09028 


00701 


09078 


26 


08487 


09031 


09090 


38 


09028 


00702 


09102 


36 


09028 


00703 


09114 


46 


09452 


63800 


09126 


46 


09214 


01900 


09138 


47 


09182 


01900 


09150 


48 


00000 


00000 


09162 


46 


09174 


00700 


09174 


49 


09066 




09182 


21 


09033 


09036 


09194 


43 


09508 


08272 


09206 


49 


07748 
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01540 


TEST 


BI 


•♦12,0600 








00600 


01 550 




BI 


•♦12,0700 




AA 




n?Inn 


0 1 560 




BI 


•♦12,1600 


09238 


4A 

2a 




01600 


01570 




BI 


•♦12,1700 




2a 


nQ9A5 


0 1 f GO 






BI 


•♦12,3600 


_ 

no??! 






03600 


01 590 




BI 


•♦12,3700 








03700 


01600 




WRONG LEN REC CK ROUTINE 












NOP 


NOP 


DNESEC, NOP 1ST TIME, BRANCH 2N0 TIME 








00000 


01620 




TO 


NOP+1,9 






09287 


00009 






B7 


SKI 


093 10 


49 


09066 




ni AAn 


_ - 


TDM 


NOP^l,l 


09318 


15 


09287 


00001 


ni A^n 




RCTy 




09330 


34 


00000 


00102 






WATY 


DERR 


09342 


39 


09387 


001 00 


01670 




BI 


•♦12,0700 


09354 


46 


09366 


00700 


ni Afln 




H 




09366 


48 


00000 


00000 


01690 




B7 


SKI 


09378 


49 


09066 




01 


DERR 


OAC 


33, DISK RD WR ERROR, START TO RETRY* 


09387 




33 


X 2 






DISK 


RD WR ERROR. STAR? TO RETRY* 










01710 




















OVERFLOW ROUTINE 










01730 


ASC 


BI 


H2»1900,, BR IF OTHER ERROR ALSO 


09452 






01 900 






AM 


DSK0UT^13. 100. .INCREMENT CORE WRITE-OUT ADDRESS 




11 






01750 




AM 


DSKOUT+5,1.. INCREMENT SECTOR AODR 














SM 


DSKQUT4-8.I.9 




12 


non^A 


00-01 


ni 77n 




87 


SKI 


09500 


49 


09066 




01780 
















01790 




END ROUTINE 










01800 


• 














01810 


END 


TDM 


ERSEQ^IO.O 


09508 


15 


08272 


00000 






IF 


L0MESS*10.3999,. GET NAME INTO MESSAGE 


09520 


26 


09717 


03999 


01830 




RCTY 




no^f f 




r\r\r\f\n 
OOOOO 


00102 


01840 




WATY 


LDMESS 










01850 




BI 


•♦12.0700 




f A 




00700 


01860 




TDM 


4006.0 


no^7a 


15 


04006 


uuuuu 


01870 




DC 












01880 




WNTY 


4000 


nosRn 




_ 








BI 


•♦12,0700 


noAnf 


AA 




00700 


ni Qnn 




A 


4005.T0TSEC.. PREPARE FINAL 




21 




0851 1 


01910 




SM 


4005.1.. . SECTOR TYPEOUT 


09616 


12 


04005 


—0001 


01920 




WATY 


LDMES2 


09628 


39 


09697 


00100 


01930 




WNTY 


4000 


09640 


38 


04000 


00100 






BI 


•♦12.0700 


09652 


46 




00700 


01950 




BCl 


• ♦24 


09664 


46 


09688 


OOlOO 


01960 


SAVMES 


H 




09676 


48 


00000 


00000 


01970 




B7 


STAR 


09688 


49 


07^04 




01980 


• 














01990 


LOME S 2 


DAC 


5, TO • 

1 


09697 




5 


X 2 


02000 


LOMESS 


TO ' 
DAC 


20. AAAAAA LOADED FROM • 


09707 




20 


X 2 






AAAAAA LOADED FROM * 










02010 




DEND 


STAR 


07404 
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ADJUST 


0SI58 


BF 


07856 


ERTR 


08608 


SFl 


07580 


WOUT 


08460 


DSKOUT 


09028 


COl 


08466 


H2 


09150 


SKAOR 


08487 


WRDSK 


09042 


ERHIGH 


08087 


CDINI 


07784 


INITZ 


07748 


SKI 


09066 


SAVMES 


09676 


HALTRD 


07996 


CM 


07868 


LDCTR 


08029 


SM2 


09182 


SAVMSl 


08334 


LDMES2 


09697 


DERR 


09387 


NAM 


08867 


STAR 


07404 


TEMPSC 


07591 


LDMESS 


09707 


END 


09508 


NOP 


09286 


TC 


08375 


TOTSEC 


08511 


N0TRL2 


08807 


ERHI 


08042 


NOTRL 


08713 


TO I 


07520 






ONESEC 


09318 


ERR 


08391 


RC 


07808 


TEST 


09214 






ASC 


09452 


ERSEQ 


08262 


RDTRL 


08488 


TRSEQ 


08354 







END OF ONE ASSEMBLY. 



HJ06 
HSPSX 

*LISTTYPEWRITER 



*THIS PROGRAM COMPUTES THE AREA UNDER THE CURVE 
*SQRT(3X**2)ARCSINEX, WHERE X LIES BETWEEN 0 AND 1, THE AREA IS 
*COMPUTED BY SIMPSONS RULE 

* FOR NUMERICAL INTEGRATION. THE AREA IS EVALUATED USING THREE 

* DIFFERENT VALUES FOR DELTAX. THEY ARE 0.100, 0.050, AND 0.025, 
START TF DELTAX, X, 7, TRANSMIT VALUE OF INCREMENT 

02U02 26 0U059 

TF AREA,Z-3 02mii 26 0I»088 

TF XSUBN,UNIT 02i»26 26 0U106 

TDM SW3 + 1,1,,SET SW3 OFF 02ii38 15 03759 

TDM SW2*1,1,,SET SW2 OFF 02i»50 15 05567 

TDM SWl+l,I,,SET SWl OFF 02K62 15 03l»35 

TR ASUBN-9,C0NST-9,, TRANSMIT ASUB5 TO ASUBO 

02U7II 31 Ol»lll» 



ASINE 



TF 
M 
SF 
BNF 
SF 
TF 
TR 
A 

BNR 



PSIX,ASUBN 
PSIX,XSUBN 
8I» 

*+2*L,99 
93 

PSIX,93 

ASUBN-9,ASUBN+1 
PSIX,ASUBN 
ASINE, ASUBN^l 



BNCl CONTA 



TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
TD 
RCTY 
WATY POLY 
TF RADCND,UNIT 
S RADCNO,XSUBN,,RADICAND 
TR RADCN0,ZNINES-13, 
BNCl CONTB 

TD ARG+l»2,RADCND-6 
TD ARG+li6,RA0CND-5 
TO ARG«i»8,RADCND-l» 
TD ARG+50,RADCNO-3 



P0LY*l»8,PSIX-9 

POLY+52,PSIX-8 

P0LY+5U,PSIX-7 

P0LY+56,PSIX-6 

POLY+58,PSIX-5 

POLY + 60,PSIX-1» 

P0LY+62,PSIX-3 

P0LY+6l|,PSIX-2 

P0LY+66,PSIX-1 

P0LY+68,PSIX 

POLY+12,XSUBN-6 

POLY+16,XSUBN-5 

P0LY*18,XSUBN-I» 

POLY*20,XSUBN-3 



02i»86 26 0i»2U5 

02i»98 23 0U2it5 

02510 32 0008l» 

02522 kk 025U6 

0253U 32 00093 

025U6 26 0U2t»5 

02558 31 Okllk 

02570 21 0i»2U5 

02582 k5 02l»98 

0259(1 U7 02798 

02606 25 Okkkl 

02618 25 OkkkS 

02630 25 0t»Ui»7 

026U2 25 0Ul»U9 

0265i» 25 0UU51 

02666 25 0Ui»53 

02678 25 0l»U55 

02690 25 0UI»57 

02702 25 0UU59 

0271U 25 0l|l»61 

02726 25 Oi»U05 

02738 25 0i»i»09 

02750 25 OUt»ll 

02762 25 Okkll 

0277t» 3i» 00000 

02786 39 0U393 

02798 26 0li253 

02810 22 0t»253 

02822 31 Ott253 

0283U ii7 0295U 

028U6 25 0U507 

02858 25 01(511 

02870 25 0l»513 

02882 25 0U515 



0t(066 
0U096 
04113 
00001 
00001 
00001 

0U175 
0U123 
0U106 
00000 
00099 
00000 
00093 
0U12U 
0ttl23 
0U121I 
00100 
04236 
01*237 
04238 
04239 
04240 
04241 
04242 
04243 
04244 
04245 
04100 
04101 
04102 
04103 
00102 
00100 
04113 
04106 
04268 
00100 
04247 
04248 
04249 
04250 



64/ 



TD 


ARG«52,RA0CND-2 


02894 


25 


04517 


04251 


TD 


ARG«54,RADCNO-l 


02906 


25 


04519 


04252 


TD 


ARG+56,RADCND 


02918 


25 


04521 


04255 


RCTY 




02930 


34 


00000 


00102 


WATY 


AR6 


02942 


59 


04465 


00100 


TF 


NINE,TW09 


02954 


26 


04295 


04505 


TF 


0DDINT,0NE0NE 


02966 


26 


04519 


04555 


B 


**2*L 


02978 


49 


05002 


00000 


A 


0DDINT-8,TW0 


02990 


21 


04511 


04287 


S 


RADCND+7,0DDINT 


03002 


22 


04260 


04519 


BNN 


ROOT 


03014 


46 


02990 


01500 


A 


RADCND+7,0D0INT 


03026 


21 


04260 


04519 


TR 


RADCND-7,RADCND-6 


03038 


31 


04246 


04247 


SF 


RADCND-7 


03050 


32 


04246 


00000 


S 


00DINT-8,NINE 


03062 


22 


04511 


04295 


TF 


NINE,NINE-1 


03074 


26 


04295 


04292 


BNF 


R00T+1*L,TW0*1 


03086 


44 


05002 


04288 


TF 


SQRT, NINES 


03098 


26 


04559 


04545 


SF 


RADCND-^1 


03110 


32 


04254 


00000 


S 


SQRT,RADCND+6 


03122 


22 


04559 


04259 


BNCl 


CONTC 


03134 


47 


05242 


00100 


TD 


GENRT+24,SQRT-5 


03146 


25 


04549 


04554 


TD 


GENRT+28,SQRT-4 


03158 


25 


04555 


04555 


TD 


GENRT+30,SQRT-3 


03170 


25 


04555 


04556 


TD 


6ENRT+32,SQRT-2 
GENRT*34,SQRT-1 


03182 


25 


04557 


04557 


TD 


03194 


25 


04559 


04558 


TD 


GENRT+36,SQRT 


03206 


25 


04561 


04559 


RCTY 




03218 


34 


00000 


00102 


WATY 


GENRT 


03230 


59 


04525 


00100 


M 


SQRT, PS IX 


03242 


25 


04559 


04245 


SF 


85 


03254 


52 


00085 


00000 


TF 


TEMPI, 94 


03266 


26 


04555 


00094 


BNCl 


SWl 


03278 


47 


05454 


00100 


TD 


FUNCT+10,TEMPl-9 


03290 


25 


04575 


04546 


TD 


FUNCT+14,TEMPl-8 


03302 


25 


04579 


04547 


TD 


FUNCT+16,TEMPl-7 


03314 


25 


04581 


04548 


TD 


FUNCT+18,TEMPl-6 


03326 


25 


04585 


04549 


TD 


FUNCT+20,TEMPl-5 


03338 


25 


04585 


04550 


TD 


FUNCT+22,TEMPl-4 


03350 


25 


04587 


04551 


TD 


FUNCT+24,TEMPl-3 


03362 


25 


04589 


04552 


TD 


FUNCT+26,TEMPl-2 


03374 


25 


04591 


04555 


TD 


FUNCT+28,TEMP1-1 


03386 


25 


04595 


04354 


TD 


FUNCT+30, TEMPI 


03398 


25 


04595 


04355 


RCTY 




03410 


54 


00000 


00102 


WATY 


FUNCT 


03422 


59 


04565 


00100 


B 


SW2 


03434 


49 


05566 


00000 


M 


XSUBN,XSUBN 


05446 


25 


04106 


04106 


SF 


87 


05458 


52 


00087 


00000 


TF 


TEMP2,96 


03470 


26 


04565 


00096 


MM 


TEMP2,3,10 


03482 


15 


04565 


00003 


SF 


90 


03494 


32 


00090 


00000 


TF 


RADCND,96 


03506 


26 


04253 


00096 


TF 


PSIX,CONST+50 


03518 


26 


04245 


04254 


S 


PSIX, TEMPI 


03550 


22 


04245 


04555 


TDM 


SWl+1,9 


03542 


15 


03455 


00009 
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B 


ROOT-ll»*L 




03551* 


1*9 


02822 


00000 


SW2 


B 


ODDVN 




03566 


1(9 


03671* 


00000 




A 


AREA,TEMP1-«»,,F0 + FN 


03578 


21 


01*088 


01(351 


* INITIALIZATION FOR FSUBODD 














TF 


XSUBN, DELTAX 




03590 


26 


01*106 


01*059 




TFM 


MULT+11,U,10 




03602 


16 


03733 


OOOOl* 




TDM 


SW2+1,9 




03611* 


15 


03567 


00009 




TF 


ACCUM,Z 




03626 


26 


01*376 


01*099 




TF 


TEMP3, DELTAX 




03638 


26 


01*383 


01*059 




A 


TEMP3,TEMP3 




03650 


21 


01*383 


01*383 




B 


ASINE-3*L 




03662 


1*9 


021*62 


00000 


ODDVN 


A 


ACCUM, TEMPI 




0367t* 


21 


01*376 


01*355 




A 


XSUBN, TEMP3 




03636 


21 


01*106 


01*383 




C 


XSUBN, NINES 




03698 


21* 


01*106 


01*31*5 




BNH 


ASINE-3*L 




03710 


1*7 


021*62 


01100 


MULT 


MM 


ACCUM 




03722 


13 


01*376 


Ooooo 




SF 


88 




03731* 


52 


00088 


00000 




A 


AREA, 95 




0371*6 


21 


01*088 


00095 


SW5 


B 


*+6*L 




03758 


1*9 


03830 


00000 


* INITIALIZATION FOR FSUBEVEN 














TFM 


MULT+11,2,10 




03770 


16 


03733 


00002 




TF 


ACCUM, Z 




03782 


26 


01*376 


01*099 




TF 


XSUBN, TEMP3 




03791* 


26 


01*106 


01*383 




TDM 


SW3+1,9 




03806 


15 


03759 


00009 




B 


ASINE-3*L 




03813 


1*9 


021*62 


00000 




M 


AREA, DELTAX 




03830 


23 


01*088 


01*059 




SF 


88 




0381*2 


32 


00088 


00000 




TF 


TEMPI, 97 




03851* 


26 


01*355 


00097 




M 


TEMPI, THREES 




03866 


23 


01*355 


01*590 




TD 


0UTPUT+26,DELTAX- 


5 


03878 


25 


01*625 


01*051* 




TD 


0UTPUT+28,DELTAX- 


1» 


03890 


25 


01*627 


01*055 




TD 


OUTPUT*30,DELTAX- 


5 


05902 


25 


01*629 


01*056 




TD 


0UTPUT+U6,83 




03911* 


25 


01(61*5 


00083 




TD 


OUTPUT*50,8I» 




03926 


25 


01(61*9 


00081* 




TD 


OUTPUT+52,85 




03938 


25 


01(651 


00085 




TD 


OUTPUT+5l»,86 




03950 


25 


01(653 


00086 




TD 


OUTPUT+56,87 




03962 


25 


01(655 


00087 




TD 


0UTPUT*58,88 




0397U 


25 


01(657 


00088 




RCTY 






03986 


31* 


00000 


00102 




WATY 


OUTPUT 




03998 


39 


04599 


00100 




AM 


START+11,7,10 




OUOIO 


11 


021(13 


000S7 




CM 


START*11,X*21 




01)022 


Ik 


021(15 


01*087 




BNE 


START 




0i»03i* 


1*7 


021(02 


01200 


CALX IT 


CALL 


EXIT 




0ii0l*6 


1*9 


00796 


00000 


* AREA 


DEFINI 


ITIONS 












DELTAX 


DS 


7 




01*059 


00007 




X 


DC 


7,100000 




V U Q 


00007 QlOOOOO 




DC 


7,50000 




04*073 


00007 9050000 




DC 


7,25000 




01*080 


00007 0025000 


AREA 


OS 


8 




0U088 


00008 




Z 


DC 


11,0 




0U099 


00011 Ooooooooooo 


XSUBN 


OS 


7 




01*106 


00007 




UNIT 


DC 


7,1000000 




01*113 


00007 loooooo 


ASUBN 


DSB 


10^6 




01*123 


00060 






DS 


1 




01*171* 


00001 





L 

PS IX 



01*181* 
01*191* 
01*201* 
01*211* 
01*22U 
01*235 
00012 
01*21*5 
0U2i*6 
01*253 
01*266 
01*281 
01*287 
01*293 
01*305 
01*319 
01*353 
01*559 
0U5l(5 
01*555 
01(565 
01(376 
01(383 
01(590 
0000000000 

01(593 

ARG DAC 50, SQUARE ROOT ARGUMENT-0 .OOOOOOf OkkSS 
GENRT DAC 20, SQUARE ROOT-0 .000001 01(525 
FUNCT DAC 17,F(X)-0.000000000e 01(565 
OUTPUT DAC 31, FOR DELTAX-0 .000, AREA-0 .OOOOOi 0W99 
DENO START QlkOl 



CONST DC 
DC 
DC 
DC 
DC 
DC 
DS 
DS 
DS 

RADCND OS 
DS 

ZNINES DC 
TWO DS 
NINE OS 
TW09 DC 
ODD I NT DS 
ONEONE DC 
SQRT DS 
NINES DC 
TEMPI DS 
tEMP2 DS 
ACCUM DS 
TEMP3 DS 
THREES DC 
POLY DAC 



10,-«(557769 
10«193l(9959 
10,-i(i(95888i( 
10,87876511 
10,-211(512562 
11^15707952071 
.12 
10 
1 
7 

15 

15,9999999@ 
6 
6 

12,200000090000 
Ik 

ll(, 10000000000001 
6 

6,999999 
10 
10 

11 

7 

7,3355553 

36, FOR X-0.000, POLYNOM I AL-0 . 



00010 
00010 
00010 
00010 
00010 
00011 
00000 
00010 
00001 
00007 
00015 
00015 
00006 
00006 
00012 
00011* 
00011* 
00006 
00006 
00010 
00010 
00011 
00007 
00007 

00072 
00060 
000i(0 
OOQlk 
00062 



0001*337765 
001931*9959 
0OUU95888I* 
0087876311 
0211*512362 
1570795207* 



00000009999999t 

200000090000 

lOOOOOOOOOOOOl 

999999 



5555555 



END OF ASSEMBLY. 

01*660 CORE POSITIONS REQUIRED 

00186 STATEMENTS PROCESSED 



PAGE 



EXECUTION 

FOR DELTAX«0.100^ AREA-0. 68656 

FOR DELTAX-0.050, AREA-0.682U1 

FOR DELTAX»0.025, AREA-0. 68096 
END OF JOB 



PAGE 

#*JOB MONITOR II FORTRAN ll-D SAMPLE PROGRAM 

HF0RX51 

DIMENSION E(10).F(10),G(10),H(5,5),FUNCT(50),H1(5,5),VALUE(50) 
DIMENSION ARG(IO) 
DEFINE DISK (10^200) 

EQUIVALENCE (F.ARG), (VALUE, G,H), (FUNCT^E, HI) 
SCSFCT(X)«SINF(X)**2+COSF(X)**2 
20 READ 999,XZER0,XMAX^DELX 

50 READ 987,A,B,C,D 

READ 992,(ARG(J)«J-1,10) 
READ 991,(VALUE(L>,L-1,50) 
READ 991,(FUNCT(L>,L-1,50) 
IND-1 

RECORD(IND) ARG, VALUE, FUNCT 
READ 988,((H(M,N),N-1,5),M«1«5) 
RECORD(IND) H 
READ 98I|,(F(I), 1-1,10) 
READ 98U,(G(J),J-1,10) 
PRINT 983 
200 X-XZERO 
30 Xl-StNF(X) 
X2-C0SF(X) 
X3-SINF(X)/C0SF(X) 
XI»«EXPF(X) 
X5-EXPF(-X) 
X6-L0GF(X) 

X7«L0GF(X)/2. 3058509 

X8-SQRTF(X) 

X9-ATANF(X) 

X10-L0GF(X3)/2. 3058509 
PRINT 998,X,X1,X2,X3 
PRINT 998,X,XI(,X5 
PRINT 998,X,X6,X7 
PRINT 998,X,X8 
PRINT 998,X,X9,X10 
PRINT 988 

IF(X-XMAX) l»0,51,51 
UO X-X-t-DELX 
GO TO 50 

51 DO 61 l»l,10,5 
Ed )-SCSFCT(F{l )) 
DO 55 J»l,10,5 
F(n»J 

PRINT 999, F(l) 
K»G(J) 

PRINT 998, Ed) 
PRINT 993,J,G(J),K 

55 CONTINUE 
61 CONTINUE 
IND=1 

FETCH(IND) ARG, VALUE, FUNCT 
DO 63 0=1,10 



DO 70 L.1,50 '''^^ ' 

IF(ARG(J)-VALUE{L))70,65,70 
65 PRINT 990,ARG(J)^FUNCT(L) 
70 CONTINUE 
63 CONTINUE 

FETCH(IND) H 

DO 130 M»l,2 

DO 80 N=l,3 

Hl(M,N)»H(M,N)*1.0E+2 

PRINT 990,H1(M,N) 
80 CONTINUE 
130 CONTINUE 

PAUSE 

GO TO 20 

9^3 FORMATdlX IHX 13X 6HSiN(X) lOX 6HC0S(X) lOX 6HTAN(X) /IIXIHX 13X 

1 6HEXP(X) lOX 7HEXP(->X)/ IIX IHX 13X 6HL06(X) 9X 8HL0610(X)/ IIX 

2 IHX 13X 7HSQRT(X)/ IIX IHX 13X 7HATAN(X) 7X ISHLOGIO (TAN(X) )// ) 

998 F0RMAT(I»F16.8) 

991 FORMAT(10F5.2) 

992 F0RMAT(FI».2,9F5.2) 

993 F0RMAT(I3^5X,F10,7,5X,I3) 
98l» F0RMAT(10Ft».2) 

987 F0RMAT(F5.3,1X,F5.3,1X,F5.5,1X,F5.3) 

999 FORMAT ( 3 FU.O) 
990 FORMAT(2F20.7) 

988 FORMAT ( 10 Fd. 3) 
END 



90003 


OOOl 




00007 


0005 




00017 


2305850901 


00021 


0003 




00031 


I000000003 


00035 


0002 




00039 


0010 




000t»3 


0050 




00053 


FUNCT 


005U3 


00053 


E 


001i»3 


00053 


HI 


00293 


00553 


VALUE 


010i>3 


00553 


G 


006li3 


00553 


H 


00793 


01053 


F 


011i»3 


01053 


ARG 


011U3 


01153 


X* 




01163 


XMAX 




01173 


OELX 




01183 


A 




0119S 


C 




01197 


J 




01201 


L 




01205 


N 




01209 


1 




01219 


X 




01229 


XI 





S4« 



X3 
X5 
X7 
X9 
XZERO 
B 
D 

IND 
M 
X2 
Xl| 
X6 
X8 
XIO 
K 



01239 
012l>9 
01259 
01269 
01279 
01289 
01299 
01303 
01307 
01317 
01327 
01337 
013U7 
01357 
01361 

01520 0020 
01580 OOSO 
02608 0200 
02620 0030 
03338 OOdO 
03382 0051 
0378i» 0055 
03820 0061 
Oi»12i» 0065 
HkZkk 0070 
0t»280 0063 
JikSOk 0080 
0(»5i»0 0130 
0U6O2 0983 
HSOkk 0998 
0508l» 0991 
0512U 0992 
05171* 0993 
0523i» 098i» 
05271* 0987 
05356 0999 
05396 0990 
05U36 0988 
05U90 LENGTH 
59999 NEXT COMMON 
END OF COMPILATION 
EXECUTION 



MAIN 075O0 05U90 

15 12990 00376 

1<* 13366 00518 

12 I388ii 0071*2 

05 11*626 01530 

03 16156 001*71* 

02 16630 0O65O 

01 17280 0O65O 



LOADED 
LOADED 
LOADED 
LOADED 
LOADED 
LOADED 
LOADED 
LOADED 



8 46 



PAGE 



X 
X 
X 
X 


SIN(X) 
EXP(X) 
LOG(X) 
SQRT(X) 
ATAMf y^ 

M 1 Mn 1 A / 


COS(X) 
EXP(-X) 
LOGIO(X) 

LUuXU \ 1 AN I A / i 


TAN(X) 


.1)0000000 
.1)0000000 

.uooooooo 
.uooooooo 

.1)0000000 


.389U1833 
l.l|9182l»60 
-.91629072 
.63245553 
.38050637 


.92106099 
.670320011 
-.39737639 

-.3733U2U8 


.U2279320 


ooooo 
ooooo 
ooooo 
ooooo 
ooooo 

in in in tn in 


.U79J)2553 
1.6U872120 
-.6931U717 
.70710678 
.ii636U761 


.87758256 
.60653065 
-.30060563 

-.26219ii9i| 


.5l»6302li8 


.60000000 
.60000000 
.60000000 
.60000000 
.60000000 


.56i»6i|2li6 

-.51082562 
.771159666 

CbAhl OCA 


.82533561 

• 9IIOSXXDJ 

-.22153ii5U 

. X0HDC93D 


.68U13679 


.99999998 
2.1000000 


2 






.99999998 
2.6000000 


2 






.99999999 
2.1000000 


2 







.99999999 
2.6000000 
5.0000000 
10.0000000 
211.0000000 

II. 0000000 
39.0000000 
17.0000000 

0000000 

III. 0000000 
50.0000000 

1.0000000 
11.0000000 
22.0000000 
33.0000000 
66.0000000 
77.0000000 
88.0000000 



5.1000000 
10.1000000 
211.1000000 

II. 1000000 
39.1000000 
17.1000000 

1000000 

III. 1000000 
50.1000000 

1.1000000 



849 
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XZERO^XMAX^OELX 

.uo .60 ao 

A,B,C,0 

1.111 2.222 3.333 l».lilili 
AR6 

S.O 10.0 211.0 11.0 39.0 17,0 liU.O dl.O 50.0 1.0 



VALUE 



I. 0 2.0 3.0 li.O 5.0 6.0 7.0 

II. 0 12.0 13.0 Id.O 15.0 11.0 17.0 
21.0 22.0 23.0 211.0 25.0 21.0 27.0 
31.0 32.0 33.0 311.0 35.0 36.0 37.0 
lil.O Ii2.0 li3.0 kk,0 kS,0 «6.0 %7.0 



8.0 9.0 10.0 
18.0 li.O 20.0 
28.0 29.0 30.0 
38.0 39.0 kO,Q 
«8.0 Ii9.0 50.0 



FUNCT 

I. 10 2.10 3.10 li.lO 5.10 6.10 7.10 8.10 9.10 10.1 

II. 1 12.1 13.1 lli.l 15.1 16.1 17.1 18.1 19.1 20.1 
21.1 22.1 23.1 2l».l 25.1 26.1 27.1 28.1 29.1 30.1 
31.1 32.1 33^1 3U.1 35.1 36.1 37.1 38.1 39.1 kO.l 
Ul.l U2.1 43.1 44.1 45.1 46.1 47.1 48.1 49.1 50.1 



.11 .22 .33 .44 .55 .66 .77 .88 .99 .10 
.11 .12 .13 .14 .15 .16 .17 .18 .19 .20 
.21 .22 .23 .24 .25 



1.1 2.2 3.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0 



2.1 2.2 3.5 2.4 2.5 2.6 2.7 2.8 2.9 3.0 



SEEK DISK 
READ DISK 



• IS 

• INDICATOR 

• 19 ON 



HALT 

mm ™ 



• +2 
• ID 



ovulay 

10 



EXECUTION 
OF PROGRAM 
AT 1ST ADO. 
LOADED 



SWITCH 



iSL 
ICiQ 



tOPT 




1 1 



INPUT OUTPUT ROUTINE 
lOSK IC 

sh seIk'""" 

ONLY SMITCH 



IH 



START TO 
BUILD gUTPT 
'NSTRUCTtON 
0 TO TEST 



I INL. . 
t 60 TO 
1 ERROR 




COMPUTE I 



IK 



ENf RY-MOMTR 
ADOR TO 
^VRLAY 

""'oVRtAY* 



lA 



CRRET 



• TEST INO • llioil 
• 19.1$ 19 OM • . 

• ♦as 



» TEST 010 



SIS 



NO 
NONOSK 



» PERFORM NON • 
• DISK 10 • 
♦ TEST IND 19 • 



• TEST FOR 
""'ORO Mi 
LOCN 



• RECORD MARK 
• 1ST r " 



VES 
ERROR 



NO 
010 



•RETRN 

IR 



IP 

JOE 
AND 



• • NO 

• DIM NUMBER • CHKl 
• SUPPLIED • 

• • 2B 

• • 

Of ox 



• SEEK READ • 



NO 

ERROR 



PAGE 1 OF 8 
lU 



CLEAR THE 
SEEK ONLY 



» IS SEEK 
• NECESSARY 



YES 
GTE SI 



• TEST IF 
• GET ENTRY 



NO I 
I 



DtOZ I LX 



SET MODE 
DIGIT. 



• • YES 

• TEST IF . JUMP 
♦ LOADER ♦ 

• NEEDED • 2A 



♦ TEST IF SPS • OIOZ 
• SUPERVISOR • 

• NEEDED • IX 



ERRET 



IL 



TO lU 



MONITOII II 



JUMP ^ 2*^ 

*"ovSay I a 

CHKl 28 



I NO I CAT EO 





"dISy" 


SEEK 


20 


i im'^ 1 




'L, { 


|~lllis 


£0^ 

ARYJ 1 




26 
. — • 



• YES 
• TEST SEEK • .RETRN 



♦ ONLY 




• 




• 









NO 


01 OP 


DIOP 


2B 



I EXECUTE 
! DISK I/O 
I DO RBC IF 
I CALLED AT 
I ENTRY 

I 
I 
I 



INPUT OUtf»UT ROUTINE 
^ 26^ 

• 19 • 2S 

* • 

NO I * 



• • 2M 



NO •mKN 



IK 



• NO 
• .EXIT 



SET UP 



Si - 

REPOSITION 
ADDRESS 



CHK2 2M 

i upoatI'high" 
I 



CHK3 



2N 



• •YES 
• IF SPS • OVRLAY 

NO 



CHK4 
• TE 



TEST IF • X04 
EXECuflON • 
OESIREO • 2J 



mm'' 



OVERLAY 
ERROR 



PAGE 2 OF 8 

2U 



UPDATE 
ERROR COUNT 
-WRITE BACK 
ON DISK 



• » NO 

• TEST DISK • NOERRl 
• ERROR » 



YES 


^2Q 


YES j 

I 
I 

I 2W 






Wh, j 


I TYpi 
I MESSAGE 
1 RETRY 






X04 2J 


AGAIN 


2V 




2R 


NOERRl 2X 




Hi 


a 


• • NO 

• TEST IF • ERRORS 
• 10 ENTRY * 

• ERROR • 21 






• « 

YES j 




ERROR 


L. 


I 
I 

I 2Y 





I TYPE ENTRY 
I MES 



_SSAGE 
OVERLAY 
I MAIN 
I ROUTINE 



ERRORS 21 



ERROR 
STAGE 0 
ROUTINE 



MONITOR II 



INPUT OUTPUT ROUTINE 



ERROR 
STAGE 0 
ROUTINE 
FOLLOWS 



E0040 _ 3G 

• * •NO 

• TEST IF NON • E0050 
• DISK ERROR • 

* • 3F 



I 
I 
I 

STAGED I 3& 



MOVE ,4^ETURN 
ADDRESS FOR 
TYPEOUT 
ERROR INDI- 
CATION 



I 
I 

I 3C 

• . » 

• • YES 

• TEST DISK • E0070 
• I/O • 

• • 3J 



NO I 
I 



EXECUTE 
STAGE2 



• TEST AT MAP • eSIoO 
• READ TIME • 
,» • 3Q 



I 30 

• * • YES 

• TEST IF » E0040 
• FURTHER • 

• DEFINED • 3G 



I 
I 

I 3B 



• YES 
• HOLLER 



• TEST IF 
» CONTROL 
» CARD TRAP • 3T 



FAILURE I 
INCORRECT I 
I CALL I 
I I 

HOIitiR*" 



*• E0090 
■ • 

• 3M 



YES 
E0080 


_ 3L 


j w 





STAGE 1 
3M 



• TEST IF 

• ILLEGAL • 

• NAME LOAD • 3P 



• •NO 

• TEST IF • E0050 
• LEGAL DRIVE • 

• CODE • 3F 

* • 
• • • 

YES I 
I 
I 

E0095 I 3P 



^OAD.AND EX 



ECUTE 
STAGE3 



• TEST IF 
• EMPTY MAP 



ERROR ROUT- 



PAGE 3 OF 



3U 



READ TYPED 
ENTRY.CALL 
INDIRECT 
BRANCH'PER 
TYPE OPTION 



.NOTE 



RETRY, 
BYPASS EROR 
EXIT 

CALL MONITR 



ROUTINE 
FOLLOWS 



I 
I 
I 

STAGEl I 3X 



• BRANCH AS 
• PRESET 



• MAPFNF 

• 3Y 



CHECK as 

• ' • NO 

• CHECK • .RETRN 
• INDICATORS. • 

• ANY ON • 



DISABLE 
ANY READ 
BACK CHECK 



ERROR 



S|ltAL.. 

fNoISStoRS. 
HALT 



INITIALIZE 
MOVE OF I/O 
INSTRUCTION 



MONITOR II 



I MOVE I/O I 
I INSTRUCTIQM j 



INPUT OUTm ROUTINE 
^6 



• • NO 

• TYPEWRITER • .RETRN 
• READ ERROR • 



PAGE A OF H 

lOPA 4U 

• , » 

• » NO 

• TEST FOR • .RETRH 
* ERROR • 



• CYLINDER 
• OyERFLOU 



• NO 
• RETRY 



NORBC 



*• cSIcK 



HOLLER 

• PAPER TAPE *• i'02 
" ER^ 



YES CHECK 3S 



ERROR 
STAGE3 
ROUTINE 
FOLLOWS 



COMPUTE TOP 
OF NEXT 
CYLINDER 



TEST DRIVe 
OVERFLOW 



46 



YES 
DOVFL 



COMPUTE N8W 
CORE 

UPDATE GYli. 
POSITION 



RETRY I 4R 



• 'NO 

• SEEK. 00 I/O • NORBC 
• INSTRUCTION • 

• TEST IF RBC • 4H 



YES I 
I 
I 

TO 4G 



?lfirii8T 



ERROR 
STAGE2 
ROUTINE 
FOLLOWS 



AGE2 ! 4L 

TiSRilF" 

COMPARISON 



YES 
Z02 



• •NO 
• PAPER TAPE • Z03 
• READ ERROR • 



3T 


YES 






Z03 


4R 



• CARD PUNCH • Z04 
• ERROR 



• YES 

• Z04 
• 

• 4S 
rOPA 4U 

4S 



• • NO 

• SET UP ERR. • HOLLER 



} 


YES 




\ 

I 4M 




4T 


• » NO 

• TYPEWRITER • ZOl 
• ERROR • 

• » 4P 


I OPERATION j 


» 

YES I 




i 


i 

TO 4N 


ro 


4U 



I 
I 

STA6E3 I 4W 



• » YES 
» TEST FOR * MERR 
» EMPTY MAP * 
♦ ENTRY » 58 



I 
I 

I 4X 

• * • YES 

• TEST FOR • RDVCD 
• ILLEGAL • 

• DRIVE CODE • 5D 

• • 
— — ' • 

NO I 



I 

I 4Y 



I INITIALIZE 
I FOR ILLEGAL 

I MESSAGE 



4Z 



OPERATOR 
TYPE ENTER 
CORRECT DIM 
NAME OR 
NUMBER 



I 



I 

TO 5A 



RESTORE 
lORT MAIN 
LINE 
ROUTINE 



MERR ^ 58 

I TYPE~EMPT« 

I MAP ERROR 

t INDICATOR* 

I OPERATOR 

I TYPE DIM. 



I RESTORE 
t lORT MAIN 
I LINE 

ROr ~ 



ROUTINE 



1! 



so. 

jye I 

MOULER*"" 3T 



LLOHS 



STA6E4 



YES I 



INPUT OUTPUT ROUTINE 
5G 

1 



RESTORE 
lORT CALL 
MONITOR AND 
EXECUTE 



I 



5H 

SPS SUPER. 
RELOCATABLE 
LOADER 
CALLER 
PHASE 1 



PHASEl 



9J 



• •NO 

• TEST IP • LCAOt 
• NON-TRA • 

• DISK LOAD • 9N 





ERROR 


2S 


YES 




ROVCD 


50 









• Tl 
• S(. 

• LOi 



• NO 
• LCAOt 



VES 


L 


1 1 


tCAOt 


5M 



/mi 



NO 



TRA** lIIo* 

• ss 



• • YES 

• DISK LOAD • LCA04 



I 
I 
I 

1 5P 



•* luPE 



• NO 
• LCA06 



YES I 
I 

LCA02 t SQ 



SUPiR.TO 
CORE RESTRE 
MULT.TAlLE 



• » NO 

• SPS SUPER. • 5S 



tCA06 



LCA02 
5S 



TE 



lA 



5T 



PAGE 5 OF 
5U 



• • YES 

• TEST IF TRA • LCB07 
• CALL • 

• » 6E 



I 

I 

I 5V 



• -YES 

• TEST IF » LCBOl 
• NON-DISK • 

» LOAD • 5Y 



NO 


5W 


I DISK-CALL 
I DRIVE CODE. 
I RESTORE SK. 
I ROUTINE 




5X 


MOVE ( 
CODE. 


;yldr. I 

ON. I 
)RIVE 1 



• TEST IF SPS • • 
• MAIN LIN~ 

• PROGRAM 



NO 
• +2 



mm OUrm ROUTINE 



• NO 
• LCB02 



YES 



60 

"Mi"" 



LCB02 


L 


I NRIjTE SAVB 1 

I IIP"" 1 




OVRIAY 


LCB07 


66 
, — >• 



• •NO 
• SET TRA • LCB02 



YES 


r 




: 


6P 




I INITIALIZe 


I 


I CYLINDER 




I FOR LOADER 


1 


I 




I 
I 



66 
TASLi 



STAGEA^ 



VES 



6R^ 

Aoii* 



LRA02 



6M 



• • NO 

• TEST IF • OVRLAY 
♦ CALLED BY • 

• SPS SUPER. • lA 



6N 



• •NO 
• TEST IF • OVRLAY 




ISOR 
ITASCA 



PHASEA 



-mm-: 



NO 
• SRA02 



• • 6V 

.■• • 

i£- 

SRAOl I 6T 



SET PHASEB 

SPS SUBRUT. 
AREA 



PAGE 6 OF 
6U 



READ AND 

EXECUTE 

PHASEB 



SET MAIN- 
LINE SWITCH 



ICpervisor 

RETURN 

ANAL.PHASEB 

FOLLOWS 



• • YES 

NON-OtSK • CHK4 



ELOCATABLE • 2P 
-— — « 



• TEST IF • ♦ 

• CALLED BY • ♦ 



• SPS SUPER. 

yes" 



I 6Z 

"return'to j 

IuIer VISOR ! 



MONITOR II 



INPUT OUTPUT ROUTINE 



PAGE 7 OF « 



• CALLED BY A • +2 
• SYS. PROGRAM ♦ 7C 



• RETURN THRU 



» • — 



RETURN 
ANALYZER 



AOl 7G 

'rIstore 

ARITH. 
EXECUTE 
MONITOR OR 
OUP- SUPER 



• TEST IF 
• OUP. CALL 



• NO 
• MCAOO 



7J 



I SAVE Sore 

I FOR OUP 

I SUPER. BRNCH 

I , TO lORBC 

I AND RETURN 



70 

MONITOR 
CALLER 
SUBROUTINE 
FOLLOWS 



CYLINDER 
POSITION 



RETURN 



... T6R REST- 
ORE OF 
ARITH.TABLE 



MCA03 



• TES 
• HON 

• IN 



I If 

II TOR 
CORE 



TP 

|R 13 
MCAI06 



YES 
• .MONTR 



IR AND 
lA 



OVERLAY AND 
EX. HON I TOR 



lORT LOAD 
PROCESSOR 
FOR NAMED 
PROGRAMS 
SECTl 



MOVE NAME 
AND 

ADDRESS 



SAVE lORT 
CALLING 
PARAMETERS 
SAVE CoIIe 
BEING OVRLD 



7U 

• * ♦YES 

• TEST IF END » ERROR 
» OF TABLE • 

• • 2S 



AB03 1_ 7V 

•* YES 

• COMPARE FOR • AB06 
» CURRENT • 

♦ ENTRY ♦ 7Y 



NO I 
I 
I 
I 



• • YES 

• TEST FOR • AB02 
• LAST ENTRY • 

• » 71 



"REAO^iMo"" 



AB05 



7X 



I MOVE NAME 
I FOR NO LOAD 
I ADDRESS 
I 
I 

*~ABoI~ 



TEST FOR 

LOAD 

ADDRESS 



MOVE FOUND 
DIM ENTRY 
SET EXECUTE 
INDICATOR 



I 
I 
I 

07 I 7Z_ 

RisTORE 
CORE. 

SET UP GET 
ENTRY. 



INPUT OUTPUT ROUTINE 



PAGE 8 OF a 



I SET UP TO 
I RESTORE MRY 
I TABLE AND 



BRANCH TO 
OVERLAY 



READ IN 
COMMUNICTM. 
SECTOR. GET 
LOADER 
FIELDS ^ 

I 
I 



RELOCATING LOADER 

IG 

•* * YES 

♦ IS NEW SEO. ♦ TEST 
» NUMBER OLD ♦ 

• PLUS ONE • IN 



IS INPUT 
FROM DISK 



I TWO. GET 

I INPUT DIGIT 



• IS THIS ♦ TEST 
• CARD INPUT • 

• • IN 



• • YES 

♦ 1$ IHI5 A • TEST 
• PATCH CARD • 

• 'IN 

« — — 

1^0 I 




DISK 


T 


• • Y 

• IS SECTOR • S 
• COUNT NOW • 

• ZERO • 

• • 


NO 




DIS 






„ 1 






TfST 



MOVE CORE 
POSITION IN 
INPUT AREA 



• • YES 

• IS THIS • ONE 
• RETURN FROM • 

• T.C.D. • 3S 



RELOCATION I 
AMOUNT TO I 
HIGH CORE I 

I 



IS THERE AN 
ENTRY AODR. 



♦2 
IT 



PAGE I OF 

lU 



READ IN 
SEGMENT 
THREE 



» IS 1ST CHAR 
• EQUAL TO 
♦ 75 



NO 

• +2 

IX 



• 


YES 




IQ 




IW 



I READ I I 


I RECORC 


) 1 


1 

] 


u 



• IS 1ST CHAR • BEGIM 
II 



* EQUAL TO 
• ZERO 



IS 



SET ENTRY 
ADDRESS 

mSBress 



^IT 



HERE I lY 

I AOJUSf"IsT 
CHARACTER 



BEGIN I IZ 



• NO 
• NOT 

MARK •* 2C 



• IS 1ST • NOTRM 
• CHARACTER 

• A REC. 

— » 



MONITOR II RELOCATING LOADER 
26 



• LOC.FLAGGtO • IV 



HEME 
2G 



•* tnAiilcTER *»**2 
• EQ.TO ZERO • 2E 



SEEK 
i RE 



On 



• • YES 

•* InoIcItoR 
• FLAGGED • 2J 



• YES 

• * 

• 42 

• 2J 



n 








2J 


t ADJyS 
1 FIELD 





—m— 

! 



COMPUT i 2K^ 

"IP- 



• TEST FOR • OnI 
• INDICATOR • 

• ONE • 3S 



• TEST FOR • ThIeE 
• INDICATOR • 

• THREE • 2R 



« • YES 

• INDICATOR • 
• FOUR • 2U 



2Q 



• FIVE • 3 



SIX 

2R 



THREE _ 



RELOC 
2S 



AND LENGTH 



PAGE 2 OF 4 



FOUR 2U 
I MOVE BLANK 



• IS LENGTH • FOUR 
• OF OA-- - - 



calculate 
aooSess 





2X 


iloRE 
LESS 1 
HIGH 
ADORE! 


S I 

;s I 

HAN I 
»S I 



• YES 
STAR 

IV 



ADJUST 

LOAD 

ADDRESS 



• TEST FOR 

• 3K 



• INDiCATOR • 
• TWO 



NO I 
I 
I 

TO 2N 



i 2T 
• 

• NO 

• 15 IrfNCTH _ • STORE 
3L 



• OF DATA FLD • 
• GREAT AS 0 • 



YES 



THREE 



2R 



MOVE TO FLO 
ADDRESS TO 
HIGH ADORES 



MONITOR II RELOCATING LOADER 



PAGE 3 OF 4 



FIVE 




3A 


30 


3N 


3U 


• • YES 

• IS DATA FLD • FOUR 
• LESS THAN 7 • 

• • 2U 

• * 


I CHAR AND 
I LENGTH OF 
I DATA FIELD 


* • YES 

• INDIRECT • • 

« ADDRESS • *2 

• #30 

• • 


•*IS THIS AN 
• INDIRECT 
• ADDRESS 
• 


NO 


I 
I 
I 




FIVE 


3A NO I 


YES I 




I 
I 


3B 


LESSI2 3H 


I 3P 


I 3V 



» • YES 

IS DATA FLD • LESS12 
LESS THAN * 
12 • 3H 



IS 1ST 
CHARACTER 



3D 



* POS. FLGGO. 
» • 

YES RELOC 3M 



IS LST CHAR ♦ • 
POSITION • *2 

FLAGGED » 3K 



3J 

BRANCH TO 
RELOC AND 
RETURN 



I ADO RELOC. 
I AMOUNT TO 
I ADDRESS 



SUBTRACT ^ 

AMOUNT fSoM 
ADDRESS 



SUBT. RELA- 
TIVE ADORES 
FROM 
ADDRESS 



ADD RELATIV 
ADDRESS TO 
ADDRESS 



IF8 



30 



IS 1ST CHAR 
POSITION 
EQUAL 8 



0 



SIX _3R 

I rIad^in T 

i SEGMENT I 
FOUR I 
I 



PUT BRANCH 
ADDRESS IN 
COMMON 



• FLAGGED 
• — — -♦- 
YES I 



I BRANCH AND 



RELOC 



STORE 



"sAvi'ls?" 

CHAR^foSI 



tIst" 



CALCULATE 
RELOCATED 



.11 
CHARACTER^ 



IS THIS 
DISK INPUT 



I 
I 

I 
I 

I 3Z 



NO 

RESET 



SAVE LAST 
READ RECORD 
SECTOR AND 
COUNT 



MONITOR II RELOCATING LOADER PAGE 4 OF 4 

RESET 46 



I READ I I MOVE ZERO 

I COMMUNICATN I t TO SEQUENCE 

I SECTOR 1 I NUMBER 



INITIALtZe 
AND EXIT TO 
lORT THRU 
OVERLAY 
READ ROUTNE 



FROM T.R. 
RETURN 



I 



EXIT 



40^ 

"transmit" 
entry aodr. 
to branch 

ADDRESS 



NON-DISK 
INPUT 



READ A 
RECORD 



MONITOR INPUT RECORD ANALYZER AND PROCESSOR 



PAGE I OF 5 



INTERPHASB 
ENTRY TO 
MONITOR 



•*TEST ENTRY 
• VIA CARD 
» TRAP 



• • YES 

TEST IF END • UT07 
OF JOB • 



MB020 

exIecu 

COMPU 
BRANCI 

ma- 



Id 

ON 



IB 

.NTRYl 

-YSCAL ARB 
MCROltMBOio 



THE El 



MB030 
1" CHANGE 



I ILLEGAL I 
I SYCAL TO I 



I END OF JOB 
I _ _ 

*"mB020'^ 

MB035 IH 

IIIHIBiT 
EXECUTE 
TYPE RELOAD 
MESSAGE 




NO 



NBOlO 



10 



TO IG 



MB110_ IN 

' *» YES 

• TEST IF • MBllOB 

• PROGRAM WAS « 

• LOADED DISK • IR 

NO I 

• ■ • NO 

• TEST IF • MBllOB 

• DIM NUMBER • 

• SUPPLIED • IR 



MBllOB IR 



MB19S 



INDICATE 
PHASE NOT 
BEGUN 



SET SVSCAL 
CODE. 

UPDATE HIGH 
INDICATOR 



I 



FINAL LOAD 
AND EXECf- 
PROGRAM^ 



IW 

__A0 
XECUTE 



I SAVE 




I COMMON I 


I 




1 


lY 



• TEST FOR • MB210 
• EXECUTION • 

• • 2A 



MB 140 



XEO 



MB030 



16 



TYPE 

executIon 



MB210 Ik 



• IBOT 
20 

MONITOR 
CONTROL 



MCROl i 2D 



MONITOR INPUT RECORO ANALVICR AND PROCESSOR 

• • 16 

NO 



MCR04A J 2H 



u 

• • 21 



t 2K 



• • 2N 



"typI'Sut" 



NCROl 2C 
NCROSA 2P 



2C 



20 



• •as 



PAGE 2 OF 5 
2U 



• • YES 

• TEST FOR • MFTOl 
• -FORX-CARD • 

• • 3W 



• • YES 

• TEST FOR • MOPOl 

• -OUP- CARD • 

» • U 



• • YES 

• TEST FOR • MXQOl 
• -XEQ- CARD » 

• * 4C 



• » YES 

• TEST FOR • MXOOl 
• -XEQS> CARD • 



MCR03 ! 2r» 



I READ A 
I RECORD 



MCROl 2C 
MCR05_ £M 

NO 

FOR • 

» 2P 



• TEST FOR • MCROSA 
♦ -PAU" 



2S 

♦ • 3T 



• • YES 

• TEST FOR •MFTOl 
• -FOR- CARD • 

• • 3M 



COMMEI 
CARD-' 
READ I 



AD NEXT 

IE' 



MCROl 

2Z 



• TEST IF • MJB02 
• PREVIOUS • 

• JOB CLOSED • 3B 



YES I 

TO 2N 



MONITOR INPUT RECORD ANALYZER AND PROCESSOR 



PAGE 3 OF 5 



3A 

* ' ' » YES 

TEST IF ANY • UT07 
PHASE BEGUN • 

• 5A 



3B 



INDICATE A 
JOB CARD 
WAS READ. 
TYPE OUT 
DECODE CAR© 



• TEST IF AMY • MJB03 
» ERRORS » 
» • 3E 



TYPE ERROR: 
CH 



CHANGE 
SOURCE 



SCAN REST 
OF CARD 
TEST ERROR;S 



YES 
MJB12 



TYPE ERROft. I 
READ CHANGE I 



MOVE TO 
EQUIV. TABLE 



I 
I 
I 

JJJB15 I 3J ^ 

I EXTRACT I 
I CURRENT I 
I PACK NUMBER I 



TEST IF 

MODULE 

ATTACHED 



TEST IF 
PACK NUMBER 
ERROR 



NO 

MJB15 



NO 

MJB17 



NO 

MJB17 



TYPE 
MESSAGE 



MOVE DIM 
FOR THIS 
PACK AND 
WRITE TO 
DISK 



JOB CARD 
PROCESSED 
READ NEXT 
CARD 



SPS AND 
SPSX CONTL. 



CARD 
PROCE 



MSPOl 


3S 


1 SET SPS OR I 
1 SPSX ENTRY I 
1 INDICATOR I 
1 DECODE COL. I 


MSP02 


3T 


I DECOOl 

j fi?'" 

I 





MOVE ODA 
AND SET 
SYSCAL FOR 
SPS 



FOR AND 
FORX CONTL. 
PROCESSOR 



I SET FOR OR 

I FORX ENTRY 

I INDICATOR 

I DECODE COL. 

I 7 



I 3X 



DECODE COL. 
0.9-10 
MOVE ODA 
FOR FORTRAN 
COMPILER 



MRORI 



DUP CONTROL 
CARD 

PROCESSOR 



3Z 



SET PHASE 
AND JOB 
CARD AND 

DUP 

INDICATOR 



9rS^^ 0 



DECODE COU. 
7. GET DDA 
FOR THE DUP 
SUPERVISOR 



MONITOR INPUT RECORD ANALYZER AND PROCESSOR 
NXQ03 46 



• TEST IF NON • ABOl 
• DISK LOAD 



YES 
BOl 

5S 



T MPY A~ DIGIT 
I BY 5 BY 
I ADDITION 



PAGE (IF 



I BRANCH TO 

I fOGT 

I 



4B 

XEQ AND 
XEQS CONTRL 
CARD 

PROCESSOR 



I 


SET XEQ OR 


I 




XEQS ENTR« 


I 




AND JOB 


I 


1 


INDICATORS 


1 




4D 



SET OBJECT 

PROGRAM 

INDICATOR 



• » YES 

TEST IF • UTIOF 

PROGRAM IS • 
INHIBITED » 5R 



COLUMNS 
7-12. LEGAL 

YES MXQ07 

"no *~UTl0i~ 



NX004 I 4H 

• TEST IF DIM • UTIOF 
• ENTRY PICK • 
•UP » 5R 



• PICK UP THE • MB195 
• DIM ENTRY. • 

• RELOCATEABL • IV 



MOVE IN 
ENTRY 
ADDRESS 
CLEAR FLAGS 



I 

t 4M 



SEARCH 
EQUIVALENCE 
TABLE. SET 
UP FOR 
LOADER 



4P 

ROUTINE TO 
EXTRACT 
NUMERICAL 
STRIP. 



I 

03 

"extract thI' 



SECOND DIGT 
OF EACH 
CHARACTER 



4R 

"inoTcatFTf" 

FIELD MAS 
NUMERIC OR 
BLANK 



MONITOR 
ROUTINE TO 
READ A NAP 
SECTOR INTO 
0-99 



CALCULATE 
DISK ADD. 
AND SECTOR 
LOCATION 



4V 

SUBROUTINE 
TO TYPE A 
MONITOR 
CONTROL 
CARD 



• • YES 

• TEST IF ♦ .RETRN 

• TYPE ENTRY • 



RETURN 
CARRIAGE 
DUMP 2 
RECORD 
MARKS 



— • 



4Y 



SET RECORD 
MARK AFTER 
LAST DIGIT 
TYPE REST 
OF CARD 



OUT ROUTINE 



MONITOR INPUT RECORD ANALYZER AND PROCESSOR 



PAGE 5 OF 5 



* TEST IF • • 

• END OF JOa • 42 

• FORCED • 5C 
• • 

» « 

YES I 
I 



I mMS§«gi 1 



I BY JOB CARiD I 



DISK I 



• TEST IF • UT07B 
• ERROR • 

• • 5G 



l^flfHE 



Eh 



INOICATORS 
AND FIELDS 



..RETRN 



5H 

|UBROUTiNE 

VALIDITY OF 

CONTROL 

FIELD 



I MOVE CALL 

CE 

j . indicator; 



SEQUENCE 
REC0R0.AN£ 



^ ii^ 

• — — • 

NO 



• • fp 



HUME •fXIT 



• GO TO ERROR • UTIOE 

• IF ALPHA • 

• NOT ALLOWED • 5Q 
* ■ • 

YES '"IeXIT 

UTIOO _ 5P 

» * •NO 

• 60 TO ERROR • UTIOE 

• IF BLANKS * 

• NOT ALLOMED • 5Q 



YES 
UTIOE 



• EXIT 
5Q 



• • YES 

• TYPE ERROR* • UTIOF 
• SET RETURN • 

• PHASE OELET • 5R 



•EXIT 



•EXIT 



ABOt SS 
SEE LABEL 



00020 START lA 



SPS tt-0~PMA$E A SECTION At TENFORARY 



OOO&O ^ROCON 16 





XSan 1 


START2 


IB 


1 


m 


m 1 


AlCl 





hmm 

SET LOLBL 



PHASER aA 



GOOSO 10 



1 


T 


• • 
• • 


YES 




13 


ITER 


SLP 


IK 


HP 

1 SfD L 




■"-«»— -■«»■«'-'»< 


rr 




CTi 


[ IM 



ASEA 



BRANCH TO I 

RTN TO SET I 

SWITCH.COMH I 

AREA.OR t 

SYMBOL TABL I 

"to PHASEA 2A 



00120 CALLA2 IN 
STMT 



SOURCE STM 



00130 



l^ls^ODE 



00140 



00 ISO 



IR 

lAiF 



TO PROSTM 2N 



PAGE I OF 29 
lU 



THIS PART 
IS MASTER 
INITIALIZE 
AND CTL STM 
PROCESS 



851 



SPS II-O- 



— PHASE A SECTION Al PERMANENT 



PAGE 2 OF ? 



OOiaO PHASEA 



PTAP 
KEAOl 



00240 READl 



00250 PROSTH 



• CARD 
• READ2 



00190 REA03 I 2B 



RET CARR. 
CLEAR INPUT 
AREA FOR 
TYPEWRI TER. 
READ. 



TO 



00200 READ2 



READ CARD 
RESEQ DECK! 
REQUEST 



READ STMT 
FROM PAPER 
TAPE 



IS PHASE AL 
OR A2 IN 
CORE 



Al 

PROCON 



2P 



RESET BUFRS 
AND SWITCHS 
FOR NEW 
SOURCE 
STATEMENT 



IS STATEMNT 
COMMENTS 
♦ COL 6 



00210 R2BE 



IS CARD A 
CTL STMT 



YES 
RSCAN 



YES I 
t 

I 2R 

'oUTPuf'lF 
1-PASS MODE 
SUBROUTINE 
OUTPUT 



NO I 
I 
I 

0 I 26 

/ PUNCH* 

I RESEQUENCeO 

I SOURCE 

I CARD 
I 



THIS SECT 
IN CORE 



00230 RSCAN 



I PLACE RMS 

I AFTER LAST 

I NON- BLANK 

I TO COL 76 
I 



8S2 



SPS Il-O PHASE A SECTION Al PEKMANENT 



00300 RLOPl 



• RECORD MARK • ER2 
• IN LABEL 

• FIELD 



YES 
-R2 

3U 



BRANCH HERE 
TO ONE OF 
THE FOLLOM- 

toUTINES 




PAGE 3 or 
3U 



CLEAR LAB 
STD ERROR 





REsiT* 
LABEL ♦ NO 

SF ERROR 
ESSAGE in 
LAB NON-BUN 



PROCESS 
SOURCE CARD 
ACCORDING 
TO THE OP 



• • YES 

• RECORD MARK • ER3A 
• IN OP CQOe • 

♦ • 3V 



NO 



00330 I 30 

ABSi 
OP I 

» 

NO 



3P • 



3. ROWB 

i: m 
I 

\ jj. 

"il'MCCALL" 

7. AOC 

8. MACRO 

10. i IOC 



00340 

NO 
ER3 

3W 



I 
I 
I 

I 3B 



• OP CODE IN 
• TABLE 



TRANSFER 
VECTOR. 



! { 



NOC 



6. Dl 
_7. OL 

18. OORG 

19. DAC 

20. OSA 



3P 



00450 ER3A 



TO 



BLANK OUT 
OP CODE 



PROC. 
ER 3 



3X 



SET 41 
(NOP) IN 
INTERMEOIAT 
CODE. PROCi 
SUB INSTRN 



TO 



853 



00480 TRSCAN 4A 



ELIMINATE 

LEADING 

COMMA 



I 



SPS II-O PHASE A SECTION Al PERMANENT 

00540 4G 
• , -» 

EVALER 



00490 SCAN I 4B 



00500 SCAN2 



CHARACTER 



• • YES 




• • YES 

• RELOCATION • EVAL 
• ERROR IN • 

• OPERAND • 12U 



NO 



00550 I 

siT^swlTCH 

I tHAT DPR— 



fHAT OPRNO. i 



SCAN FOR 
RM OR 
COMMA 



00580 PH811 



•* OR * '^EVALAD 



00610 EVAL AO 



PAGE 4 OF 29 
4U 



INITIALIZE 
BUFFER FOR 
COLLECTING 
CHARACTERS 
I OF A SYMBOL 



DOL « ZERO 



I 
I 
I 
I 

I 4W 

"iiT*SWrTCH~' 
TO INDICATE 



00640 BCMSPC^ I 4X 

• * • YES 

• IS • GET 
• CHARACTER » 

• A RM • 6A 



•* i|E8"cHAR *• 
• OR A-Z • 



YES I 



• IS CHAR A • PHB16 
» 8LANK • 

• •SO 



as4 



00670^ 


PH817 M 




00710 




"A 1 


i 












006S0 


PHBIS 5flr 




00740 


1 




i ■ 





SPS II-O PMASf A SECTtOM Al PERM/WeHf 



00690 



< All 



fR *• ^SSlER 
:R9 •*12U 



PHlii7 SA 

00700 pHat6 so 



• CHARACTERt • 
• A COMNA*^*}- • 6A 



• • YES 

• IS CHAR / • GET2 
• OlVlOE ON • 

• • 5X 



SH 



»..„ 

SN 



NO 



007S0 

♦ IS CHAR I • lilt 

.IT.. . 



00760 



•*IS CHAR I *• rI Jm 

* 

• •70 

* . ■■ 

HoT 



THCRI 



PH019 SS 



OOnO MUAR IN 

/"WW 



00790 



• NO 
• PHB20 



• PRCCloiMG $ • 9R 



YES 



SO 
— ♦ 

no •* 5A 



no «WU.IR 12U 

ooaio PMto SR 




gJ|aI?I 

« THAN 6 



PAGE 5 OF 29 



5U 

• NO 
MBOL • PHB17 
R * 
CHAR • 5A 



EVALER 12U 



00850 ASTER 



• • YES 

» ANY SYMBOL • GETl 

• PRECEDING • 

• THE • • 5W 



NO 

00860 GETl 



5N 



SET GET RET 
TO IN 



TO 



INTERN 

'gIt" 



00870 6ET2 



5X 



to 



00880 GETa 5Y 



to 



855 



SPS II-D — 



» • YES 

» IS THE • TRNUM8 

• SYMBOL ALL • 

• NUMERIC • 6N 



NO I 
I 

00900 ! 6B 



-PHASE A SECTION Al PERMANENT 

00950_GETAST__ _6G 

bIta^loc 
ctr rsymsw 

ON IF REL. 
ASSEMBLY 



00960 TRNUMB 



6N 



YES • • 

EVALER • NUMERIC SYM • 

• EXCEED FIVE • 
12U • DIGITS • 



00970 PHB23 



BETA « 

NUMERIC 
EQUIVALENT 



00980 PHB25 6Q^ 

SET BETA s I 

NUMERIC EQU I 

OF SYMBOL. I 



01020 MOVE 



PAGE 6 OF ?9 
6U 



1 ALPHA = 
I BETA. 



01030 MDRET 



6W 

SET LPNSW 



• • YES 

• IS » LBADD 

• PRESENT • 7H 



00990 DI6ALF I 6R 



YES 
MOVE 

6U 



01050 BLOP I 6X 



♦ • YFS 

• IS OPER • E 
• BLANK • 

• • 16R 



I INSERT I 

I HEAD I 

I CHARACTER I 

I I 

B LBADD 



NO 






NO I 




NO 




00930 


66 


01000 


L. 


01060 




6Y 


» "YES 
» IS IT A • LBAOO 
• SIX CHAR. • 
• LABEL • 7H 

• • 




• • YES 

• DIVSW ON • DIVIDE 
• / PRECEDING • 

• • 7A 

• • 


I 

i 

I 


ADDRS < I 
ADDRS 4- OR I 
- ALPHA I 


NO 






NO 1 








00940 


6P 


OlOlO 


1 6T 


01070 




6Z 



ALPHA 
ALPHA 
TINES 
BETA 



ALPHA = 0 
OPER « ZERO 



$56 



01080 DIVIDE 7A 

LPH.. 

ALPHA/ BETA 



I ALPHA 
I -AL"" * 



SPS I 1-0 PHASE A SECTION Al PERMANENT 

01140 FERR 76 

I sto'error I 

I PROCEDURE I 
I ER5 I 



PAGE 1 OF ?'< 



78 

~siT~Divsw** 



01150 LBADD 



EVl 
7H 



• • YES 

• CHECK ONLY • GETRl 
• REQUESTED • 

• • 8F 



01100 INTERN I 70 



• RELOCATION • EVALER 
• ERROR 



• YES 
EVAL 

• *12U 
— — — • 
C 4Q 



OHIO RTPN 70 

•* ' • YES 

• LPNSH OFF • FERR 

• • 7G 

NO I 



» XR FLAGS • SCANA 
• REQUESTED • 
• • 4F 



YES j 



SET XR 
FLAGS ON 
RESULT 



85'7 



SEARCH CORE 
FOR 

COLLECTED 
SYMBOL. 



—PHASE A SECTION Al PERMANENT 

01220 NIC 8G 



• • ER 5 

• POSSIBLE • EVALER 
• THAT SYMBOL • 

• ON DISK • 12U 

• • 
» • * 

YES I 
I 



RELOCATABLE 
SYMBOL TRNS 
ON RSYMSr 
•RELSYM 
REL ERROI 



IR 



• HAS SYMBOU • NIC 
• FOUND • 

• •86 



YES 



011B0_ t 8C 

I 



01190 LAOOR 



01290 



*• Itf 

• MULTlktEO •*136 









11 

• SUB 


IT" 



01290 ER5A 

BLOl 



• RELOCATABUE 
SYMBOf 



LER 



• • BP 





NO 




01200 




L. 


i 




01210 


GETRI 


bh 


j 


im&m j 



OlttQ 



YES 




r 


lb! 










m 


^ 1 







PAGE 


8 


01300 


BS 


8U 








*I 
I 


: 






I 
I 
I 




: 






01310 


BSCYC 


8V 






FIND 
MIDPOINT 
BETWEEN 
LIMITS 



ktiSLr LEFT 



TO LO-ORDER 

posi " 

SYMB 



PPJJTJON OF 



• LIMIT • 



END SEARCH. 
NOT FQUNO. 

TO MAINLINE 



9B 



• COMPAR 



IMPARE • 

-"ED SYM 
- SYMB ♦ 



HIGH 
BSHI 



EQU 



SPS |I.f)._PHA$E A«*-$iCTION Al fEMANfHT PAGE 9 OF 29 



OUBO BSEQ 9« 




TO BSfVC tV 

01380 BSHl^^ 90 

TO **Bsatc •¥ - 

01390 90 



SPS II-O PHASE A SECTION Al PERMANENT 



PAGE 10 DF ?9 



01400 LDLBL 
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• QCCURANCE 



I WRITE 8-DIG 

I CODES TO 

I DISK 2 

I SECTORS 

I RETURN. 



-I»I 



HP 

'STo'iRROR ^ 
PROCEDURE 1>1 
ER 20 I«! 
SET SM TO I»l 
STOP PH 8 1*1 



SET GM IN 
lOOTH DIGIT 
WRITE ONE 
SECTOR. 
RETURN. 



THIS ROUT. 
WRITES PH A 
OUTPUT TO 
DISK 



01610 2SECT 



WRITE TWO 
SECTORS. 



SOURCE STAT 
♦ 7-DIGIT 



OR 2 SECT 
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I 
I 

t 
I 

I 26K 



ANALYZE 

CONTROL 

CHARACTER. 

SUBROUTINE 
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280 

"ivALUATi 
AOORS OPNO 
« tABEL 
EQUIV 



• SUB 



POWER 
IN OUTI 
BUFFER 



SCAM 

ABUE 
PUT 
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R TO • C0RER5 
ECTD • 

» 7B 





NO 


i 


01140 


CHKNO 


6Z 




PUT 00000 
IN AOORS. 
SCAN FOR RK 
MRK. OR 
COMMA. 



885 



SPS II-D, PHASES Bl AND B2 



PAGE 7 OF 28 



BRANCH 
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I DSC. 



SRV 



01390 PCON 



IDACl 



STMT. 

OSCtOi 



8L 



S DC. 

-lES 



m 

CH 



TO LSTl 
SUBROUT 
TO PUNC 
LISTING OK. 
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PUNCH 
SUB LS 


S • 1 

TOUT 1 


1 





GOTO 
01510 MESOUT 
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02320 GOAND 



I5G 



ADDRS= LCTR 
LCTR = 

LCTR ♦LNTH 
RT. ADDR » 
LCTR 

I 
I 

0 I 15H^ 

T "RTr'AODR"- " 
I RT. AODR 
I ♦ 1 



NSTRUCTION 
DC OR DSC 



INSTRUCTI 
DC 



ISL 



02370 PHBS2 



I MOVE 

I CONSTANT 

I TO OUTPUT 
I BUFFER 



15P 



LFT. AOOR» 
RT. AODR 
- LNTH 



I 

I 150 



PRE PARE 

?8S??a1? 



I 150 

• — — , -» 

• » DSC 

• IS • 0SC3 



I RT. AODR m 
I RT. ADOR ♦ 
I LNTH 



*888ls% 

LNTH 



02360 0SC2 




ISN 



02400 ERIC 



15R 



SET CONST. 
SIZE TO 
.CONPU- 



O 1 A.C ■ 

LNTH.C 



HI 



02310 DSC3 



T~~ rtI'aoor**! ~ 

I RT. AODR 41 



804 



SPS Il>Dt PHASE S4 



SECONDARY 
LINKAGE 
CALLS IN 
PHASE B4 
FROM DISK 



AND BRANdf" 




SET LNTH 
TO 1 



I 16P 

OPERANO 

SUBROUTINE 





PAGE 16 




16U 


ADO 


1 TO I 


RT. 


ADORS. I 




1 

I 




I 16V 



I MOVE 

I GROUP MARI 

I TO OUTPUT 

{ AREA 



02570 



16W 



SUBRo!!?iN 



I 160 

ii 



OPERAND. 
SUBROUTINE 
SCAN 



SECOND 
OPERANDS. 



• PROGRAf 

'. tmm 



• YES 
• D6M1 



' 1 

> 


16R 


1 LOC. ( 
1 LOC. ( 


:iR.» 
;tr.*i 




I6S 



RESTORE 

COVERED BY 
PHASE R4 

lInprt 



MOVE 



UPDATE ADRU 
COUNTER B¥ 
PRODUCT IB 
ADDRESS 19 
MACH.ASSGND 



02540 OGMl 



I 16T 



HOVE 

ADDRESS TO 
LFT. AODRS. 

AND 
RT. ADDRS. 



81)5 



SPS II-O, PHASE 84 



PACE 17 OF 



02580 OVLC 



02700 



ADDRESS 
OPERAND. 



TURN switch" 
DVSW2 ON. 



LNTH » 
ADORS. 



I 
I 
I 



02650 CHCK 



170 



• • GTR 

• IS LNTH GTR • ERDVLC 
• OR LESS • 

• THAN 50 • 17Z 



02660 CHCKA I 17J 



PRESENT 



♦ SMircH • 8vfc 

• OySW2 ON OR • 

• OFF • 17P 



NO 




1 


170 


T turn": 




I DVSMl 

! 




GOTO 


DVUCl 



• SWITCH • 



85Ec3 



02620 TRNOFF 



TURN SWITCH 
1 OFF. 



02630 DVLCl 





I TURN OFF 

I 



02710 DVLC2 



I 
I 

I 17P 



CONSTANT 



• » OFF 

IS SWITCH • J 
OVSWI ON OR • 
OFF • 15P 

• — — — — • 
ON I 
I 

I 

I 17V 

"locatIon I 

COUNTER = I 

LOCATION I 

COUNTER * I 

LNTH. I 



02720 



MOVE THE 
EVALtJATlo 
CONSTANT TO 



I 17W 

'restore 

PHASE 83 
THE PART 
COVERED BY 
PHASE 84 



02790 0VLC4 



• 'NO 

• END OF • DVLC4 
• OPERANDS • 

• • 17X 



EVALUATE 

LENGTH 

OPERAND. 



— ITS 



1 17Y 



LNTH « LNTH 
4- ADDRS 



02790 







1 ». 1 

i LNTH I 


TO 


17U 



02810 ERDVLC 17Z 

.•'iwrirsiFH" 



OF CONSTANT 
MAKE TOTAL 
LENGTH = 50 



8i)Q 



IBM 

-|- 
LNTH » 50 



SPS II-0» PHASE B4 

02830 RSTR 



17J 



18H 



"lJ?R% 23 



02850 


18J 




02860 


18K 



02910 



TO INT. 
OUTPUT BUF. 



02870 I 18L 

I SUB. SCAN I 

02880 t 18M 

• ♦ VES 

• IS • PHB34A 
• OPERAND • 

• PRESENT • 18P 

• • 

NO I 

{ 

TO 18N 



1 80 


0 TO 1 


PHB34A ! 


18P 


1 wM 1 


I SUB. ^ 


18Q 
SCAN i 


'"Mm 

EXpSii 


[-———— — 
18R 

1""! 


PHB3S 






PAGE 18 OF 28 

02950 SAVE _ 18U 

. ilT'LCTR TO 
NEXT EVEN 
LOCATION. 
TEMP ■ LCTR 



02970 



RIGHT ADDRS 
« LCTR 



MOVE MACRO 
"XPA 



EXPANSION 
TO INT. , 
OUTPUT BUF. 



02990 



I 

I IBY 



1ST*'0PERAND 
SUB. SCAN 



03000 



MOVE 6p_ 
TO MACRO 
EXPANSION 



18Z 

ipIrT 



SPS H-D, PHASE B4 



PAGE 19 OF 28 



EVALUATE 
2ND OPERAMO 



SUB. SCAN 



OPERAND 
PRESENT 



YES 
PHB36 



SET 
OPERAND TO 
80 



03040 PHB36 I 190 

T MOVE OpIr"" 
I TO OUTPUT 
I BUFFER 



8US 



03050 DMES5 20A 

. eva^uatF 

OpiRANO. 
SUB. SCAN 



SPS Il-O, PHASE 

03110 20G 



I 

i 20B 



I MODE SI 



NG 

WITCH 



) 


20C 


rill 

1 ALPHA. 


t— mm~ 


t 
t 

1 



I 20D^ 

iiGil^ciuSi 
with output 

BUFFER - t 
USED IN 



03090 CON'T 

T 



20B 



PRESETTING 
ALL INSTRU- 
CTIONS STOR 
ING DATA LN 
OUTPUT BUR. 



• • YES 

♦ 1ST. CHARJ • M 
♦ IN OPERAND ♦ 

• A RM • 21X 
» • 

• »- — 

NO I 
I 
I 

TO 20G 



CLEAR OUT- 
PUT BUFFER* 



SET 
INSTRUr 
ADORES 
FOLLOW^ 
LOCATIdN 



03180 NUMERC 



L 

20P 



CONN 

NU' — 



NUNERC • WAS 
20P 



SUB. MOOE^ _ 

I 20J 
. • 

• CONNA FOUND • 



CONNA FOUND 
NODE 



03140 PROGR 

. ALPHA 



N 

aoR 



20K 
21X 



/J* 

• Al 



A|NER 



YES 
K 



ASSUNE 
ALPHA STAR 



SET THE 

mm - 

LOCA*"" 

cour 



I nc 

m . 

ATION 
INTER ♦ 1 



GO T 



• • YES 

• PROGRAMMER • L 
• ASSIGNED • 

• ADDRESS • 23A 



I 20M 



SET LOG. 
CTR. SO THE 
CONSTANT 
WILL START 
IN EVEN LOC 



PAGE 20 OF 28 



03210 K 
I" 



20U 

SET~SWITCH~" 
FOR NUMERIC 
ING 



i START 
I MODE. 
I 



SET SWITCH 
FOR SCAN- 
NING IN 
NUMERIC 
MODE. 



I 

I 20W 

cnicK'cHAR. 

IN MESSAGE 
OPERAND. 



• WAS A LEFT • KB 
• PAREN OR RM • 

• FOUND • 22J 



03250 I 20Y 

• RM FOUND 

m — •— « 

NO j 

03260 I 20Z 



• • YES 

» PARENTHESIS • STORE 
• OF ANY KIND • 
• FOUND • 21C 



NO I 

\ 

TO 21A 



899 



SPS II 



1-D, 



PHASE BA 



PAGE 21 OF 28 



21A 



I DIGITS IN I 

I OUTPUT I 

I BUFFER IS I 

I GREATER I 

I THAN 100 I 



I 

! 2ia 



03290 STORE 



_T0. 

FOR CONTROL 
DIGITS IN 
OUTPUT BUP. 



LAST DIGI? 
IN 0/P BUR. 
SUB. ANAL 



21B 



SET SWITCH 
FOR SCAN- 
NING IN 
ALPHA MODE. 



I 

! 21H 



PLACE 0 AND I 

A RM IN I 

•DIGITS.* I 

99 ♦ 100 IN I 

0/P BUFFER. I 



CHECK CHAR. 
IN MESSAGE 
OPERAND. 

SUB. DTR 
I 



21J 



• WAS A PAREN • 
• OR RM < 

* FOUND • 



NO 
L3 



210 



•* ^'^Secord 

• MARK 



*21V 



• RM FOUND 



NO 



03320 _ 1 21F^ 
t8uNO->^o!ll. 



03370 _ I 2iL 



21M 



MOVE iST* 3 
CHAR. OF 
CTLj,^D|CITS 

out puf iuF? 



ANALYZE CTL 
CHAR. . PUT 
LAST DIGIT 
IN 0/P BUF. 
SUB. ANAL 



03450 0 21U 
DIGITS «100 



GO T L6 



CTL 
L2 



• CTL. CHAR. • 



210 



• • VES 

DIGITS IN • DIGITS 
0/P BUF.GTR • 
THAN 100 • 21T 




• YES 

• ANY CHARS. • L6 
• FOUND IN • 

• MESSAGE OP • 21Z 
• » 



i pSren Pound I 



INSERT END 
OF MESSAGE 



SUB. 0MSR2 



chKIacter 

TO I 

BUFI 



03*90 I 21Y 

. DIGIT S~»l00~ 



03440 DIGITS 



L2 



21T 



21H 




COMPUTE 
DIGIT COUNT 
AND SET IT 
IN DIGITS. 



90i 



COWufe FOR 

ml 



SPS II-D. PHASE B4 
03570 



PAGE 22 OF 28 



kNTH « 
IGIT 



'iF^ADORESS I 

PROC. ASSNO I 

188:818:: I 

I DIGITS. I 



210 



CONT 


22H 


1 m 


M 


GOTO*** 


'k2 


K3 


22J 




j rts. 1 



CHANGE 



NO 
CONT 



22K 



CNAiACTER 
NUMERIC 



•*22M 



1 22B 

PH* 
TARfT 



• WILL ALPH* • LI 
• CHAR. ST, 

• EVEN LOC 



YES 
LI 

• 21G 



I 

03560 _ I 22R^ 

I AFTER 'last 
I DIGIT IN 
I OUTPUT BUR. 

I ^OLLOwfNGJ!^ 

I 
I 
I 



PORI 
BUFFI 



22L 

NUM 
ON OF 

CHAR. 
OUTPilT 
ER. 



GOTO 
03620 PUT 



K2 



PUT END OF 
MESSAGE IN 
OUTPUT BUF. 



^UB. 
GOTO 



DMSR2 
"k2~ 



90 i 



SPS II-D, PHASE 



PAGE 23 OF 28 



23 A 

FIND COMMA 
WHICH ENDS 
STARTING 
MODE OPERJ 
SUB. MODE 



03730 OAC 



GENERATE 
POWER TABLE 
IN OUTPUT 
BUFFER 



_23B_ 

RESTORE 

PHASE 63 
THE PART 
COVERED BY 
PHASE B4 



I 
I 
I 
I 

I 23H 



ADDRESS 
OPERAND 
PRESENT 



03650 DOT 



I EVALUATE 
I POWER NUMBR 



• SUB I SCAN 
I 
I 



i 23J 

*ado"lnth*to' 

ADDRESS 
ADDR 



• +2 

23K 



AODRS« 
CNTR 



• GREATER 
• THAN 13 



♦ NO 



I 
I 

I 23K 

~RisTORi 
PHASE B3 



03T90 PHB43 



23U 



EVALUATE 

LENGTH 

OPERAND 

SUB. SCAN 
I 



MOVE CONST. 
TO INTER. 
OUTPUT 
BUFFER. 



03740 PHB41 



• LNTH. OPER • PH842 
• GREATER • 

• THAN 50 • 23R 



I SET lInGTH 
I TO 100. 



03760 PHB42 



ingTh 

ERANO. 



IS THE LAST 
CHAR. OF 
CONST. AT 
» • 
• • — — • 



REPLACE 
WITH A RM 



SET POWER 
TO 13 



03770 l»NB44_ I 23 S 

*• YES 

• PHB43 

ESENf •*23U 



• IS A 

• CONSTANT 

• PRESEN' 



NO 



ivALUATi" I 

I AODRS I 

I OPERAND » I 

t LIST AODRS I 

I ^ _I 



I CREATE A I 

i imr«,AL I 

I TO LENGTH. I 



9 0 2 



03820 PHB45 



24AI 



• • PROC 

• IS THE ADDR • NOSINE 
• PROG. OR • 

• PROC ASSIGN • 24J 



PROG I 



I 24ll_ 

"ivALuiTi" 

AODRS OPER. 



SUB. SCAN 



I 240^ 
ADDRS 



03850 PHB46 



I 

I 240 



LFT. ADDRS 
« ADDRS-t 
RT. AOORS^ 
2 • LNTH OP 



I 246 

• • DAC 

IS THIS A » PHB47A 
DSAC OR DAC • 

• 24G 



I 24B_ 

"rtT'aodrs »~ 

AODRS * I 
LFT. ADDRS» 
RT. ADDRS- 
2 • LNTH 



PHASE 


B4 






03880 PHB47A 


24G 




LNTH » 
2 • LNTH 
OPERAND 




03890 




24H 




RESTORE 

PHASE §3 
THE PART 
COVERED BY 
PHASE B4 






LtNPRT 


8A 


03900 


NOSINE 


24J 












03910 


24K 




LCTR - I 
LCTR ♦ 2 • I 
LNTH - 2 j 




LNTH ' 


• LCTR 




03920 




[ 24L 






♦ •NO 

• IS THIS A • PHB46 
• DSAC • 

• • 240 

• • 
» • — — • 

YES 1 


03930 




24M 




I AODRS « 
I LCTR 






6 


PHB46 


24D 



03940 LINKS 



24N 



ADJUST ADD. 
COUNTER TO 
NEXT EVEN. 
FILL IN 
SKELETON 



I 24P 

~RiTURN~AODr"* 
TO SKELETON 
lOR ENTRY 
TO SKELETON 



1^240 

ve'link-a* 



MOVE LINK-^A 
fZEPOl 



24R 

*RiiTgli 

THflSnf^ 
COVERED BY 
PHASE 84 



03980 CLEXIT 



PAGE 24 OF 28 



24U 



ADJUST ADD. 
COUNTER TO 
NEXT EVEN 
FILL IN 
SKELETON 



I 24V 

'iort"moncal~ 

ENTRY TO 
SKELETON 
ADJUST 
ADD. COUNTER 



24W 

"HOvi~UNK-A~ 



I 
I 

I 24X 

rIstore 

PHASE B3 
THE PART 
COVERED BY 
PHASE R4 



SPS II-O* PHASE B6 



PAGE 25 OF 28 



25A 

SECONDARY 
LINKAGE 
CALLS IN 
PHASE B6 
FROM DISK 



25G 



RESTORE 

PHASE B3 
THE PART 
COVERED BY 
PHASE B6 



04150 NOREP 25N 

• TEST 3RD • EN 
• OPER FOR R • 

• REPOSITION • 250 



RESTORE 
PHASE B3 
THE PART 
COVERED BY 
PHASE B6 

~B PHASEb' 



25B 

AND BRANCH- 
ES TO FIRST 
INSTRUCTION 
OF REQUIRBD 
ROUTINE 



04100 DISK 



• *TEST CALL L*« lUl 
• INKS • 



04070 OTHER 

I 



25B_ 
ADOfts' 



ml 

OUT^ 

~ T 



AND 



♦1 TO AODRS 
COUNTER. 
LOOK UP 1ST 
OPERAND. 



040S0 


START 


250 


04110 


YES 
OISK 

25H 


» TEST TYPE * oIhER 
• OF INPUT « 
• OEFINERS • 25E 
• • 


I 

i 
1 




NONE 






04060 




250 


04120 










pj 








1 25L 



I 

I 25P 



04220 CALL 



25V 



CLEAR FLAG 
INOICATER 
IN DEFINER 



ADJUST ADO. 
COUNTER TO 
NEXT EVEN. 
FILL IN 
SKELETON 



04170 EN 



OUTPUT MM I 
AND CORE ! 
OPERANDS TO I 
L INPUT I 
I 



YES 


»~ — • 


1 \Hm^ 1 



04180 


25R 


04240 


• • OfF 

• TEST 3 OPER • N0T3 
• SHITCH • 

• • 25T 

• • 


i 


04190 


29S 


04250 




[ IN- ! 
IT 7o 1 




jji 




04200 N0T3 


25T 


04260 


[ 'm 


^ I 





RETURN ADO. 
TO SKELETON 
lOR ENTRY 
TO SKELETON 



• tf NUME 

• TEST OPERNO • FOUND 
• FOR ALPHA • 

• OR NUMERIC • 26C 



I 251 _ 

READ ^HE 
DIM ENTRY 
FOR THE 
EQUIVELENT 
TABLE 



I'Wl 




268 


1 m 


:QUI\I. I 
\ TO 1 


FOUND 


260 

>Srand 1 



SPS Il-Ot PHASE B6 
04330 N03 



PAGE 26 OF 28 



\m 



mark 
rt 




0 ^ I 260 

I •! ♦«2 TO 1 
I LINPRT I 



• • OFF 

TEST FOR • N03 
3R0 OPERAND • 

• 26G 



SECTOR 
INCREMENT 
TO LINPRT 



SPS II-O PHASE B5 



PAGE 27 OF 28 



SECONDARY 
LINKAGE 
CALLS IN 
PHASE B5 
FROM DISK 



278 

AND BRANCH- 
ES TO FIRST 
INSTRUCTION 
OF REQUIRBD 
ROUTINE 



A 27C 
BEGIN 

TRANSFER HO 
RETURN 
ADDRESS 
ROUTINE 

I 

I 
I 
I 

I 270 



READ PHASB 
B5 FROM 
DISK AND 
BRANCH TO 
MTRA 



) MTRA 


278 


1 ADJUS 
I COUNT 
I NEXT i 

1 

) 


ADD. I 
ER TO I 
EVEN I 

27F 


I FILL IN I 

j ni^"'" 1 



TAKE LINK 
TO LINPRT 




I MOVE 

I AOOjtESS 

i OF NEXT 

I CORE TO 

I LINPRT 




27N 

MOVE SEiEtOR 
COUNT OF 3 
TO LINPRT 



04520 OSA 



ADDRESS 
STORING 



FOR 

OPERANDS 
OUTPUT 
BUFFER 



04530 DSAl 



I 
I 
I 

I 27V 



MOVE CORE I 



MOVE RECORD 
MARK TO 
LINPRT 



EVALUATE AN 
OPERAND FOR 
ITS NUMERIC 
VALUE. 
SUB. SCAN 



• BUFFER HAS • 
• MORE THAN • 

• 10 OPERANDS • 



27X 



I MOVE I 

I EVALUATED I 

I OPER. TO I 

I OUTPUT I 

I BUFFER I 

B *~0SA3 " 27Z 



04560 DSA2 27Y 

7 allow'for~~ 



10 OPERANDS 
IN BUFFER. 



04570 DSA3 



IS THIS THE 
"T OPE" ~ 
STMT. 



SPS II-O PHASE B5 

04640 MACRO 



...STRUCT- 
A MACRO 



• INSTRUCTION • 



YES 
MACl 



ADJUST LOC. 
TO NEXT 



SET F 

* ' TH 



^ELO 
^OR 



OUTPUT CAM) 
LNTM • 5 



UPDATE LCIR 
TO LAST 



yPOA 

k 



^aBdr 



SET AOI 
5TH 5l( 
OF 1ST 



lOR fO 
GIT 
0P6R 



288_ 

LFT. AOOR « 
RT. AD0R*5 



04650 


28H 


I MOVE MACRO 1 
t NUMBER FROM I 




BUF. I 


IM 


'e^now I 


04660 


284 



EVALUATE 
OPERANDS. 



PAGE 28 OF 28 




OUTPUT DSA 



SUB. 1 


ISA 






MACl 


28K 


I SET a6dRESS 


j TO FIRST 


I MACRO°EXPAN 



28L 

ess'^countI 



UPDATE AOOR 
TER 




PHASES 16 



RESTORE 

PHASE B3 
THE PART 
COVERED B¥ 
PHASE B5 



SET UP 

PRIMARY 

LINKAGE. 



00? 



SPSLIB— SPS II-O MODIFICATION PROGRAM — ENTRY AND CTL STM PROCESS 



PAGE L OF 5 



00020 LIBST 



LOAD PHASe 
A ROUTINES 
INTO CORE 



OOOBO PHASEA 



I ENTER SPS 
I PHASEA. 
I READ STMT 



I 



MODIFY 
PHASE A 
ROUTINES 
READ INPUT 
RECORD 



.SUB 
00040 PRQCON 

»I 



MOOSPS 
10 



sTSfEMENT 



• SUB I ROOK 5G 

00090 1 10 

• •NO 

• « IN COL • PHASEA 
• 1 « 

• • IG 

• • 

YES j ** 

00060 PR0C20_ I 

•*5P9C»|SS PHASEA 



TO " 





IH_ 


I RESyM 
i MOOSP 


lUPTEO 1 

n- 

i EXIT 1 



00 5 



001 10 CIP 



spstii— SPS ii-o NOBiFiurioii pnoMAfH^otrmi OP caol 
00170 fiiiitip at 



PAGE 2 OF 5 







CtP2 


^NOisis* 

20 





• SUB 


RDOK 

20 


IN COL t * 






"J 






Sv IN 

i 


" 1 


L. 




• 





• 26 



NOSPAC 

2J 



A?5^ot CODE 



TO PHASEA IG 



j ffiri 


to 

ACKIN 


2H 


., 









TO PHAtfA 



16 



00190 NOSPAC 14 



TO PHASfA 16 



90 0 



SPSLIB— SPS II-O MODIFICATION PROGRAM— DELETE OP CODE 



00260 NOTIN 



MODIFY SPS. 
READ STMT.; 



TYPE 
NOT IN 
TABLE 
MESSAGE 



00220 C2P2 



I MOOSPS 

I 

I 

I 

I 3B 



RDQK 



I 30 
,—.—•»• 

IN COL 1: 



I 
I 



OP CODE IN • NOTIN 
TABLE • 

• 36 



YES j 
I 

00250 I _3B^ 

! op^cSIe 



9 HI 



I MOD SPS 
I READ ST 



HT 



SPSLIB*-SPS II-D MODIFICATION PROGRAM— DEFINE SST~LIST OP— EN0LI8 
00340 4G 00370 C3P 4N 



00290 C4P1 



4B_ 
1«" 



MASTER 
SYMBOL TABL 



I mm 



•ENDLie 
CALL EXIT 



TO 

00350 C4END 



FHASEA 



AUUST PARAM 
FOR 



FOR NUMBERt I 
OF SYMBOLS I 
MODSPS EX It I 



40^ 

''TYPi"'STMTr 



00360 C20ECT 

"type 



PR0C20 
4J 



IN COL £ • C4END 
• 4H 



• OVER 150 
• USER LABEL'S 



YES 

C20ECT 



I 
I 
I 

TO 4G 



911 



SPSLIB>~SPS II-O MODIFICATION PROGRAM— SUBROUTINES 



00400 MODSPS 



MAKE PH. 
ROUTINES 
AVAILABLE 



MOVE RETURN 
ADDRESS TO 
PHASEA 
RETURN 



00420 ROCK 5G 



TYPE STMT 
UNLESS TYPE 
INPUT. 



00430 I 5H 





PHASE C SPS MD II..,.CALC PERTINENT DIMENSIONS ♦ EXIT TO MONITOR 



PAGE 2 OF ^ 



AOJ DIM 

RY PN.., 

VL SET 



I 
I 
I 
I 

I 2C 



YES 
CK 0 

4N 



20 



I ADJ DIM I 

I ENTRY PNTR I 

I FOR AFP SBT I 

I I 



GOTO 



CK DIM 
2B 



• 'NO 

• LAST REQD • CALC 
• SUBR PRO- • 

• CESSEO • 4A 



• " NO 

IS LIST • • 

DECK PUNCHO • +2 
• 2J 



YES I 
I 
I 
I 

_ * ^" 
PUNCH* 3 
BLANK RECS 



PLACE 

HIGHEST AOR 
USED INTO 
PICKUP 



• MORE THAN • AOK 
• 5 CYLINDERS • 

• OF OUTPUT • 2U 



•*P6N TO BE *» aSk 



TYPE MESSGE 
AND ALLOW 
DUMP TO PR I 
NCIPLE I/O 
DEVICE ^ 

"to"" Aoic"" 



ADJ STATE- 
MENT COUNT 
AND OBJECT 
CORE REQD. 



I 2V 



MOVE DIM 
ENTRY FORMD 
AT 403 TO 
SYS COMM 
SKTR^WK AR 

!"" 

I 

I 



• HAS ERROR 
» BEEN 

• DETECTED 



• OBJECT CORE ♦ ALL 
» CAPACITY • 

• EXCEEDED • 21 



TYPE OVER 
MESSAGE 



• RO SYS COMM • 



vmk ON 

DISK 



I 

L ^ I 22 

"typFend'of" 
asm message 



TO^ 2G 



9:4 



PHASE C SPS no IU...CALC PCRTINENT DIMENSIONS ♦ EXIT TO MONITOR 



PAGE 3 OF 



NO 



♦ OETECTEO •* 3C 

I 

} 



GOTO .MONCL 



lYPE CORE 
SAGE 



... ... 



WRITE SYS 
COMM SKTR 
ONTO DISK 



I 3B 

• ' •NO 

• OUTPUT REQD • • 

YES I 



INSERT 
PROPER 

GOTO IhONCl" 



PHASE C SPS HO II....CALC SIZE OF PGN INCL ALL SUBRS SPECIFIED. 



PAGE 4 OF 4 



4A 



CALC 



• • YES 

• IS THIS » USED 
• SUBR USED • 

♦ •AH 



I AO J I STAT 
I PNTR FOR 
I NEXT NTRY 



REOUCi BY 1 
THE NO. OA 
ENTRIES FCR 
THIS SUBR 



• E44TRIES 
• AVAIL 



♦ YES 

•^si|e 

•* 2E 



W" 1 

______ 

■ J' ' 



TO 46 



46 

• * ■ *• NO 

• DIM ENTRY • SIZE 
• BLANK • «l 

• • 2E 



YES • -2 4E 

USED 4H 



! ADO SUBR T 

j i^is^ 1 












M 


n 


!!*• 1 


60T0 usto *i 


1 m) 





CK DIM 4N 



• DIM ENTRY 
• BLANK 



YES 

.•;4 



NO 
CK MAP 



• ID OF DII 
• INTRY EOI 

• ID OF SUI 



4R 



Silo 



SHE 2F 



OiLETi 4R 







1 


m 


fw! "j 




: 





60T0 SIti 



2F 



SUBR SU^ER SPS tlO 11*10 JUL «S.JNtMEQ R06 PWH SCRATCH TO tOflf 



PAGE 1 OF 8 



Ke.iHEN 
J ^6N. 



XEQ 


10 


: m 81 

. JNTJY 


ii . 




IE 


1 JUsf^READ j 


I 1^ 





CHECK 


IH ^ 


j 

1 N tOR1 


^ 1 


J 





VEs""*i 




• • 


YES 1 




j iii."! 
1 IM 


I 


i 


IM 



isiS'oDAp" 
I TO CORE 



GOTO XEQ 



IN 



SUBR SUPER SPS IIO 11 START HERE... OBTAIN REQO SYSTEM PARAMETERS 



PAGE 2 OF 8 



2A 



SAVE OBJ 
PGM DIM 
ENTRY IN 
ODAR AND 
FORTRN AREiA 



_ COMM 
TO WA3 



• • YES 

• INPUT OEVOE • RDFRST 
• CODE » DISK « 
» (0) • 2J 



2G 

• PGM ON CARD 



• YES 
• RDFRST 

2J 



I INIT FOR 
I PAPER TAPE 
I RDG 



RDFRST I 2J 



SAVE CARD 
SEQ NO IN 
SYS COMM 
AREA 



CAP 


2P 


1 CALC ! 


>IZE I 


I OF OB. 


1 CORE I 


I AND STORE I 


j IN CAP4^18 1 



2Q 

• * •YES 

• CARD IMAGE • RD CTL 
• SPS PGM • 

• • 2T 



• "YES 

• NEW NOISE ♦ NOISY 
• DIGIT SPEC • 

• XEQ TIME « 2X 



I 
I 
I 
t 

I 2V 



• • YES 

♦ NEW MANTISA ♦ MANX L 
• LENGTH SPEC • 

* XEQ TIME ♦ 2Y 



• • YES 

• NEW SUBR • SUBSET 
• SET SPEC AT • 

• XEQ TIME • 2Z 



• FORTRAN CTL • FOR EX 
• CARDS REQO • 

• • 2S 



INIT FOR 
CARD RDG 



I 2K 

. » , • 

• • NO 

• OBJ PGM • • 

• RELOCATABLE • ^2 

• • 2M 



• ♦ YES 

• CORE IMAGE • RD CTL 
• SPS PGM • 

• • 2T 





— • 


NO 


J— — 


! 




FOR ex_^ 


_2S 


1 I 


: Id^k^ 

LOADEf 








""goto*"' 


*"Tfsl 


1 




RD CTL 


2T 


• ' •NO 

• • 2P 

• • 


I SAVE AREA 

1 Sir"' 


YES 






f 


TO 


2N 


TO 


2U 



INSERT NEW 
NOISE DIGIT 
IN IND REC 
IN CORE 

"goto" **RD CTL+2 2V 
ANT L 2Y 



INSERT NEW 
MANTISSA L 



INSERT NEW 
SUBR SET ID 
IN IND REC 
IN CORE 



91S 



SUBR SUPER SPS IIO I I .CHECK SYSTEM PARAMETERS 



PAGE 3 OF 



m In 



I 

I 38 

'RiAODIM" 
ENTRIES FOR 
SPEC SUBR 



iff MIT I 



TYPE TERM 
REASON AND 
STATEMENT 



i H 



3C 

rMAMT" 
■ MEBT 



GOTO 



NONCAL 



FVLAFP 


3N 


1 m; 


JBRS I 
LOG 1 
ifkJ 1 
XEQ I 
IN. I 

3P 


( fBs&s'Ity j 




GOTO RD SUB 



"sTORi'NOISE" 
DIGIT AND 
MANT L FOR 
ACCESS BY 
OBJ PGM 



VLAFP I IK^ 

"" CRiATl"ADD " 
VECTOR FOR 
MOD OF ?*q 

OPERANDS BY 
PICK,*/- L 



TYPE SUBR 
PARAMETERS 



3L 



CONVERT ALL 
NEGATr - 
VALUES 
TENS C 
J^MEMT 

"goto" 



TIVE I 

ES TO I 

COMPL- I 

T FORM I 



I 3R 

"iTORi'AOR 
OF ALPHA* £ 
FOR FXD L 



9J |j 



SUBR SUPER SPS 1 10 1 1 .PROCESS REQO SUBRS 



NO 

• FINAL SUBR • CK SUB 

"^RO 



FINAL _4A 

•'final subi 
• processed 

. m » 
GOTO CAP CK 8A 

CK SUB 4ft 

• * * • YES 

• IS THIS • RO SUB 

» SUBR REQO • 



•*DIM ENTRY *• F?NA 
• BLANK • 
• • 4A 



GOTO ADJOIN 4E 



RD SUB 4N 

["'xFolii!"" 

J FOR READ 
gyjR Prom 



• •NO 
SUBR DIM 10 • DELETE 

MATCH ID 0 • 
FREOS SUBR • 3H 



* < 

NO 


1— — 

L 


1 STEP INO. t 
1 SUB NO* OS* I 
I PNTRtSUBVaC i 




40 



• MORE NTRI 



BIS • CK SUS 



NO 




AO JOIN 


4B 


Li 


If i 


STF SV 


rr 


j j 


J 




NEW CO 


5* 


1 m: 1 


NXTINO ^ 





YES 


L 


El 


ILl 


[1 


^♦R 

CHAD 1 

ElJ 






1 si 

____ 






rr 


• * 


to 


4U 



B2u 



SUM SUMIR tP% 110 tt.OiCOOE SUflR TEXT INOICATM COOES 



• • 5E 



• NO 
• RM 



BId'**» 



• 90 

60T~*"Ni5*C0 SA. 



Aojuirfi 



GOTO NX9IND SB 



NOT RM _5B 



/mm V?" 

• • 9A 


M 




• • 6A 
• • 


NO i 






' 1 




« • 6B 


"J 





• ■ ■ ■ 



• TA 



PRQi 
INO 



DATA TO Be 



• ♦SB 



PAGE 4 OF 8 
4U 



I AUSE ENTRY 



n 



ET CARD 
NO TO CARD 



TO NEW CO 5A 



PAGE 5 OF 



Co{e^j[S BR i 
VECTOR AND I 



I 5M 

» ~ ' • YES 

• INO CODE • NYET 
• MAS FIVE • 

• • 8K 
• • 

NO I 



SUBR SUPER SPS I ID 1 1. PROCESS SUBR PER INO CODES IN SUBR TEXT 



PAGE 6 OF 



PCONST 



6N 



• • YES 

» DOES PSUEOO • AOJ 
» CONSTANT • 
• HAVE CNTL » 6C 



STEP PNTR 
BY LENGTH 



♦ MOD OF P 
• FIELD REQD 



» YES 
• P FLD 



6 a 

STEP CTLPMT I 
I Fliio^POSLT ! 



P FLD 

I MOO~FiiLD 7 

I BY VALUE I 

I SELECTED BY I 

I CTLPNT REfN I 

I ALL FLAGS t 





6R 


1 STEP 1 
! ONE. 1 
1 FIELD 


posu 1 



FIELD REQ 
ODIFtCATN 



YES 
Q FLD 



• * YES 

• IS CONSTANT • CONST 
• RELOCATABLE • 

• • 6B 



STEP 
ONE 
P " 



{I u n 
ELO 

"~"0N 



POSIT 

"goto 



I MOD FLD BY 

I 
I 
I 

I 6K 

i"~~step"Stlpnt" 
i one. to nxt 

I P FIELD 
I POSITION 



Q ND 



STEP PNTR 





6M 


I'm 

i YES If 


ftp 1 

isr 1 



• • NO 

• DOES ADR • CONST 
• SHOW PSUEDO « 

• CONSTANT • 6B 



YES 



PSUEOO i 60 

CLR CTLAR 
TO REC MKS. 
MOVE PSUEDO 

fEN^^wiSREA 



SET a6r of 
PSUEDO 
CONSTANT IN 



ADJ PNTR BY 



• « NO 

• BREAK IN « 2N0 PC 



BREAK IN « 

I 



MOVE PSUEDO 
CONSTANT TO 
CTLAR.NABLE 
MOO SW.INIT 
CTLPNT 





NO 




NO 




GOTO 


NXTIND 


SB 


68 




6H 




6P 


2ND PC 


6V 





♦ IS PSUEDO ♦ P NO 
• CONST CONT ♦ 

• ON NEXT CD • 6X 



6W 



CLOSE GAP 
IN TEMP WK 
AREA.SET2N0 
ADR IN TEXT 
TO ZERO 



P NOTC+1 6Y 



DEFINE LNG 
OF PSUEDO 
CONST IN 
TCP 



STEP PNTR 
TO FIR — 



IRST 

INU-i ON 

NXT CARD 



SUBR SUPER SPS IID tl FORM L0AD6 INFO FOR EACH SUBR AFTER MOOIFCTN 



PAGE 7 OF 



FORM 



7Ai 



AOV I STAT 
IND BY 

ADDITIONAU 
ENTRY PTS 
OF SUBR 



"adv^subrno" 
by addtnau 



START OF 



70 



MOVE iuBR 
LOAD ADR 
INTO SELCTO 
SUBVEC 
POSITION 



,TEP suBvec 

POINTER I SV.I 



REDUCE NO 
OF ENTRIES 



SuiVEC 



recor5 in 
seclst no 



NO 

FIL SV 



7C 



AOV SL_ 
PINTER 



7N 

Iclst" 



(SCT). ADV 
COUNT OF 
SUBRS REQD 



RS 
Y 

EXT 





14 


I STORE SKTR 




7K 



CH 





7L 


I SUBR 


iY NO t 
RS OF I 
EXT I 




: 7M 



INCREASE 
PICKUP BY 
NO OF CORES 
USED BY 
SUBR 

I 
I 
I 



CAP CK 



_8A_ 

I CALC"C0RE 

I LOC FOR RMS 

I AT END OF 

I ALPHA AND 

I BETA 



• OBJ PGM IN 
• CARD IMAGB 



SUBR SUPER SPS 1 10 II.SUBRS ALL PROCESSED, CHECK CORE REOD 
8G 

• » 

• 'NO 

• OBJ CORE • XEQ 
• CAP EXCEEDD • 

• "ID 



I 
I 

I 8H 

""M0vi~N0"0F~ 
XS CORE 

TO 



PAGE 8 OF 8 



REQO 

sill* 



ADJ OBJ PGM 
00A(00AR1 
FOR 1 LESS 
SKTR,4L TO 
SKTR ADR 



FLAG FROM 



I 

! ae 
• — — , — — • 

• INPUT PGM 
» ON DISK 



» *2 
• 8G 



NO 








TO 





i 8J 

'set'op' 

messaSI 



goto 

NYET 



DELETE 




B2i 



Nil 



1 Lnsis 1 




1.. 


1 pI^AL TO 2 1 






I MOVE 1 
1 OF PH^ 
1 I'B Al 
f TO HOI 
1 CYCLII 


ID 2«« I 
IK 1 
IDERS I 


"1 







1620 MONITOR II VER it FORTRAN tl-D PHASE 1-A 

If 



INITIALIZ 
SYMBOL TB 
TO FIELDS 



IIB 
_ TBU 
-ELDS 
WITH 5 R/M 
4 ZEROS R/M 



L ^5- 
~RiA0~6oMN 
FIRST 
SECTOR 
OF DIN 



w 



fMT 



NIU 





IL 




.Ti: j 




NAME I 


I TO NAME 1 


I TABLE 




RDONE 





NO 

• HAS EOUIV. > N114 
• TABLE BEEN • 

• PROCESSED • IJ 
• • 

YES I 



IMS 



IP 

gmaT5i~ 



N12 




- m 




n 


IR 




rr 



READ AN 



PAGE 1 OF 2 
lU 



• IS FIR_ 
• CHARACTER • 

• AN ASTERISK • 2B 



^•*JS THIS A *»^SAis 

*» RECORO •* 2G 

• • 
• • 

NO 



• • YES 

•* li j"'^ ^ "^WAOBJP 
*• ReSoEo •* 2L 



NO 



\ I- 



• YES 
FKTEST 



I II 



y25 



1620 MONITOR II VER 2 FORTRAN II-D PHASE 1--A 



PAGE 2 OF 2 



2A 

TYPE MSSG 
ERROR, INVA- 
LID CONTROL 
RECORD 
HALT 



N2I 
2B 



GOTO 
CALLPl 



SF CHI*3.5, 
7,9 MOVE 
RECORD IF 
CARD INPUli 
TO CHI5 



I CALCULATE 
I FP2»H AND 



2D 

"pUT*SyiTEN " 
COMMUNICAI^ 
ION SECTOR 



21^ 



JUMP POIN? 
FOR PH l-B 



"i 

TO i 



PHASE 
. AND 
RANCH 
0 IT 



TYPEOUT 
RECORD 



*• SSIs 



IS CHU12 • 
A 72 OR 74 » 2K 



NO 
MREM3 



I 
I 

I 2J 



ERROR, INVA- 
LID OUTPUT 
UNIT CODE 
HALT 



GOTO 



N21 



WASS2 


2K 




GOTO 
WAOBJP 


N21 
2L 


1 ^M" 1 







[EN3 
2 J 



YES 



SET SCS*23 
TO 1 OR 0 



SET JAV« I 
SET SCS*22 
TO FLAG 1 
TYPEOUT 
RECORD 



*_2Q_ 

'eunTnate" 

R/MS FROM 
NAME AND 
DIM FIELDS 



MOVE PROG. 
NAME AND 
DIN TO SCS* 
30 THRU 
SCS*39 



GOTO N21 
FICTEST 2S^ 



• F AND K 
• VALID 



YES 



• NO 

• N31 

• 2V 



MOVE F AND 
K TO FLNG 
AND KLNG 



GOTO 
N31 



2V 



TYPE MSSG 
ERROR, F OR 
K OUTSIDE 
RANGE 
HALT 



N21 



1620 flONITOR II VER 2 FORTRAM II-D PHASE l-B 



PRSCAN 1* 



GOTO BEQINA IC 
BEGIN IB 



BEGIN A I ICl^ 
{ plIcNT«0 



• • NO 

• • IF 



SHIFT II 



NPUT 
FROM 
CHI 



GOTO REAOI *l IK 
BA If; 



OR PAPER HP 



^•^gJNNENT *»^bII|NA 
*• •* IC 

NO "'""liSsL IL 



READl IJ 



IK 



NO 
LEAOBL 




1 

1 BLANI 


F j 




I IN 



• NO 

• CSP 



• STATEMENT • -1 
• NUMBER • 20 



YES I 
I 

TO IN 





IN ^ 




*ANO ] 


[11; 


1 


1 NUMBI 





HAD NUMBEI 



• Inge • iv 



! DUMMY 
I SYMBOL 



PAGE 1 OF 38 
lU 



I ISM?] 

I TRANSFI 



RAN I 
FOR I 
R I 



• NO* APPEAR- • LEAOZ 
• ED IN I/O • 

• STATEMENT • IX 







yes" ~*~form 


2A 


J 


IQ 


STNER IW 




• 


\t^/ IN 


ERROR 06 
MULTIPLY 

NUMBER 




NO ' 


L. 


GOTO BEGIN 
LEAOZ IX 


IB 




BLANKS 




1 


1.. 


1 

I lY 





• FIRST • CSPVA 
• CHARACTER 

• F 



NO 
CSP 

• 2E 



• • NO 

• • CSPVA 
« FORMAT • 

• STATEMENT • 2E 



FORMAT 14G 



^^7 



1620 MONITOR II VER 2 FORTRAN II-D PHASE 1-B 
DECODE 2G 



SHIFT OFF 
BLANKS 



• FORMAT 
• STATEMENT 



I ERROR 27 



CLEAR 

"OIN- 



CSPVA J 2B 
MINATE 



I SCAN IhD 
I ELIMINr- 
I BLANKS 



I SCAN FOR 

{ UMi 

1 UITH 

I AVOID 



RECORD NARK 
NEXT 



I 
I 
I 

I 2H 



YES 
NQNARI 



ALPHA NEXT 

• 

NO I 
I 
I 
I 

I 2J 



• EQUAL SIGN 
• NEXT 



ol?ODE 
•* 2G 



• *2 
• 2L 



GOTO BECaN IB 


YES 




2D^ 


1 





PAREN COUNT 
ZERO 



NQNARI 
2L 



*• ol?o 



• LEFT PAREN 
• NEXT 



• 2N 



YES 


L 












j m 






GOTO 


DECODE 


26 



^ 2N^ 

•* * • NO 

• • DECODE 
• RIGHT PAREN • 

• NEXT • 2G 



I 
I 

I 2P 



I SUBTRACT 
I ONE FROM 
I PAREN CGI 



GOTO 
OECODA 



CUNT 

oicooi" 

20 



• RECORD MARK • 
• NEXT • 2T 



• COMMA NEXT 



*• 0§0 



2S^ 

•* *• oScODA 

• LEFT PAREN • 
• NEXT • 2Q 



YES 
CKCTAR 



• INPUT FROM 
• CARDS 



• NO 
• ASCAN 

♦*24A 



d2s 



NONARI 311 



1620 MONITOR II VER 2 FORTRAN II-D PHASE 1>B 
36 



• • lOU 





'7 


^. N 

•* CARD INPUl 
• • 
• • 


YES 


30 


CKCNTU 






1 m 


isT^"""*! 
:ters I 


"1 


rr 



* FIRST THR8E • 
• CHARACTERS 

• ON TABLE • 



• NO 
• ERROI 



SET S 

Ifsr 

MA^- 
USI 



W I 



ERROR $2 



ER 
LK6E 

cosi'that 

SCANS STMNT 



BLOCK 1 3N 
DIMENSION 



BL0CK2 3P 



EQUIVtl 

PAur- 

FUN( ^. 
SUBROy 
DEFINE 



iff 



YES p * 






BL0CK3 30 


• • 3L 








t 3K 


BLOCKS 3R 



ouTscicorrt 



8&» 



BLOCKS 
OUTSC 



If 



I 



3fi 



• •YES 

• IS STMNT. A • N3 
• FORTRAN • 

• DECLARATIVE • 3L 



0CK6 3T 
OUTSCfCOPYl 



329 



1620 MONITOR 1 1 VER 2 FORTRAN II-O PHASE 1-B 



PAGE 4 OF 38 



INITIALIZe 
INSTRUCT- 
IONS 



I 
I 
I 
I 

I AB 

* ' *• YES 

• A16 
RECORD MARK • 

NEXT • 4F 

• • 
»— — — » — • 



40 



SUBTRACT 
FROM NO. 
CHARACTER 
TO BE 
COLLECTED 



I. I 

9 I 



I 
I 
I 
I 

I 40 



NUMBER 
» ZERO 



*.X!i 

• 4F 



NO 


4B 


I COLLE 

I tmo 0 

! IN SYf 


llT9 j 


A16 







CKCNTU 4G 



READ CARD 
INTO CHI5 



CK2 



4N 



t 

I 4H 



• CONTINU- 



• YES 

'KCN 



• CKCNl 
ION CARD » 4K 



NO 


4J 


1 , 

1 

1_ 


SET cdNT. I 
:OUNT TO 0 i 
IHANGE 0 TO I 

mjuj^Hx } 



CKCNl 



*• 88!Sf**!f^4 ♦* 4N 





L 


• CONHfNT • 
• • 


" 1 


L. 


1 EMOII 2S 1 



I IF FORMAT 
I STATEMENT 
I PUT R/M AT 

END OF CHI5 



I 



I 
I 
I 
I 

^ I 4P 

~place*r7m 

I 



•NT 
ON 



• COMNiNT 



• YES 

• CKCNTU 

♦ 4G 



NO 


L. 






I m ONI I 




1 




rr 







ELIMINATE 

'KS AND 
MOVE BEHIND 



GOTO 
CKCN4 



part IN 



CKCNTU 
4V 

iIni 

CHI 
CKCNTU 



TO 4U 



1620 MONITOR II VER 2 FORTRAN 11*0 PHASE 1-B 



CSTNO S* 



\ 


iZ 




OFF I 



• • $E 



VES" ] 




ERROR 


S6 


CSl^^ 


SB 




• • N 

• • 


YES 


L 


I RETURN TO I 
I ADDRESS IN 
j CSTNO-l 


I 





1 »:'!! 


r "j 








r 1 






GOTO SNTiU 
CSORN 5K 


• • Y 

• * 






j SCHI < 


* CHt 1 




5M 



•'first *• nuSber 



• YES 
NUMBER 



* * C? 



m 


L 









lift I 



SALT^ 

1 Movi"' 

I CHARACTER 
I TO SYM 



PAGE 5 OF 3B 
5U 



I CHARACTER 
I COUNT 



I 

I 5V 



• •NO 

• NEXT • FLCH4 
• ALPHAMERIC • 

• • 5Y 



SU 

— • 

• » YES 

• • SALT 



NO I 

L-5f- 

ERROR 08 

™oto""*"begi 

FLCH4 5Y 



fii 


Y 

. IN 
tEA 




51 





93 J 



1620 MONITOR II VER 2 FORTRAN II-D PHASE 1-B 
NUMB 6G 



• IN EQUIV 
• STMNT 



— -» — • 

NO I 
I 
I 
I 

I 6B_ 

'shTft'off 

COLLECTED 
SYMBOLS 



YES 
SMTLU 



SET VARSW I 

TO 1 TO I 

LOOK-UP I 

CONSTANT I 





60 


I 
I 


MOVE 
MASK 


N 

ro 


A I 
SVM 1 



TO C0LLEC1 
CONSTANT 



IMP I 




• DECIMAL 
• POINT NEXT 
• 

• • — — • 

NO I 
I 
I 



• NEXT CHAR 
• NUMERIC 



YES 

FLNUMB 



• HAVE F 

• DIGITS BEEN 

• COLLECTED 

• • 

NO I * 



♦ 42 

» 6L 



I 



COLI 
MAN 

8S, 



mm 



I NO 







I 




GOTO HUMS 
FXNUMB 6N 






J 


6n 



• IS NUM GRE- • • 

• ATER THAN K • ^2 

• DIGITS • 6Q 



BEGIN 
60 



I 



RIGHT 
JUSTIFY 
NUMBER IN 
SYM 



GOTO 
FLNUMB 



IK 



VARBR 1 6S 



• NUMERIC • 
• NEXT • 



NO 

CMPAR 



6T 



GOTO VARBR 6S 



PAGE 6 OF 38 
6U 



NEXT CHAR 
AN E 



» NO 
• PLUS 





YES 




YES 


6H 
— • 




6P 





I 
I 
I 
I 

I 6V 



ADJUST 
CHARACTERI- 
STIC BY 
EXPONENT 



» YES 

• *2 

• NUMBER • 6Y 



VALID 

BER 



I 
I 

I 6X 



• 'NO 

• • SMTLU 
• IS NUMBER • ,^ 

• ZERO • 7C 



YES 


1— — » 






1 1 


I SYM 


I 


I I 


GOTO *~SMTLU 



932 




1620 MONITOR It VER 2 FORTRAN II-D PHASE 
F ! 



PAGE 7 OF 38 



SMTLU 


70 




SNLOOP 


1 70 



i 7B 



*• jol 



GOTO SNiOOP 70 

FULl^ TM^ 

•*AT SmRAT-** SuTEST 

• tON Point • 



YES "j 






m { 

SVN 1 



eaTo SMLoop to 

fUTEST TK^ 

iio~"|*~* 
3, 

•'symbol *• TI^FUL 
• TABLE FULL • 
• • 7A 



• IS ypFER • aBvar 

• HALF FULL • . 

• • 9L 




• LOOKINO UP • l! IeRL 
• CONSTANT • ^ 

• ♦ BU 



ILOOF^* TA|^j BITRV 
TO • • 



• MAS SYM A • 
• LIBRARY • 
lOL • FUNCTION • 



• • NO 

• IN DIM • A2 
• STATEMENT • 

• • 7X 



YES 




A7 




1 CSORN-I 1 



* SUBROuIlNE^ *♦ 

• NAME • 



YES 

FCfST ♦ Mj 
9A 



YES • 



I 
A 

FAREN 



• IS THIS • FULl 

• SPECIAL 



• NO 

• FUL 

• 7H 



YES I 
I 
I 

TO 7G 



UPDATE JUMP I 

AROUND I 

POINT IF I 

•t)T BEEN I 



NOT _ 
USED 



GOTO AOVAR 



VES j 

I 

I 7T 



TABLE 



NO « 

LUXIT • MAS VAR 

• DIMENSION 
8J ♦ 



933 



1620 MONITOR 11 VER 2 FORTRAN I I-O PHASE 1-B 
86 



LUXIT » IN I/O 

» STATEMENT 



YES • 

LUXIT • IN CALL 

• STATEMENT 
6J • 



YES 
COM 

I3Z 



COME • iN COMMON 
STATiMENT 



YES 
A6 



DIMERR i St 



I ERROR 03 
60To"'*"Bl5ir 
A3 ^ ij 

NO I 
ro SG 



• VARIABLE 
• DIMENSIONED • 8H 
• • 

NO **OIMERR 8E 



• WAS • 
• VARIABLE A • 
8Q • FUNCT.NAME • 



A6 



8H 



CATE 



UllIT 



vcs 




j "mL j 


J 


L 



m 

8T 









f i 1 



OPERA 



GOTO A7 
9 80 



t _8S 

ERROR 3« I 
*iST0***"ii6|N IB 



GOTO OUTfC 23A 



GOTO AT 



LITERL 



PAGE 8 Of 38 
8U 



NO 
SMI 

7D 



SMLOOP • TABLE ENTRY • 
• A CONSTANT • 



LUSTNO • LOOKING FOR • 
STHNt NO • 



YE; 
LU 

9H 



8M 

YES •** " *• 

FXLIT • LOOKING FOR ♦ 
• FIXED • 
9F • CONSTANT • 



IP 



ILOOP • TABLE ENTRY ♦ 
• A FIX • 
70 • CONSTANT • 



NO • • 

SMLOOP ^» I*tV6 *• 
70 • • 



8Z ^ 

nsw"to" 



Ss'fSund 
'goto'"'*"luxTt" 



93/,, 



1*20 MONITOR II VER 2 FORTRAN tl-O PHASE 1*B 



FCTST 94 



♦ tEFT.PAREH 



IfREH \JH !8iOOf^/TA|^J iNT«/.;8ilT IKiT /VjoJlRg^ \ 

- 9C TO • ♦ BJ lOF • • 



ERROR 09 



BEOIN IB 
9Q 



90 



GOTO LUXIT 8J 
FXLIT 9ff 



NO • • 

SMLOOP • TABLE ENTIW « 

' Jant / 



MLOOP • TABLE 
70 ioNsfAl 

I 



LUSTNO I 9N 



YES 



91 



Ikm^ ♦^T §NfRf 

TO ♦ • 









5d'ii,--j 


GOTO iUtIT 
AOViR 91. 


1 ¥ 

t OCCURi 


ir" 1 

lENCE 




L 



SET FXORFL 



' 1 

n 


L 




90 



1 



1 


i 










91 



fii A 



9U • St A' 



"OL* 



m 



A12 • IN FCT OR 

• $r 



All 

■ 

*;ijBRf STMNT » 
YES I 

1 9V 



PAGE 9 OF 38 
9U 



I IP 



MBOL 

. TO 
iBLE 



A12^ I 

XlioM •*IN *• 
126 -.tlilW"™ .• 



r 

I 9X 



BJ • • 



NO 

A13 • 



YES j 

^^^^ r 92 

ERROR 10 

*65to****8E6In"" 



1620 MONITOR II VER 2 FORTRAN II-D PHASE 1-B 



PAGE 10 OF 38 



YES • ^ • 

LUXIT • IN FCT. Oft • 
» SUBRT STMNT • 
8J • • 



I 
I 
I 
I 

I lOB 



• IN COMMON 
• STATEMENT 



YES 



I 



C0MER2 i 100^ 
ERROR 32 
GOTO BEoIn" 



A14 


ICQ 


I SET FNTSW I 


I TO INOICAI^ I 


I FUNCTION I 


I CALL 


\ 




lOB 



ASC21 • ON LEFT OR • LUXIT 

• EQUAL SIGN • 
26Y • • 8J 



•*SYH SWHl *• XSItN 
• NUMBER • 



PLACE FIX 
OR FLOAT 
CONSTANT 



GOTO LUXIT 

ADSTN LOH 

I add"*" TO 

! SYMBOL LOG 

I ADDRESS. SET 

I STNODM TO 

I ZERO 



I 


MOVE ! 




I 


NUMBEI 


i^"S'• } 


I , 


SYMBOl 




1 


STORA< 




i 


LOK 




• YES 

• IN COMMON • ERR34 
• STATERBNT • 

• • lOT 



ION 

/mm 

« • lOT 



ION 

•* * *• YES 
• IN DIMEN. » ERR34 
• STATEMENT • 
» • lOT 



» IN I/O • ERR34 

• statIm — 



• YES 

ERR3 

lOT 



I 

I lOQ^ 

»*0N LEFT OF *• £^^34 
• EQUAL SIGN • 
• • lOT 



• • NO 

• LEFT PAREN • ERI 
• NEXT 



ERR34 
• lOT 



YES 






ICS 


re 




goto""* LUXIT 


_ERB3» 


lOT 



ERROB 34 

"gOTO~"*"*8E6In" 



» •NO 
IN SUBPR06. • • 

• +3 
♦ lOX 



I 
I 
I 

I lOV 



• • YES 

• CONTAIN • • 

• RETURN • *Z 

• • lOX 



I low 

ERROR 58 



I 
I 

I lOX 



TURN OFF 
OVERFLOW 



ERROR IN 
PROGRAM 



• *2 
llA 



Ml'" 
no storage 
allocation 



1620 MONITOR II VER 2 FORTBAN II-O PHASE l-'B PAGE 11 OF 38 

llA 



i COLON SYM.) I 





IIB 
lARY 1 




110 


1 H 


llON 1 



OlMEN 12A^ 

COLLECT 6 
CHARACTERS 
IN SYM 



BLOCK 1 CONTAINS DIMENSION* COMMON AND FORMAT 

SETOM 12G 

I ♦ • YES 

• WAS SYMBOL • 0IM2 



• • YES 

* ♦ Bl 
• SYNaENSlON • 

• •120 



NO I 
DINl I 120 



ERROR 01 



goto"** 

81 


*"beqim 

120 


{ Womv j 


B6 


l„. 



• Hi 

• All 



XT. \ih 



12B 



TO 126 



• IN TABLE 
NO I 



j AOSAVI , j 



1 


1. 






n 


12K 


• • 12C 
• • 


YES 




•4 


1. 




r\»' 












;■„■ 1 



fOTO iMtN It 



B22 12N 
I ERROR 

GOTO '"begin 
B222 ^ UP 
ERROR 02 
*GOTO** BEGliT IB 



.SI* 

*12M 



ho" 




m 


1 


3 


1 




J 


12T 
— • 



El 



SSvOIM 
12X 



• COMMA 
• NEXT 

YES 



PAGE 12 OF 38 
12U 

• NO 

• B222 

• *12P 



I MODIFY SYM 
I DIMENSIONS 



• HAVE I INO- • 



NOVO IN f 12X 



TO SYMBOL I 
TABLE I 



^ 12Y^ 

• STATjEgENT v^BEGINA 



*— — — • 



^ 121 

YES • * * • NO 

BB • « 82 

• COMMA • 

12E • NEXT • 12M 



0IM2 ISA 



BLOCKl CONTAtMS OIMiNSieMt COMMON AND fOMMAT 
COMNCN 1S6 



PAGE 13 OF 38 



• SUBRT. PARI • 



13C 



NO " 


i: 


1 CRIIOR 2i 1 


60T0 


BEOiN 


^87 


110 






"""goto"" 


sebom" 



n 






1 


tlM 



SYM 



NO 



€RII||M 01 



ooro Biftm !• 



Gl 



ISM 



C4 



• • ISN 

C3 I 13M 

I ERROR 32 

I 

GOTO BEGIN IB 



ISO 



COMA I ISR^^ 



NOD 

m 



S FOR 



rmt 



CONAB I 13T 



\ III 



• YES 
• C4 



ISM 



YES 

C6 ^ I 13W 

ERROR 33 
'"'60fo"***BE6IN IB 
C5 ^ 

IVALENCO *• 



• SYM 
• EQUI 



•— — 

NO 


1 • 

1 I3Y 


1 m 







YES 
INA 06 



ISM 



TO 13U 



GOTO COMA f 1 13S 

COME 132 

• ♦ ♦ 

• • 

no" j* * 



BLOCKl CONTAINS DIMENSION, COMMON AND FORMAT 



PAGE 14 OF 38 



FORMAT 



14G 



14N 



14U 



GENERATE 
COMMON ARBA 
FOR THE 
ARRAY 



14B 



PLACE 
COMMON 
ADDRESS IN 
SYMBOL 
TABLE 

'goto COMA 



• • YES 

• MAS STMNT • • 

• NO IN • 4^2 

• TABLE » 14J 



I 
I 
I 
I 

I 14H 



SET DIGIT 
IN TABLE 
TO INDICATE 



• ♦ YES 

• WAS NO • • 

• PLACED IN » 42 

♦ TBL BY I/O ♦ UL 



I UK 

ERROR 27 
'"G0T0'"**Bi6TN~ 



14L 



• • YES 

• NEXT LEFT • • 

• PAREN • *2 

• • 14Q 



FORMER I 14P 

! ERROR 35 
t 



GOTO BEGIN 



OUTPUT 
SYMBOL FOR 
FORMAT AND 
LEFT PAREN 



I 



ADO ONE TO 
PARCNTtlNIT 
RECORD LGTH 



us 



OUTPuf A I 

SYMBOL I 

SET DIGIT I 

IN lATYPE I 



• YES 
• FORMS 
NEXT ♦ 
NUMERIC • L6E 



NEXT 
SLASH 



NEXT 
I 



14Y 

"output" 



GIT 
YPE 



CARDS 

"J . 



• NEXT «A • *2 

• • 14V 



YES I 

f 

TO 15A 



BLOCKl CONTAINS OINENSION. COMMON AND FORMAT 



PAGE 15 OF 38 



I OUIPUT 



15A^ 
SYMBOL 



GOTO • 

ETYPE ISa^ 

•*E NEXT 



* NO 

• FORMER 



'iiT^lATYPE 

TO zir- 



150 

-TYi 
;R0 



FORMS 


ISfi 


1 Sii^' 1 


I BLANKS I 


1 


I 



I 
I 

I 15F 



ISN 



*• fSJner 

•*UP 



ouTPy^ 

WIO 



ISJ 



• HAS THERE • • 

• nulti^IpIc » ♦a 

» • 15M 



YES 



I 15L 
'GENERATi 



MIDTH 
GREATER 
THAN 87 



• YES 

• FORMER 

• 14P 



• • YES 

• DIGIT IN • FORMS 
• lATYPE • 

• • 15T 



• DECIMAL • FORMER 
• NEXT • 

• • 14P 



^ 15R^ 

•* NEXT *• FORMER 

• NUMERIC • 
• • 14P 



15S 



FORMS I 15T 



SHIFT OFF 
BLANKS 



15U^ 



NO 
• FCMA 



• RIGHT 
» PAREN • 

• NEXT • 15Y 



5V 



OUTPUT RT 
PAREN 
SUBTRACT 
ONE FROM 
PARCNT 



i 15W 

• ' • NO 

PARCNT • F0RM5 

» ZERO • 

• I5T 



I 15X 

• STATEMENT • BEGIN 
• END • 

• 'IB 



FORMER 14P 



» COMMA 
• NEXT 



• NO 

• • 

• +2 

• 16A 



YES I 

1 

TO 15G 



941 



BLOCKl CONTAINS OIMENSIONt COMMON AND FORMAT 
166 



PAGE 16 OF 38 



• SLASH 
• NEXT 



F0RM7 I 16B 

7 OUTPUT 

1 SLASH 

I SHIFT OFF 

I BLANKS 



NO 

FORMl 



I 160 



• • YES 

• LEFT PA REN • F0RM4 
• NEXT • 

• • 16J 



• NEXT 
• NUMERIC 



• NO 
• FORMS 



YES 
FORMS 


i6e 




□ 


■ 1 





• NEXT P TYIC • 



• NO 

• NEXT LEFT • FORMX 

^■^,EN • 

• 16K 



• PAREN 
YES 



I 

I 16H 




• NEXT X rm • 

• . ., 41 .. 

• • UM 

YES™*"*"** 



GOTO FIMMS ttT 

MOLL lyy^ 



VES 



TO UN 



I OUTPUT 

I NUMBER AND 

I H SYMBOL 



I 16P 



• STA 



UQ 
• 

;MT 



IRMS 
♦*15T 



SETFRQ 16R 



16$ 

/mi,'-'" 

* 

Yfi * 



•*14S 



F0RM4 16J 



942 



EOUIV_ ITJi^ 

Firms'' 



BLOCK 2 CONTAIfiSHEQUlVfCONTtlPSitSTOrfFUNCtSIIBftfDIF. 

EOl m 

YES •* *" • 
• • NEXT • 

♦2 • ALPHA • 
173 • • 







i t7B 


1 1?N 


• • 


ttm 10 


1 




OOTO MOiN 


IS 


t 170 


it J 


1 ERROII 1 







eoro BtoiN 
eaii _ iTo_ 



YES 



17B 

• • 

• NEXT • 
• LEFT PAREN • 

I ITR 

I ERROR 02 I 

60T0~"*"BiiJN IB 



I7K 



• VES 



ITL 

V 

GOTO EQ21 17R 
17M 



17N 



ail 



NO 



^ 17P^ 

• • 17R 



" ! 


170 


L 


iii 


: i 



EQ21 



I7R 



• NO 



• . % • ■ • • 

* m T 

t ITS 
ERROS tl 

'"*5oTo""**iiiiN~ 

* -ill. 



• MAS VAR • EqIi 
• DIMENSIONED • 

• • 17R 



YES 
'l7i 



NO 



t 



18R 



PAGE 17 OF 38 
17U 



• FIRST VAR • 
• IN LIST • 



♦ • YES 

• VAR HAVE • • 

• SAME MODE • 4^3 

• • 17Y 



■ • • 

NO 



17W 

• * ' *• YES 

• ♦ # 

• K»F*2 • 17Y 



NO I 

LiZf- 

ERROR 12 

*GOTO~**"BiGTN IB 
17Y 



I 



• EQI 
NO 



• • ISO 

• — «• 

NO J 



9 43 



18* 



• » YES 

• PREVIOUS • • 

• VAR IN • *2 

• COMMON • 18C 

• • 

NO 



• • NO 

• WAS PREV • EQ7 
• VAR EQUIV • 

• • 18R 



YES I 

i 

I 

I ERROR 13 

] 

GOTO BEG! 
EQ24 180 



CONTAINS-EQUIV,CONT,PSE«STOP«FUNC, 

_18G 

~* ~ • YES 

• VALID • • 

• SUBSC • +2 

• • 18J 

• • 
» • • 

NO I 

I 

I 

I 18H 

i 5 

I ERROR 09 I 

GOTo"''*"bEgTm IB 

EQBR 18 J 

• • YES 

• PREV. VAR. • EQ4 

• DIMENSION • 

• • 18N 



• •NO 

• VAR. • EQ4 

• DIMENSION • 

» • 18N 



• NO 

• EQB 

• 18J 




• PREV VAR 
• IN COMMON 



TO 186 




• YES 
• EQLOOP 



LIST • 19C 



I 

I 18P 



• • YES 

• COMMA • EOl 
• NEXT • 

• • ITG 

• • 

NO 



180 



ERROR 02 
'GOT0'~*"BiGTN" 



18R__ 

save'fu'or I 

FLOAT I 



us 



I SAVE 




1 SYMBOL 1 


i m 


lie"' I 




i... 



• YES 
WAS VAR • • 

DIMENSION • *2 
• 18V 



PAGE 18 OF 38 
18U 



I SET OFFSET 
I TO ONE 



E84130 18W 



lev 



EQ4 
18N 



YES 
EQ4 



COLLECT 
SUBSCRIPT 
IF ANY AND 
FOR OFFSET 



• VAR. PREV. 
• EQUIV. 



PREVIOUS 
VAR THE 
BASE 



FIND PREV 
BASE AND 
CALC. OFFSET 
WITHRESPCTT 
0 THIS BSV 



GOTO 



EQ4 



EQ22 18Z 

• * • YES 

♦ MAS PREV. • • 

• VAR. EQUIV. • 4^2 

• ♦ 19B 



TO liN 



944 



BLOCK 2 CONTA I NS-EOUIVtCONt •!»$£• STOP tFUNCtSUBRtDEF. 



PAGE 19 OF 38 



^ 1911^ 

•*NAS MEV *• EOT 



! ERROR 13 I 



~0OTO **~BEaiN 
EQLOOP m 


1 m 






190 


1 


MAME 




1 


19B 



IB 



YES I * 
E 84804 I 1911 



• NO 
• XXI 



• LEFT 
• PAREN 

• NEXT 



• NO 

♦ E 84710 



ITD 



^ 19C 




E84710 


19M 


1 m 


f 

VAR 




i 19J 




YES 

•*NEXT 
• COMMA 
• 

• 

NO 


19K 

• 

• 

• 

• 

• 

t9L 


« 

• 

NO 


; •. s 

4ENT • 
• 

• 

1 

[ 19M 



XXl^ 19N^ 

•*VAR. THE 
• BASE 

• 

NO I 



I 

I 19P 

CALrpif|iT 



YES 



TABLE 



GOTO 


'i84710"~ 




190 


I PLACE 


BASE I 


1 REF IN t 


1 


1 




19R 



i9H 



"gOTo"***E84t1o' 



SUBP 19U 

I colleJt't*"' 

I CHAR IN SYM 



I 
I 
I 

I 19V 

• . • 

• •NO 

• SYM « • PAUSE 
• ROUTINE • 4^2 

• • 21J 



I 19W 

I "sETyp'TO I 

i OUTPUT I 

I SUBROUTtNE I 

I OPERATOR I 



• •NO 

• IN • • 

• SUBPROGRAM • +2 

• • 19Z 







YES 




XXX22 


19Y 


I • I 


! ERROR 30 I 


I 




I 





GOTO BEGIN 
19Z 



SET SUBFCT 
TO ONE TO 
INDICATE 
SUBROUT INE 



TO ONE TO 
INDICATE 



9 45 



BLOCK 2 CONTAINS-EQUIV.CONT,PSE,STOP,FUNC»SUBRtOEF. 
20G 



♦ STATEHENT 



NO 



♦3 
20K 



STATEHENT 
END 



I~*~COLLiCT MtT 
"MIPUT 



OUTPUT 
PARAMETER 



I 20BI_ 

_UBSvi 
ONE TO 



SUBR OR FCT 
STATEMENT 



SET SUBSW 
TO ONE TP 
INDICATE 



• • YES 

NEXT • SU8PUT 

ALPHABET I Q • 

• 20E 



ERROR 20 




.* ^8 



• *2 

20R 



SUBP2 
20R 



• NEXT 



GOTO 
SUBPUT 



BEGIN 
20B 



I QUTPuf 

I lap 











1 1* 


!lP 1 


~ : 




CONTEN 


1 

21A 





yes"'"" 







" 1 




i 20M 



20tl 

lUtH 
IB 

-7 20J 



TO 20N 



946 



BLOCK 2 CONTAmS-EQUIVtCONTtPSevSTOPtFUNCtSUBIItDEF* 
PAUSE 2t6 



_ I 2ia 
•*SYM • TINUE 



• NO 

• PAUSE 

• *2IJ 





1 


21N 



• YES 



• YES 

• SYN • se • • 



1^2 lOL 



• YES 



t 2 1D 

ERROR 3A 



OUTPUT 
SYN ANI 
DUMMY 



" 1 


L 


1 ERROR 01 1 


«0T0 






2tR 




PAUS^ 


1 . 



^ 2 IN 

•*IIEXT 
• NUMERIC • ♦I 

• « 210 

" I 

I^IP 

ERROR 93 
""5oTo'^*"|!e6Im"" 1 
210 



corn tioiN 



. COIIT 
iNO A 
SYM 



M 



GOTO BEGUN 



21M 
• . — — • 

"record mark** bIIin 

NEXT • 

• IB 



PAGE 20 OF 38 
20U 



I colle£t 5 

I CHAR IN 



I 

SYM I 



SYM » CTION » PAUSt 
• +2 
• 21J 



YES I 

I 

t 20W 



! ai 



ET UP TQ 
JUTPUT 
FUNCTION 
SYMBOL 



20X 



• • YES 

IN • X.HX2Z 

SUBPROGRAM • 

• 19Y 





— • ■ 


NO 






20Y 








.AG^l 1 











GOTO XX2 



PAGE 21 OF 3B 
2LU 



NO 



• P NEXT LTR • PAUSE 
• IN CHI • *2 

• • 21J 



SYMBOL 



GOTO PAUS 



DEFINE 22A 



COLLECT 7 
CHAR IN SVM 



BLOCK 2 CONTAINS-EQUIV,CQNT,PSE,STOP,FUNC«SUBR»OEF. 

22G 

- » . • 

• • YES 

• RECLG • ERR44 
» GRETER THAN • 

• TWO • 22E 

• • 
• • — • 

NO I 
I 
I 
I 

I 22H 



PAGE 22 OF 38 



SYM * 
INEOISK 



SHIFT OFF 
INEDtSK 



• NO 

• PAUSE 
• ^2 

• 21J 



I 

{ 

i 220 



• • YES 

• NEXT LPARBN • • 



•——-I 

NO 




ERR44 


22B 


1 ERROR 44 ! 


t 


1 



COLLECT N2 



I 

I 22J^ 



• N2 GREATER • £114 
• THAN 20000 • 

• • 22E 



• RIGHT PAREN • 
• NEXT • 

• • 22E 



YES 



BEGINA IC 



GOTO BEQIN 



COLLECT NE 

CALCULATE 

RECQRO 

LENGTH 



TO 22G 



9 



OUTSC 



1 W^Kx 1 




238 


1 mvl 

1 AND XI 


Hi" 1 

12»3 I 


SC22 


23Q 



BLOCK 3 CONTAINS ASCAN AND OUTSC 

2ia 

• • YES 

• NEXT • • 
• RT PAREN • ^2 

• • 23J 



•..SB, 

• 23K 



YES 






230 


I SET dInSM I 
1 TO ON I 


LJcl 


[Ssr 1 




238 



• NEXT 
• COMMA 



♦ 23K 



• YES 
• SC22 



NO 



NO 
23^ 







ERRS 


23H 


1 ERROR 05 1 


GOTO 


BEGIN 
23 J 


0 

lll&tctEO •* 
* « 


YES 


SC9 


SC3 

•*NEXT 
• ALPHA 
• 

• 


23K 

• 

• 

• 


YES 






23L 




! 




23M 



23U 



NO I 

{ 

TO 23G 



I 
1 

TO 23N 



PAGE 23 OF 38 



oIe^ator 

PLUS 



NEXT 
NINUS 



• YES 
•*23i 



• NO 
• SC4 

•'23F 





• 

23Q 

lllVE 1 


i 


|3R 



SC9 


23U 


I USING 
t FROM r 
! CALC ( 
1 03,04 


CONST I 
)IHEN I 
31,02, I 

23V 


&\ 

STRINf 


lIPT 




: 23M 


RETURI 
ADORE 

OUTSCI 


4 TO 

;s IN 



23S 



• NO 

• SC4 

♦ *23F 



YES 


23T 


1 H 


F 1 



23F 



949 



A SCAN 24 A 



BLOCK 3 CONTAINS ASCAN AND OUTSC 
24G 



PAGE 24 OF J 8 



• •NO 

• PREVIOUS • • 

• STATEMENT • +3 

• TRANSFER • 240 



YES I 
I 

. I 
I 

I 248 

• ' » YES 

• THIS STATBM • » 

• ENT • +2 

• HAVE NO • 240 



I 
I 

I 24Q 



I SET 


I 


I DIGIT 




I IN OMN I 




24B 




• 


• V 


• NEXT ALPHA • • 


• 


• 


• 


• 2 


• 


• 


NO 




AERR 


2411 




IB 



COLLECT 
AND 

OUTPUT 
SYMBOL 



SET 
STSN 



I 

^ f 24J^ 

•*EQUAL SIGN *♦ AERR 
m NEXT • 
• • 24F 





J ?0*2ER0 1 


ASC22 




j S 


□ 


"1 


24N 


1 NOMRN • Ot 1 



ARGSC 24N 

I sscsw*«"oo"' 



I 
I 
I 

IFSCAN _{_24P^ 

•*ENO OF 
— TEM- 



• NO 

• St ATlNENT ****2 
• 24R 



YES 
ER38 



240 



I I 
I ERROR 38 { 

I 1 

GOTO * bIgIN I 
^4R 

•* ' NO 
• ♦ 24T 



ARGl 24U 

"'~"~ises5i~*"'o5^ 



• •NO 

• LEFT PAREN • ARG2 
• NEXT • 

• » 24Z 



ASC23 

•~- • • 

• • YES 

• FNTSWl ON ♦ ASC5A 



24X 



ADD ONE TO 
PARCNT, 
SSCSW » 05i 
OUTPUT LEFT 
PAREN SYHB. 



YES 


24S 




GOTO IFSCAN 
ASC54 24Y 


24P 


1 UNARY MINUS 




AOO ONE TO I 
TPARCT. I 
SSCSW * 05, I 

m'^'sk^il f 


6oro 


ARGl 
24T 


* 24U 


GOTO IFSCAN 
ARG2 24Z 


24P 


• •24V 
• • 


• •YES 

• ALPHANUMBER • ARG3 
• NEXT • 

• •250 

• • 


YES 






NO 1 
I 




TO 


L 




TO 25A 





95U 



BLOCK S CONTAINS ASCAN AND OUTSC 



MAL 



•*25C 



NO 


25B 


1 ERROR 38 1 


GOTO 


BEGON IB 


ASC6 


2SQ 


• * • NO 

.•8BilJR.c V-i 

• • 25B 

• • 


YES 




ARG3 


250 



ASC3 1 25B 



NUMBER OR 
SYMBOL 



• • YES 

• SUBPROGRAM • FNSC 
• NAME • 



NO I 

i 

TO 2 5G 



ASCT_^ 

• 

« 


296 

• 






•*FNT$N] 

• 

• 

• 


I ON *• IrIo 
• 2BL 

• 


NO 




SRi9 


r • • 

: 29K 


1 ERROR 39 1 



GOTO BCCIN 
•* SlNci? ON 

no" 

ASCI 25M 

• OPERATOR • ^2 

• • 25P 



AFT 



*• J&ii 
•*27U 

iiiiN IB 



25N^^ 

ERROR 38 
"c0T0""*"Bi6IN IB 
2SP 



PAREN • 



*• aI?23 



24W 



2SQ 



• NEXT • • 



SJUJFuf 
SYNtOL 



GOTO ASC24 26A 
^ ^$ 

•* * *• "0 

;XT • • 

-1$ 



• s 

YES 



• *25U 



I MCT i 
I SYMBOL I 



GOTO ASC24 26A 



PAGE 25 OF 3H 
25U 



, ♦ ne: 
♦ or 
• sti 



gn 



• no 

• *2 



} W 



GOTO ASC24 26A 



• NEXT 

YES r 



• ASC25 

• *26C 



- - i^u 

•* FOLLOWING *«*+2 

♦ MULTIPLY • 25Z 

YES 



25Y 
^NTIAL 



I I 

G0T0~"*'aSC24 26A 



25Z 

output" 
multiply 



951 



BLOCK 3 CONTAINS ASCAN AND OUTSC 
26G 



SSCSW 
NEGATIVE 



• NO 
• ARGl 



I 

I 26B 



ERROR 03 I 
I 

GOTO BEGUN I 

ASC25 260 

• * • YES 

• RIGHT PARBN • • 

• NEXT • ♦a 

• • 26F 



• • YES 

» FNTSWl ON • FNSCl 



• IN CALL • CALL2 
• STATEMENT • 

• • 26U 
• • 

* • • 24Q 



YNBOL 



01 

StNBI 



ERIB 

26^^ 
PARBN 



• • YES 

• FNTSWl ON • • 

• • +2 

• » 26J 

• « 
.» 

NO t 
I 



I 

I 26H 

"subtract 

ONE FROM 
PARCNT 



26J 

iuBTRACT 
OM 



! subtrai 



I 26K 



.•Siiii«« *v^^' 

• • 25K 



26t 



« YES 
•*268 



• • 256 



26N 



• • YES 

• FNTSWl ON • • 
• • 

• • 26S 



• PARCNT ZERO • • 

• • ^3 

• • 26S 



260 

• *• YES 

• IN IF • OUTSN 
• STATEMENT • 

• • 36W 



26R^ 

• • 26X 

NO 



•*LEFT PAREN *• eIIb 
• NEXT • ^ 



• • YES 

• FNTSMl ON • FNSC2 



• 28M 
"asCT 250 



CALL2 



PAGE 26 OF 38 
26U 



♦ •YES 

» COMMA NEXT • ♦ 
• • +2 

» • 26W 



NO 



CALLER I 26V 

I 
I 

I ERROR 29 

i 

GOTO bIgIN IB 

26W 

I OUTPUT I 
COMMA I 

I 

"goto ARGSC 2*N 



♦ END OF • CALLER 

"*TEME - 



• STATEMENT 



• 26V 
"isGIN IB 



• • YES 

• DIGIT • • 

• IN • +2 

♦ STSN • 27A 



NO 

ER37 I 26Z _ 

ERROR 37 
""60T0~''*~BiGTN' 



952 



BLOCK a CONTAINS ASCAN AND OUTSC 
ASC26 276 



TO Z! 



IynIol 





270 


1 1 


'w: i 




270 


{ w 


ON 




27B 



CNT 

t8 ?0UMT 
PARAMETERS 





27B 


T OUTPui 

1 left f 


r I 

»AREN 



• END OP • aIHr 
• STATEMENT • 

• • 24F 



• • NO 

• ALPHA NEXT • AERR 

« • 24F 



1 "fiStsw' 






27K 




J 


... 



ieter 



27M 



PLACE 

ASTERISK IN 
TABLE TO 
INDICATE 
PARAMTER 



I ADD ONE 
I TO PCNT 



27P 

— • 

• • YES 

• RIGHT • • 



a7o 



• • NO 

• CONNA NEXT • AERR 




1 KiF ! 




27T ^ 


I SET S 

{ 


NCiT' "I 
IGGEO i 



GOTO AERR ^3 24J 



MOOAFT 



PAGE 27 OF 38 
27U 



INITl 


ALIZE I 


SING! 




PARAj 


IETER I 


TABLi 




GOTO 


BEGIN 


ASCII 


27V 



I SET NOPRAM I 

I TO NEG ZERO I 

i sub^rS^ram^ ! 

I CALL I 
GOTO AScIs 



FNSC 27W 

•*FNTSWl ON 



YES 
ASC14 



ASC14 

SH 
PAI 



SHIFT 
PARAMETI 
LIST Boi 



• 27X 

"iice 27Y 

27X 
TER 



ASC8 



27Y 



• SUBPROG 

• FUNCTION • 

• • 27V 

NO I 

1... 



MOVE NO OF I 

PARAMETERS ! 

FOR ARITH i 

STMNT FCT I 

FROM TABLE I 



BLOCK 3 CONTAINS ASCAN AND OUTSC 
ASC30 28G 



» LEFT 
» PAREN 
♦ NEXT 



NO 



» YES 

• +2 
• 28C 



ERROR 09 

coto*'*"beSn* 

28C_ 

PAREN 



I ~ OUTPUT 
I LEFT 



SE 



,ET UP 
"MPORARY 





28B 


I FNTSM » 0 I 
1 FNtSNl * E 1 



• IN 

• ARITH 

• FCT. CALL 



It 



• POSIT I¥i 



GOTO AROIC 2«N 




10 



FNSCl 2tW^ 

•*CONNA NEX« ^38 
• • 240 

yES~r 



FNSC2 2tll 



TO 286 



TO 28N 



PAGE 28 OF ? 



SUBTRACT I 
ONE FROM j 



I NOP ARM 
I 



I 

I 28P 



• NO 
• ER40 



YES 

ASC31 _ ^ 
• » 28S 

no""* 



280 



2aR 

"5oTO****ASC7" 



BL0CK4-C0NTAINES-0UTSC I COPT If bO« HON DISK I/O 



• MAS PR|V« V o8li 



OOP 



YES 
DOLOOP 


29B 


1 TRIND « 0 1 


J 


29Q 



I 290^ 

ERROR 52 



290 



• EQUAL 00 • 29G 



I 29g 

ERROR 01 



GOTO BEQIN 



• • NO 

• CARD IMPUr • • 



•*29S 



Yii™ 


— • 
29N 










H 




1 STSN < 






! 29K 



• YES 

• NUMERIC 1*298 



• NEXT 

■ 'MER 



" T 




ER29 1 


?9L 






ERROR 


29 


GOTO 


BEGIN 




29M 



OUTPUT 00 
SYMBOL AND 
STATEMENT 
NUMBER 



I 

I 
I 

TO 29N 



• HAS NUMBER •.88c 



ires I 




6R24 I 


29P 


1 ERROR 


rj 


~*GOTo"" " 


BEGIN 


4)0C^ 


290 



• NO 

• NEXT ALPHA • ER29 

• #291 

YES * * 



29R_ 

iiio" 



Its 



.•ifxmT 



• 29L 



YES 
OOCl 



• EQUAL SIGN 
• NEXT 



25 





PAGE 29 




29U 


guTPU 

EQUAL 


^SIGN i 




29V 


j mukv' j 


OOA 


29W 



• •NO 

• NEXT • ER2 5 
• ALPHANUMBER • 

• • 29L 



mv 



29X 
T AND 
ALIZE 



• • 29L 



292 
— • 

• • NO 

• COMMA NEXT • ER25 

• • 29L 



955 



OUTPUT 

COMMA 

SYMBOL 



• •NO 

• NEXT • ER25 
• ALPHANUMBER • 

• • 29L 



BL0CK4-C0NTAINES-0UTSC ICQPYI, DO, NON DISK I/O 

DOE 306 

•* * *• YES 

• COMMA NEXT • • 
• • 

• • 30J 



I 
I 
I 
I 

I 30H 
— — • 



COMPARE 
INDEX 



• •NO 

• IS INDEX • ERi 
• VALID 



25 
• 29L 



• END OF 
• STAr— 



I 308 
TlMENT 



NO 
DOE 



1 SOP 
• •IB 



• IN I/O 
• STATEME 



YES 
lOF 

cm • 

« 32P 

'eR25 29L 



• •NO 
NEXT • ER2S 

ALPHANUNBCII • 

• 29L 



YES 






lot 












CAT* 1 







YES 



ERM 



29L 



V/ 
YES 



• NO 
• ER2S 



^ON 
EMENT 



• • YES 

• IN I/O • lOF 

• STATEM- - 



• STATEMENT 

• — — • 

NO I 

I 300 

ERROR 53 

*"coTo"**'iEcIi5* 

30R 



IB 



lOUT 30S 



• NO 

fEMENT *«**2 
• 30U 



YES 






^OT 




' ISad 1 


I'M 


GOTO 


21 



PAGE 30 OF 38 
30U 



• •NO 

• DOES SYM • • 

• EQUAL ACCE • *2 

• • 30W 



30V 



I SET UP TO 

I OUTPUT 

I ACCEPT TAPE 

I SYMBOL 



GOTO CKTAPE 310 

30U 
•-- • — — ♦ 
» •NO 

• DOES SYM • » 

• EQUAL PRINT • +2 

• • 30Y 



30X 



SET UP TO 
OUTPUT 
PRINT 
SYMBOL 



• DOES SYM • • 

• EQUAL TYPE • *2 

• • 31A 



— 30Z 

I si? U^~To"* 

OUTPUT 
I PRINT 
I SYMBOL 



GOTO 



Zl 



956 



BL0CK4^0NTAtNES'-0UTSC CCOPVl« 00. NON DISK I/O 
3U 



• DOES SYM • • 

• EQUAL PUNC • •! 

• • 31C 



NO 

Z 


31B 


1 ERROR 01 1 



BEOIN 



310^^ 



•* {haracIer 

• AT 



•*31H 



YES ; 


»———.• ■ 




31B 



I IN SYM 



• DOES SYH • Z 
• EQUAL TAPB • 



r 






„ 1 

j 


31H 




INDICATE I 

stStement I 



OUTPUT 

STATEMENT 

NUMBER 



I 
I 
I 

TO BIN 



3 IN 



III TAI 
YES 



• 31R 





310 


1 ERROR 27 1 


GOTO 


iCGIN 




SIR 




irSat j 


lOA 








• 




-• 




I... 


•* jSix?"""* *•* 


• 




no""" 


— • 

\ 


TO 


31U 



IB 



IDLER 

ERROR 28 



PAGE 31 OF 38 
31U 



GOTO 


BEGIN 
31V 


i mm' 
1 


r I 




31W 



• IS NEXT • I OB 

• ALPHAMERIC 



• NO 

• lOB 

• *31Z 



^ 31X^ 

• • 31U 



4 

NO 






31Y 




T AND 


1 sVAbol 


GOTO 


lOA 



• LEFT PAREN •IDLER 
• NEXT • 

• • 31U 



957 



32A_ 

'output lebt 
paren and 

ADD 1 TO 
PAREN COUNT 



BLOCK^-CONTAINES-OUTSC (COPY), 00, NON DISK I/O 
326 



I 

j 

i 32B 



ADD ONE TO 
lOLOOP 



IS LEFT 
PAREN NEXf 



• IS NEXT 
• ALPHABETIO 



YES 
lOG 



» NO 
• lOB 

•*3U 



I 3 2B 

CoIIiS'AMD' I 



FUNCTION 
NAME 



♦ YES 

• IDLER 

• 31U 



• IS NEXT 
• COMMA 



• IQE 



OUTPUT 
COMMA, 
SET FLAG AT 
lOSW 
GOTO I 00 



lOE 1 


324 

, — 


• FLAG / 
• lOSW 
• 


• N 

\T • I 
' • 
• 3 




3211 






L 



• • 312 



• MAS INDEX 
• VALID 



OOA 
32P 



• RIGHT PAREN • 
• NEXT 



IDLER 
*31U 

29M 



'3IU 




• ZERO • 31S 

MO** 



^ f2T^ 

• COMMA NEXT • lOLER 
• « 

• « 31U 



PAGE 32 OF 38 
32U 



OUTPUT 

COMMA 

SYMBOL 




32V 


I ii? Fl 

I AT 10 


.AG 
>W 


I 
I 
I 
I 
I 


GOTO 


100 





lOG _ 32W 

OUTPuf LEFT T 

PAREN AND I 

ADO ONE TO I 

PARCNT I 



t 32X 

~A0D~0fii"T0 I 
lOLOOP I 



I 

\ 

I 32Y 



NO 
lOD 

• 320 



ADO ONE 
lOLOOP 



GOTO lOD 



956 



ftLOCKS-CONTAINES«OUTSC ICOPYIt 0 fCOPY), DISK I/O 
336 



• NO 
• OKIOl 



• FETCH 

YES I 
t 

f 338^ 
"~OKPUT*ll~* 



SF 01 



JL 

OKIO 



GOTO DXyiST 3SH 
OKIOl 330 



• FIND 
YES 



I0KPUT411 ^ 

GOT™**"^'^" 
OR 102 

• RECORD 
YES j 

I 331V 



• NO 
• 0KI02 



• 33E 



DKtlST 
33B 



• NO 
•*33i 



DKUIST 33H 




33J__ 
fO~" 
lHAL 



OKPUT 






[70 " j 

r LE^T j 




33L 



• YES 
• BEGIN 



NO I 

\ 

TO 33N 



33N 

— • 

• • YES 

MO 




OKA 



• ARE 

NO 



• COMMA 

YES I 



Output 

COMMA 



£11 IN 
• IB 



• OKER 
•*33U 



A^P SHIFT 



01 

'goto 



page 33 OF 38 
33U 



I 



GOTO BEGIN 



DKB 33V 

» * » NO 

• VALID LIST • OKC 
• ELEMENT • 

• » 332 



OUTPUT 
ELEMENT 



I 

t 33X 



• YES 
• OKA 



NO 

OKBI I 33Y 

ERROR 43 j 
G0T0~"*'8EgTn"~' 18 

DKC 332 

• *~ • NO 

• LEFT PAREN • DKER 

• • 33U 



959 



OUTPUT LEFT 

PAREN 

DKLOOP«0 

PARCNT* 

PARCNT^l 



I 
I 

I 34B 



BL0CK3-C0NTAINES-0UTSC (COPY)t D (COPY)* DISK I/O 
_ 34G 

"output 

COMMA 



• • YES 

• LEFT PAREN • DKG 



GOTO 
OKE 



OKD 
34H 



• NO 
CHI * • DKC 

EQUAL • 

• 33Z 



34N 



I 
I 

I 34P 



• OKLOOP «0 



• *2 
• 34R 



PAGE 34 OF 38 
34U 



OUTPUT LEFT 
PAREN. 
PARCNt * 1 
DKLOOP ♦ I 



DKO 



• VALID LIST • DKC 
• ELEMENT 

» 

YES 



NO 
DKC 

• *33Z 



'mi 




• END OF 
• LIST 



• NO 

• DKA 

• *3U 



lEGIN 
)4R 



• NO 

• DKER 

• 33U 



• VALID LISIt • 0KB 1 

• • 33Y 
• * 

•— — — — • 

YES I 



DKDl I 34ff 
• • •« 

» COMMA 



YES 



• NO 
• DKE 



OKF^ ^ 



ER 
•*3JU 







p 





DKDl 
14S 



34F 





f LT, 1 




— • 



• LEFT PAREN • DKO 

• • 34C 

YES I * 



960 



BLOCK 6-CONTAINS-aUTSC ICOPVtt RETUIINt IFt 



• LETTER L W • • 
• CH- 



• YES 

•SSI 







1 ERROR 01 i 



GOTO BEOIN 



IB 



350 
• , — 

• • YES 

• CALL EXIT • EXtTCD 

• • 35T 



♦ 35U 



n5~ ~; 


350 




♦*CALL LINK 






• 









;T CALLSH 



SET CAI 
SYMBOL 



ER29 


396 


1 ERROR 29 1 


GOTO 






IfM 






1"^ 


TINE 1 



IB 



IPSSi GOTO, CGOTO, CALL 

!5I?.«^. 

ERROR 09 

r6OT0~*lii6IN"' 



• MAS NAME 
• IN TABLE 



•*35M 



NO 1 


^_ 


m 

1 FOR F! 


ON t 
OR t 

HSS ! 



CALLB 39F 

/fntsm on 



It 

35G 



YES 



350 



YES 






|§R 


I'M 


"j 




; sss 



^» R1GH|^^AREN • 



• 35G 
"aSCAN 24A 



PAGE 35 OF 38 
LINKCO 35U 



TRINO ' -I, 



I 35V 

UTPUf'^ 
OUMMY, 
OUTPUT 



{ 8uMMY 



• NEXT ALPHA • ER29 

• • 35G 



YES 


— • 




35X 




lAME 



GOTO BEGIN 



• NEXT 
• ALPHA 



• YES 

' ' f :* 

• *35H 



• •YES 

• WAS NAME A • BEGIN 
• FUNCTION • 

» •IB 



EXITCO 

'la 



35T 



TR 

GOTO 



ITPuf"' 

w 

INO • -1 



BLOCK 



6>C0NTAINS-0UTSC (COPY). RETURN, IF> IFSSt GOTO. CGOTO. CALL 



PAGE 36 OF 3a 



RETURN 36A 

« , — • 

• • YES 

• NEXT URN • • 

• • ♦Z 

• • 36C 



IF 



36G 



I SET TRINO 

I TO ON 

I OUTPUT IF 

I AND LPAREN 

I SYMBOLS 



I 
I 

I 36B 



j ERROR 01 I 

GOTo"~**BiciN IB 

36C 

• ** • YES 

• SUBPROGRAM • • 

• COMPILATION • *2 

• • 36E 




I 

i 36M 



« NO 
» DO LOOP • • 

— ^ING KITH • ♦a 
NSFER » 36K 






3«R 


1 !»" 








• • • H 
*• OffllFiOII •*3 


YES 


MM 



GOTO BEQIN 



IB 



GOTO IftUT 36R 



• SYM EQUAL • • 

• TO EXPONENT • *2 

• CHECK • 36Q 



I 

i 36P 



IFPUT 
3*0 



NO 

ASCAN 



• SYM EQUAL 

*• Iensisuitch •^Z^A 



Yfs' ' 






96R 




[ J 


"J 


IT 


• 


• Y 






• 3 


• 


• 






" 1 


L 


1 ERROR 02 


GOTO 


BEGIM 



36U 
PAREN 



UMBER 
COUNT - STC 
TO 2 



I 
I 

OUTSN _^I 36W 

• " » YES 

• NEXT • • 

• NUMERIC » *Z 

• • 36Y 



36X 



I ERROR 15 

60T0~^*~BiGIN U* 
36Y 

i STATEMENT I 
I NUMBER j 



362 

• — — . • 

• » NO 

• HAS NUMBER • • 

• IN TABLE • *3 

• • 37C 



37* 



BLOCK «'<ONTAtNS-OUTSt fCOPYlp RETURNt IF* IFSS* GOTO* CGOTO* CALL 

37N 



• NO 



Yis 


L. 


1 ERROR 07 1 



GOTO BEGDN 
3T0 



IB 



/i8T8" 



HE - 



•*37L 



370 



• — — - 



37ft 



* iW*"^ * * 

*» THAN .ZERO •*37H 



NO I 

OUTSNE I 37P 



•*END OF, *• bIgIN 
• STATEMENT • 



NO I 

I 

TO 37G 



370 _ 

ERROR S3 



Goto BEGIN 
37N 



IB 



NO * 
37? *♦ 



J 



$14 



. -- , ^» 3*11 









37K 


ERROR IS 1 


eoro 


BEOtM 



IB 



0UTSN2 37L 



• ~3 
• 37H 



37M 

""sUBT~6Ni~~~~""l 
FROM PAREN I 
COUNT OUT- I 
PUT RTPAREN I 



• COMMA 
• NEXT 



•*37j 



16 



OOTO BEGIN 





T ANO 


J 


$tR 



• • 37P 



YES OUTSNE 37F 



PAGE 37 OF jH 

GOTO 37U 

• -.- ♦ 

• •YES 

• LETTER 0 IN • • 

• SYM • +2 

• • 37W 



I 37V 
ERROR 01 



NO 
3^1 



GOTO BEGIN 



1 37 X 



• END OF DO 
• LOOP 



372 

• • 

• ♦ YES 

• * fcixl •^COMPUT 
• • 388 

• • 
• , 

NO I 



9G3 



BLOCK 6-CONTAINS-OUTSC (COPY), RETURN, IF, IFSS, GOTO, CGOTO, CALL 



PAGE 38 OF 38 



STC = I, 

OUTPUT GOTO 
SYMBOL 



MPUT 38 B 

'output'syn" 

FOR 

COMPUTED 
GOTO AND 
LPAREN 



SET DIGIT I 
IN CGTO I 
TO INDICATE I 



913 A 



1620 MONITOR II VER 2 FORTRAN II-D PHASE 1-C 
_IC 

•* ERROR 59 *. 



- TiNp 



IC 



TO SACN SY 



foN 



A^DllisSES 



move'flag' 

"PR_ 



FOR REFER- 



• STAT. NUMB. 
• DEFINED 



• +2 
• IH 





IH 


1 ItaVInent I 




I on REI 




E8T210 


L 



• SUB 



• 3V 



NO 


1— — • 

L. 


SET TBASE I 
LIB FCT ENT ! 






I OUTPyt I 
1 BUFFER IF I 
! NECESSARY ! 



XI r iH 

I INlTiAUzi T 

I TO SCAN TA- I 

!BLE FOR VBL | 

FROM ADDRSS ! 

IN TBASE I 



MODIFY TO 

SELECT 

NEXT 

TABLE 

ENTRY 



• El 

•.¥1 



NO 
ABLE 



*• IllolO 
• 4B 



I IQ 
• • • 

•'has ENTRY *• {i?310 

*• SIIJcNlD •* IN 



IR 



*• EB?310 
• IN 



• VAR 

• IN 

• cr 



IS 



IT 



B9820 

2T 



• VAR • {l?6T0 
• DIMENSIONED • 

• #28 



PAGE 1 OF 
lU 



• YES 
VARIABLE • E89660 
EQUIVALENCE • 
ED • 2R 

• 



NO 




X2 


IV 


I SET MOLN 
I FOR FIX OR 




IW 


i ADDRESS IN 
I SYMBOL 
I TABLE 



E 89740 



• FLAG 
• AT 

• OUTCE 



• YES 
• E91250 



IZ 



AG AT 
9660 PLUS 



• YES 
• El8470 



TO lU 



1620 MONITOR 11 VER 2 FORTRAN II-O PHASE 1-C 



PAGE 2 OF 4 



2A 

•* * ♦ YES 

• FLAG AT » E88470 
• E89660 • 

• • 2H 



SET FLAG AT 
E89660 4- 1 



E 87670^1 2C 



E87670 28 

• * • YES 

• WAS • E88420 
• ARRAY • 

• EQUIV * 2F 



NUMBER I 



MOVE 
I OBJECT TIME 
I ADDRESS 
! INTO TABLE 



DIMENSIONS 
INTO TABLE 



2E 



REF NUMBER 



21 



F6FRT 



E88420 



• IS VAR THE • E90620 
♦ EQUIV BASE • 



S_2M 

• ' • NO 

• • 2J 



VES 



ADDRESSES 
TO CONTINU 
SCAN FOR 
OTHER VAR 



I 
I 

I 2P 



• FLAG • ^87310 
• AT TELSW • 

• •IN 



CLEAR FLAG 
AT TELSW 



GOTO 



E87310 
2R 



THE ^ 
• EQUIV BASE • 



♦ IS V.AR_TH| • E90620 
• * 3C 



VES I 

""*55to"**"x2 

•*IIAS VAR 

• EQUIV 

NO I 

TO 2U 



• YES 
• E90620 



• • YES 

• IS VARIABLE • E90010 
• AN ARRAY « 

• • 2X 



ASSIGN 

ADDRESS 

TO VARIABLE 



E9001Q 2X 
FOR ARRAY 



ASSIGN 
ADDRESS 
FOR ARRAY 
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• FLAG AT 
• TELSW 



• YES 
• E91730 



• EQRET 



• NO 

• E" 



87310 
IN 



YES E91810 3T 

E9062Q 30 



1 " 



FOR 
V VAR 



• • YES 

• IS VAR • E91320 
• THE BASE • n 

• • 3L 



NO 
E91120 



I CALCULATE 

--'*-*SS OF 



I 

I 3F 



•BASE IN 
• COMMON 



YES I 
I 



• NO 
• E91320 





m "j 




3H 



• BASE AN 
• ARRAY 



• YES 

• xl 

• 2J 



CLiAR'FLAG*"**" 
AT OUTCE 

"*G0T0****i5l730" 



35 



E91320 3K 



3L_ 

icAN^fABLE" 
n FIND 

flMr 



• END OF 
• TABLE 



• NO 
• E89820 

.'ih 



• NEGATIVE • 3R 



" 1 








j rtis j 




tQ 


rwt 


E 


GOTO 


' et9820 


E91610 


3R 


1 I 


GOTO 


E89820 


E91730 


3S 


i . WM^H j 

i imM i 


GOTO 


XI 


E91810 


_^3T^ 



SCAN ADD* 

turn? 

NUMBER 
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SET UF OFF- 
SET AND 
RETURN TO 
OUTPUT 
EQUIV VAR 

"G0T0***"i887 



I ASSI6^ 

1 iw^ 


E FOR 
ON 


1 

1 





P6PRT 



LAST 
ARGUMENT 



} 



ARGUMENT 



3Z 
END. 



ivki 

ARGUMENTS 



1620 MONITOR II VER 2 FORTRAN II-D PHASE l-C 



PAGE A OF 4 



RETURN TO 

OUTPUT 

VARIABLES 



GET PHASE 
2-A AND GO 
TO IT 



A8 



SCAN FOR 
ANY CALLED 
SUBPROGRAMS 
AND OUTPUT 
CALL RECORD 

I 
I 



IF SWITCH 1 
ON TYPE OUT 



STORAGE 
ALLOCATION 



I 

I 4J 



IF PUSTSN « 
2 OR 4 
PUNCH PAPER 
TAPE OR 
CARDS OF SA 



IF IN SUSP. 
PUT NAME IN 
COM. SECTOR 



• SUBSC. TO 
• BE OPTIMIZ- 



• *2 

• 4G 



GET PHASE 
2-B AND GO 
TO IT 
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INIT^ . . if. 

'inTtIAuzI" 



ITIALIZ 

indIx 
registers 

2(5, AND 6 
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IG 

Go'To'cooi 

SET - 



I 
I 

I IB 



GET fIrST I 
TWO SYMBOLS I 
*ND..PL,Cg } 

I 



IN SX'ANO 
SY RESPECT. 



hi 



SX AN 
ERATOR 



• YES 
• ANAL I Z 



SX A 
NO.) 



YES 
COCLN 



SET ' CODEl 
IN INDEX 
REGISTER 3 



GET ^ 
COMPLETE 



STATEMENT 
AND PUT ON 
STRING 
l" 

to' IG 



SET IN 



GO TO I 
PROPER CODE ! 

IN SX I 



U 



\ Ii5l?njf!f / 2L 
NO*" I 



• SX EQUAL 



• YES 
• PASS2 



•-— 1 

NO 


I— — ♦ 


NO I 




IE 


I IL 



♦ ♦ YES 

• SX EQUAL TO • PASS2 

» — — «— — » 

NO 



I IM 



• -YES 

• SX EQUAL TO • CODEDO 
• 108 • 

• • 2F 

• • 

NO I 
I 



• • YES 

• SX EQUAL TO • INA 
• 112.116.117 • 

• 142 OR 143 • 2E 

• • 

"no"*! ' 

i IP 

. YM 

• SX EQUAL TO • OUTA 



*N0 




• • YES 

• SX EQUAL TO • SUBPF 
• 135 OR 136 • 

• • 2K 

• • 


NO 




• 

• 


• YES 
lAL TO "^CALLA 

♦* 2B 

• 


li 





• SX EQUAL TO • 



HO 






1 . 



• •YES 

• SX EQUAL TO • DSKIO 
• 144 OR 146 • 

• • 2G 
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lU 



YOU SHOULD 
POINT 



06 S 
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SET CODEIF 
IN INDEX 
REGISTER 3 



ADO THIRD 
SYMBOL TO 

8vlist and 
return to 
next block 

'goto mrbvlt' 



SET CDCALL 
IN INDEX 
REGISTER 3 



ET COOUT 
'■ -NOEX 
STER 3 



SET 



SET COOUT 

DEX 

TER 3 



IN INDEX 
REGISTE" 



ENOA ^ 20 

i~* siT'coifSo*" 

I IN INDEX 
I REGISTER 3 



2E 



SET INPUT 
SWITCH AND 
SET COOUT 

ik\m » 

goto TnItb* 



CODE 00 2F 

LEAR 
~ AND 
N TO 



GO CLI 



SS2 

"goto*""**clists* 



GOTO 
SUBPF 



INITB 
2K 



sir 

SUB'PROGRAM 
SMITCH 



[St 

►UT 



GOTO INITA 
COCLN 2M 



I 



*• ^lIsts 



NO 



^_2N^ 

"pUT'sfATi-"" 
MENT NO.ANO 
COLON TO 

OUTPUT 

BUFFER 

I 

I 
I 



SYMBOL AND 
PLACE IN SX 



SX EQUAL TO • • 
140 f DUMMY) • *2 
• 2S 




• WHAT MODE 
• IS SX 



• 

« 

FIXO 


• 

» 

2V 


I PUT SX ON I 


I BOUND 


VAR> 


1 lABLE 


LIST 


I 




CODEIF 


2W 



SET FORTRAN 
FUNCTION 
OPERATOR 
SWITCH TO 
ZERO 



2X 

StRINc" 
TER TO 
_ ^ SYMBOL. 
PUT SYMBOL 
IN SX 



15? ■ 




caoEi 



• • 2W 

yi™t * 



CDIC 



• SX EQUAL TO • COIB 
• 132 (SEMIC) • 



NO 






2Z 


PUT NEXT I 


SYMBOL IN I 


SX 
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3G 



• « NO 

• SX EQUAL TO • CDIC 
• 193 OR 154 • 

• (CALL STA.I • 2Y 



YES 






3B 



GOTO 



VL 
URN 



ICK ^ 

ADSBVL* 



SET f&l 

mil 
km 



IRTRAN 
ON 
OR 

I TO 
INE 



GOTO 
COIB 



COIC 



30 
— • 

• IS FORTRAN • 





"go'tS* 
purgcm and 
return to 
next block 



NO 

COlO 



"set sfRING 
POINTER TO 



I 



3H 



• • YES 

^« SX EQUAL TO •^CDIE 



^RIHENT 



eoMER^gNE 
IN 



•*1S SV LESS *• cSIeI 



"1 









— . • 



• • YES 

• SY.fQUAL.TO • PAIkIP 

\ Msr/3Q 



GOTO PURGCM 




NO 




COlO 3F 






3M 



• YES 
- • CDIE 



• IS SY LARG 
• ER THAN 151 • 

♦ (SUBSCRIPT! • 3R 



GO 

ANI 
TO 

"goto 



SEOPT 



CDlEl _3P^ 

I *'put*sx"to* 
Tor 



goto 

PASKIP^^ 

put"t 

EXPRE 

betmI 



COID *l 3G 
3Q 



iuTPuf iui 



GOTO 
CDIE 



COID M 3K 



.25- 



• IS BOUND • 



• YES 
• INITA 

IB 



NO 


3T 


1 GO TO I 
I MRBVLT I 

1 T.SfW'"' ) 
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3U 



SET STRING 
POINTER TO 
THIRD SYMB. 
PLACE SYMB. 
IN SL 



I 

I 

I 3V 



SET SPRING 
POINTER TO 
FORTH SYMB. 
PLACE SYMB. 
IN SN 



EMIC&JoN) 



3K 


YES 


3X 




1 PUT SJ 
1 SL AN 

j ^°.u?" 





3Y 



GO TO 



ANL 

TO INI1 

"goto""*''purgcm 



C0CL2 3Z_ 

Go'lo'"" 
PURGCM AND 



I 



RETURN TO 
NEXT BLOCK. 
(CDCL3) 
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SET POINTER 
TO FOURTH 
SYMBOL 



GO TO 
ADSBVL AND 
RETURN TO 

CDIO 



GOTO ADSBVL 
COEND 4C 



IS THERE A 
FLAG IN SUB 
PROGRAM SW 



40 
iCE'FOR 



INDEX 

REGISTERS 



CDNDl 


4E 


anI 

GU1 






I 



• WAS ALL • 



YES 

CONDXT 



T2 4G 

PUT 
REMAINING 
INFORMATION 

OUT 



OUTPUT ANY 

CALL 
RECORDS AND 
CALL IN 
NEXT PHASE 



4U 



SET STRING 
POINTER TO 
THIRD 
SYMBOL 



SET POINTER 
TO FIRST 
SYMBOL AND 
PLACE SYM- 
BOL IN SX 



4P 



LOAD 



I L0.-_ 
I INDICATEO 
I SYMBOL IN I 

I ^ ^ I 

I 



I 40 
• . • 

• • YES 

^» jS SL^EQUAL •^CDOUTl 



^« IS SL EQUAL •^COOUTZ 



YES 
CD0UT3 



SEARCH BACK 
FOR CORRES- 
DIN' 



PONDING 
PARENTHE^I 
SET DOLLP 



INCREMENT 



COOUT ♦! 4P 



HIGH « 

C00UT4 • COMPARE SX 
• TO 199 
5C • t DOLLP) 



AND 

.. TO 
BLOCK 



PAREN) 



PUT 1% TO 
OUTPUT 

BUFFER. 



SET NEXT 
SYMBOL 
IN SX 



CDQUTA 
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5G 



• -NO 

• DOES SX • CD0UT6 
• EQUAL 132 • 

• (SEMICOLON) » 4V 



SET INPUT 
SWITCH TO 0 
AND PUT SX 
TO OUTPUT 
BUFFER 



CD0UT4 5C 

irJcREMiNT 
POINTER BY 
ONE AND PUT 
SYMBO^ IN 



NO 

CD0UT7 



YES 



1 AND RETURN I 
I TO CDpUTB I 

60lfo"'*'"sEOPT*~" 
CD0UT7 5F 



« IS THERE A • CD0UT9 
• FLAG IN IN- ♦ 
• PUT SWITCH • 5K 



FLOT 
C00UT9 



FIXO 



^5H 
SYMBOL ON 



PLACE 

—IBOL 



BOUND 
VARIABLE 
LIST 



GO to I 
MRBVLT I 
AND RETURN | 
TO NEXT I 
BLOCK ! 

"goto '**mrbvlt'* 7U 



CD0UT9 



PUT SX TO 



GOTO CDOUTA 5A 



SEOPT 



ooub 



5Q 



PLACE 5 



S.E. BUFFER 



CKCOM I 5T^ 
•*IS FORTRAN 



♦3 5T 



NO 

CLFLA6 



5V 
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5U 



• • YES 

• ARE ANY • PUTTOT 
• INDICES IN ♦ 

• COMMON • 6J 



NO 

CLFLAG 



I REMOVE 


I FLAGS 


FROM I 


i SUBSCf 


HPT 


I EXPRE! 


»SION I 


t AND SET IND 


CDFIX 




I PLACE I 


I VARIABLE 


1 LENGT) 


1 IN 


I SUBSi 


:ript 


I EXPRI 


issioN 



^» J'*|T"^J(Jle'* •^potab 



• 42 51 


YES 




_5S 




5Y 



• COMPARE • ONTAB 
• TABLE ENTRY • 

• TO SEBUF • 6K 



• 



♦ • YES 

• HAVE ALL EN • I AVAIL 



972 



1620 MONITOR II VER 2 FORTRAN II-O PHASE 2-A 



PAGE 6 OF H 



UPDATE FOR 
NEXT ENTRY 



PLACE ON 
HIGHEST 
TABLE ENTRY 
AVAILABLE 



I 6C 



I SET INDEX 

I REGISTER 

I INDICATOR 

I IN SX 



I 

i 60 



syk?cSiPT 

ABLE TABLE I 



6E 



PLACE A 
RECORD MARK 
IN BV lAB^I 



NO 

INITI 



» ASSIGNED X 
• REG. LESS 
• THAN LO XR 



NO 

PUTTOT 



REPLACE LO 
XR WITH 
ASSIGNED XR 



PUT TOTAL I 
EXPRESSION I 
TO^^TjJUT , 



Bi 

"exit 




imiL 



i5o"''*"pUTfoT 6J 



AOSBVL 6N 

sif 

PARENTHESIS 



CJUNT- 



INCREMENT 



I POlNTI 



R AND 
SYM- 
N SX 



• SX - 
• LEFT PAREN • ♦ 



• NO 

'/ti 



YES ** 


1 





GOTO ADSBVL^l 6P 
6S 

• • NO 

• SX * • SXOP 
• RIGHT PAREN • 

• • 6H 



1 



6T^^ 

TRACT 

Ien'^count 



• PAREN count » ADSBVL 
• EQUAL TO • +1 

» ZERO • 6P 



UPDATE 

STRING 

POINTER 

AND 

EXIT 



EXIT 
SXOP 



• ♦NO 

• IS SX • M8NAMF. 
• BETWEEN • 

• 104 AND 155 • 7C 



I 
I 

I 6X 



HIGH 



• COMPARE SX 
• TO 149 

• (SING. SUB) 



+ 1 
6P 



EQUL I 



I 

I 6Y 



SKIP 9 
SYMBOLS 



AOSBVL •»-2 6g 
6Z 



HIGH • 

AOSBVL • COMPARE SX 

• Tr --■ 



TO 151 
(TRIP. SUB) • 



• LOW 



• +2 

78 
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PURGCM 7G 



I 



I SKIP 15 
I SYMBOLS 

GOT0"***AOSBVL»2 6Q 

7B 

SKIP*' 12 
SYMBOLS 

GOTO***" AOSBVL* 2 6Q 
MBNAME 7C 



• NO 



BVL 



• IS SX SIMP* • AOSI 

tgiNf'isige .* n 



I PLACE NAME ! 

I °Hw I 

GOTO*'*''aDSBVL*I 6P 



IS BOUND 

^YES .EXIT ^ 
**N0"**** 



% gEIurc 



NO 



"removI 



EXIT 



• EXIT 
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7U 



• IS Bf lNO 
• VARIABLE • 

• TABLE EMPTY • 
« « 

NO 



YES 
.EXIT 



• ANY LIST 

•. '"mil ° 



YES 

GOPURG 



7L 



GOPURG 7L 



ENTRY 



{ 



• • YES 

• IS NEXT VAR • GOPU 
• ! ABLE WITH • 

• SAME INDEX • 7L 



NO I 
I 
I 

TO 7N 
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CLEAR S.E. 
TABLE AND 
RESET ASSOC 
INDEX 



RESET 8VTAB 
INDEX AND 
BVLIST 
INDEX 
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PASSU lA 

AND ADJUST 
ADDRESS 
I COUNTER 



MONITOR II VER 2 FORTRAN II-D PHASE 2-B 

IG 



} u 



InI^s¥rIN6 
MEMORY AREA 



PUT INPUT 

BOf 



YES 
CD12B 



YMBOLS ON 
TgJNG AND 

kHPORARIES 



ASSIGN 1 
TO I 



GET THE ITH 
AND 1+2 
SYMBOLS 



GO TO FORC- 



• • YES 

• IS CODE • lI 

% im- / IK 



BRANCH TO 
TEVER 



-St 

VALUE 



|NCREMENT._ | 



BY I 
"g0T0"**"l2* 



IF 



EXIT 



LL 



DECREMENT 
THE I VALUE 
BY ONE 



GOTO L2 



OUTPUT 
STATEMENT 
NUMBER 
ADDRESSES 



CODES 



IN 



• A 00 LOO^ 



KFMT 
IQ 



YES 



1 im\ 


1 


CRFHT 


FT 



SETFCT 
IS 



YES 


L 


I ouTpyl 

I BRANCI 

1 n 


r 1 


SETFCT 




I sVatIment I 

I ADDRESS IN ! 


J 





EXIT •^11 THIS A *• laiBn 



PAGE 1 OF 9 
ADJUST lU 



SET ADDRESS 
COUNTER TO 
EVEN LOCA- 
TION AND 
RETURN 



GENERATE 
ADDRESS BY 
ARITHMETIC 
OPERATOR 



ARE THE 



• +2 
• lY 



DECREMENT 
ADDRESS TO 

-'-vious 



REMOVE 
ENTR' 



FROM 
AND 



SRFCT IZ 
ciNERATE 
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GET OBJECT 
TIME 
ADDRESS 
FROM TABLE 



REMOVE 
RIGHT VALUE 
FROM TABLE 



28 



I SET FXORFL, 

I DMSW, COMSW 

I AND PI 

I FROM TABLE 

I AND RETURN 



- RV EQUAL TO 
• OR GREATER 
• THAN LV 



♦2 
2K 



GENERATE 
LOCATION 
FOR LEFT 
SYMBOL 



SET CODE 
TO ZERO 



PICK OFF 
1ST SYMBOL 
AVAILABLE 
AND RETURN 



ADSL 2P 

I OPEN STRING* 

I FIVE 

I LOCATIONS 



^_2Q_ 

"pLAci'Niw""" 

SYMBOL AT 
END OF 
STRING AND 
RETURN 



I 

I^ 20^ 

I REMOVE 

I LEFT VALUE 

I FROM TABLE 



86 
RMNS 



I SEND ioOE 
I BACK AND 
I RETURN 



TAKE 
FROM 



LEF= 

FP- 



IM T 



2E 



ODE 
ABLE 



GETX 2L 

♦ • , 

• IS INPUT • • 

• AREA EMPTY • ♦? 

• • 2N 

YES I 



Sain^Sar? 
of program 



3A 

I siT*FLA6s"" 
I WHERE 
I INDICATED 
I FOR RELOCA- 
I TION 
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PUTA 36 

MSeTan " 1 
dsa'^aSoresS I 



• ARE BOTH • • 

« SIDES SAME • *2 

• MODE • 3Q 



GOTO 



PUTNXT 



PUTNXT I 3B 
--- , -- — « 
• • YES 

• IS OUTPUT • • 

• BUFFER FULL • *2 

• • 30 



3P 

. . . FIX*" 
_FtOAT OR 

?NG 



OUTPUT f: 

Mm 



NO 


3C 


1 


EH 


Vt* I 

ETURN 



CODE I 



34 



• SIGN • 3M 



30 

i 

LOAD 



NO 



^ 3Q^ 

• • 3S 

YES 



3R 



GOTO CLEAR 



3L 

~OUTPuf*AOoT I 

SUBTRACT, I 

MULTIPLY OR 1 

DIVIDE I 



3S 



PUTNXT* 1 3C 



GOTO 
CODEIC 



EXIT 
3M 



IL 



PICK-UP 

OUTPUT 

CONSTANT 



• A SINGL 
• STATEME 

• FUNCTIO 



E 
_NT 
ON 0 



• FCflE 

.■ ■» 

• 3U 



*60T0***"cLiAir 



COOBID ^T 
OING 



GOTO EXIT 



SEARCH 


FOR 


FAC ON 


THE 


STRING 





• • YES 

• IS THERE A • » 

• TEMPORARY • +2 

• AVAILABLE • 2X 



GENERATE 
A NEW 
TEMPORARY 



I 2X 

'output 



FAC IN THE 
TEMPORARY 



2Y 



REPLACE FAC 
ON STRING 
WITH THE 
TEMPORARY 
AND RETURN 



PICK-UP OP 
CODE AND P 



PAGE 3 OF 1 
FCTIE 3U 



OUTPUT 

STATEMENT 

FUNCTION 

RETURN 

COOING 

*GOTO ClI 



3V 

OUTPUT 
FUNCTION 
LINKAGE OR 
REMOVE 
PARENS 



. A 
ARY 



• +2 
• 3Y 



OUTPUT 

SUBROUTINE 

LINKAGE 



EXIT 
3Y 



•I IW' 



• YES 
. A • C0DE3Y 

_ ROGRAM • 
LL • 4B 



• • YES 

• II IT AN IF • C00E7 
• STATEMENT • 

♦ • 5C 
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I REMOVE 
I PARENS 



OUTPUT 

SUBPROGRAM 

LINKAGE 



STATEMENT 
NO EXIT 
YES ClIar" 

OUTPUT RE- 
VERSE SIGN 
INSTRUCTION 
FOR UNARY 
MINUS 



PICK-UP 
REVERSE 
SIGN 

OPERATOR 



C0DE4A 
I OUTPUT 



RVSN 
INSTRUCTION | 



ASSIGN I 
TO CALLSW 



I 
I 
I 
I 

I 4H 

I GET SYMBOL I 
I AFTER CALL I 
I NAME I 



• • NO 

• IS IT A • EXIT 

• SEMI-COLON • 



YES 


4K 


j 


i I I 

lLx i 


GOTO 


C0DE3Y 



OUTPU 

vAr--- 



CODESS 



\ Ml 



• NO 
IPX •* 



• IS IT • • 

• DOUBLE • 42 

• SUBSCRIPT • 4R 



OUTPUT 






OUTPUT I 


SINGLE 






BRANCH 


SUBSCR 


PT 




INSTRUCTION 


INSTRU( 


:tion 




STEPS 








GOTO 


EXIT 


IL 


GOTO CLEAR 




4P 


4V 



♦ OPERATOR 
• EQUAL TO 

• PAUSE 0 



NO 
• +2 



4Q 



CRIP 

LINKAGE 



ooOble 
i subscript 



I 
I 
I 

halt" 

instruction 



"mil' ' 



END 



GOTO EXIT 
4S 

OUTPUT COO- 
ING FOR 60 



C00E6 I 4T 



• OPERATOR • • 



YES 



• • YES 

• OPERATOR » • 

♦ EQUAL TO • +2 

• STOP 0 • 4Z 



ENDi OUTPUT 
A HALT AND 
BRANCH TO 
MONCAL 

GOTO ioj"" 



4Z 



OUTPUT 
INSTRUCTION 
TO TYPE THE 
WORD STOP 



I OUTPUT A 

I HALT AND 

I BRANCH TO 

I MONCAL 
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^ 5C 

* * NO 



CLEAR 

58 



OUTPUT IF 
STATEMENT 
COOING 



• IF SEN! 



5C^ 
ENT 5P 



• YES 
• C0DE7B 



• YES 
C00E7B 



• IS SENSE • • 

• SWITCH 3 ON ♦ +2 

• • 5G 



I OUTPUT 

I TRACE 

I INSTRUCTION 



• IS THE 
*• nxffi POINT •* 13 



YES t 

l_ 5H 

UTPUT 

"GOTO*'*"CLiAR" 
5J 



QUTPyt"' 



goto clear 
Sing 



LB 



OUT PUT 





5L 


I GET I 
1 CONSTANT 
! FROM STRING 




5M 


I OUTPU 
I C0MPU1 
I CODINC 
I 
I 


• 

ATION 


TO 


5N 



OUTPUT 
BRANCH AND 
ADDRESSES 



GOTO CLEAR 



C0DE7B 5P 
1 OUTPyflF 
1 ISlfcH TEST 



GOTO CLEAR 
5Q 



i 



TPUT 



I*"*REMOvl*A I 




. FROM 1 




FRING j 




5T 






•*IS TH 


S AN *• C 


• OPERA 


roR • 


• 


• 


• 


• 



ES 

0178 
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5U 



I REMOVE NEXT 
I SYMBOL 



I 

} » 

•-— • 

• YES 
• IS THIS • CD17C 

- -"^E ♦ 

• 6E 



• X TYPI 
« 

NO 



• • YES 

♦ IS THIS • C017D 
• H TYPE • 

• • 60 



• IS THIS • COITE 

• L PAREN 



YES 
C017 

• 6A 



SAVE REPEAT 
ADDRESS IN 
REPl 
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I SAVE REDO 


I 


I ADDRESS IN 


I 


I REP3 




1 






I 




6B 


SAVE REPEAT 


I 


I ADDRESS IN 




REP2 




! 






I 






I 



I 

I 6C 



SAVE I 
FREQUENCY I 
IN PREQ 2 I 



GOTO CO 17 

CO 170 60 

j COOING 

~''60T0*"*"ccl7 

CD17C 6E 
T'^'oUTPUf" 



C017B 



6F 



VER 2 FORTRAN II-O PHASE 2- 
6G 

• " ** • YES 

• IS THIS • C017H 
• E TYPE • 

• • 6S 



NO I 
I 

1 

I 6H 



• IS THIS • CDlTI 

• SLASH 



• YES 

C017 

6V 



I 6J 

•*IS THIS *• XSItj 
♦ A TYPE • 
• • 6M 



^ 

•*IS,TMIS *• IhilL 
• F TYPi • 



NO 



6M 



• •62 



• IS THIS 
• L PAREN 



I 
I 
I 
I 

17M I 6P 
ADDRESS IN 



• NO 
• C017A 
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6U 




I OUTPUT 
I REPEAT 
I COOING 






I 






goto"***' 


COUA 


5S 


00171 


6 V 




I OUTPUT 
I SLASH 
1 COOING 

I 






GOTO 


CD17A 


5S 


C017J 6W 




I COOING 

I 




GOTO 


CD17N 


6T 


C017K 


6X 




1 CODING 




GOTO 


C017N 


6T 


CD17L 


6Y 




I OUTPuf 
1 F TYPE 
! COOING 

I 






GOTO 


C017N 


6T 


CD17SC 






1 COOING 1 
I I 


J 


7A 





AQJUST 
COW 

' IN 



RESS ^ ^ I 

~GOTO'''*~CLiAR IB 



7B 
ICR AM 
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76 

• •TP 



I 



ii 



GOTO CLEAR 
7C 



C00E14 i 70 
! 10 ROUTINE 



• • •YES 

• IS LIST • C014N0 
• COMPLETE • 

• » 7T 



7F 



• • YES 

• IS SL EQUAL • COOOA 
• TO DOA • 

* • 7S 



NO 



•*IS DMSU ON *• CoSaRR 



'oUTPuf 



7J 
VAR. 



GOTO CDi^A 7E 
CODARR 7K 

• ♦ 7U 



COOESS •IS 
4M 



• SUBSCRIPT 
• ABSOLUTE 



• YES 
• COSSAB 



COUB _7N^ 

OUTPuf 
DIMENSION 



COOEPA TP 
--DEjiSMlSi- 
INOICIES 



TQ 



I6N 1 

"G0T0'***''c55il2 8X 

CDUE 7R 



GOTO CO 14 A 7E 

COOOA 7S 

I isSIGN 1 I 

G0T0""**c5l2B*** 9A 

C014N0 77 

I ~OUTPI 
I COMPI 



OUTPuf 
COMPLETE 
INSTRUCTION 
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7U 



OUTPUT 
MATRIX 
TO 10 



CALL EXIT 
AND CALL 

k&UTINES 



COCALL 



• STATEMENT 



• YES 
• CDXIT 



NO 


7X 


} 

I 




7Y 


I OUTPU^ 
I LINKA^ 
i BRING 
! NEW L 


[NK 



GOTO 
CDXIT 



OUTPyf 
BRANCH TO 
MONCAL 



GOTO CLEAR 
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PAGE B OF 9 



HA 

OUTPUT 

SUBROUTINE 

INITIAL- 

UATION 

CODING 

I 
I 

I 
I 

Tl I 88 



IS THIS A 
SUBPROGRAM 



SET UP 
RETURN 
SET SUBSW 



I 
I 
I 
I 

I 80 



• NO 
IS THIS A • • 
SUBROUTINE • +2 
SUBPROGRAM • 8F 



SET 

SUBPSW 



SET UP 
RETURN FOR 



SET Tl, 
LV AND RV 



• IS 
• SUB SH ON 



♦ NO 

• • 

• +2 

• 8K 



OUTPU' 
SUBPROGRAM 
LINKAGE 



I 



^» IS THIS THE •^FCTIA 
*• PARAMETER •* 8H 



YES 






8M 






luBSM 


ON j 


YES CLEAR 1 


NO 


EXIT 



EOJ 8N 

get'cau 
records and 

WRITE AT 
END OF 
PROGRAM 



I BP 

"upoate'com-" 
munications 

SECTORS AND 
WRITE AT HO 
OF PROGRAM 



• ARE STMNT 
NO COS^TQ 





• BE 

no" 



• +2 

PUNCHlO • 8S 



8R 



TYPE END OF 
JOB 

SYSCAL 



GOTO 



MONCAL 
8S 



PUNCH 
STATEMENT 



GOTO 
COSSAB 



TIME 



ADDRESS 
ON TABLE 



PLACE 

GT number 



« DOES 101 
• EQUAL 1 



YES 
CDIAB 



C00E12 

-„.„.. 



lliOICIES 
ON 00 TABLE 



OUTPy 



lALIZE 
INSTRUCTION 



» IS 101 • CDI4E 

• EQUAL TO I 



YES 
CD14 

7R 
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PAGE 9 OF 



CD12B_ 9A 

T""~turn"6ff~ 

I DOSM 





9B 




T j 



• DOES 101 • COl^ND 
• EQUAL TO 1 • 



YES 
CO 14 

7T 



lA 
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RWA2 IG IN 



SWF = ADR 

OF FORMAT 
MAX = 87 
MAX-2 = 06 



WRTALP 
IB 



SWF s ACR. 

OF FORMAT 
MAX = 87 
MAX-2 = 08 



GOTO 
WACO 



WRTALP 
IC 



I SWF * AOR. 

I OF FORMAT 

I MAX > 80 

I MAX-2 » 10 



RWEFSM - I 
WRIT I 

E - 1 I 



'oATlNH+i*'"" 
MAX-2 
REP5W « 00 
MATSW « 0 
REPSW3 * 00 



MAX2 « INH* 
2*MAX 
LAST « INH 



COMPSW » -1 
BLANKS TO 
I/O RECORD 



TYPEWRITER . • ^2 
I/O • IK 



RCTY 



I 

I IK 



• NO 
• BSMF 



IQ 



• — • — — •^ 

♦* TYPEWRITER *«**2 
» IP 



• YES 

• RWA2 
SW 4 ON • *2 

• IJ 



I 

I IP 



BRANCH TO 
ADR. 



RATV 
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SWF = ADR. 

CF FORMAT 
MAX » 87 
MAX-2 = 06 



RDALP 
IV 



SWF * AOR. 

CF FORMAT 
MAX « 87 
MAX-2 a 08 



- 




GOTC"'* 


'"roalp 




.0 


RACD 


IW 


1 SWF « 


SMP«5 


I SWF * AOR. I 
I CF FORMAT 
1 MAX ' 80 
1 MAX-2 « 10 




T 


ROALP 


IX 



RWEFSW » 

READ 
« 0 



Hi 
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MOVE ADORES I 
TO SWC-1 I 

mo";'" I 

G0T0""*"SWC 26 

SNL 2B 

•* *• MaIrX2 

• SWL » 49 • 2Q 



• +2 
• 2E 



— S NEXT 
CATION 



• IS MATSW 
• A DIGIT 



» SWC 



SWC_ 2G^ 



YES 
• *2 



i 2K 

"mP''" 



I 

ADJ iFP2 



MATSW * 1 
SWL * 49 

LOC-^' 



T 



• FIXED 



• POINT 
• SPEC 



• NO 



.2N^. 

"1locaoj™-k' 



MATRIX-l • 
MATRIX-l - 
LOCADJ 



MATRIX-1 • 
PAR 



mit: 



2R 

• NO 

PAR • 0 *»**2 
• 2T 



2S_ 

*JIatsm'«"o*' 



2T 



• • NO 

• • sue 

♦ PAR LESS • II 

• THAN 0 • 2H 

• • 

TO 2U 
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2U 



OBJECT 
PROGRAM 

FOR NEXT 
DATA 

LOCATION 



SLASH 2V 
J COMiSo « 49 



• READ 

• NO 
SLASH2 

•* COPPSW- -I 



• TYPEWRITER 



• NO 
WRITE 



2Z 
FIELD 



I 



He 
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PUT I/O 
RECORD 
USING 
lORT 



GOTO COMEND 3B 

COMEND 3B 
, -— — ft 
• • NO 

• • RWA2 
• COMEND =42 • 

• ♦ IG 



PROGRAM TO I 
CONTINUE I 



lOCR 3D 
• , — • 

•* TYPEWRITER 



NO 

WRITE 



YES 



COMPLT 



• 3A 

"COMENO 3B 

3E 



I I 
I COMEND « 42 I 



GOTO SLASH ♦! 2W 

REDO 3F 

• • YES 

• • REOOA 
• MATSW « I • ♦! 

• • 3J 



STORE 

COMPSW 
SWCAOJ « 
REOOA 



REkTOI 
COMP 



41 
TORE 
IMPSW 



3J^ 

'SWF«"SWF*5"" 



REP 


3K 


I SWF *$MF«7 


J 




•* REPS! 
• POSITI 
• 




• NO ! 


c 


•* RCPSW 
• 

• 


• 0 



*• rIIz 

3Q 



• YES 
• BSWF 



• NO j 



REPSW « 
REPSH+ 
SWFd) 



I 3P 

•*REPSW 
• POSITI 



TIVE 



NO 

BSWF 



.YES 



REP2 I 3Q 

I s5f"«'sIIF-2 
"WF -SWFfiT 



GOTO 
REP3 



BSUF 
♦ 7 



• NO 



• * 

REPSW3 « 0 > 

•—• — • 

• NO I 
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GOTO 


REP2 -I 


ERF9 


3V 










1 kt*I 





GOTO 
XTYPE 



SWL 

;WF*3" 
. . lOM 
ORMAT 



SUF » SI 
LAST FRI 
FORMA 



GOTO 
ERC0M2 



BSWF 
3X 



S||y DUOH 
RESTORE RM 



BSWF -1 IP 
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I RWEFSW » 

F r— 



YPE I 
NO FLAG I 



GOTO EFCOM 

ETYPE 4B 

RwiFSw"» 
E TYPE 
•FLAG 



GOTO EFCOM 
EFCOM 



INPLUS' 



4C 

AND ' 
lOM 

>LAST 



• •YES 

• LAST TOO • ERF9 
• LARGE • 

• • 3V 



I 
I 

I^ 4F 

"TiRM»LAiT-2 T 

CHAR-WIDTH I 

WA»FNH I 

INITIALIZE 1 

DEC. DIGIT I 



ORS 



• NO 
♦ EFMRT 



*Il?ha'; 



zeros" 



_.1M*18I 
YPE 



mt - 



ROFCH 



• INPLUSd)* • FCHNB 
• 00 



NO 

FCHI 

•* 4Q 



CNAR«dHAR-l 
INPLUS * 
INPLUS4-2 



/ 'CSV* 

MO™"*' 
WHMB 



• YES 
• EFENO 



^* INP^jjSlI) %^eImIN 
• • 5A 



^•*lWjjU8(ll *«^EipLUS 
• * •SB 



14$ 

•*INFLUiCII *• IPIl 

ho""*"!""""* 



1 ^T^ 

^•'iNP^ljSdl *»^Liloi6 
• • 6C 

N0""""l"""" 
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• INPLUSfl) • EFOEC 
» « 03 



• YES 

• EFOE 

• 4X 



• IS RMEFSW • EEXP2 
• A FLAG • -3 





• 




4L 


YES 






ERRF7E 


4W 



NO 
EEX 
• -3 
• 5E 



I 



GOTO EFENO 5X 
EFOEC 4X^ 

• • 4W 



4Y 



•EPPLU 



00 

MNDlfefOR* 



I 4Z^^ 
"cHAMdiiAR-I" 



GOTO EFTERM 5W 



TO 4U 
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50 



SET SIGN 
INDICATOR 



CHAR»CHAR-I 



GOTO 
EFTYPE 



EFTYPE 
5C 



INPLUS « 
INPLUS 4 2 



• INPLUSdl- 
• 00 



• YES 
• LQGOIG 



EXP«OOo" 
EEXPAO « 21 



• • YES 

• INPLUSdl • EEXP 

• • 5Q 

• • 

NO I 



« • YES 

• INPLUSU) • ERRF7E 
♦ GREATER • 

• THAN AO • 4W 



NO I 

j 

EEXP2 i 5H 

♦ * YES 

• INPLUSdl • EEXPM 

♦ • 5P 



• INPLUSf 
• . « 10 

NO 

EEXP22 



INOiCAT&R 



• YES 
tl • EEX 



• YES 



NO j 



CHAR«CHAR-1 

I SM 
* LAST CHAR 
NO j— 
TO 5N 



*. nil 

.* li 



iXPAD 



^5N 

~MOvi*DIGIT 



•10 TO ixp 

NPLUS • 
INPLUS ♦ 2 



EEXP22*! 5L 



EEXPM 5P 
I EEXPAD-22'* 



EEXP i 

CHAR-CHAR« 



EEXP2 
5R 





tGIT j 


JE6XFA0 J 


5S 


T'^^CHAR^i"' 




1 CHAR4EXP I 



GOTO EFEN 
EFO|G ^T 
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5U 



YES 
EFTE 

5W 



• F DIGITS • EFTERM 
• COLLECTED 

NO I 



5V 



MOVE DIGIT 
FM I/O REG 
TO FAC 
WA > WA41 



• LAST OF I/O • EFTYPE 
• REC. EXAM • 

• • 5C 



YES 
EFENO 



• IS FAC • EFEND2 

• ZERO 



NO 
EFE 

• 5Z 



YES 



5Y 



CONVERT TO I 
FLOATING I 



GOTO 
EFEND2 



SHL 

51 



CHAR « 
CHAR*LOCG 



6 A 

OViERFLdS 
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EFWRT 66 EFMU 6N 



• CHARACTER 

'■-RFf 



• YES 
• ERRF7E 



FAC « CHAR 
DEFINE AND 

i^ISSA 
'GOTO*"*"sIiL'" 



• FIRST DIGIT ♦ EFOIC 

• • 5T 



! 60 
*CHAR«iHAR-I* 



GOTO 
READEF 



EFTERM 
6E 



• FIXED DATA 
♦ FIELD 



YES 
FIX 



NO 
EFRD2 



6F 



MOVE DATA 
FROM FAC TO 

mm 

"goto Irft* 



• F LESS THAN • • 
• LOCO 



NO 

• 42 
• 6J 



LOCO^ 0 i 

zlSh Eamma { 

WA m GAM 1 
WA2 • FAC-I I 


1 




I SWCAOv 

1 «, 


1 » I 
1-2 J 




rr 



• ETYPE 



• NO 
• SML 



6M 

"TERM-TERM-a" 
WIDTH « 
WIDTH -4 



• FIXED DATA 
• IN FAC 



• YER 
• FLOAT 



NC 
EFALPH 



DPT • 
TERM-L0C02 

''GiM-L0CD2 



1 




I 0PTN2 « I 
1 ^2 j 


EFALP 


6R 

r'fo"! 

["form j 


"1 





EFCHKS I 6T 



LOCD+FAC 



CHAR«CKU-F 
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• • YES 

• LOCO • ERF6E 
• GTR THAN • 

• WIDTH • 8G- 



I 6V 

• ' ♦NO 

• IS DATA • • 

» ZERO • 42 

• • 6X 



CHAR • -99 



ETYPE 
YES*"**" 



FIX AND 

RET -* - 



RETURN TO 
INSTRUCTION 



Rkryii 

?NSTRI 



AND 
N TO 



TRUCTION 
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WIDTH = 
WIDTH - F 



• •NO 

WIDTH • WRTE2 

NEGATIVE ♦ 

• 7G 



• • YES 

• ZERO • • 

• INDICATOR • +3 

• SET • 7F 



CHAR * 
CHAR-WICTH 



I 

I SHRINK 
I DATA FIEL 



• YES 
• ERF8E 



CHARACTER- 
ISTIC 
MASK TO 
GAM 



• • YES 

• CHARACTER • ERF8E 
• OVERFLOW • 

• • 8G 

• • 



I HOVE CHAR 
I AND SIGN TO 
^ GAM 



IGN TO I 
LEFT I 



MOVE LEI 
GAM AND 



RIGHT GAM 
TO I/O REG. 



GOTO 



MEFOEC 



FZERO 7L _ 

iNsiSt^ziRo" 

LEFT OF DEC 
REC'" 

defIne no. 



7M 
NT 



PS 



CHAR2 « 
2«CHAR 



CHARACTER • WRTFPC 
POSITIVE 



YES 
RTF 

8A 



WRTF 


7N 




7U 


• • YES 

• ZERO • FZERO 
• INDICATOR • 

• SET • 7L 

* • 


SHIFT DATA I 
RIGHT BY 
2 CHARACTER 
POSITIONS 


NC 


7P 




TV 


• • YES 

• CHARACTER • ERF8E 
• QVERFLOM • 

• • 8G 

• • 


• • Y 

• CORE EXP ♦ W 
• POSITIVE • 

• • 

• • 


NC 


TO 


NO 


7W 


• CKW « 
• LESS 1 

• 0 
• 


• YES 
OR • FZERO 
FHAN • 

• 7L 

• 


MOVE RIGHT I 
GAM TO I/O I 
REC I 
POSITION I 
[ SIGN I 


NC 


\ 

7R 




7« 


• ♦ YES 

• CKU 6TR • ERF8E 
• THAN WIDTH • 

• • 8G 

• • 


INSERT I 
ZEROS I 
BETWEEN I 
SIGN AND I 








1 


1 n 




7Y 



HIGH 01 
DIGIT 



GOTO WEFOEC BE 



7Z 



MOVE LEFT I 
AND RIGHT I 

I 



GOTO 



WEFOEC 
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HOVE RIGHT 
GAM TO 
I/O REC 



• • YES 

• LOCO LESS • CLR70S 
• THAN CHAR 




INSERT DEC. 
PT AND CLR 
RM IN I/O 
REC. 



8F 



CLR VAR 
OUTPUT AREA 
MOVE DATA 
FROM GAM TO 
OUTPUT 



ERF8E 8G 


I CLR VJ 
! OUTPUl 
I CHAR l> 

L.5?!lj 


\R I 
r AREA I 
USK I 

1 i 

8H 


I SIGN 
! HOVE C 
I OUTPU 

1 ri?f' 


0 GAM I 
AM TO ! 
AREA I 

iIGN t 



ERCOM 



• TYPING 



*♦ Er!oM2 
• 3X 



PUNCH CARD 

OR TAPE 

AS REQUIRED 



GOTO 



ERCOM 



002 
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PAGE 9 OF 1? 



SELECT 
INDEX 
BAND A 



IN0EX2 « 
FIELD WIDTH 

INDEXl ' 
00000 



I 
I 
I 
I 

I 9C 



MOVE 
FIELD. 



t 9H 
~COMPSW~»'o" 



i 1! 



lAND B 



• NO 

• • 

• 42 

• 9f 



SET UP 



•* *• E°C0M2 



803 
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I WI0TH2 FROM I 




lOB 



• LAST TOO • ERF9 
« LARGE • 

• • 3V 



AST-i" 



GOTO 



SNL 

EAOA 100 

READING 
VES j 

I lOE 



• NO 
• WRITEA 



• lOM 



I : 

I CLEAR 

I FLAGS ON 

I FIELD IN 

I I/O RECORD 



?K 1 

:ORD I 



XQTl^ .i2£- 

-LOC-^Jz'** 



NO 






lOJ 




!• "1 


M 


(ECQRD j 


GOTO*** 


**iRF7*'** 


RDAFL 


lOK 


I *LOC - 00 I 


1 rnh'-f \ 


GOTO 


RDA 


ERF7A 


lot 



ill 



MRITEA lON^ 



m • YES 

• FIXED DATA • MAFX 



NO 



lOQ^^ 

"SiothF* 

K10TH2 • F 



lOR 



• • NO 

• HIDTH2 • IIRTA2 
• NEGATIVi f,^^ 

• • lOT 



IT 
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I MOVE FROM I 

, J 

"goto bswf 



FX lOV 

*S|0TH2'« 
UI0TH2 «K 



GOTO MRTA 



GOTO ERF7 



IIZ 



• FIXED 

DATA 

• FIELD 

YES I 

To'lOG 



• NO 
• ROAFL 



WRTAr I^IOT^ 

i *REitgvl*Lo5* 




996 
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IXl « ADR« 
OF FORMAT 



GOTO 



IG 
-5 



RWA 



MAX = 173 
MAX-3 = 06 
TYPE « 0 



IC 



1X1 « ADR. 
OF FORMAT 



RATY IH 

1X1 « ADR. 
OF FORMi 



lAT 



MAX » 159 
MAX-3 « 10 





TYPE » -5 



IQ 



MAX « 173 
MAX-3 • 06 
TYPE » 0 



MAX « 173 
MAX-3 » 08 



I 



GOTO 
WACD 



HACDl ♦! 16 
IE 





ADR. I 

FORMAT i 


UACOl ^ 


L_ 


I MAX • 
I MAX-3 


i»?o J 


TO 


"7" 


BSWF 


• 

2A 



GOTO~"* 




RAPT IK 






RAPTl 


T 


I MAX « 173 i 


I MAX-3 





10^^ 

"0ATINH*2«~"* 
MAX-3 
REPSM « 00 
MATSM « 0 
REPSW3 » 00 



IQ 



RWA3 
I 1X2 



999ST-HAX 
IX2HL0-IX2 



RMA2 i IS 




^•*TYP|imiTER *• 

YES 



NO 



TO lU 



907 
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2N 



-^IlfL. 

I'" Aojuirixi I 



2G_ 

"sue*!!"* 41* 
1X6 « REOOA 



• NO 
• SL 



SLASH2 

• READ « 
• STATMENT • IIV 



2D 



• NO 
BSWF 



YES 



INDEX 2 « 
^9998 



9' 

"goto 



• • YES 

• IS MATSW • REOOA 
• A DIGIT • +1 

• * 2J 



cIdto'" 


SNL*"*" 


REDOA 


2H 






24 


\M 


1 

1 1 


'"""goto*"' 


SLASH ♦! 


SLASH 


2K 




1 1X1 » 


IXl-3 1 




2L 






2M 


SMC*13 « 43 j 



•— — < 
YES 


2P 




[nOIX 6 j 



ERC0M2 20 



Be 



SAGE 
'"60TO*''*"is5F* 

RTN 2R 



mi 



RETURN TO 



CONPLT 2T 



im 



NO 



PAGE 
lU 



RETURN 

CARRIAGE 

TYPEWRITER 



SELECT 
INDEX 
BAND A 



I 

I 

I IW 



READ 
STATEMENT 



» NO 
• BSWF 



CORD 
"NG 
T 



• TYPEWRITER ♦ BSWF 
• I/O • 

• • 2A 



• ♦ YES 

• CONSOLE SW • RWA 2 
• 4 ON • *2 

• • lU 



PAGE 2 OF n 

2U 



LOAD RTN 
INTO 
INDEX 6 



GOTO 
MATRIX 



SLASH *2 2M 



MATSW = 1 
SWL*13 » 49 
LOCAOJ > 10 



• • NO 

• MATRX2 
FIXED POINT • *l 
ARRAY • 22 



LOCADJ » -K I 



GOTO MATRX2+1 21 
MATRX2 2Y 



(MA 
IMA. 

♦LI 



trIx-d* 

TRlX-1) 
LOCADJ 



LOC » 
(MATRIX-l) 



PAR « PAR-1 
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IS PAR = 0 • +2 
« 3C 



• SWL-H3a4l • +2 
• ♦ 3J 



MATSW « 0 



THAN ZERO • 3M 



3H 



OBJECT 

PROGRAM 

FOR 

NEXT DATA 
LOCATION 



3J^ 

SWL«13«49 



I_3D 

'rIturn^to T 

OBJECT I 
PROGRAM I 

I 



SWL 3E 

_ . - 

I SELECT I 

I INDEX I 

I BAND B I 



• • YES 

• • MATRX2 
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• • 2Y 



I 
I 

I 3K 



• • YES 

• IS MATSN • SWC 
• A DIGIT • 

• « 3M 



NO 
SWC 



I_3L_ 

SML4-13«42 



3M 



• • NO 
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3N 

• * • NO 

• • JHB 
• READ • 

• STATEMENT • 9N 



INDEX 7 
FIELD 

EQUAL ZERO 



I 

I 3P 



SELECT 
INDEX 
BAND A 



I GO TO I 
I CONTENTS OF I 
I INDEX 6 I 



I 
I 
I 
I 

I 3V 



ADO TO 
INDEX 7 
FIELD NO. 
OF TIMES TO 
REPEAT 



* INDEX 7 
• FIELD 

• POSITIVE 
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REP2 



LOAD INDEX? 
UITH REPSW 



IINDEX D* 
(INDEX 1)4-4 



SUBTRACT 1 
FROM FIELD 
DEFINED BY 
INDEX 7 
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INDEX 7 • 



• YES 
• REP2 
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INDEX i A 
I NEU FORMAT 
I ADDRESS 



(INDEX 1)« 
(INDEX l)-5 
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LOAD INDEX7 
UITH REPSM3 



REP 4-1 3S 



HTYPE 


4G 








• N 


•* READ 


• M 


• STATEMENT • 


• 


• 


• 
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RHTYPE 




I SAVE I 




i AT EN( 




I THE H 
i IN I/( 


/lib! 1 





4K 


I MOVE 1 
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I THE H 


FIELD 1 


{ 

i 4L 



R|P^ACE 
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I/O RECORD 



INCRAMENT 
IXI TO NEXT 
THING IN 
FORMAT 
STATEMENT 

I 
I 
I 



INCRAMENT 
1X2 TO NEXT 
AVALIABLE 
POSITION IN 



NO 
BSW 

2A 



• MAS I/O REC • BSWF 
• TO SHORT • 

• FOR H FIELD • 



GOTO RERCOM 

RE ROOM 4R^ 
I 1X2 » 99998 

***GOto"'*"iRCOM2* 
ROERFT^ iL 

'G0T0"**'"iRC0M2" 
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I 4V 



LOAD INDEX6 
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""goto SWL 

READA 



4W 



FIXED DATA • +2 
FIELD 



NO 

+2 
• 4Y 
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I FAC 
1 1X5 


I 


GOTO 


• +2 
4Y 


I FAC 
j 1X5 
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• WAS I/O REC * READA2 
• TO SHORT » 

• FOR A FIELD • 5C 
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I 58 



PLACE FAC 
IN VARIABLE 



RERCOM-1 4Q 
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VARIABLE • 5E 



I 

I 5D 



PLACE FAC 
IN VARIABLE 



GOTO RERCON'l 4Q 
5E 



wiVh DA^A 



I/O ROUTINES FIXED LENGTH 
FTYPE 5N 



• •NO 

READ » WEFCOM 

STATEMENT » -2 
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LOAD IN0EX6 
WITH RETYPE 



GOTO 
RETYPE 



ROSOEC « 0 

rd|err > 5 

RDSBTY »-0 



I 5K 
CMAR « 00 

'goto~"*"rftype*i 5R 



READ • MEFCOM 

STATEMENT * -1 
• lOB 



YES 






5P 


I LOAD 




1 WITH t 




"""goto'"**swl~ 


RFTYPE 


SO 



I rosoTg"* 0 

I RQSSQN « 0 
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IEX4 

;L0 



ROCS « 
NUMBER OP 
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I LOAD 
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GOTO 
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RITYPE 
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RDSERR » 5 
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I WITH r 
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5Y 
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i 51 
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6A^ 

CNTS - 10 



READCO 



6B 



• • YES 

• * C ARACTOR 

*• rScSrD MARK ** 6K 



NC 
ROCONl 



CHARACTOR 
BLANK 
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ft RDBLNK 
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R00I6 



6R 



6E 
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• RDPLUS 
CHARACTOR • 
PLUS • 6P 



CHARACTOR 
MINUS 
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• ROMNUS 



*5» 

[C *• Ro2oM2 



• 6J 



ft* *ft rEBec 



NO 
R0C0M2 



ft^IS ROSETY *• {EioM3 
ft A DIGIT ft ^ 
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R0C0M3 


6K 


1 PLACE ZERO I 
1 IN FAC 1 


j RDSERR * -0 j 


GOTO 


RDAOJ 



CHARACTOR 



ft 7D 



NO 

ROOEC 



RDSDEC «-5 
RDCS » 00 



RDPLUS 

IS L. 
A 0 

NO 



ft*IS ^0||^N 'ft^KlpLl 



RON tb£l 

0 RDMNU! 



J|DSSGN_«*a^ 
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ft ft 6T 
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RECORD TO 
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INDEX5 BY 



^6X 
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ROADJ 
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NO 


6Z 


} CNTS * 
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I 
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*'rdadj 


TO 


I 

6U 







1620 MONITOR II VER 2 FORTRAN II-D I/O ROUTINES FIXED LENGTH 



• NO 
CHARACTOR • • 
MINUS • *2 

♦ 70 



SET FLAG 
ON RDCOM 



RDECK 7A 

• ♦NO 

• IS RCSDEC ♦ ROAD J 
• A FLAG • 

• ♦ 7M 
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YES I 
I 


I 

I 7B 




FAC = FAC-1 I 


GOTO ROAOJ 


7M 


RDPLl 7C 




I IS RDSETY 
I A DIGIT 




I YES RCC0M3 




NC I 




ROE I 70 




i ROAOJ-6 
I TO RETYl 

I 


1 


GOTO ROADJ 


7M 


RETYl 7E 
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ETY 



IS INDEX4 • RETY2 
EQUAL TO • 
I • 7J 



MOVE DIGIT 
FROM I/O 
RECORD TO 
CHAR-l 



GOTO 
RETY2 



ROAOJ 
7J 



MOVE DIGIT 
FROM I/O 
RECORD TO 
CHAR 



I^_7K 

HAR 
AC 



GOTO ROADJ 7M 

7L 

•* * *• YES 

• IS ROSERR • READCO 
• A DIGIT • 

• • 6il 



INCRAMENT 
INDEXZ BY 
2 



• OVERFLOW 



NO 
RDA 

7Q 



PLACE ZERO 
IN FAC 



ROSERR « 0 
''g0T0"'*~ROAO J 1*3 



ROADJl 



7Q 



I INCRAMENT I 
I IN0EX4 BY I 

I " I 



I 

I 7R 



• NO 

• IS INDEX4 • ROAOJ 
• ZERO • -I 

• 7L 



7S 



FAC « 

F AC-ROCS 



• SHOULI 



0 *• RDFLT 
• 7V 
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FIX 
ARGUMENT 



I 

I FLOAT 

I ARGUMENT 



I 
I 
I 

I 

RDFIX3 I 7W 



PLACE FAC 
" VAR 



IN VARIABLE 



• IS ROSERR 
• A DIGIT 



• • YES 

• IS ROSERR • R0ERF7 
• A FLAG • 

• • 4S 



RERCCM-l 4Q 
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LOAD |X 6 
WITH ADR OF 
•WRITE A. 



GOTO SWL 
WRITEA 88 



• FIXED FLO 
.FAC. 



IN 



• YES 
• WA FX 



SHIFT M 

m h 



MANT 
FAC. 
W 



WRT A 80 
• W SPEC 



• W SPEC • 

i 



• NO 
• WRTACK 



YES 



{ 8E 



I REDUCE W 
I SPEC BY 2 

1 



wrtack bf 
f'next 



III if I"- 



BLK. 

"goto" ERF9 -2 9S 



TO 



I I/O REI 



GOTO 
WA FX 



BSMF 

SH 



8N 

inimlV 

HI 

01 



HI ORDER 
DIGIT 



LOAD IX 6 
WITH AP- 
•WRTI. 



BP 
,0R*OF 



(MIN 20IGS) 
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NUMERIC 
FILL FROM 
.FAC. TO 
WKG AREA 



• NO 

• W I CK 
• -I 

• 8Y 



GOTO*"* 


*'swl" 


3E 


YES ; 




WRT I 


8Q 


: 


8W 


I FIX .^AC. 1 
I IF IN FL PT 
1 FORM. SET 
1 IX 6 TO ADR 
i OF NEXT BLK 




put alpha 
minus sign 
in wkg area 

oISer°oigit 


GOtO 


ERF9 -2 95 


GOTO 


W I CK 




8R 


WIEXIT 


8X 


Mi-' 

AREA 










goto" ""b SWF 




8S 




8Y 


1 DIG 0 


.?AC. 


1 


CHAR 
AREA 

PLUS y 


r HI I 
ALPHA I 
[N WKG t 
^OR I 
MLUE I 




1., - 


W I CK 


8Z 



• FIELD LARGR • WIEXIT 
- I OTH • 

8X 



• FIELD LA 
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SHIFT ALPHA 
CHAR IN MKG 
AREA LEFT 



SET ER IND 
TO F8 TYPE 



« • YES 

• SEL OUTPUT ♦ ERC0M2 
» DEVICE IS * 

• TYPE WRITER • 2Q 



LOAD IX 6 
WITH ADR OF 
.WHTYPE. 



I 

"♦I 



9H 



STEP FORMAT I 

PNTR BY I 

.WIDTH. SET I 

1X6 TO ADR I 

OF NEXT BLK I 

"goto iRF9""-3 



STEP CHAR 
AVAIL IN 
I/O REC BY 
WIDTH SPEC 



~INiERf'0UT I 



1 



/ OUTPUT ERR 



MESSAGE 
THRU .lORT. 



GOTO 



ERC0M2 



"save"format" 



DIGIT RT OF 
LOW ORDER 
AND REPLACE 
WITH REC MK 





PUT WIDTH 
FROM FORMAT 
STATEMENT 
INTO.WIDTH. 
AND IX 4 



SET ER IND 
TO F9 TYPE. 
CHAR AVAIL 
TO ONE HALF 



9Q 



CONTENTS 
OF 

INDEX 6 




• CHAR AVAIL • ERF9 
• LESS THAN 1 • 



9U 



SpNT^NTS 
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JET.f 

LOAD 
WITH 
.WEF 



WEFSW. 
TYPE 
IX 6 
ADR OF 
COM. 



GOTO 



SET.RWEFSW. 
TO F TYPE 
LOAD IX 6 
WITH ADR OF 
^^.WEF^COM. 

"goto swl*" 



STEP Format" 



step IX 



lOD 
6 



ERF9 

ICE 



FLOAT .FAC. 
IF IN FXO 
FORM. 

INSURE REAL 
ZERO 



lOF 



SAVE MANT 
SIGN 
WKG I 
STORL _ 
IN .WCK 



. INIT I 



FORTRAN tl-O 
106 



"loao"|x''o 
with aor of 



I/O ROUTINES FIXED LENGTH 

1 " "■" 



GOTO 
MOVEXP 



MOVEXP 
lOH 



lOH 



• EXP LESS • MOVEXP 
• THAN ZERO •.♦2 

• • lOK 



I lOJ 

"REPLAci'* 
SIGN UITH " 
SIGN IN EXP 
OF ALPHA 
WKG AREA 



Ixp'of" 

ALNA WKG 



FILL 

■Llr 



• WCK. 



INTENTS 
lOEX 0 



NSERT SIGN* 
F.NANT HAS 



NEGATIVE 



LIMIT 
MAX 



lOQ 



i OF U%{ 




"I 


-i5!. 



/ ??«'|!SrII.t*\''*^ ' 

• • 116 





YES 




lOL 




1 lOS 



• W SPEC MORE • mIt E 
« THAN DEC • 

• SPEC • lOU 
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WRT E lOU 

• •NO 

• W SPEC LESS • • 

• THAN 14 • +3 

♦ ♦ lOX 



YES 


lOV 


SET S 
PNTR 1 
DIGIT! 


GN 

OR W 



low 



SET LO ORD 
DIG PNTR AT 
.FAC.-14+ 
W SPEC. ADJ 
EXP BY 14-W 



GOTO 



SET SIGN 
PNTR FOR 14 
DIGITS. SET 
LO ORD DIG 
PNTR- .FAC. 

I 



• EXP LESS 
♦ THAN -99 



• YES 
• WZERCK 



MOVE EXP 
IN ALPHA 
FORM TO WKG 
AREA 



WZERCK-fl IIB 
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ZERO IN 
.FAC. 



NO 

ERF8 



• W SPEC MORE • ERF8 
• THAN EXP-fl • 

• • 9B 



HOVE 4 RT 
MOST ALPHA 
CHAR FR WKG 
AREA-TO I/O 
REC (E+XX) 

GOTO FILL 



IIH 



• •NO 

» DEC SPEC ♦ • WFZERO 
• EXP MORE • 
• THAN ZERO • IIU 



» • YES 

• DEC SPEC • IXP 
• 4- EXP MORE • 

• THAN 8 • lis 



• EXP MORE 
• THAN -I 



ILL R 
• *11M 



IXNEN 



{ lU 



EXPAND FAC 
UITH LEAOG 
Z6R0S. SET 
EXP « 1 



AS REQO 



LL L ^IIN^^ 

"frl~lt 

SIDE OF I/O 
REC FLO 
WITH MANT 
AS REQO 



INSERT ZERO 
WITH DEC PT 
POSITIONED 
INTO I/O 
REC 



WE DEC I IIP 

INSERT oic 
PT IN I/O 
REC AS IND 
BY DEC SPEC 



HQ 



• HRT6 E TYPE • WFSIGN 
• FORMAT • . 



INSERT SIGN 
AS IND BY 
SIGN IND 



SHIFT .FAC. 
LEFT WITH 



TYPEWRITER 
OUTPUT 



I PUT REC MK I 


I AFTER 


LAST I 




TO BE I 






WRITE 


IIX 




ADJ SIGN 
PNTR BY EXP 



0? 



FINO^^ ^lA^ 

I iiT*FiJ5o 

i INDICATOR 



1620 MONITOR II VER 2 FORTRAN II-O DISK I/O ROUTINE 

RECORD 16 IN 





IB 


I SAVE « 

I OF TMI 


iTATUS 


I 
I 



1 ur I nc 



I IC 



• FIN 
• INDtC 

• ON 

*— 

YES 



• NO 
FIND • SETl 

- CATOR • 

♦ IQ 



.._!I^|XIT 

TO csIti) 



N2 



GOTO 
SSEEK 



N2CK 
IE 



I 



SEEK 

USING 

lORT 



GOTO 
FETCH 



DIOEND 
IF 



SET FETCH 
INDICATOR 
ON 



I 



SET RECORD 
INDICATOR 



SET FIND 
INO^pATOR 



01 

"goto 



FIND *l IB 



• IL 



GO TO 



RESET THE 
STATUS OF 
OVERFLOW 
INDICATOR 



SET UP 
ER D2 
AND 
iNlTEMP) 



SWO BLOCK 
IN CORE 
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NO 

1 IP^^ 

'pRliJT'iRROR" 
NOTE AND 
EXIT TO 
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SETRMK 
^G 
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IS FIND 
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SET UP 
(BUFFAR) 
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--'D-WRITE 
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ODA FOR 
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swc 


2A 
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2G 




2N 




2U 


I GOTO •♦2 
I IF SWD 
I BLOCK IS 
I IN CORE 
I 


• 
• 
• 
« 


[ • • YES 

• IS FETCH • TOBB 
• INDICATOR • -I 

• ON * IW 

• . ■» ■ . 


BUFFAR 
BUFFAR 


- 1 


• SHOULD FAC 
• BE A FIXED 

• POINT VAR. 
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2B 








2H 


I 

ADDTOI I 


2P 




2V 



SWDA I 2C 
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i read-write 
i from buffer 

I 



*IS FETCH *♦ FETCHl 
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PUT A VAR. I 
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2F 



• • NO 

• IS BUFFAR • TOBB 
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TO lORT 




INI 



IS FETCH 
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FETCHl 



I 2Q 

^H 

CATOR 

TOBB 

^^2R 

. Ff 
V 



IS BUFFER 
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• FETCH2 

• 2T 
-I IW 

• NO 

• FETCH2 

• 2T 
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L. 


1 SET 1 

1 2il 


.INKB I 

5rt I 

^TION 1 


goto""* 


CKI 


FETCM2 


2T 


{ %mr" j 
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• NO 

• FETCH3 
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• IS FAC A » FETCH4 
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» VARIABLE • 21 
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I 

I 2H 



FIX FAC 
USING ARITH 
AND I/Q FIX 
ROUTINE 
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FLOATING 
POINT NO. 



NO 
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I FLOAT 


FAC 




USING 


ARITH 


! 
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.OAT 


I 


ROUTH 


4E 
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I 
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2Z 
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3A 
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aiIray 
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VEN 
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• IS IT A 
• CONTROL 

• RECORD 



• YES 

• cr 
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